Subversion Repositories wimsdev

        /*

        /*

         @ arc xc,yc,x-width,y-height,start_angle,end_angle,color

         @ arc xc,yc,x-width,y-height,start_angle,end_angle,color

         @ may be set ''onclick`` or ''drag xy``

         @ may be set ''onclick`` or ''drag xy``

         @ compatible with ''flydraw``

         @ compatible with ''flydraw``

         @ attention: width & height in x/y-range

         @ attention: width & height in x/y-range

         @ better use command <a href='#angle'>angle</a> for use with a <a href='#slider'>slider</a>

         @ better use command <a href='#angle'>angle</a> for use with a <a href='#slider'>slider</a>

         @%arc%size 400,400%xrange -10,10%yrange -10,10%arc 0,0,4,4,10,135,red

         @%arc%size 400,400%xrange -10,10%yrange -10,10%arc 0,0,4,4,10,135,red

         @%arc_filled%size 400,400%xrange -10,10%yrange -10,10%opacity 255,60%filled%fillcolor green%arc 0,0,4,4,10,135,red

         @%arc_filled%size 400,400%xrange -10,10%yrange -10,10%opacity 255,60%filled%fillcolor green%arc 0,0,4,4,10,135,red

        */

        */

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

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

            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){

             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;

             js_function[JS_MATH] = 1;

             js_function[JS_MATH] = 1;

             js_function[JS_PLOT] = 1;

             js_function[JS_PLOT] = 1;

             add_input_jsfunction(css_class,function_label,input_cnt,stroke_color,stroke_opacity,line_width,use_dashed,dashtype[0],dashtype[1],font_size);

             add_input_jsfunction(css_class,function_label,input_cnt,stroke_color,stroke_opacity,line_width,use_dashed,dashtype[0],dashtype[1],font_size);

             input_cnt++;

             input_cnt++;

             jsplot_cnt++;

             jsplot_cnt++;

             }

             }

             fprintf(js_include_file,"if(typeof(all_jsplots) !== 'number'){var all_jsplots;};all_jsplots = %d;function redraw_userdraw(){redraw_jsplot();return;};",jsplot_cnt);

             fprintf(js_include_file,"if(typeof(all_jsplots) !== 'number'){var all_jsplots;};all_jsplots = %d;function redraw_userdraw(){redraw_jsplot();return;};",jsplot_cnt);

                    default:break;

                    default:break;

                }

                }

            }

            }

            reset();

            reset();

        break;

        break;

        case RANGE:

        case RANGE:

        /*

        /*

        @ range xmin,xmax,ymin,ymax

        @ range xmin,xmax,ymin,ymax

        @ if not given: 0,xsize,0,ysize (eg in pixels)

        @ if not given: 0,xsize,0,ysize (eg in pixels)

        */

        */

            decimals = find_number_of_digits(precision);

            decimals = find_number_of_digits(precision);

            for(c = 0 ; c < i-1 ; c = c+4){

            for(c = 0 ; c < i-1 ; c = c+4){

                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,[%.*f,%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f,%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+2],decimals,double_data[c],decimals,double_data[c+1],decimals,double_data[c+1],decimals,double_data[c+3],decimals,double_data[c+3],line_width,line_width,line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);

                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,[%.*f,%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f,%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+2],decimals,double_data[c],decimals,double_data[c+1],decimals,double_data[c+1],decimals,double_data[c+3],decimals,double_data[c+3],line_width,line_width,line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);

                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,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,[%.*f,%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f,%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+2],decimals,double_data[c],decimals,double_data[c+1],decimals,double_data[c+1],decimals,double_data[c+3],decimals,double_data[c+3],line_width,line_width,line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);

                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,[%.*f,%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f,%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+2],decimals,double_data[c],decimals,double_data[c+1],decimals,double_data[c+1],decimals,double_data[c+3],decimals,double_data[c+3],line_width,line_width,line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);

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

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

                /* object_cnt++; */

                /* object_cnt++; */

            }

            }

            dragstuff[5] = 1;

            dragstuff[5] = 1;

            if(use_dragstuff == 0 ){ use_dragstuff = 1; }

            if(use_dragstuff == 0 ){ use_dragstuff = 1; }

                    add_to_buffer(tmp_buffer);

                    add_to_buffer(tmp_buffer);

                    reply_precision = precision;

                    reply_precision = precision;

                    /* no reply from ruler if non-interactive */

                    /* no reply from ruler if non-interactive */

                    if( reply_format == 0 && int_data[0] == -1 ){reply_format = 31;}

                    if( reply_format == 0 && int_data[0] == -1 ){reply_format = 31;}

                    break;

                    break;

        case RESETOFFSET:

        case RESETOFFSET:

        /*

        /*

         @ resetoffset

         @ resetoffset

         @ keyword ; use to restore text placement on the canvas to the real (x;y) coordinates of the left bottom corner of the text

         @ keyword ; use to restore text placement on the canvas to the real (x;y) coordinates of the left bottom corner of the text

         @ may be active for commands <a href="#text">text</a> and <a href="#string">string</a> (e.g. objects in the drag/drop/onclick-librariy

         @ may be active for commands <a href="#text">text</a> and <a href="#string">string</a> (e.g. objects in the drag/drop/onclick-librariy

                check_string_length(string_length);

                check_string_length(string_length);

                rotation_center = my_newmem(string_length);

                rotation_center = my_newmem(string_length);

                snprintf(rotation_center,string_length,"[%f,%f]",rotationcenter[0],rotationcenter[1]);

                snprintf(rotation_center,string_length,"[%f,%f]",rotationcenter[0],rotationcenter[1]);

            }

            }

            break;

            break;

        case SIZE:

        case SIZE:

            /*

            /*

            @ size width,height

            @ size width,height

            @ set canvas size in pixels

            @ set canvas size in pixels

            @ mandatory first command (can only be preceded by keyword <a href="#popup">popup</a>)

            @ mandatory first command (can only be preceded by keyword <a href="#popup">popup</a>)

if( typeof(wims_status) === 'undefined' ){ var wims_status = \"$status\";};\

if( typeof(wims_status) === 'undefined' ){ var wims_status = \"$status\";};\

if( typeof(use_dragdrop_reply) === 'undefined' ){ var use_dragdrop_reply = false;};\

if( typeof(use_dragdrop_reply) === 'undefined' ){ var use_dragdrop_reply = false;};\

if( typeof(canvas_scripts) === 'undefined' ){ var canvas_scripts = new Array();};\

if( typeof(canvas_scripts) === 'undefined' ){ var canvas_scripts = new Array();};\

canvas_scripts.push(\"%d\");\n/*]]>*/\n</script>\n\

