WebSVN – wimsdev – Diff – /trunk/wims/src/Misc/canvasdraw/canvasdraw.c

         case MULTIDRAW:
         /*
          @ multidraw obj_type_1,obj_type_2...obj_type_11
          @ for simple single object user drawings you could also use command <a href="#userdraw">userdraw</a>
-         @ implemented obj_types:<ul><li>point | points</li><li>circle | circles</li><li>line | lines</li><li>segment | segments</li><li>arrow | arrows (use command 'arrowhead int' for size (default value 8 pixels))</li><li>curvedarrow | curvedarrows</li><li>rect | rects</li><li>closedpoly<br /><b>only one</b> closedpolygon may be drawn.The number of ''corner points`` is not preset (e.g. not limited, freestyle), the polygon is closed when clicking on the first point again..(+/- 10px)</li><li>triangle | triangles</li><li>parallelogram | parallelograms</li><li>poly[3-9] | polys[3-9] draw 3...9 point polygone(s): polys3 is of course triangles</li><li>images</li><li>crosshair | crosshairs</li><li>function | functions <br/>simple function plotter, command functions will can be used for 2 function user inputs</li></ul>
+         @ implemented obj_types:<ul><li>point | points</li><li>circle | circles</li><li>line | lines</li><li>segment | segments</li><li>arrow | arrows (use command 'arrowhead int' for size (default value 8 pixels))</li><li>curvedarrow | curvedarrows</li><li>rect | rects</li><li>closedpoly<br /><b>only one</b> closedpolygon may be drawn.The number of ''corner points`` is not preset (e.g. not limited, freestyle), the polygon is closed when clicking on the first point again..(+/- 10px)</li><li>triangle | triangles</li><li>parallelogram | parallelograms</li><li>poly[3-9] | polys[3-9] draw 3...9 point polygone(s): polys3 is of course triangles</li><li>images</li><li>crosshair | crosshairs</li><li>function <br/>for more function user input fields, use it multiple times<br />for 4 inputfields use : multidraw function,function,function,function</li></ul>
          @ additionally objects may be user labelled, using obj_type ''text``...<br />in this case allways a text input field and if <a href='#multiuserinput'> multiuserinput=1 </a> also (x:y) inputfields will be added to the page.<br />use commands ''fontfamily`` and ''fontcolor`` to adjust (command ''multistrokeopacity`` may be set to adjust text opacity)<br />note: text is always centered on the mouse-click or user-input coordinates !<br />note: no keyboard listeners are used
          @ it makes no sense using something like ''multidraw point,points`` ... <br />something like "multidraw polys4,polys7" will only result in drawing a ''4 point polygone`` and not a ''7 point polygone``: this is a design flaw and not a feature...
          @ note: mouselisteners are only active if "&#36;status != done " (eg only drawing in an active/non-finished exercise) <br /> to overrule use command/keyword "status" (no arguments required)
          @ buttons for changing the obj_type (and in case of ''multiuserinput``, some inputfields and buttons) <br />will be present in the reserved div ''tooltip_div`` and can be styled using command 'css some_css'
          @ the button label will be default the ''object primitive name`` (like ''point``, ''circles``).<br />If you want a different label (e.g. an other language), use command ''multilabel``<br />for example in dutch: <br /><code>multilabel cirkel,lijnstuk,punten,STOP<br />multidraw circle,segment,points</code><br />(see command <a href='#multilabel'>multilabel</a> for more details)
          @ It is best to prepare / format the student reply in clientside javascript.<br />However in ''wims`` language you could use something like this<br />for example you are interested in the polys5 drawings of a pupil (the pupil may draw multiple poly5 objects...)<br />note: the reply for 2 poly5's is: x11,x12,x13,x14,x15,x21,x22,x23,x24,x25 ; y11,y12,y13,y14,y15,y21,y22,y23,y24,y25<br />rep = !line 7 of reply <br />rep = !translate ';' to '\\n' in &#36;rep <br />pts = 5 # 5 points for polygon <br />x_rep = !line 1 of &#36;rep <br />y_rep = !line 2 of &#36;rep <br />tot = !itemcnt &#36;x_rep <br />num_poly = &#36;[&#36;tot/&#36;pts] <br />idx = 0 <br />!for p=1 to &#36;num_poly <br />&nbsp;!for s=1 to &#36;pts <br />&nbsp;&nbsp;!increase idx <br />&nbsp;&nbsp;X = !item &#36;idx of &#36;x_rep <br />&nbsp;&nbsp;Y = !item &#36;idx of &#36;y_rep <br />&nbsp;&nbsp;# do some checking <br />&nbsp;!next s <br />!next p <br />
          @ <b>attention</b>: for command argument ''closedpoly``, only one polygone can be drawn. The last point (e.g. the point clicked near the first point) of the array is removed.
          @ technical: all 10 ''draw primitives`` + ''text`` will have their own -transparent- PNG bitmap canvas. <br />So for example there can be a points_canvas entirely separated from a line_canvas.<br />This to avoid the need for a complete redraw when something is drawn to the canvas...(eg only the object_type_canvas is redrawn), this in contrast too many very slow do-it-all HTML5 canvas javascript libraries.<br />The mouselisteners are attached to the canvas-div element.
          @ a special object type is ''images``.<br />if used together with <a href='#imagepalette'>imagepalette</a> a image table will be integrated in the 'control section' of multidraw (set <code>multiuserinput 1</code> for ''images``) if not used with <a href='#imagepalette'>imagepalette</a>, provide the images or div's (&lt;img&gt; tag with bitmap or SVG or anything in a div element) somewhere on the html exercise page, with an onclick handler like:<br /><code>&lt;img src='gifs/images/dog.svg' onclick='javascript:place_image_on_canvas(this.id);' id="ext_image_1" /&gt;<br />&lt;img src='gifs/fish.png' onclick='javascript:place_image_on_canvas(this.id);' id="another" /&gt;</code><br />etc ... when activating the multidraw ''image`` button, the images can be selected<br /> (left mouse button/onclick) and placed on the canvas...left mouse click.<br />using div's will enable you -amongst other content- to add math typesetting from the exercise page onto the canvas.
          @ When you are not content with the default ''multidraw control panel``, you can create your own interface, using a few javascript functions to call the drawprimitives, delete things and ''stop drawing`` in case you also want to drag&drop stuff...</br>To activate this feature, use <a href='#multilabel'>multilabel NOCONTROLS</a><br />The object types are internally represented by the following numbers (making typos will render your exercise null and void)<br/>point = 0<br />points =1<br />circle = 2<br />circles = 3<br />line = 4<br />lines = 5<br />segment = 6<br />segments = 7<br />arrow = 8<br />arrows = 9<br />triangle = 10<br />triangles = 11<br />closedspoly = 12<br />text = 13<br />rect = 14<br />rects = 15<br />poly[3-9] = 16<br />polys[3-9] = 17<br />parallelogram = 18<br />parallelograms = 19<br />images       = 20<br />curvedarrow = 21<br />curvedarrows = 22<br />curvedarrow2 = 23<br />curvedarrows2 = 24<br />crosshair = 25<br />crosshairs = 26 <br />controls for example:<br /><code>&lt;input type='button' onclick='javascript:userdraw_primitive=null' value='STOP DRAWING' /&gt;<br />&lt;input type='button' onclick='javascript:userdraw_primitive=24;multidraw_object_cnt = 0;' value='start drawing curvedarrows2' /&gt; <br />&lt;input type='button' onclick='javascript:var fun=eval("clear_draw_area"+canvas_scripts[0]);fun(24,0);' value='REMOVE LAST CURVEDARROW ' /&gt; </code><br/> If using multiple canvas scripts in a single page, loop through the canvas_scripts[n] <br />note: if using NOCONTROLS and just a single draw primitive (for example, just: 'multidraw circles'), the object may be drawn directly. (analogue to 'userdraw circles,color')<br />And since a right mouse button click will always remove the last drawn object of the current object type, there is no need for a special "remove button"
+         @%multidraw_function%size 400,400%xrange -10,10%yrange -10,10%fontfamily Italic 22px Helvetica%axis%axisnumbering%precision 0%grid 2,2,grey,1,1,5,black%multicolors red,green,blue%fontcolor orange%multilinewidth 1,2,3%multidraw text,function,function,function,line
          @%multidraw%size 400,400%xrange -10,10%yrange -10,10%multidash 1,0%multilinewidth 1,2%multistrokecolors red,blue%multisnaptogrid 1,1%multilabel LINES,CIRCLES,STOP DRAWING%multidraw lines,circles
          @%multidraw_images%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%drag xy%# use special function to read the drag coordinates%copy 0,0,-1,-1,-1,-1,gifs/images/skull_and_crossbones50.png%fontcolor green%fontfamily Bold 42pt Arial%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%multiuserinput 0,0,1%css color:blue;%multisnaptogrid 1,1,1%multilinewidth 0,4,0%# attention: use unicode text input without the slash %# \u222D ---> u222D at least will sometimes work%# otherwise cut&past unicode symbols into inputfield...%multilabel TEXT,REACTION ARROW,FLAGS,STOP DRAWING%multidraw text,arrow,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 function%size 400,400%xrange -10,10%yrange -10,10%fontfamily Italic 22px Helvetica%axis%axisnumbering%precision 0%grid 2,2,grey,1,1,5,black%multicolors red,green,blue%fontcolor orange%multilinewidth 1,2,3%multidraw text,functions,line
         */
             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( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
             if( use_userdraw == 1 ){canvas_error("Only one userdraw primitive may be used in command 'userdraw' use command 'multidraw' for this...");}
             if(strstr(temp,"text") != NULL){
              js_function[JS_SAFE_EVAL] = 1;
              js_function[DRAW_SUBSUP] = 1;
+            }
             if(strstr(temp,"function") != NULL){
+            int funs = count_substring(temp, "function");
              js_function[JS_SAFE_EVAL] = 1;
              js_function[JS_RAWMATH] = 1;
              js_function[DRAW_JSFUNCTION] = 1;
              js_function[JS_MATH] = 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);
-             input_cnt++;
-             jsplot_cnt++;
-             if(strstr(temp,"functions") != NULL){
+             for(int pp = 0 ; pp< funs ;pp++){
              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++;
              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);
+            }
             /* the canvasses range from 1000 ... 1008 */
             if( reply_format == 0){reply_format = 29;}
             reset();/* if command 'filled' / 'dashed' was given...reset all */
             break;
         case MULTILABEL:
         /*
          @ multilabel button_label_1,button_label_2,...,button_label_8,'stop drawing text'
          @ use before command <a href='#multidraw'>multidraw</a>
          @ if not set all labels (e.g. the value of input type 'button') will be set by the english names for the draw_primitives (like 'point','circle'...)
          @ 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
          @ 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>
          @ only suitable for draw_primitives like ''circle | circles``, ''triangle | triangles``, ''rect | rects``, ''poly[3-9] | polys[3-9]`` and ''polygon``
          @ wims will <b>not</b> check if the number of 0 or 1's matches the amount of draw primitives...
          @ always use the same sequence as is used for ''multidraw``
         */
             if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
             i=0;
             while( ! done ){     /* get next item until EOL*/
         @ noyaxis
         @ keyword
         @ if set, the automatic y-axis numbering will be ignored
         @ use command <a href="#axis">axis</a> to have a visual x/y-axis lines (see command <a href="#grid">grid</a>)
         @ to be used before command grid (see <a href="#grid">command grid</a>)
         */
             fprintf(js_include_file,"y_strings = {};\n");
             break;
         case NUMBERLINE:
         /*
         @ numberline x0,x1,xmajor,xminor,y0,y1
              @ default 150
              @ only used for commands <a href="#curve">curve / plot</a> and <a href="#levelcurve">levelcurve</a>
              @ use with care !
             */
             plot_steps = (int) (get_real(infile,1));
             break;
         case POINT:
         /*
         @ point x,y,color
         @ draw a single point at (x;y) in color 'color'
         @ use command <code>linewidth int</code> to adjust size
         @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
         @ will not resize on zooming (command <code>circle x,y,r,color</code> will resize on zooming)
         @ attention: in case of command <a href="#rotate">rotate angle</a> a point has rotation center (0:0) in x/y-range
         @%point%size 400,400%xrange -10,10%yrange -10,10%opacity 255,255%linewidth 1%onclick%point 0,0,red%linewidth 2%onclick%point 1,1,blue%linewidth 3%onclick%point 3,3,green%linewidth 4%point 4,4,orange
         */
             for(i=0;i<3;i++){
                 switch(i){
                     case 0: double_data[0] = get_real(infile,0);break; /* x */
                     case 1: double_data[1] = get_real(infile,0);break; /* y */
                     case 2: stroke_color = get_color(infile,1);/* name or hex color */
         @ use command <code>linewidth int</code> to adjust size
         @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually (!)
         @ attention: in case of command <a href="#rotate">rotate angle</a> the points have rotation center (0:0) in x/y-range
         @%points_1%size 400,400%xrange -10,10%yrange -10,10%opacity 255,255%snaptogrid%linewidth 1%drag xy%points red,0,0,1,1,2,2,3,3%drag x%points blue,0,1,1,2,2,3,3,4
         @%points_2%size 400,400%xrange -10,10%yrange -10,10%opacity 255,255%linewidth 1%onclick%points red,0,0,1,1,2,2,3,3%onclick%points blue,0,1,1,2,2,3,3,4
         */
             stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
             fill_color = stroke_color;
             i=0;
             while( ! done ){     /* get next item until EOL*/
                 if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
                 if(i%2 == 0 ){
                     double_data[i] = get_real(infile,0); /* x */
                 }
                 else
+                {
                     double_data[i] = get_real(infile,1); /* y */
+                }
                 i++;
         @ draw closed polygon
         @ use command ''fpoly`` to fill it or use keyword <a href='#filled'>filled</a>
         @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
         @%polygon_1%size 400,400%xrange -10,10%yrange -10,10%opacity 255,25%fillcolor orange%filled%linewidth 2%drag xy%snaptogrid%poly blue,0,0,1,3,3,1,2,4,-1,3
         @%polygon_2%size 400,400%xrange -10,10%yrange -10,10%opacity 255,25%fillcolor orange%filled%linewidth 1%onclick%poly green,0,0,1,3,3,1,2,4,-1,3
         */
             stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
             i=0;
             c=0;
             while( ! done ){     /* get next item until EOL*/
                 if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
                 for( c = 0 ; c < 2; c++){
                     if(c == 0 ){
                         double_data[i] = get_real(infile,0);
                         i++;
                     }
                     else
                     {
                         double_data[i] = get_real(infile,1);
                         i++;
                     }
                 }
             }
             if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
             if(use_affine == TRUE ){ transform(i-1,2);}
             if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
             /* draw path:  closed & optional filled */
             decimals = find_number_of_digits(precision);
             string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,%s,[0],[0],%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,double_xy2js_array(double_data,i,decimals),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);
             snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,%s,[0],[0],%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,double_xy2js_array(double_data,i,decimals),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);
             /* draw path: not closed & not filled */
             decimals = find_number_of_digits(precision);
             string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,%s,[0],[0],%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,double_xy2js_array(double_data,i,decimals),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);
             snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,%s,[0],[0],%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,double_xy2js_array(double_data,i,decimals),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);
             add_to_buffer(tmp_buffer);
             if(onclick != 0){object_cnt++;}
             /* object_cnt++;*/
             reset();
             dragstuff[4] = 1;
             if(use_dragstuff == 0 ){ use_dragstuff = 1; }
         case PIXELSIZE:
         /*
         @ pixelsize int
         @ in case you want to deviate from default pixelsize = 1(...)
         @ pixelsize 100 is of course a filled rectangle 100px &times; 100px
         */
             pixelsize = (int) get_real(infile,1);
         break;
         case PIECHART:
         /*
 ,1     2,3 .....8,9    10,11.....
 ,7     4,5 .....14,15  12,13.....
         x = [0,2,4,6,8,10,12,14...]
         y = [1,3,5,7,9,11,13,15...]
         */
             stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
             fill_color = stroke_color;
             i=0;
             while( ! done ){     /* get next item until EOL*/
                 if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
                 if(i%2 == 0 ){
         @%roundrects%size 400,400%xrange -10,10%yrange -10,10%roundrects blue,5,0,0,4,-4,5,4,1,2
         */
             stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
             int_data[0] = (int) (get_real(infile,0)); /* radius value in pixels */
             fill_color = stroke_color;
             i=0;
             while( ! done ){     /* get next item until EOL*/
                 if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
                 if(i%2 == 0 ){
                     double_data[i] = get_real(infile,0); /* x */
                 }
                 else
                 {
                     double_data[i] = get_real(infile,1); /* y */
                 }
                 i++;
+            }
             if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
             if(use_affine == TRUE ){ transform(i-1,2);}
             if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
+                }
                 string_length = 1 + snprintf(NULL,0,"[%f,%f ]",rotationcenter[0],rotationcenter[1]);
                 check_string_length(string_length);
                 rotation_center = my_newmem(string_length);
                 snprintf(rotation_center,string_length,"[%f,%f]",rotationcenter[0],rotationcenter[1]);
             }
             break;
         case SIZE:
             /*
             @ size width,height
                            string_length = 1 + snprintf(NULL,0,"draw_setpixel([%f],[%f],\"%s\",%.2f,%d);\n",double_data[0],double_data[1],stroke_color,stroke_opacity,pixelsize);
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
                            snprintf(tmp_buffer,string_length,"draw_setpixel([%f],[%f],\"%s\",%.2f,%d);\n",double_data[0],double_data[1],stroke_color,stroke_opacity,pixelsize);
                            add_to_buffer(tmp_buffer);
                            break;
                     default:break;
                 }
             }
             reset();
         break;
         case SLIDER:
         /*
         @ slider start_value,end_value,width px,height px,type,label
          # default value "y"
          # the y-value of the slider object(s) will be calculated with this function.
          # only used by command ''slider``
          # define before a slider command !
          */
         break;
         case SGRAPH:
         /*
          @ sgraph xstart,ystart,xmajor,ymajor,xminor,yminor,majorgrid_color,minorgrid_color
          @ primitive implementation of a ''broken scale`` graph...
          @ not very versatile: only usable in combination with userdraw <br />eg no other objects will obey this "coordinate system"<br />if you want to place an object into this coordinate system, be aware that 10% or 20% of xsize and/or ysize is ''lost``.<br />Use these "formulas" to recalculate the virtual coordinates:<br />factor=0.8 in case xstart != xmin (or ystart != ymin)<br />factor=0.9 in case xstart = xmin (or ystart = ymin)<br />px_x_point = ((factor*xsize)/(xmax - xstart))*(x_point - xmax)+xsize<br />x_recalculated = px*(xmax - xmin)/xsize + $xmin<br />px_y_point = -1*factor*y_point*ysize/(ymax - ystart) + ymax*factor*ysize/(ymax - ystart)<br />y_recalculated = ymax - py*(ymax - ymin)/ysize<br />
                     case 1: double_data[0] = get_real(infile,0);break; /* x in xrange*/
                     case 2: double_data[1] = get_real(infile,0);break; /* y in yrange*/
                     case 3: decimals = find_number_of_digits(precision);
                     if(use_affine == TRUE ){ transform(2,2);}
                     /* rotate is done by HTML5/CANVAS context rotation */
                         temp = get_string_argument(infile,1);
                         if(strstr(temp,"_") != NULL || strstr(temp,"^") != NULL){js_function[DRAW_SUBSUP] = 1;}
                         decimals = find_number_of_digits(precision);
                         if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
                         string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,14,[%.*f],[%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,0,0,0,use_rotate,angle,temp,font_size,font_family,my_sliders,rotation_center,use_offset);
                         check_string_length(string_length);tmp_buffer = my_newmem(string_length);
                         snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,14,[%.*f],[%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,0,0,0,use_rotate,angle,temp,font_size,font_family,my_sliders,rotation_center,use_offset);
                         add_to_buffer(tmp_buffer);
                         if(onclick != 0){object_cnt++;}
                         //onclick = 0;
                         //use_offset = 0;
                         snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,14,[%.*f],[%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,0,0,0,use_rotate,angle,temp,font_size,font_family,my_sliders,rotation_center,use_offset);
                         add_to_buffer(tmp_buffer);
                         if(onclick != 0){object_cnt++;}
                         //onclick = 0;
                         //use_offset = 0;
                         reset();
                         break;
                     default:break;
                 }
