Subversion Repositories wimsdev

        @ draws a halfline starting in (x1:y1) and through (x2:y2) in color 'color' (colorname or hex)

        @ draws a halfline starting in (x1:y1) and through (x2:y2) in color 'color' (colorname or hex)

        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>

        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>

        @%halfline%size 400,400%xrange -10,10%yrange -10,10%halfline -5,5,0,0,red%halfline -5,-5,0,0,blue

        @%halfline%size 400,400%xrange -10,10%yrange -10,10%halfline -5,5,0,0,red%halfline -5,-5,0,0,blue

        */

        */

        for(i=0; i<13;i++){double_data[i]=0;}

        for(i=0; i<13;i++){double_data[i]=0;}

            for(i=0;i<5;i++){

            for(i=0;i<5;i++){

                switch(i){

                switch(i){

                    case 0: double_data[0]= get_real(infile,0);break; /* x-values */

                    case 0: double_data[0]= get_real(infile,0);break; /* x-values */

                    case 1: double_data[1]= get_real(infile,0);break; /* y-values */

                    case 1: double_data[1]= get_real(infile,0);break; /* y-values */

                    case 2: double_data[10]= get_real(infile,0);break; /* x-values */

                    case 2: double_data[10]= get_real(infile,0);break; /* x-values */

                }

                }

            }

            }

            reset();

            reset();

            break;

            break;

        case HTML:

        case HTML:

         @ html x1,y1,html_string

         @ html x1,y1,html_string

         @ all tags are allowed, html code using inputfields could be read using your own javascript code. Do not use ids like 'canvas_input0' etc.

         @ all tags are allowed, html code using inputfields could be read using your own javascript code. Do not use ids like 'canvas_input0' etc.

         @ can be set <a href='#onclick'>onclick</a>  and <a href='#drag'>drag&amp;drop</a>

         @ can be set <a href='#onclick'>onclick</a>  and <a href='#drag'>drag&amp;drop</a>

         @ command <a href='#affine'>affine</a> will produce CSS3 matrix transformations

         @ command <a href='#affine'>affine</a> will produce CSS3 matrix transformations

         @ command <a href='#rotate'>rotate</a> will rotate the object

         @ command <a href='#rotate'>rotate</a> will rotate the object

        @ draw multiple lines through points (x1:y1)--(x2:y2) ...(x_n-1:y_n-1)--(x_n:y_n) in color 'color'

        @ draw multiple lines through points (x1:y1)--(x2:y2) ...(x_n-1:y_n-1)--(x_n:y_n) in color 'color'

        @ or use multiple commands ''curve color,formula`` or ''jscurve color,formule`` to draw the line <br>(uses more points to draw the line; is however better draggable)

        @ or use multiple commands ''curve color,formula`` or ''jscurve color,formule`` to draw the line <br>(uses more points to draw the line; is however better draggable)

        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>

        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>

        @ <b>attention</b>: the flydraw command ''lines`` is equivalent to canvasdraw command <a href="#polyline">polyline</a>

        @ <b>attention</b>: the flydraw command ''lines`` is equivalent to canvasdraw command <a href="#polyline">polyline</a>

        @%lines%size 400,400%xrange -10,10%yrange -10,10%lines green,0,1,1,3,0,0,1,3,0,0,-2,1

        @%lines%size 400,400%xrange -10,10%yrange -10,10%lines green,0,1,1,3,0,0,1,3,0,0,-2,1

                {

                {

                    double_data[i] = get_real(infile,1); /* y */

                    double_data[i] = get_real(infile,1); /* y */

                }

                }

                i++;

                i++;

            }

            }

                            temp = get_string(infile,1);

                            temp = get_string(infile,1);

                            if( strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\"","'"); }

                            if( strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\"","'"); }

                            string_length = 1 + snprintf(NULL,0,"var draw_xml%d = {id:%d,type:'mathml',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%d,rotation_center:%s,once:true};draw_xml(draw_xml%d);slidergroup[%d] = null;\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,use_slider,rotation_center,drawxml_cnt,object_cnt);

                            string_length = 1 + snprintf(NULL,0,"var draw_xml%d = {id:%d,type:'mathml',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%d,rotation_center:%s,once:true};draw_xml(draw_xml%d);slidergroup[%d] = null;\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,use_slider,rotation_center,drawxml_cnt,object_cnt);

                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);

                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);

                            snprintf(tmp_buffer,string_length,  "var draw_xml%d = {id:%d,type:'mathml',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%d,rotation_center:%s,once:true};draw_xml(draw_xml%d);slidergroup[%d] = null;\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,use_slider,rotation_center,drawxml_cnt,object_cnt);

                            snprintf(tmp_buffer,string_length,  "var draw_xml%d = {id:%d,type:'mathml',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%d,rotation_center:%s,once:true};draw_xml(draw_xml%d);slidergroup[%d] = null;\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,use_slider,rotation_center,drawxml_cnt,object_cnt);

                            if(onclick != 0 ){object_cnt++;}

                            if(onclick != 0 ){object_cnt++;}

                            drawxml_cnt++;/* keeps track on imported img,div,p,span,mathml,svg */

                            drawxml_cnt++;/* keeps track on imported img,div,p,span,mathml,svg */

                            /*

                            /*

                                in case inputs are present, trigger adding the read_mathml()

                                in case inputs are present, trigger adding the read_mathml()

                                if no other reply_format is defined

                                if no other reply_format is defined

         @%multidraw_demo%size 800,800%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%css color:blue;%fontfamily Italic 42pt Arial%precision 1%opacity 200,50%snaptogrid%linewidth 3%filled%multistrokecolors red,green,blue,orange,yellow,purple,black,cyan,red,green,blue,orange,green,purple,black,cyan%multifillcolors red,green,blue,orange,yellow,purple,black,cyan,red,green,blue,orange,brown,purple%imagepalette gifs/ca.gif,gifs/en.gif,gifs/nl.gif,gifs/fr.gif,gifs/cn.gif,gifs/de.gif,gifs/kh.gif,gifs/it.gif%multidraw closedpoly,segments,rect,parallelogram,triangles,poly5,points,lines,arrows,circles,text,curvedarrows,curvedarrows2,images

         @%multidraw_demo%size 800,800%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%css color:blue;%fontfamily Italic 42pt Arial%precision 1%opacity 200,50%snaptogrid%linewidth 3%filled%multistrokecolors red,green,blue,orange,yellow,purple,black,cyan,red,green,blue,orange,green,purple,black,cyan%multifillcolors red,green,blue,orange,yellow,purple,black,cyan,red,green,blue,orange,brown,purple%imagepalette gifs/ca.gif,gifs/en.gif,gifs/nl.gif,gifs/fr.gif,gifs/cn.gif,gifs/de.gif,gifs/kh.gif,gifs/it.gif%multidraw closedpoly,segments,rect,parallelogram,triangles,poly5,points,lines,arrows,circles,text,curvedarrows,curvedarrows2,images

         @%multidraw_NOCONTROLS%size 400,400%xrange -10,10%yrange -10,10%grid 2,2,grey%linewidth 3%strokecolor green%fillcolor blue%filled%opacity 255,60%multilabel NOCONTROLS%multidraw circles%# RIGHT MOUSE CLICK REMOVES LAST OBJECT

         @%multidraw_NOCONTROLS%size 400,400%xrange -10,10%yrange -10,10%grid 2,2,grey%linewidth 3%strokecolor green%fillcolor blue%filled%opacity 255,60%multilabel NOCONTROLS%multidraw circles%# RIGHT MOUSE CLICK REMOVES LAST OBJECT

        */

        */

            js_function[INTERACTIVE] = 1;

            js_function[INTERACTIVE] = 1;

            if(js_function[JS_ZOOM] == 1){use_zoom = 1;} /* use noisy zoom_code, when command zoom is given before command 'multidraw' */

            if(js_function[JS_ZOOM] == 1){use_zoom = 1;} /* use noisy zoom_code, when command zoom is given before command 'multidraw' */

            if( use_userdraw == 1 ){canvas_error("Only one userdraw primitive may be used in command 'userdraw' use command 'multidraw' for this...");}

            if( use_userdraw == 1 ){canvas_error("Only one userdraw primitive may be used in command 'userdraw' use command 'multidraw' for this...");}

            use_userdraw = 2;

            use_userdraw = 2;

            temp = get_string(infile,1);

            temp = get_string(infile,1);

            fprintf(js_include_file,"\

            fprintf(js_include_file,"\

            var MMP = %d;\

            var MMP = %d;\

            /* no_controls == int_data[MAX_MULTI_PRIMITIVES+1] */

            /* no_controls == int_data[MAX_MULTI_PRIMITIVES+1] */

            reply_precision = precision;

            reply_precision = precision;

            if(strstr(temp,"text") != NULL){

            if(strstr(temp,"text") != NULL){

             js_function[JS_SAFE_EVAL] = 1;

             js_function[JS_SAFE_EVAL] = 1;

             js_function[DRAW_SUBSUP] = 1;

             js_function[DRAW_SUBSUP] = 1;

            if(strstr(temp,"function") != NULL){

            if(strstr(temp,"function") != NULL){

            int pp, funs = count_substring(temp, "function");

            int pp, funs = count_substring(temp, "function");

             js_function[JS_SAFE_EVAL] = 1;

             js_function[JS_SAFE_EVAL] = 1;

             js_function[JS_RAWMATH] = 1;

             js_function[JS_RAWMATH] = 1;

             js_function[DRAW_JSFUNCTION] = 1;

             js_function[DRAW_JSFUNCTION] = 1;

            temp = get_string(infile,1);

            temp = get_string(infile,1);

            temp = str_replace(temp,",","\",\"");

            temp = str_replace(temp,",","\",\"");

            fprintf(js_include_file,"var multilinewidth = [\"%s\"];",temp);

            fprintf(js_include_file,"var multilinewidth = [\"%s\"];",temp);

            break;

            break;

        case MULTIFILL:

        case MULTIFILL:

         @ multifill 0,0,1,0,1,0,0

         @ multifill 0,0,1,0,1,0,0

         @ meaning draw objects no. 3 and 5, in the list of command ''multifill``, are filled (if the object is fillable...and not a line,segment,arrow or point...)

         @ meaning draw objects no. 3 and 5, in the list of command ''multifill``, are filled (if the object is fillable...and not a line,segment,arrow or point...)

         @ using a fillpattern: multifill 0,1,2,5,3,4<br>meaning: first object is not filled...second object is solid color filled...2=grid | 3=hatch | 4=diamond | 5=dot

         @ using a fillpattern: multifill 0,1,2,5,3,4<br>meaning: first object is not filled...second object is solid color filled...2=grid | 3=hatch | 4=diamond | 5=dot

         @ use before command <a href='#multidraw'>multidraw</a>

         @ use before command <a href='#multidraw'>multidraw</a>

         @ if not set all objects -except point|points- will be set ''not filled``... unless a command <code>filled</code> was given before command <code>multifill</code>

         @ if not set all objects -except point|points- will be set ''not filled``... unless a command <code>filled</code> was given before command <code>multifill</code>

         @ always use the same sequence as is used for ''multidraw``

         @ always use the same sequence as is used for ''multidraw``

         @ can also be used with command <a href='#userdraw'>userdraw clickfill,color</a> when more than one fillcolor is wanted.<br>in that case use for example <a href='#replyformat'>replyformat 10</a> ... reply=x1:y1:color1,x2:y2:color2...<br>the colors will restart at the first color, when there are more fill-clicks than multi-fill-colors<br>if more control over the used colours is wanted, see command <a href='#colorpalette'>colorpalette color1,color2...</a>

         @ can also be used with command <a href='#userdraw'>userdraw clickfill,color</a> when more than one fillcolor is wanted.<br>in that case use for example <a href='#replyformat'>replyformat 10</a> ... reply=x1:y1:color1,x2:y2:color2...<br>the colors will restart at the first color, when there are more fill-clicks than multi-fill-colors<br>if more control over the used colours is wanted, see command <a href='#colorpalette'>colorpalette color1,color2...</a>

        */

        */

            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}

            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}

            fprintf(js_include_file,"var multifillcolors = [");

            fprintf(js_include_file,"var multifillcolors = [");

                temp = get_color(infile,1);

                temp = get_color(infile,1);

                fprintf(js_include_file,"\"%s\",",temp);

                fprintf(js_include_file,"\"%s\",",temp);

            }

            }

            fprintf(js_include_file,"\"0,0,0\"];");/* add black to avoid trouble with dangling comma... */

            fprintf(js_include_file,"\"0,0,0\"];");/* add black to avoid trouble with dangling comma... */

            break;

            break;

        case MULTIFILLOPACITY:

        case MULTIFILLOPACITY:

        /*

        /*

         @ multifillopacity fill_opacity_1,fill_opacity_2,...,fill_opacity_8

         @ multifillopacity fill_opacity_1,fill_opacity_2,...,fill_opacity_8

         @ float values 0 - 1 or integer values 0 - 255

         @ float values 0 - 1 or integer values 0 - 255

         @ if not set all fill opacity_ will be set by previous command <code>opacity int,int</code> and keyword ''filled``

         @ if not set all fill opacity_ will be set by previous command <code>opacity int,int</code> and keyword ''filled``

         @ use these up to 7 different stroke opacities for the draw primitives used by command <code>multidraw obj_type_1,obj_type_2...obj_type_y</code>

         @ use these up to 7 different stroke opacities for the draw primitives used by command <code>multidraw obj_type_1,obj_type_2...obj_type_y</code>

         @ wims will not check the amount or validity of your input

         @ wims will not check the amount or validity of your input

         @ always use the same sequence as is used for ''multidraw``

         @ always use the same sequence as is used for ''multidraw``

        */

        */

            temp = get_string(infile,1);

            temp = get_string(infile,1);

            temp = str_replace(temp,",","\",\"");

            temp = str_replace(temp,",","\",\"");

            fprintf(js_include_file,"var multifillopacity = [\"%s\"];",temp);

            fprintf(js_include_file,"var multifillopacity = [\"%s\"];",temp);

            break;

            break;

        case MULTISNAPTOGRID:

        case MULTISNAPTOGRID:

         @ multisnaptogrid 0,1,1

         @ multisnaptogrid 0,1,1

         @ alternative: multisnap

         @ alternative: multisnap

         @ meaning draw objects no. 2 (circle) and 3 (segments), in the list of command like <code>multifill points,circle,segments</code>, will snap to the xy-grid (default 1 in x/y-coordinate system: see command <a href='#snaptogrid'>snaptogrid</a>)

         @ meaning draw objects no. 2 (circle) and 3 (segments), in the list of command like <code>multifill points,circle,segments</code>, will snap to the xy-grid (default 1 in x/y-coordinate system: see command <a href='#snaptogrid'>snaptogrid</a>)

         @ freehand drawing...specify precision for reply: all objects snap to grid <code>multisnaptogrid 1,1,1,...</code>

         @ freehand drawing...specify precision for reply: all objects snap to grid <code>multisnaptogrid 1,1,1,...</code>

         @ only the xy-values snap_to_grid: all objects snap to grid <code>multisnaptogrid 1,1,1,...</code>

         @ only the xy-values snap_to_grid: all objects snap to grid <code>multisnaptogrid 1,1,1,...</code>

            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}

            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}

            fprintf(js_include_file,"var multistrokecolors = [");

            fprintf(js_include_file,"var multistrokecolors = [");

            while( ! done ){

            while( ! done ){

                temp = get_color(infile,1);

                temp = get_color(infile,1);

                fprintf(js_include_file,"\"%s\",",temp);

                fprintf(js_include_file,"\"%s\",",temp);

            fprintf(js_include_file,"\"0,0,0\"];");/* add black to avoid trouble with dangling comma... */

            fprintf(js_include_file,"\"0,0,0\"];");/* add black to avoid trouble with dangling comma... */

            break;

            break;

        case MULTISTROKEOPACITY:

        case MULTISTROKEOPACITY:

        /*

        /*

         @ multistrokeopacity stroke_opacity_1,stroke_opacity_2,...,stroke_opacity_7

         @ multistrokeopacity stroke_opacity_1,stroke_opacity_2,...,stroke_opacity_7

        */

        */

            for(i = 0 ; i<2;i++){

            for(i = 0 ; i<2;i++){

                switch(i){

                switch(i){

                    case 0: double_data[0]= get_real(infile,0);break;

                    case 0: double_data[0]= get_real(infile,0);break;

                    case 1: double_data[1]= get_real(infile,1);break;

                    case 1: double_data[1]= get_real(infile,1);break;

            if( double_data[0] > 255 ||  double_data[1] > 255  || double_data[0] < 0 || double_data[1] < 0 ){ canvas_error("opacity [0 - 255], [0 - 255] ");}/* typo or non-RGB ? */

            if( double_data[0] > 255 ||  double_data[1] > 255  || double_data[0] < 0 || double_data[1] < 0 ){ canvas_error("opacity [0 - 255], [0 - 255] ");}/* typo or non-RGB ? */

            if( double_data[0] > 1 ){ stroke_opacity = (double) (0.0039215*double_data[0]); }else{ stroke_opacity = 0.0;} /* 0.0 - 1.0 */

            if( double_data[0] > 1 ){ stroke_opacity = (double) (0.0039215*double_data[0]); }else{ stroke_opacity = 0.0;} /* 0.0 - 1.0 */

            if( double_data[1] > 1 ){ fill_opacity = (double) (0.0039215*double_data[1]); }else{ fill_opacity = 0.0;} /* 0.0 - 1.0 */

            if( double_data[1] > 1 ){ fill_opacity = (double) (0.0039215*double_data[1]); }else{ fill_opacity = 0.0;} /* 0.0 - 1.0 */

            break;

            break;

        @ choose<ul><li>replyformat 1: <code>x1,x2,x3,x4....x_n<br>y1,y2,y3,y4....y_n</code> x/y in pixels</li><li>replyformat 2: <code> x1,x2,x3,x4....x_n<br> y1,y2,y3,y4....y_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 3: <code> x1,x2,x3,x4....x_n<br> y1,y2,y3,y4....y_n<br> r1,r2,r3,r4....r_n</code> x/y in pixels, r in pixels</li><li>replyformat 4: <code> x1,x2,x3,x4....x_n<br> y1,y2,y3,y4....y_n<br> r1,r2,r3,r4....r_n</code> x/y in xrange / yrange coordinate system, r in pixels</li><li>replyformat 5: <code> Ax1,Ax2,Ax3,Ax4....Ax_n<br> Ay1,Ay2,Ay3,Ay4....Ay_n<br> Bx1,Bx2,Bx3,Bx4....Bx_n<br> By1,By2,By3,By4....By_n<br> Cx1,Cx2,Cx3,Cx4....Cx_n<br>  Cy1,Cy2,Cy3,Cy4....Cy_n<br>  ....<br>  Zx1,Zx2,Zx3,Zx4....Zx_n<br> Zy1,Zy2,Zy3,Zy4....Zy_n</code> x/y in pixels</li><li>replyformat 6: <code> Ax1,Ax2,Ax3,Ax4....Ax_n<br> Ay1,Ay2,Ay3,Ay4....Ay_n<br> Bx1,Bx2,Bx3,Bx4....Bx_n<br> By1,By2,By3,By4....By_n<br> Cx1,Cx2,Cx3,Cx4....Cx_n<br> Cy1,Cy2,Cy3,Cy4....Cy_n<br> ....<br> Zx1,Zx2,Zx3,Zx4....Zx_n<br> Zy1,Zy2,Zy3,Zy4....Zy_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 7: <code> x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n</code> x/y in pixels</li><li>replyformat 8: <code> x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 9: <code> x1:y1:r1,x2:y2:r2,x3:y3:r3,x4:y4:r3...x_n:y_n:r_n</code> x/y in pixels</li><li>replyformat 10: <code> x1:y1:r1,x2:y2:r2,x3:y3:r3,x4:y4:r3...x_n:y_n:r_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 11: <code> Ax1,Ay1,Ax2,Ay2<br>Bx1,By1,Bx2,By2<br> Cx1,Cy1,Cx2,Cy2<br> Dx1,Dy1,Dx2,Dy2<br> ......<br> Zx1,Zy1,Zx2,Zy2</code> x/y in xrange / yrange coordinate system</li><li>replyformat 12: <code> Ax1,Ay1,Ax2,Ay2<br> Bx1,By1,Bx2,By2<br>Cx1,Cy1,Cx2,Cy2<br> Dx1,Dy1,Dx2,Dy2<br> ......<br> Zx1,Zy1,Zx2,Zy2</code> x/y in pixels</li><li>replyformat 13: <code> Ax1:Ay1:Ax2:Ay2,Bx1:By1:Bx2:By2,Cx1:Cy1:Cx2:Cy2,Dx1:Dy1:Dx2:Dy2, ... ,Zx1:Zy1:Zx2:Zy2</code> x/y in xrange / yrange coordinate system</li><li>replyformat 14: <code> Ax1:Ay1:Ax2:Ay2,Bx1:By1:Bx2:By2....Zx1:Zy1:Zx2:Zy2</code> x/y in pixels</li><li>replyformat 15: reply from inputfields,textareas <code>reply1,reply2,reply3,...,reply_n</code></li><li>replyformat 16: mathml input fields</li><li>replyformat 17: read ''userdraw text,color`` only <code>x1,y1,text1 \\n x2,y2,text2...\\n...x_n,y_n,text_n </code> x/y-values are in xrange/yrange</li><li>replyformat 18: read_canvas() will read all interactive clocks in <code>H1:M1:S1,H2:M2:S2...Hn:Mn:Sn</code></li><li>replyformat 19: read_canvas() will return the object number of marked / clicked object (clock), analogue to (shape library) onclick command</li><li>replyformat 20: read_canvas() will reply "object_number:x:y" of external images: object_number of the first draggable external image in the fly-script starts with 0, e.g. expect something like 0:-5:4,1:6:2,2:-2:-5, the first image position is (-5:4), the second image position is (6:2) and the third image position is (-2:-5)         <li>replyformat 21: <code> (x1:y1) (x2:y2) ... (x_n:y_n)</code> verbatim coordinate return</li><li>replyformat 22: returns an array .... <code>reply[0]=x1 reply[1]=y1 reply[2]=x2 reply[3]=y2 ... reply[n-1]=x_n reply[n]=y_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 23: can only be used for drawtype ''polyline``. A typical click sequence in drawtype polyline is x1,y1,x2,y2,x2,y2,x3,y3,x3,y3.....,x(n-1),y(n-1),x(n-1),y(n-1),xn,yn --replyformat 23 gives <code>x1,y1,x2,y2,x3,y3,.....x(n-1),y(n-1),xn,yn</code>; multiple occurences will be filtered out. The reply will be in x-y-range (xreply \\n yreply)</li><li>replyformat 24: read all inputfield values: even those set ''readonly``</li><li>replyformat 25: <code> angle1,angle2;...;angle_n</code> will return the radius (one or many) of the user drawn circle segment in degrees</li><li>replyformat 26: <code> rad1,rad2,...rad_n</code> will return the radius (one or many) of the user drawn circle segment in radians</li><li>replyformat 27: return (only) userdraw inputfields <code>x1,y1,text1<br> x2,y2,text2...<br>...x_n,y_n,textn</code></li><li>replyformat 28: <code> x1,y1,r1,x2,y2,r2...x_n,y_n,r_n</code> x / y / r in xrange / yrange coordinate system: may be used to reinput into command <code>circles color,x1,y1,r1,x2,y2,r2...x_n,y_n,r_n</code> will not return anything else (e.g. no inputfields, text etc)</li><li>replyformat 34: a special for OEF and dragging external images -included via commands <a href='#copy'>copy</a> or <a href='#copyresized'>copyresized</a> there will be an extra function <code>read_canvas_images()</code> for reading the coordinates of the images.<br>for now this is a unique function, e.g. there is no ''canvas id`` linked to it. (TO DO !!! 18/5/2019)</li></ul>

        @ choose<ul><li>replyformat 1: <code>x1,x2,x3,x4....x_n<br>y1,y2,y3,y4....y_n</code> x/y in pixels</li><li>replyformat 2: <code> x1,x2,x3,x4....x_n<br> y1,y2,y3,y4....y_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 3: <code> x1,x2,x3,x4....x_n<br> y1,y2,y3,y4....y_n<br> r1,r2,r3,r4....r_n</code> x/y in pixels, r in pixels</li><li>replyformat 4: <code> x1,x2,x3,x4....x_n<br> y1,y2,y3,y4....y_n<br> r1,r2,r3,r4....r_n</code> x/y in xrange / yrange coordinate system, r in pixels</li><li>replyformat 5: <code> Ax1,Ax2,Ax3,Ax4....Ax_n<br> Ay1,Ay2,Ay3,Ay4....Ay_n<br> Bx1,Bx2,Bx3,Bx4....Bx_n<br> By1,By2,By3,By4....By_n<br> Cx1,Cx2,Cx3,Cx4....Cx_n<br>  Cy1,Cy2,Cy3,Cy4....Cy_n<br>  ....<br>  Zx1,Zx2,Zx3,Zx4....Zx_n<br> Zy1,Zy2,Zy3,Zy4....Zy_n</code> x/y in pixels</li><li>replyformat 6: <code> Ax1,Ax2,Ax3,Ax4....Ax_n<br> Ay1,Ay2,Ay3,Ay4....Ay_n<br> Bx1,Bx2,Bx3,Bx4....Bx_n<br> By1,By2,By3,By4....By_n<br> Cx1,Cx2,Cx3,Cx4....Cx_n<br> Cy1,Cy2,Cy3,Cy4....Cy_n<br> ....<br> Zx1,Zx2,Zx3,Zx4....Zx_n<br> Zy1,Zy2,Zy3,Zy4....Zy_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 7: <code> x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n</code> x/y in pixels</li><li>replyformat 8: <code> x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 9: <code> x1:y1:r1,x2:y2:r2,x3:y3:r3,x4:y4:r3...x_n:y_n:r_n</code> x/y in pixels</li><li>replyformat 10: <code> x1:y1:r1,x2:y2:r2,x3:y3:r3,x4:y4:r3...x_n:y_n:r_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 11: <code> Ax1,Ay1,Ax2,Ay2<br>Bx1,By1,Bx2,By2<br> Cx1,Cy1,Cx2,Cy2<br> Dx1,Dy1,Dx2,Dy2<br> ......<br> Zx1,Zy1,Zx2,Zy2</code> x/y in xrange / yrange coordinate system</li><li>replyformat 12: <code> Ax1,Ay1,Ax2,Ay2<br> Bx1,By1,Bx2,By2<br>Cx1,Cy1,Cx2,Cy2<br> Dx1,Dy1,Dx2,Dy2<br> ......<br> Zx1,Zy1,Zx2,Zy2</code> x/y in pixels</li><li>replyformat 13: <code> Ax1:Ay1:Ax2:Ay2,Bx1:By1:Bx2:By2,Cx1:Cy1:Cx2:Cy2,Dx1:Dy1:Dx2:Dy2, ... ,Zx1:Zy1:Zx2:Zy2</code> x/y in xrange / yrange coordinate system</li><li>replyformat 14: <code> Ax1:Ay1:Ax2:Ay2,Bx1:By1:Bx2:By2....Zx1:Zy1:Zx2:Zy2</code> x/y in pixels</li><li>replyformat 15: reply from inputfields,textareas <code>reply1,reply2,reply3,...,reply_n</code></li><li>replyformat 16: mathml input fields</li><li>replyformat 17: read ''userdraw text,color`` only <code>x1,y1,text1 \\n x2,y2,text2...\\n...x_n,y_n,text_n </code> x/y-values are in xrange/yrange</li><li>replyformat 18: read_canvas() will read all interactive clocks in <code>H1:M1:S1,H2:M2:S2...Hn:Mn:Sn</code></li><li>replyformat 19: read_canvas() will return the object number of marked / clicked object (clock), analogue to (shape library) onclick command</li><li>replyformat 20: read_canvas() will reply "object_number:x:y" of external images: object_number of the first draggable external image in the fly-script starts with 0, e.g. expect something like 0:-5:4,1:6:2,2:-2:-5, the first image position is (-5:4), the second image position is (6:2) and the third image position is (-2:-5)         <li>replyformat 21: <code> (x1:y1) (x2:y2) ... (x_n:y_n)</code> verbatim coordinate return</li><li>replyformat 22: returns an array .... <code>reply[0]=x1 reply[1]=y1 reply[2]=x2 reply[3]=y2 ... reply[n-1]=x_n reply[n]=y_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 23: can only be used for drawtype ''polyline``. A typical click sequence in drawtype polyline is x1,y1,x2,y2,x2,y2,x3,y3,x3,y3.....,x(n-1),y(n-1),x(n-1),y(n-1),xn,yn --replyformat 23 gives <code>x1,y1,x2,y2,x3,y3,.....x(n-1),y(n-1),xn,yn</code>; multiple occurences will be filtered out. The reply will be in x-y-range (xreply \\n yreply)</li><li>replyformat 24: read all inputfield values: even those set ''readonly``</li><li>replyformat 25: <code> angle1,angle2;...;angle_n</code> will return the radius (one or many) of the user drawn circle segment in degrees</li><li>replyformat 26: <code> rad1,rad2,...rad_n</code> will return the radius (one or many) of the user drawn circle segment in radians</li><li>replyformat 27: return (only) userdraw inputfields <code>x1,y1,text1<br> x2,y2,text2...<br>...x_n,y_n,textn</code></li><li>replyformat 28: <code> x1,y1,r1,x2,y2,r2...x_n,y_n,r_n</code> x / y / r in xrange / yrange coordinate system: may be used to reinput into command <code>circles color,x1,y1,r1,x2,y2,r2...x_n,y_n,r_n</code> will not return anything else (e.g. no inputfields, text etc)</li><li>replyformat 34: a special for OEF and dragging external images -included via commands <a href='#copy'>copy</a> or <a href='#copyresized'>copyresized</a> there will be an extra function <code>read_canvas_images()</code> for reading the coordinates of the images.<br>for now this is a unique function, e.g. there is no ''canvas id`` linked to it. (TO DO !!! 18/5/2019)</li></ul>

        @ special replyformat = 100 ; will access to the raw javascript object data...use: read_dragdrop([property,property,...])<br>for example  properies like 'clicked','text', 'angle' , 'x'

        @ special replyformat = 100 ; will access to the raw javascript object data...use: read_dragdrop([property,property,...])<br>for example  properies like 'clicked','text', 'angle' , 'x'

        */

        */

         reply_format = (int) get_real(infile,1);

         reply_format = (int) get_real(infile,1);

         reply_precision = precision;

         reply_precision = precision;

        break;

        break;

        case ROUNDRECT:

        case ROUNDRECT:

        /*

        /*

        @ roundrect x1,y1,x2,y2,radius in px,color

        @ roundrect x1,y1,x2,y2,radius in px,color

            break;

            break;

        case XYLOGSCALE:

        case XYLOGSCALE:

        /*

        /*

         @ xylogscale majorcolor,minorcolor

         @ xylogscale majorcolor,minorcolor

         @ the opacity of major / minor grid lines is set by command ''opacity [0-255],[0-255]``

         @ the opacity of major / minor grid lines is set by command ''opacity [0-255],[0-255]``

         @ default logbase number = 10 ... when needed, set the logbase number with command ''xlogbase number`` and/or ''ylogbase number``

         @ default logbase number = 10 ... when needed, set the logbase number with command ''xlogbase number`` and/or ''ylogbase number``

         @ the x/y- axis numbering is triggered by keyword ''axisnumbering``<ul><li>use commands ''xlabel some_text`` and/or ''ylabel some_text`` for text on axis: use command ''fontsize int`` to set the fontsize (default 12px)</li><li>use command ''fontfamily fnt_family_string`` to set the fonts for axis-numbering</li><li>use command ''fontcolor`` to set the colour</li></ul>

         @ the x/y- axis numbering is triggered by keyword ''axisnumbering``<ul><li>use commands ''xlabel some_text`` and/or ''ylabel some_text`` for text on axis: use command ''fontsize int`` to set the fontsize (default 12px)</li><li>use command ''fontfamily fnt_family_string`` to set the fonts for axis-numbering</li><li>use command ''fontcolor`` to set the colour</li></ul>

         @ note: the complete canvas will be used for the ''log paper``

         @ note: the complete canvas will be used for the ''log paper``

         @ note: userdrawings are done in the log paper, e.g. javascript:read_canvas() will return the real values

         @ note: userdrawings are done in the log paper, e.g. javascript:read_canvas() will return the real values

}

}

/* end main() */

/* end main() */

/******************************************************************************

/******************************************************************************

**  sync_input

**  sync_input

**

**

**  synchronises input line - reads to end of line, leaving file pointer

**  synchronises input line - reads to end of line, leaving file pointer

**  at first character of next line.

**  at first character of next line.

**

**

        int b = (int) strtol(blue,  NULL, 16);

        int b = (int) strtol(blue,  NULL, 16);

        int L0 = 1+snprintf(NULL,0,"%d,%d,%d",r,g,b);

        int L0 = 1+snprintf(NULL,0,"%d,%d,%d",r,g,b);

        string = my_newmem(L0);

        string = my_newmem(L0);

        snprintf(string,L0,"%d,%d,%d",r,g,b);

        snprintf(string,L0,"%d,%d,%d",r,g,b);

        return string;

        return string;

    else

    else

    {

    {

        string = (char *)my_newmem(sizeof(temp));

        string = (char *)my_newmem(sizeof(temp));

        snprintf(string,sizeof(temp),"%s",temp);

        snprintf(string,sizeof(temp),"%s",temp);

        for( i = 0; i < NUMBER_OF_COLORNAMES ; i++ ){

        for( i = 0; i < NUMBER_OF_COLORNAMES ; i++ ){

  canvas_error("your memory buffer is too big<br>simplify your script...it produces too many lines ");

  canvas_error("your memory buffer is too big<br>simplify your script...it produces too many lines ");

 }

 }

 tmp = NULL;free(tmp);

 tmp = NULL;free(tmp);

 return;

 return;

}

}

void reset(){

void reset(){

 if(no_reset == FALSE){ /* 8/5/2020 */

 if(no_reset == FALSE){ /* 8/5/2020 */

  use_filled = FALSE;

  use_filled = FALSE;

  use_dashed = FALSE;

  use_dashed = FALSE;

    read(link[0],buffer, sizeof(buffer));

    read(link[0],buffer, sizeof(buffer));

    close(link[0]);

    close(link[0]);

    /* need to remover newline from svg-string on freebsd */

    /* need to remover newline from svg-string on freebsd */

    char *pch = strstr(buffer, "\n");

    char *pch = strstr(buffer, "\n");

    while(pch != NULL){

    while(pch != NULL){

     pch = strstr(buffer, "\n");

     pch = strstr(buffer, "\n");

    }

    }

    string_length = 1 + snprintf(NULL,0,"%s",buffer);

    string_length = 1 + snprintf(NULL,0,"%s",buffer);

    svgmol= my_newmem(string_length);

    svgmol= my_newmem(string_length);

    snprintf(svgmol,string_length,"%s",buffer);

    snprintf(svgmol,string_length,"%s",buffer);

 }

 }

 return digits;

 return digits;

}

}

int count_substring(char* string, char* substring) {

int count_substring(char* string, char* substring) {

  int count = 0;

  int count = 0;

  l1 = strlen(string);

  l1 = strlen(string);

  l2 = strlen(substring);

  l2 = strlen(substring);

  for(i = 0; i < l1 - l2 + 1; i++) {

  for(i = 0; i < l1 - l2 + 1; i++) {

    if(strstr(string + i, substring) == string + i) {

    if(strstr(string + i, substring) == string + i) {

        *allowdups="allowdups",

        *allowdups="allowdups",

        *linear="linear",

        *linear="linear",

        *obabel="obabel",

        *obabel="obabel",

        *chemtex="chemtex",

        *chemtex="chemtex",

        *noreset="noreset",

        *noreset="noreset",

        *killreset="killreset",

        *killreset="killreset",

        *arrowarc="arrowarc",

        *arrowarc="arrowarc",

        *arcarrow="arcarrow",

        *arcarrow="arcarrow",

        *newrange="newrange",

        *newrange="newrange",

        *canvastype="canvastype";

        *canvastype="canvastype";

        }

        }

        if (c == '\n' || c == '\r' || c == '\t' ){  line_number++; }

        if (c == '\n' || c == '\r' || c == '\t' ){  line_number++; }

        if (c == EOF) {finished=1;return 0;}

        if (c == EOF) {finished=1;return 0;}

        temp[i]='\0';

        temp[i]='\0';

        /* 4/2024 adapt to Flydraw's dashing syntax for all objects with prefix "dash" */

        /* 4/2024 adapt to Flydraw's dashing syntax for all objects with prefix "dash" */

            use_dashed = TRUE;int idx=0;

            use_dashed = TRUE;int idx=0;

        }

        }

/*      fprintf(stdout,"input_type = %s<br/>",input_type);*/

/*      fprintf(stdout,"input_type = %s<br/>",input_type);*/

        if( strcmp(input_type, size) == 0 ){

        if( strcmp(input_type, size) == 0 ){

        free(input_type);

        free(input_type);

        return SIZE;

        return SIZE;

        }

        }

        if( strcmp(input_type, fontfamily) == 0 ){

        if( strcmp(input_type, fontfamily) == 0 ){

        free(input_type);

        free(input_type);

        return FONTFAMILY;

        return FONTFAMILY;

        }

        }

        if( strcmp(input_type, polyline) == 0 ||  strcmp(input_type, dpolyline) == 0 ||  strcmp(input_type, path) == 0 || strcmp(input_type, brokenline) == 0 ){

        if( strcmp(input_type, polyline) == 0 ||  strcmp(input_type, dpolyline) == 0 ||  strcmp(input_type, path) == 0 || strcmp(input_type, brokenline) == 0 ){

        free(input_type);

        free(input_type);

        return POLYLINE;

        return POLYLINE;

        }

        }

        if( strcmp(input_type, lines) == 0 ){

        if( strcmp(input_type, lines) == 0 ){

        free(input_type);

        free(input_type);

        if( strcmp(input_type, chemtex) == 0 ){

        if( strcmp(input_type, chemtex) == 0 ){

        free(input_type);

        free(input_type);

        return CHEMTEX;

        return CHEMTEX;

        }

        }

        if( strcmp(input_type, noreset) == 0  || strcmp(input_type, killreset) == 0 ){

        if( strcmp(input_type, noreset) == 0  || strcmp(input_type, killreset) == 0 ){

         return NORESET;

         return NORESET;

        }

        }

        if( strcmp(input_type, duplicates) == 0 || strcmp(input_type, allowdups) == 0 ){

        if( strcmp(input_type, duplicates) == 0 || strcmp(input_type, allowdups) == 0 ){

        free(input_type);

        free(input_type);

        return ALLOW_DUPLICATES;

        return ALLOW_DUPLICATES;

        }

        }