canvas_scripts.push(\"%d\");\n/*]]>*/\n</script>\n\

",canvas_root_id);

",canvas_root_id);

/* style=\"display:block;position:relative;margin-left:auto;margin-right:auto;margin-bottom:4px;\" */

/* style=\"display:block;position:relative;margin-left:auto;margin-right:auto;margin-bottom:4px;\" */

if( use_tooltip != 2){

if( use_tooltip != 2){

 fprintf(stdout,"<!-- canvasdraw div  -->\n\

 fprintf(stdout,"<!-- canvasdraw div  -->\n\

<div tabindex=\"0\" id=\"canvas_div%d\" style=\"position:relative;width:%dpx;height:%dpx;margin-left:auto;margin-right:auto;\" oncontextmenu=\"return false;\"></div>\n\

<div tabindex=\"0\" id=\"canvas_div%d\" style=\"position:relative;width:%dpx;height:%dpx;margin-left:auto;margin-right:auto;\" oncontextmenu=\"return false;\"></div>\n\

<!-- tooltip and input placeholder  -->\n\

<!-- tooltip and input placeholder  -->\n\

var unit_x=\" \";\

var unit_x=\" \";\

var unit_y=\" \";\

var unit_y=\" \";\

var dragdrop_reply = [];\

var dragdrop_reply = [];\

var external_canvas = create_canvas%d(%d,xsize,ysize);",VERSION,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,xsize,ysize,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,EXTERNAL_IMAGE_CANVAS);

var external_canvas = create_canvas%d(%d,xsize,ysize);",VERSION,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,xsize,ysize,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,EXTERNAL_IMAGE_CANVAS);

/* var xstart,ystart are normally 0 : in case of sgraph they have the 'jump' in the graph */

/* var xstart,ystart are normally 0 : in case of sgraph they have the 'jump' in the graph */

        case SEGMENT:

        case SEGMENT:

        /*

        /*

        @ segment x1,y1,x2,y2,color

        @ segment x1,y1,x2,y2,color

        @ alternative: seg

        @ alternative: seg

        @ draw a line segment between points (x1:y1)--(x2:y2) in color ''color``

        @ draw a line segment between points (x1:y1)--(x2:y2) in color ''color``

        @ 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>

        @%segment_onclick%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%onclick%segment 1,1,-9,3,green

        @%segment_onclick%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%onclick%segment 1,1,-9,3,green

        @%segment_drag_y%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%drag y%segment 1,1,-9,3,green

        @%segment_drag_y%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%drag y%segment 1,1,-9,3,green

            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; /* x1-values */

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

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

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

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

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

                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,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[30,30],[30,30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+1],decimals,double_data[c+3],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);

                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[30,30],[30,30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+1],decimals,double_data[c+3],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);

                add_to_buffer(tmp_buffer);

                add_to_buffer(tmp_buffer);

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

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

                /* object_cnt++;*/

                /* object_cnt++;*/

            dragstuff[4] = 1;

            dragstuff[4] = 1;

            if(use_dragstuff == 0 ){ use_dragstuff = 1; }

            if(use_dragstuff == 0 ){ use_dragstuff = 1; }

            break;

            break;

        case SETLIMITS:

        case SETLIMITS:

        @ setpixel x,y,color

        @ setpixel x,y,color

        @ A rectangular "point" with diameter 1 pixel centered at (x:y) in xrange / yrange

        @ A rectangular "point" with diameter 1 pixel centered at (x:y) in xrange / yrange

        @ pixels can <b>not</b> be dragged or clicked

        @ pixels can <b>not</b> be dragged or clicked

        @ "pixelsize = 1" may be changed by command <code>pixelsize int</code>

        @ "pixelsize = 1" may be changed by command <code>pixelsize int</code>

        @%setpixel%size 400,400%xrange -10,10%yrange -10,10%setpixel 1,1,red%pixelsize 2%setpixel 2,2,green%pixelsize 3%setpixel 3,3,blue%

        @%setpixel%size 400,400%xrange -10,10%yrange -10,10%setpixel 1,1,red%pixelsize 2%setpixel 2,2,green%pixelsize 3%setpixel 3,3,blue%

            js_function[DRAW_PIXELS] = 1;

            js_function[DRAW_PIXELS] = 1;

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

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

                switch(i){

                switch(i){

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

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

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

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

        @%slider_click%%size 300,300%xrange -6,6%yrange -6,6%grid 1,1,grey%linewidth 2%slider 0,2*pi,300,28,angle degree, name%fillcolor lightgreen%#CLICK ON THE OBJECTS TO ACTIVATE%opacity 255,30%ftriangle 2,2,-2,2,0,0,red%ftriangle -2,2,-2,-2,0,0,blue%ftriangle -2,-2,2,-2,0,0,green%ftriangle 2,-2,2,2,0,0,orange%rotationcenter 0,0%frect -2,2,2,-2,black

        @%slider_click%%size 300,300%xrange -6,6%yrange -6,6%grid 1,1,grey%linewidth 2%slider 0,2*pi,300,28,angle degree, name%fillcolor lightgreen%#CLICK ON THE OBJECTS TO ACTIVATE%opacity 255,30%ftriangle 2,2,-2,2,0,0,red%ftriangle -2,2,-2,-2,0,0,blue%ftriangle -2,-2,2,-2,0,0,green%ftriangle 2,-2,2,2,0,0,orange%rotationcenter 0,0%frect -2,2,2,-2,black

        @%slider_active%%size 300,300%xrange -6,6%yrange -6,6%grid 1,1,grey%linewidth 1%slider 0,2*pi,300,28,angle degree active, name%fillcolor lightgreen%opacity 255,30%ftriangle 2,2,-2,2,0,0,red%ftriangle -2,2,-2,-2,0,0,blue%ftriangle -2,-2,2,-2,0,0,green%ftriangle 2,-2,2,2,0,0,orange%rotationcenter 0,0%frect -2,2,2,-2,black

        @%slider_active%%size 300,300%xrange -6,6%yrange -6,6%grid 1,1,grey%linewidth 1%slider 0,2*pi,300,28,angle degree active, name%fillcolor lightgreen%opacity 255,30%ftriangle 2,2,-2,2,0,0,red%ftriangle -2,2,-2,-2,0,0,blue%ftriangle -2,-2,2,-2,0,0,green%ftriangle 2,-2,2,2,0,0,orange%rotationcenter 0,0%frect -2,2,2,-2,black

        @%slider_animate%%size 300,300%xrange -6,6%yrange -6,6%grid 1,1,grey%linewidth 1%slider 0,2*pi,300,28,angle anim active, name%fillcolor lightgreen%opacity 255,30%ftriangle 2,2,-2,2,0,0,red%ftriangle -2,2,-2,-2,0,0,blue%ftriangle -2,-2,2,-2,0,0,green%ftriangle 2,-2,2,2,0,0,orange%rotationcenter 0,0%frect -2,2,2,-2,black

        @%slider_animate%%size 300,300%xrange -6,6%yrange -6,6%grid 1,1,grey%linewidth 1%slider 0,2*pi,300,28,angle anim active, name%fillcolor lightgreen%opacity 255,30%ftriangle 2,2,-2,2,0,0,red%ftriangle -2,2,-2,-2,0,0,blue%ftriangle -2,-2,2,-2,0,0,green%ftriangle 2,-2,2,2,0,0,orange%rotationcenter 0,0%frect -2,2,2,-2,black

        @%slider_html_image%%size 400,400%xrange -6,6%yrange -6,6%bgcolor white%grid 1,1,grey%linewidth 1%slider 0,2*pi,300,28,angle active degree,%centered%html 0,0,<img src="gifs/domains/sciences/flasks.svg" width="100px" height="100px" />

        @%slider_html_image%%size 400,400%xrange -6,6%yrange -6,6%bgcolor white%grid 1,1,grey%linewidth 1%slider 0,2*pi,300,28,angle active degree,%centered%html 0,0,<img src="gifs/domains/sciences/flasks.svg" width="100px" height="100px" />

        */

        */

            int_data[2] = 0; /* --> show_display = 0; */

            int_data[2] = 0; /* --> show_display = 0; */

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

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

                switch(i){

                switch(i){

                    case 0: double_data[0] = get_real(infile,0);break; /* start value */

                    case 0: double_data[0] = get_real(infile,0);break; /* start value */

                    case 1: double_data[1] = get_real(infile,0);break; /* end value */

                    case 1: double_data[1] = get_real(infile,0);break; /* end value */

                            if(strstr(temp,"y") != 0){slider_type = "Y";if( strstr(temp,"disp")!= 0){int_data[2] = 2;}}

                            if(strstr(temp,"y") != 0){slider_type = "Y";if( strstr(temp,"disp")!= 0){int_data[2] = 2;}}

                            else

                            else

                            canvas_error("slider can be of type: x,y,angle,fun_x:fun_y");

                            canvas_error("slider can be of type: x,y,angle,fun_x:fun_y");

                            break;

                            break;

                    case 5: temp = get_string_argument(infile,1); if( strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\""," ");}

                    case 5: temp = get_string_argument(infile,1); if( strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\""," ");}

                    break;

                    break;

                }

                }

             }

             }

            if(use_slider == -1 ){ /* add once */

            if(use_slider == -1 ){ /* add once */

            break;

            break;

        case X_AXIS_STRINGS:

        case X_AXIS_STRINGS:

        /*

        /*

         @ xaxis num1:string1:num2:string2:num3:string3:num4:string4:....num_n:string_n

         @ xaxis num1:string1:num2:string2:num3:string3:num4:string4:....num_n:string_n

         @ usable for commands <a href="#numberline">numberline</a> and <a href="#grid">grid</a> or combinations thereof

         @ usable for commands <a href="#numberline">numberline</a> and <a href="#grid">grid</a> or combinations thereof

         @ use these x-axis num1...num_n values instead of default xmin...xmax

         @ use these x-axis num1...num_n values instead of default xmin...xmax

         @ in case of command ''grid``. there is no need to use keyword <a href="#axisnumbering">axisnumbering</a>

         @ in case of command ''grid``. there is no need to use keyword <a href="#axisnumbering">axisnumbering</a>

         @ use command <a href="#axis">axis</a> to have visual x/y-axis lines (see command <a href="#grid">grid</a>

         @ use command <a href="#axis">axis</a> to have visual x/y-axis lines (see command <a href="#grid">grid</a>

         @ use command ''fontcolor``, ''fontfamily`` to adjust font <br />defaults: black,12,Arial<br />note: command ''fontsize`` is not active for this command.(''fontsize`` can be used for the <a href="#legend">legend</a> in a <a href="#grid">grid</a>)

         @ use command ''fontcolor``, ''fontfamily`` to adjust font <br />defaults: black,12,Arial<br />note: command ''fontsize`` is not active for this command.(''fontsize`` can be used for the <a href="#legend">legend</a> in a <a href="#grid">grid</a>)