+            }
             use_rotate = FALSE;
             break;
         case STYLE:
+                                }
                                 else
+                                {
                                     if(strcmp(fly_font,"large") == 0){
                                         fly_font_size = (int)(font_size + 6);
                                         }
                                         else
+                                        {
                                             if(strcmp(fly_font,"small") == 0){
                                                 fly_font_size = (int)(font_size - 4);
                                                 if(fly_font_size<0){fly_font_size = 8;}
                             string_length = 1 + snprintf(NULL,0,  "draw_textareas(%d,%d,%d,%d,%d,%d,%d,\"%s\",\"%s\");\n",canvas_root_id,input_cnt,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],css_class,temp);
                             check_string_length(string_length);tmp_buffer = my_newmem(string_length);
                             snprintf(tmp_buffer,string_length,"draw_textareas(%d,%d,%d,%d,%d,%d,%d,\"%s\",\"%s\");\n",canvas_root_id,input_cnt,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],css_class,temp);
                             add_to_buffer(tmp_buffer);
                             input_cnt++;break;
                     default: break;
+                }
+            }
             if(reply_format == 0 ){reply_format = 15;}
             reset();
             break;
   i = i/10;
+ }
  return digits;
+}
+int count_substring(char* string, char* substring) {
+  int i, j, l1, l2;
+  int count = 0;
+  l1 = strlen(string);
+  l2 = strlen(substring);
+  for(i = 0; i < l1 - l2 + 1; i++) {
+    if(strstr(string + i, substring) == string + i) {
+      count++;
+      i = i + l2 -1;
+    }
+  }
+  return count;
+}
 void check_string_length(int L){
  if( L > MAX_BUFFER-1){

Subversion Repositories wimsdev

(root)/trunk/wims/src/Misc/canvasdraw/canvasdraw.c – Rev 16827 → 16828