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

 #include <errno.h>
 #include <string.h>
 #include <unistd.h>
 #include <time.h> /* use for random id's */
 #include <math.h>
 /*
 #include <ctype.h>
 /2013
 removed: FreeBSD 9.0 / 9.1 C-lib bug...in chroot it will result in: Undefined symbol "_ThreadRuneLocale" implemented own versions of tolower() / toupper()
 Clang is fine (FreeBSD 10.0)
 */
 /*
 in case svgdraw is in ~/src/Misc/svgdraw
 #include "../svgdraw/include/matheval.h"
 */
 #include "include/matheval.h"
 #include <assert.h>
 #include "canvasdraw.h"
 #include<sys/stat.h>
 /* needed for gettimeofday */
 #include <sys/time.h>
 char    *get_string_argument(FILE *infile,int last); /* the same, but with "comma" as  separator */
 char    *convert_hex2rgb(char *hexcolor);
 void    add_read_canvas(int reply_format);
 void    make_js_include(int canvas_root_id);
 void    check_string_length(int length);/* checks if the length of string argument of command is correct */
 FILE    *js_include_file;
 FILE    *get_file(int *line_number, char **filename);
 FILE    *infile;    /* will be stdin */
 /******************************************************************************
 ** global
 ******************************************************************************/
 double ymin = 0.0;
 double ymax = 320.0;
 double tmax = 2;
 double tmin = -2;
 /* flag to indicate parsing of line status */
 int done = FALSE;
 int type; /* eg command number */
 int onclick = 0;/* 0 = noninteractive ; 1 = onclick ; 2 = draggable*/
 int use_affine = FALSE;
 int use_rotate = FALSE;
 int use_translate = FALSE;
     int dashtype[2] = { 2 , 2 };
     int js_function[MAX_JS_FUNCTIONS]; /* javascript functions include objects on demand basis : only once per object type */
     for(i=0;i<MAX_JS_FUNCTIONS;i++){js_function[i]=0;}
     int arrow_head = 8; /* size in px*/
     int crosshair_size = 5; /* size in px*/
     int plot_steps = 250;
     int found_size_command = 0;
     int click_cnt = 1;
     int clock_cnt = 0; /* counts the amount of clocks used -> unique object clock%d */
     int linegraph_cnt = 0; /* identifier for command 'linegraph' ; multiple line graphs may be plotted in a single plot*/
     double angle = 0.0;
     double stroke_opacity = 0.8;
     double fill_opacity = 0.8;
     char *URL = "http://localhost/images";
     memset(buffer,'\0',MAX_BUFFER);
     void *tmp_buffer = "";
     /* default writing a unzipped js-include file into wims getfile directory */
     char *w_wims_session = getenv("w_wims_session");
     if(  w_wims_session == NULL || *w_wims_session == 0 ){
         canvas_error("Hmmm, your wims environment does not exist...\nCanvasdraw should be used within wims.");
+    }
     int L0=strlen(w_wims_session) + 21;
     char *getfile_dir = my_newmem(L0); /* create memory to fit string precisely */
     snprintf(getfile_dir,L0, "../sessions/%s/getfile",w_wims_session);/* string will fit precisely  */
     mode_t process_mask = umask(0); /* check if file exists */
     int result = mkdir(getfile_dir, S_IRWXU | S_IRWXG | S_IRWXO);
     if( result == 0 || errno == EEXIST ){
      umask(process_mask); /* be sure to set correct permission */
      char *w_session = getenv("w_session");
      int L1 = (int) (strlen(w_session)) + find_number_of_digits(canvas_root_id) + 48;
     char *getfile_cmd = my_newmem(L1); /* create memory to fit string precisely */
      snprintf(getfile_cmd,L1,"wims.cgi?session=%s&cmd=getfile&special_parm=%d.js",w_session,canvas_root_id);/* extension ".gz" is MANDATORY for webserver */
     /* write the include tag to html page:<script type="text/javascript" src="wims.cgi?session=%s&cmd=getfile&special_parm=11223344_js"></script> */
     /* now write file into getfile dir*/
     char *w_wims_home = getenv("w_wims_home"); /* "/home/users/wims" : we need absolute path for location */
     int L2 = (int) (strlen(w_wims_home)) + (int) (strlen(w_wims_session)) + find_number_of_digits(canvas_root_id) + 23;
     char *location = my_newmem(L2); /* create memory to fit string precisely */
         if(line_number>1 && found_size_command == FALSE){canvas_error("command \"size xsize,ysize\" needs to come first ! ");}
         type = get_token(infile);
         done = FALSE;
         /*
         @canvasdraw
         @will try use the same syntax as flydraw or svgdraw to paint a html5 bitmap image<br />by generating a tailor-made javascript include file: providing only the js-functionality needed to perform the job.<br />thus ensuring a minimal strain on the client browser <br />(unlike some popular 'canvas-do-it-all' libraries, who have proven to be not suitable for low-end computers found in schools...)
         @General syntax <ul><li>The transparency of all objects can be controlled by command 'opacity [0-255],[0,255]'</il><li>a line based object can be controlled by command 'linewidth int'</li><li>a line based object may be dashed by using keyword 'dashed' before the object command.<br />the dashing type can be controled by command 'dashtype int,int'</li><li>a fillable object can be set fillable by starting the object command with an 'f'<br />(like frect,fcircle,ftriangle...)<br />or by using the keyword 'filled' before the object command.<br />The fill colour will be the stroke colour...(19/10/2013)<li> a draggable object can be set draggable by a preceding command 'drag x/y/xy'<br />The translation can be read by javascript:read_dragdrop();<br />Multiple objects may be set draggable / clickable (no limit)<br /> not all flydraw objects may be dragged / clicked<br />Only draggable / clickable objects will be scaled on zoom and will be translated in case of panning</li><li> a 'onclick object' can be set 'clickable' by the preceding keyword 'onclick'<br />not all flydraw objects can be set clickable</li><li><b>remarks using a ';' as command separator</b><br />commands with only numeric or colour arguments may be using a ';' as command separator (in stead of a new line)<br />commands with a string argument may not use a ';' as command separator !<br />these exceptions are not really straight forward... so keep this in mind.<br />example:<br />size 200,200;xrange -5,5;yrange -5,5;hline 0,0,black;vline 0,0,black<br />plot red,sin(x)<br />drag xy<br />html 0,0,5,-5, &amp;euro; <br />lines green,2,0,2,-2,-2,2,-2,0;rectangle 1,1,4,4,purple;frectangle -1,-1,-4,-4,yellow</li></ul>
         */
         switch(type){
         case END:
         finished = 1;
             ysize = (int)(abs(round(get_real(infile,1))));
             /* sometimes we want xrange / yrange to be in pixels...without telling x/y-range */
             xmin = 0;xmax = xsize;
             ymin = 0;ymax = ysize;
 /*
  The sequence in which stuff is finally printed is important !!
  for example, when writing a 'include.js" the may not be a "script tag <script>" etc etc
 */
 fprintf(stdout,"\n<script type=\"text/javascript\">var wims_status = \"$status\";</script>\n<!-- canvasdraw div and tooltip placeholder, if needed -->\n<div tabindex=\"0\" id=\"canvas_div%d\" style=\"position:relative;width:%dpx;height:%dpx;\" ></div><div id=\"tooltip_placeholder_div%d\" style=\"display:block\"><span id=\"tooltip_placeholder%d\" style=\"display:none\"></span></div>\n",canvas_root_id,xsize,ysize,canvas_root_id,canvas_root_id);
 fprintf(js_include_file,"\n<!-- begin generated javascript include for canvasdraw -->\n");
 add_drag_code(js_include_file,DRAG_CANVAS,canvas_root_id);
             break;
         case XRANGE:
         /*
         @ xrange xmin,xmax
         @ if not given: 0,xsize (eg in pixels)
         */
             for(i = 0 ; i<2; i++){
                 switch(i){
                     case 0: xmin = get_real(infile,0);break;
                     case 1: xmax = get_real(infile,1);break;
         @ default 10 (px)
         */
             crosshair_size = (int) (get_real(infile,1));
             break;
         case CROSSHAIR:
         /*
         @ crosshair x,y,color
         @ draw a single crosshair point at (x;y) in color 'color'
         @ use command 'crosshairsize int' and / or 'linewidth int'  to adust
         @ may be set draggable / onclick
         */
         case CROSSHAIRS:
         /*
         @ crosshairs color,x1,y1,x2,y2,...,x_n,y_n
         @ draw multiple crosshair points at given coordinates in color 'color'
         @ use command 'crosshairsize int' and / or 'linewidth int'  to adust
         @ may be set draggable / onclick individually (!)
         */
             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("to 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++;
+            }
             decimals = find_number_of_digits(precision);
             for(c=0 ; c < i-1 ; c = c+2){
                 fprintf(js_include_file,"dragstuff.addShape(new Shape(%d,%d,%d,7,[%.*f],[%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s));\n",click_cnt,onclick,drag_type,decimals,double_data[c],decimals,double_data[c+1],crosshair_size,crosshair_size,line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,1,0,0,0,use_rotate,angle,flytext,font_size,font_family,use_affine,affine_matrix);
                 click_cnt++;
             }
             reset();
             break;
         case POINT:
         /*
         @ point x,y,color
         @ draw a single point at (x;y) in color 'color'
         @ use command 'linewidth int'  to adust size
         @ may be set draggable / onclick
         @ will not resize on zooming <br />(command 'circle x,y,r,color' will resize on zooming)
         */
             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 */
+                {
                     double_data[i] = get_real(infile,1); /* y */
+                }
                 i++;
+            }
             decimals = find_number_of_digits(precision);
             for(c = 0 ; c < i-1 ; c = c+2){
                 fprintf(js_include_file,"dragstuff.addShape(new Shape(%d,%d,%d,2,[%.*f],[%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s));\n",click_cnt,onclick,drag_type,decimals,double_data[c],decimals,double_data[c+1],line_width,line_width,line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,1,0,0,0,use_rotate,angle,flytext,font_size,font_family,use_affine,affine_matrix);
                 click_cnt++;
+            }
             reset();
+                        {
                         /* m */
                         double_data[5] = (double_data[13] - double_data[11]) /(double_data[12] - double_data[10]);
                         /* q */
                         double_data[6] = double_data[11] - ((double_data[13] - double_data[11]) /(double_data[12] - double_data[10]))*double_data[10];
                         /*xmin,m*xmin+q,xmax,m*xmax+q*/
                             double_data[1] = (double_data[5])*(xmin)+(double_data[6]);
                             double_data[3] = (double_data[5])*(xmax)+(double_data[6]);
                             double_data[0] = xmin;
                             double_data[2] = xmax;
+                        }
                     click_cnt++;reset();
                     break;
+                }
+            }
             break;
         case HLINE:
         /*
         @ hline x,y,color
         @ draw a horizontal line through point (x:y) in color 'color'
         @ or use command 'curve color,formula' to draw the line <br />(uses more points to draw the line; is however better draggable)
         @ may be set draggable / onclick
+            }
             break;
         case POLYLINE:
         /*
         @ polyline color,x1,y1,x2,y2...x_n,y_n
         @ may be set draggable / onclick
         */
             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("to 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++;
+                    }
+                }
+            }
             /* draw path : not closed & not filled */
             decimals = find_number_of_digits(precision);
             while( ! done ){     /* get next item until EOL*/
                 if(i > MAX_INT - 1){canvas_error("to 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++;
             /* draw path :  closed & optional filled */
                 decimals = find_number_of_digits(precision);
                 fprintf(js_include_file,"dragstuff.addShape(new Shape(%d,%d,%d,5,%s,[30],[30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s));\n",click_cnt,onclick,drag_type,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,use_affine,affine_matrix);
                 click_cnt++;reset();
             break;
         case ARC:
         /*
          @ arc xc,yc,width,height,start_angle,end_angle,color
          @ can not be set "onclick" or "drag xy"
          @ attention: width == height == radius in pixels)
         */
                     case 5:double_data[3] = get_real(infile,0);break; /* end angle in degrees */
                     case 6:stroke_color = get_color(infile,1);/* name or hex color */
                     /* in Shape library:
                         x[0] = x[1] = xc
                         y[0] = y[1] = yc
                         w[0] = w[1] = radius = width = height
                         h[0] = start_angle ; h[1] = end_engle
                     */
                         decimals = find_number_of_digits(precision);
                         fprintf(js_include_file,"dragstuff.addShape(new Shape(%d,%d,%d,12,[%.*f,%.*f],[%.*f,%.*f],[%d,%d],[%.*f,%.*f],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s));\n",click_cnt,onclick,drag_type,decimals,double_data[0],decimals,double_data[0],decimals,double_data[1],decimals,double_data[1],int_data[0],int_data[0],decimals,double_data[2],decimals,double_data[3],line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,use_affine,affine_matrix);
                         reset();
                     break;
                 }
+            }
             break;
         case ELLIPSE:
         /*
         @ ellipse xc,yc,radius_x,radius_y,color
         @ a ellipse with center xc/yc in x/y-range
         @ radius_x and radius_y are in pixels
         @ may be set draggable / onclick
         @ will shrink / expand on zoom out / zoom in
         */
             for(i=0;i<5;i++){
                 switch(i){
                     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 2:double_data[2] = get_real(infile,0);break; /* rx -> px  */
                     case 3:double_data[3] = get_real(infile,0);break; /* ry -> px  */
                     case 4:stroke_color = get_color(infile,1);/* name or hex color */
                         decimals = find_number_of_digits(precision);
                         fprintf(js_include_file,"dragstuff.addShape(new Shape(%d,%d,%d,3,[%.*f],[%.*f],[%.*f],[%.*f],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s));\n",click_cnt,onclick,drag_type,decimals,double_data[0],decimals,double_data[1],decimals,double_data[2],decimals,double_data[3],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,use_affine,affine_matrix);
                         click_cnt++;reset();
                     break;
                     case 1 : dashtype[1] = (int) line_width*( get_real(infile,1)) ; break;
+                }
+            }
         break;
         case CIRCLE:
         /*
         @ circle xc,yc,width (2*r in pixels),color
         @ use command 'fcircle xc,yc,d,color' or command 'filled' for a filled disk
         @ use command 'fillcolor color' to set the fillcolor
         @ may be set draggable / onclick
         @ will shrink / expand on zoom out / zoom in
         */
             for(i=0;i<4;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: double_data[2] = px2x((get_real(infile,0))/2) - px2x(0);break; /* radius in 'dx' xrange*/
                     case 3: stroke_color = get_color(infile,1);/* name or hex color */
                         decimals = find_number_of_digits(precision);
                         fprintf(js_include_file,"dragstuff.addShape(new Shape(%d,%d,%d,13,[%.*f],[%.*f],[%.3f],[%.3f],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s));\n",click_cnt,onclick,drag_type,decimals,double_data[0],decimals,double_data[1],double_data[2],double_data[2],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,use_affine,affine_matrix);
                         click_cnt++;reset();
                     break;
+                }
+            }
         case RAYS:
         /*
          @ rays color,xc,yc,x1,y1,x2,y2,x3,y3...x_n,y_n
          @ draw rays in color 'color' and center (xc:yc)
          @ may be set draggable or onclick (every individual ray)
         */
             stroke_color=get_color(infile,0);
             fill_color = stroke_color;
             double_data[0] = get_real(infile,0);/* xc */
             double_data[1] = get_real(infile,0);/* yc */
             i=2;
                     double_data[i] = get_real(infile,1); /* y */
+                }
             fprintf(js_include_file,"/* double_data[%d] = %f */\n",i,double_data[i]);
                 i++;
+            }
             if( i%2 != 0 ){canvas_error("in command rays: unpaired x or y value");}
             decimals = find_number_of_digits(precision);
             for(c=2; c<i;c = c+2){
                 click_cnt++;
                 fprintf(js_include_file,"dragstuff.addShape(new Shape(%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\",%d,%s));\n",click_cnt,onclick,drag_type,decimals,double_data[0],decimals,double_data[c],decimals,double_data[1],decimals,double_data[c+1],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,use_affine,affine_matrix);
+            }
             reset();
             break;
         case ARROW:
         /*
         @ arrow x1,y1,x2,y2,h,color
         @ draw a single headed arrow/vector from (x1:y1) to (x2:y2)<br />with arrowhead size h in px and in color 'color'
         @ use command 'linewidth int' to adjust thickness of the arrow
         @ may be set draggable / onclick
         */
             for(i=0;i<6;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: double_data[2] = get_real(infile,0);break; /* x */
                     case 3: double_data[3] = get_real(infile,0);break; /* y */
                     case 4: arrow_head = (int) get_real(infile,0);break;/* h */
                     case 5: stroke_color = get_color(infile,1);/* name or hex color */
                         decimals = find_number_of_digits(precision);
                         fprintf(js_include_file,"dragstuff.addShape(new Shape(%d,%d,%d,8,[%.*f,%.*f],[%.*f,%.*f],[%d,%d],[%d,%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s));\n",click_cnt,onclick,drag_type,decimals,double_data[0],decimals,double_data[2],decimals,double_data[1],decimals,double_data[3],arrow_head,arrow_head,arrow_head,arrow_head,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,use_affine,affine_matrix);
                         click_cnt++;
                         break;
+                }
+            }
             break;
         case ARROW2:
         /*
         @ arrow2 x1,y1,x2,y2,h,color
         @ draw a double headed arrow/vector from (x1:y1) to (x2:y2)<br />with arrowhead size h in px and  in color 'color'
         @ use command 'arrowhead int' to adjust the arrow head size
         @ use command 'linewidth int' to adjust thickness of the arrow
         @ may be set draggable / onclick
                         click_cnt++;reset();
                         break;
+                }
+            }
             break;
         case PARALLEL:
         /*
          @ parallel x1,y1,x2,y2,dx,dy,n,[colorname or #hexcolor]
          @ can not be set "onclick" or "drag xy"
         */
             for( i = 0;i < 8; i++ ){
                 switch(i){
                     case 0: double_data[0] = get_real(infile,0);break; /* x1-values  -> x-pixels*/
                     case 1: double_data[1] = get_real(infile,0);break; /* y1-values  -> y-pixels*/
+            }
             break;
         case LATTICE:
         /*
          @lattice x0,y0,xv1,yv1,xv2,yv2,n1,n2,color
          @can not be set "onclick" or "drag xy"
         */
             if( js_function[DRAW_LATTICE] != 1 ){ js_function[DRAW_LATTICE] = 1;}
             for( i = 0; i<9; i++){
                 switch(i){
                     case 0: int_data[0] = x2px(get_real(infile,0));break; /* x0-values  -> x-pixels*/
         fprintf(js_include_file,"\ny_use_snap_to_grid = 1;if (typeof snap_x === 'undefined') { var snap_x = 1;};var snap_y = 1;\nfunction snap_to_y(y){return y2px(snap_y*(Math.round((px2y(y))/snap_y)));};\n");
         break;
         case USERTEXTAREA_XY:
         /*
         @ usertextarea_xy
         @ keyword
         @ to be used in combination with command "userdraw object_type,color" wherein object_type is only segment / polyline for the time being...
         @ if set two textareas are added to the document<br />(one for x-values , one for y-values)
         @ the student may use this as correction for (x:y) on a drawing (or to draw without mouse, using just the coordinates)
         @ can not be combined with command "intooltip tiptext" <br />note: the 'tooltip div element' is used for placing inputfields
         @ user drawings will not zoom on zooming (or pan on panning)
         */
             if(use_tooltip == TRUE){canvas_error("usertextarea_xy can not be combined with intooltip command");}
             if( use_input_xy == 1 ){canvas_error("usertextarea_xy can not be combined with userinput_xy command");}
             fprintf(js_include_file,"function safe_eval(exp){if(exp.indexOf('^') != -1){exp = exp.replace(/\\s*(.*)\\^\\s*(.*)/ig, \"pow($1, $2)\");};var reg = /(?:[a-z$_][a-z0-9$_]*)|(?:[;={}\\[\\]\"'!&<>^\\\\?:])/ig;var valid = true;exp = exp.replace(reg,function($0){if (Math.hasOwnProperty($0)){return \"Math.\"+$0;}else{valid = false;};});if (!valid){alert(\"hmmm \"+exp+\" ?\"); exp = null;}else{try { exp = eval(exp); } catch (e) {alert(\"Invalid arithmetic expression\"); exp = null;};};return exp;};");
             use_input_xy = 2;
             break;
         case USERINPUT_XY:
         /*
         @ userinput_xy
         @ keyword
         @ to be used in combination with command "userdraw object_type,color"
         @ if set two (or three) input fields are added to the document<br />(one for x-values , one for y-values and in case of drawing circle one for radius-values)
         @ the student may use this as correction for (x:y) on a drawing (or to draw without mouse, using just the coordinates)
         @ math input is allowed (e.g something like: 1+3,2*6,1/3,sqrt(3), sin(pi/4),10^-2,log(2)...)<br />eval function is 'protected' against code injection.
         @ can not be combined with command "intooltip tiptext" <br />note: the 'tooltip div element' is used for placing inputfields
         @ user drawings will not zoom on zooming (or pan on panning)
         */
             if(use_tooltip == TRUE){canvas_error("userinput_xy can not be combined with intooltip command");}
             /* add simple eval check to avoid code injection with unprotected eval(string) */
             fprintf(js_include_file,"function safe_eval(exp){if(exp.indexOf('^') != -1){exp = exp.replace(/\\s*(.*)\\^\\s*(.*)/ig, \"pow($1, $2)\");};var reg = /(?:[a-z$_][a-z0-9$_]*)|(?:[;={}\\[\\]\"'!&<>^\\\\?:])/ig;var valid = true;exp = exp.replace(reg,function($0){if (Math.hasOwnProperty($0)){return \"Math.\"+$0;}else{valid = false;};});if (!valid){alert(\"hmmm \"+exp+\" ?\"); exp = null;}else{try { exp = eval(exp); } catch (e) {alert(\"Invalid arithmetic expression\"); exp = null;};};return exp;};");
             use_input_xy = 1;
         /*
         @ userdraw object_type,color
         @ implemented object_type: <ul><li>point</li><li>points</li><li>crosshair</li><li>crosshairs</li><li>line</li><li>lines</li><li>segment</li><li>segments</li><li>polyline</li><li>circle</li><li>circles</li><li>arrow</li><li>arrows</li><li>triangle</li><li>polygon</li><li>poly[3-9]</li><li>rect</li><li>roundrect</li><li>rects</li><li>roundrects</li><li>freehandline</li><li>freehandlines</li><li>path</li><li>paths</li><li>text</li></ul>
         @ note: mouselisteners are only active if "$status != done " (eg only drawing in an active/non-finished exercise) <br /> to overrule use command/keyword "status" (no arguments required)
         @ note: object_type text: Any string or multiple strings may be placed anywhere on the canvas.<br />while typing the background of every typed char will be lightblue..."backspace / delete / esc" will remove typed text.<br />You will need to hit "enter" to add the text to the array "userdraw_txt()" : lightblue background will disappear<br />Placing the cursor somewhere on a typed text and hitting "delete/backspace/esc" , a confirm will popup asking to delete the selected text.This text will be removed from the "userdraw_txt()" answer array.<br />Use commands 'fontsize' and 'fontfamily' to control the text appearance
         @ note: object_type polygone: Will be finished (the object is closed) when clicked on the first point of the polygone again.
         @ note: all objects will be removed -after a javascript confirm box- when clicked on an object point with middle or right mouse butten (e.g. event.which != 1 : all buttons but left)
         @ use command "filled", "opacity int,int"  and "fillcolor color" to trigger coloured filling of fillable objects
         @ use command "dashed" and/or "dashtype int,int" to trigger dashing
         @ use command "replyformat int" to control / adjust output formatting of javascript function read_canvas();
         @ may be combined with onclick or drag xy  of other components of flyscript objects (although not very usefull...)
         @ may be combined with keyword 'userinput_xy' or
         @ note: when zooming / panning after a drawing, the drawing will NOT be zoomed / panned...this is a "design" flaw and not a feature <br />To avoid trouble do not use zooming / panning together width userdraw.!
         */
             if( use_userdraw == TRUE ){ /* only one object type may be drawn*/
                 canvas_error("Only one userdraw primitive may be used: read documentation !!");
+            }
             stroke_color = get_color(infile,1);
             if( strcmp(draw_type,"point") == 0 ){
                 if( js_function[DRAW_CIRCLES] != 1 ){ js_function[DRAW_CIRCLES] = 1;}
                 if(reply_format < 1 ){reply_format = 8;}
                 /* 7 = x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n in x/y-range */
                 if(use_input_xy == 1){
                     add_input_circle(js_include_file,1,1);
                     add_input_xy(js_include_file,canvas_root_id);
+                }
                 add_js_points(js_include_file,1,draw_type,line_width,line_width,stroke_color,stroke_opacity,1,stroke_color,stroke_opacity,0,1,1);
+            }
             else
             if( strcmp(draw_type,"points") == 0 ){
                 if( js_function[DRAW_CIRCLES] != 1 ){ js_function[DRAW_CIRCLES] = 1;}
                 if(reply_format < 1 ){reply_format = 8;}
                 /* 7 = x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n in x/y-range */
                 if(use_input_xy == 1){
                     add_input_circle(js_include_file,1,2);
                     add_input_xy(js_include_file,canvas_root_id);
+                }
                 add_js_points(js_include_file,2,draw_type,line_width,line_width,stroke_color,stroke_opacity,1,stroke_color,stroke_opacity,0,1,1);
+            }
             else
             if( strcmp(draw_type,"segment") == 0 ){
                 if( js_function[DRAW_CIRCLES] != 1 ){ js_function[DRAW_CIRCLES] = 1;}
                 if( js_function[DRAW_SEGMENTS] != 1 ){ js_function[DRAW_SEGMENTS] = 1;}
                 if(reply_format < 1){reply_format = 11;}
                 if(use_input_xy == 1){
                     add_input_segment(js_include_file,1);
                     add_input_x1y1x2y2(js_include_file,canvas_root_id);
+                }
                 add_js_segments(js_include_file,1,draw_type,line_width,stroke_color,stroke_opacity,use_dashed,dashtype[0],dashtype[1]);
+            }
             else
             if( strcmp(draw_type,"segments") == 0 ){
                 if( js_function[DRAW_CIRCLES] != 1 ){ js_function[DRAW_CIRCLES] = 1;}
                 if( js_function[DRAW_SEGMENTS] != 1 ){ js_function[DRAW_SEGMENTS] = 1;}
                 if(reply_format < 1){reply_format = 11;}
                 if(use_input_xy == 1){
                     add_input_segment(js_include_file,2);
                     add_input_x1y1x2y2(js_include_file,canvas_root_id);
+                }
                 add_js_segments(js_include_file,2,draw_type,line_width,stroke_color,stroke_opacity,use_dashed,dashtype[0],dashtype[1]);
+            }
             else
             if( strcmp(draw_type,"circle") == 0 ){
                 if( js_function[DRAW_CIRCLES] != 1 ){ js_function[DRAW_CIRCLES] = 1;}
                 if(reply_format < 1){reply_format = 10;}
                 /* 9 = x1:y1:r1,x2:y2:r2,x3:y3:r3,x4:y4:r3...x_n:y_n:r_n in x/y-range */
                 if(use_input_xy == 1){
                     add_input_circle(js_include_file,2,1);
                     add_input_xyr(js_include_file,canvas_root_id);
+                }
                 add_js_circles(js_include_file,1,draw_type,line_width,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
+            }
             if( strcmp(draw_type,"circles") == 0 ){
                 if( js_function[DRAW_CIRCLES] != 1 ){ js_function[DRAW_CIRCLES] = 1;}
                 if(reply_format < 1){reply_format = 10;}
                 /* 9 = x1:y1:r1,x2:y2:r2,x3:y3:r3,x4:y4:r3...x_n:y_n:r_n in x/y-range */
                 add_js_circles(js_include_file,2,draw_type,line_width,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){
                     add_input_circle(js_include_file,2,2);
                     add_input_xyr(js_include_file,canvas_root_id);
+                }
+            }
             else
             if(strcmp(draw_type,"crosshair") == 0 ){
                 if( js_function[DRAW_CROSSHAIRS] != 1 ){ js_function[DRAW_CROSSHAIRS] = 1;}
                 if(reply_format < 1){reply_format = 8;}
                 /* 7 = x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n in x/y-range */
                 add_js_crosshairs(js_include_file,1,draw_type,line_width,crosshair_size ,stroke_color,stroke_opacity);
                 if(use_input_xy == 1){
                     add_input_crosshair(js_include_file,1);
                     add_input_xy(js_include_file,canvas_root_id);
+                }
+            }
             else
             if(strcmp(draw_type,"crosshairs") == 0 ){
                 if( js_function[DRAW_CROSSHAIRS] != 1 ){ js_function[DRAW_CROSSHAIRS] = 1;}
                 if(reply_format < 1){reply_format = 8;}
                 /* 7 = x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n in x/y-range */
                 add_js_crosshairs(js_include_file,2,draw_type,line_width,crosshair_size ,stroke_color,stroke_opacity);
                 if(use_input_xy == 1){
                     add_input_crosshair(js_include_file,2);
                     add_input_xy(js_include_file,canvas_root_id);
+                }
+            }
             else
             if(strcmp(draw_type,"freehandline") == 0 ){
                 if( js_function[DRAW_PATHS] != 1 ){ js_function[DRAW_PATHS] = 1;}
                 if(reply_format < 1){reply_format = 6;}
                 add_js_paths(js_include_file,1,draw_type,line_width,0,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
+            }
             else
             if(strcmp(draw_type,"freehandlines") == 0 ){
                 if( js_function[DRAW_PATHS] != 1 ){ js_function[DRAW_PATHS] = 1;}
                 if(reply_format < 1){reply_format = 6;}
                 add_js_paths(js_include_file,2,draw_type,line_width,0,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
+            }
             else
             if(strcmp(draw_type,"path") == 0 ){
                 if( js_function[DRAW_PATHS] != 1 ){ js_function[DRAW_PATHS] = 1;}
                 if(reply_format < 1){reply_format = 6;}
                 add_js_paths(js_include_file,1,draw_type,line_width,1,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
+            }
             else
             if(strcmp(draw_type,"paths") == 0 ){
                 if( js_function[DRAW_PATHS] != 1 ){ js_function[DRAW_PATHS] = 1;}
                 if(reply_format < 1){reply_format = 6;}
                 add_js_paths(js_include_file,2,draw_type,line_width,1,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
+            }
             else
             if(strcmp(draw_type,"arrows") == 0 ){
                 if( js_function[DRAW_ARROWS] != 1 ){ js_function[DRAW_ARROWS] = 1;}
                 if(reply_format < 1){reply_format = 11;}
                 add_js_arrows(js_include_file,2,draw_type,line_width,stroke_color,stroke_opacity,use_dashed,dashtype[0],dashtype[1],arrow_head);
                 if(use_input_xy == 1){
                     add_input_arrow(js_include_file,2);
                     add_input_x1y1x2y2(js_include_file,canvas_root_id);
+                }
+            }
             else
             if(strcmp(draw_type,"arrow") == 0 ){
                 if( js_function[DRAW_ARROWS] != 1 ){ js_function[DRAW_ARROWS] = 1;}
                 if(reply_format < 1){reply_format = 11;}
                 add_js_arrows(js_include_file,1,draw_type,line_width,stroke_color,stroke_opacity,use_dashed,dashtype[0],dashtype[1],arrow_head);
                 if(use_input_xy == 1){
                     add_input_arrow(js_include_file,1);
                     add_input_x1y1x2y2(js_include_file,canvas_root_id);
+                }
+            }
             else
                 if( use_input_xy == 2 ){
                   add_textarea_polygon(js_include_file);
                   add_textarea_xy(js_include_file,canvas_root_id);
+                }
+            }
             else
             if(strncmp(draw_type,"poly",4) == 0){
                 if(strlen(draw_type) < 5){canvas_error("use command \"userdraw poly[3-9],color\" eg userdraw poly6,blue");}
                 if( js_function[DRAW_PATHS] != 1 ){ js_function[DRAW_PATHS] = 1;}
                 if(reply_format < 1){reply_format = 2;}
                 add_js_poly(js_include_file,(int) (draw_type[4]-'0'),draw_type,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
             }
             else
             if(strcmp(draw_type,"triangle") == 0){
                 if( js_function[DRAW_PATHS] != 1 ){ js_function[DRAW_PATHS] = 1;}
                 if(reply_format < 1){reply_format = 2;}
                 add_js_poly(js_include_file,3,draw_type,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
+            }
             else
             if( strcmp(draw_type,"line") == 0 ){
                 if( js_function[DRAW_CIRCLES] != 1 ){ js_function[DRAW_CIRCLES] = 1;}
                 if( js_function[DRAW_LINES] != 1 ){ js_function[DRAW_LINES] = 1;}
                 if(reply_format < 1){reply_format = 11;}
                 add_js_lines(js_include_file,1,draw_type,line_width,stroke_color,stroke_opacity,use_dashed,dashtype[0],dashtype[1]);
                 add_js_lines(js_include_file,2,draw_type,line_width,stroke_color,stroke_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if( use_input_xy == 1 ){
                     add_input_line(js_include_file,2);
                     add_input_x1y1x2y2(js_include_file,canvas_root_id);
+                }
             }
             else
             if( strcmp(draw_type,"rects") == 0){
                 if( js_function[DRAW_RECTS] != 1 ){ js_function[DRAW_RECTS] = 1;}
                 if(reply_format < 1){reply_format = 2;}
                 add_js_rect(js_include_file,2,0,draw_type,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
+            }
             else
             if( strcmp(draw_type,"roundrects") == 0){
                 if( js_function[DRAW_ROUNDRECTS] != 1 ){ js_function[DRAW_ROUNDRECTS] = 1;}
                 if(reply_format < 1){reply_format = 2;}
                 add_js_rect(js_include_file,2,1,draw_type,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
             }
             else
             if( strcmp(draw_type,"rect") == 0){
                 if( js_function[DRAW_RECTS] != 1 ){ js_function[DRAW_RECTS] = 1;}
                 if(reply_format < 1){reply_format = 2;}
                 add_js_rect(js_include_file,1,0,draw_type,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
+            }
             else
             if( strcmp(draw_type,"roundrect") == 0){
                 if( js_function[DRAW_ROUNDRECTS] != 1 ){ js_function[DRAW_ROUNDRECTS] = 1;}
                 if(reply_format < 1){reply_format = 2;}
                 add_js_rect(js_include_file,1,1,draw_type,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
+            }
             else
             if( strcmp(draw_type,"text") == 0){
                 if( js_function[DRAW_TEXTS] != 1 ){ js_function[DRAW_TEXTS] = 1;}
                 if(reply_format < 1){reply_format = 17;}
                 add_js_text(js_include_file,canvas_root_id,font_size,font_family,font_color,stroke_opacity,use_rotate,angle,use_translate,translate_x,translate_y);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
+            }
             else
+            {
                 canvas_error("unknown drawtype or typo? ");
+            }
             reset();
         break;
         case TRACE_JSMATH:
         /*
          @trace_jsmath some_javascript_math_function
          @will use a crosshair to trace the jsmath curve
          @two inputfields will display the current x/y-values (approximated)
          @default labels 'x' and 'y'<br />the commands 'xlabel some_x_axis_name' and 'ylabel some_y_axis_name' will set the label for the input fields
          @use linewidth,strokecolor,crosshairsize to adjust the corsshair.
          @example: trace_jsmath Math.pow(x,2)+4*x+16
          @example: trace_jsmath Math.sin(Math.pow(x,Math.Pi))+Math.sqrt(x)
          @no check is done on the validity of your function and/or syntax<br />use error console to debug any errors...
          @can not be combined with commands 'mouse color,fontsize' and 'intooltip tip_text'
             break;
         case JSMATH:
         /*
             @jsmath some_javascript_math_function
             @will calculate an y-value from a userinput x-value and draws a crosshairs on these coordinates.
             @default labels 'x' and 'y'<br />the commands 'xlabel some_x_axis_name' and 'ylabel some_y_axis_name' will set the label for the input fields
             @example: jsmath Math.pow(x,2)+4*x+16
             @example: jsmath Math.sin(Math.pow(x,Math.Pi))+Math.sqrt(x)
             @no check is done on the validity of your function and/or syntax<br />use error console to debug any errors...
             @can not be combined with commands 'mouse color,fontsize' and 'intooltip tip_text'
         */
+            }
             else
+            {
                 stroke_color = get_color(infile,0);
                 char *fun1 = get_string_argument(infile,1);
                 if( strlen(fun1) == 0 ){canvas_error("function is NOT OK !");}
                 fprintf(js_include_file,"dragstuff.addShape(new Shape(%d,%d,%d,%d,%s,[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s));\n",click_cnt,onclick,drag_type,animation_type,eval(xsize,ysize,fun1,xmin,xmax,ymin,ymax,plot_steps,precision),line_width,line_width,line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,use_affine,affine_matrix);
                 click_cnt++;
+            }
             animation_type = 9;/* reset to curve plotting without animation */
             reset();
             break;
         case FLY_TEXT:
         /*
         @ text fontcolor,x,y,font,text_string
         @ font may be described by keywords : giant,huge,normal,small,tiny
         @ use command 'fontsize' to increase base fontsize for the keywords
         @ may be set "onclick" or "drag xy"
         @ backwards compatible with flydraw
         @ unicode supported: text red,0,0,huge,\\u2232
         @ use command 'string' and 'fontfamily' for a more fine grained control over html5 canvas text element
         @ Avoid  mixing old flydraw commands 'text' 'textup' with new canvasdraw commands 'string' stringup'<br />If the fontfamily was set completely like "fontfamily italic 24px Ariel".<br />In that case rested 'fontfamily' to something lke 'fontfamily Ariel' before the old flydraw commands.
             for(i = 0; i < 5 ;i++){
                 switch(i){
                     case 0: stroke_color = get_color(infile,0);break;/* font_color == stroke_color name or hex color */
                     case 1: double_data[0] = get_real(infile,0);break; /* x */
                     case 2: double_data[1] = get_real(infile,0);break; /* y */
                     case 3: fly_font = get_string_argument(infile,0);
                             if(strcmp(fly_font,"giant") == 0){
                                 font_size = (int)(font_size + 24);
                             }
                             else
                             {
                                 if(strcmp(fly_font,"huge") == 0){
                                     font_size = (int)(font_size + 14);
                                 }
                                 else
                                 {
                                     if(strcmp(fly_font,"large") == 0){
                                         font_size = (int)(font_size + 6);
                                         }
                                         else
                                         {
                                             if(strcmp(fly_font,"small") == 0){
                                                 font_size = (int)(font_size - 4);
                                                 if(font_size<0){font_size = 8;}
+                                        }
+                                    }
+                                }
+                            }
                             break; /* font_size ! */
                     case 4:
                         temp = get_string_argument(infile,1);
                         decimals = find_number_of_digits(precision);
                         fprintf(js_include_file,"dragstuff.addShape(new Shape(%d,%d,%d,14,[%.*f],[%.*f],[30],[30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%d,\"%s\",%d,\"%s\",%d,%s));\n",click_cnt,onclick,drag_type,decimals,double_data[0],decimals,double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,0,0,0,0,0,temp,font_size,font_family,use_affine,affine_matrix);
                         click_cnt++;reset();break;
                     default:break;
         case FLY_TEXTUP:
         /*
          @ textup fontcolor,x,y,font,text_string
          @ can <b>not</b> be set "onclick" or "drag xy" (because of translaton matrix...mouse incompatible)
          @ font may be described by keywords : giant,huge,normal,small,tiny
          @ use command 'fontsize' to increase base fontsize for the keywords
          @ backwards compatible with flydraw
          @ unicode supported: textup red,0,0,huge,\\u2232
          @ use command 'stringup' and 'fontfamily' for a more fine grained control over html5 canvas text element
          @ Avoid  mixing old flydraw commands 'text' 'textup' with new canvasdraw commands 'string' stringup'<br />If the fontfamily was set completely like "fontfamily italic 24px Ariel".<br />In that case rested 'fontfamily' to something lke 'fontfamily Ariel' before the old flydraw commands.
         */
             if( js_function[DRAW_TEXTS] != 1 ){ js_function[DRAW_TEXTS] = 1;}
             for(i = 0; i<5 ;i++){
                 switch(i){
                     case 0: font_color = get_color(infile,0);break;/* name or hex color */
                     case 1: int_data[0] = x2px(get_real(infile,0));break; /* x */
                     case 2: int_data[1] = y2px(get_real(infile,0));break; /* y */
+                                        }
+                                    }
+                                }
+                            }
                             break; /* font_size ! */
                     case 4:
                     decimals = find_number_of_digits(precision);
                     temp = get_string_argument(infile,1);
                     string_length = snprintf(NULL,0,"draw_text(%d,%d,%d,%d,\"%s\",\"%s\",%.2f,90,\"%s\",%d,%.2f,%d,[%d,%d]);\n",STATIC_CANVAS,int_data[0],int_data[1],font_size,font_family,font_color,stroke_opacity,temp,use_rotate,angle,use_translate,translate_x,translate_y);
                     check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
                     snprintf(tmp_buffer,string_length,"draw_text(%d,%d,%d,%d,\"%s\",\"%s\",%.2f,90,\"%s\",%d,%.2f,%d,[%d,%d]);\n",STATIC_CANVAS,int_data[0],int_data[1],font_size,font_family,font_color,stroke_opacity,temp,use_rotate,angle,use_translate,translate_x,translate_y);
          @ use correct syntax : 'font style' 'font size'px 'fontfamily'
         */
             font_family = get_string(infile,1);
             break;
         case STRINGUP:
         /*
          @ stringup color,x,y,rotation_degrees,the text string
          @ can <b>not</b> be set "onclick" or "drag xy" (because of translaton matrix...mouse incompatible)
          @ unicode supported: stringup red,0,0,45,\\u2232
          @ use a command like 'fontfamily bold 34px Courier' <br />to set fonts on browser that support font change
         */
+                }
+            }
             reset();
             break;
         case STRING:
         /*
          @ string color,x,y,the text string
          @ may be set "onclick" or "drag xy"
          @ unicode supported: string red,0,0,\\u2232
          @ use a command like 'fontfamily italic 24px Ariel' <br />to set fonts on browser that support font change
         */
             for(i=0;i<5;i++){
                 switch(i){
                     case 0: stroke_color = get_color(infile,0);break;/* name or hex color */
                     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);
                         temp = get_string_argument(infile,1);
+            }
             break;
         case MATHML:
         /*
         @ mathml x1,y1,x2,y2,mathml_string
         @ mathml will be displayed in a rectangle left top (x1:y1) , right bottom (x2:y2)
         @ can be set onclick <br />(however dragging is not supported)<br />javascript:read_dragdrop(); will return click number of mathml-object
         @ if inputfields are incorporated in mathml (with id's : id='mathml0',id='mathml1',...id='mathml_n')<br />the user_input values will be read by javascript:read_mathml();<br />attention: if after this mathml-input object other user-interactions are included, these will read mathml too using "read_canvas();"
         @ If other inputfields (command input / command textarea) or userdraw is performed, the function read_canvas() will not read mathml. Use some generic function to read it....
         */
             if( js_function[DRAW_XML] != 1 ){ js_function[DRAW_XML] = 1;}
             for(i=0;i<5;i++){
                 switch(i){
                     case 0: int_data[0]=x2px(get_real(infile,0));break; /* x in x/y-range coord system -> pixel width */
                     case 1: int_data[1]=y2px(get_real(infile,0));break; /* y in x/y-range coord system  -> pixel height */
                     case 2: int_data[2]=x2px(get_real(infile,0)) - int_data[0];break; /* width in x/y-range coord system -> pixel width */
                     case 3: int_data[3]=y2px(get_real(infile,0)) - int_data[1];break; /* height in x/y-range coord system  -> pixel height */
                     case 4: decimals = find_number_of_digits(precision);
                             if(onclick == 1 ){ onclick = click_cnt;click_cnt++;}
                             temp = get_string(infile,1);
                             if( strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\"","'"); }
                             string_length = snprintf(NULL,0,"draw_xml(%d,%d,%d,%d,%d,\"%s\",%d);\n",canvas_root_id,int_data[0],int_data[1],int_data[2],int_data[3],temp,onclick);
                             check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
                             snprintf(tmp_buffer,string_length,"draw_xml(%d,%d,%d,%d,%d,\"%s\",%d);\n",canvas_root_id,int_data[0],int_data[1],int_data[2],int_data[3],temp,onclick);
                             add_to_buffer(tmp_buffer);
                             /*
                              in case inputs are present , trigger adding the read_mathml()
                              if no other reply_format is defined
                              note: all other reply types will include a reading of elements with id='mathml'+p)
                              */
                             if(strstr(temp,"mathml0") != NULL){
                              if(reply_format < 1 ){reply_format = 16;} /* no other reply type is defined */
             reset();
             break;
         case HTTP:
         /*
          @http x1,y1,x2,y2,http://some_adress.com
          @an active html-page will be displayed in an "iframe" rectangle left top (x1:y1) , right bottom (x2:y2)
          @do not use interactivity (or mouse) if the mouse needs to be active in the iframe
          @can not be 'set onclick' or 'drag xy'
         */
             if( js_function[DRAW_HTTP] != 1 ){ js_function[DRAW_HTTP] = 1;}
             for(i=0;i<5;i++){
                 switch(i){
                     case 0: int_data[0]=x2px(get_real(infile,0));break; /* x in x/y-range coord system -> pixel width */
                     case 1: int_data[1]=y2px(get_real(infile,0));break; /* y in x/y-range coord system  -> pixel height */
                     case 2: int_data[2]=x2px(get_real(infile,0)) - int_data[0];break; /* width in x/y-range coord system -> pixel width */
         /*
          @ html x1,y1,x2,y2,html_string
          @ all tags are allowed
          @ can be set onclick <br />(dragging not supported)<br />javascript:read_dragdrop(); will return click number of mathml-object
          @ if inputfields are incorporated  (with id's : id='mathml0',id='mathml1',...id='mathml_n')<br />the user_input values will be read by javascript:read_canvas(); <br />If other inputfields (command input / command textarea) or userdraw is performed, these values will NOT be read as well.
          note: uses the same code as 'mathml'
         */
             break;
         case X_AXIS_STRINGS:
         /*
          @ xaxis num1:string1:num2:string2:num3:string3:num4:string4:....num_n:string_n
          @ xaxistext num1:string1:num2:string2:num3:string3:num4:string4:....num_n:string_n
          @ use these x-axis values in stead of default xmin...xmax
          @ use command "fontcolor", "fontsize" , "fontfamily" to adjust font <br />defaults: black,12,Ariel
          @ if the 'x-axis words' are to big amd will overlap, a simple alternating offset will be applied
          @ example:<br />size 400,400<br />xrange 0,13<br />yrange -100,500<br />axis<br />xaxis 1:january:2:february:3:march:5:may:6:june:7:july:8:august:9:september:10:october:11:november:12:december<br />#'xmajor' steps should be synchronised with numbers eg. "1" in this example<br />grid 1,100,grey,1,4,6,grey
          @ example:<br />size 400,400<br />xrange -5*pi,5*pi<br />yrange -100,500<br />axis<br />xaxis -4*pi:-4\\u03c0:-3*pi:-3\\u03c0:-2*pi:-2\\u03c0:-1*pi:-\\u03c0:0:0:pi:\\u03c0:2*pi:2\\u03c01:3*pi:3\\u03c0:4*pi:4\\u03c0<br />#'xmajor' steps should be synchronised with numbers eg. "1" in this example<br />grid pi,1,grey,1,3,6,grey
         */
             temp = get_string(infile,1);
             if( strstr(temp,":") != 0 ){ temp = str_replace(temp,":","\",\"");}
             if( strstr(temp,"pi") != 0 ){ temp = str_replace(temp,"pi","(3.1415927)");}/* we need to replace pi for javascript y-value*/
             fprintf(js_include_file,"x_strings = [\"%s\"];\n ",temp);
             use_axis_numbering = 1;
             if( strstr(temp,":") != 0 ){ temp = str_replace(temp,":","\",\"");}
             if( strstr(temp,"pi") != 0 ){ temp = str_replace(temp,"pi","(3.1415927)");}/* we need to replace pi for javascript y-value*/
             fprintf(js_include_file,"y_strings = [\"%s\"];\n ",temp);
             use_axis_numbering = 1;
             break;
         case AXIS_NUMBERING:
         /*
             @ axisnumbering
             @ keyword, no aguments required
         */
             use_axis_numbering = 1;
             break;
         case AXIS:
          @ sgraph xstart,ystart,xmajor,ymajor,xminor,yminor,majorgrid_color,minorgrid_color
          @ primitive implementation of a 'broken scale' graph...
          @ not very versatile.
          @ example:<br />size 400,400<br />xrange 0,10000<br />yrange 0,100<br />sgraph 9000,50,100,10,4,4,grey,blue<br />userinput_xy<br />linewidth 2<br />userdraw segments,red
         */
             if( js_function[DRAW_SGRAPH] != 1 ){ js_function[DRAW_SGRAPH] = 1;}
             for(i = 0 ; i < 8 ;i++){
                 switch(i){
                     case 0:double_data[0] = get_real(infile,0);break;
                     case 1:double_data[1] = get_real(infile,0);break;
                     case 2:double_data[2] = get_real(infile,0);break;
         /*
         @ killaffine
         @ keyword : resets the transformation matrix to 1,0,0,1,0,0
         */
             use_affine = FALSE;
             snprintf(affine_matrix,14,"[1,0,0,1,0,0]");
             break;
         case AFFINE:
         /*
          @affine a,b,c,d,tx,ty
          @ defines a transformation matrix for subsequent objects
          @ use keyword 'killaffine' to end the transformation
          @ note 1: only 'draggable' / 'noclick' objects can be transformed.
          @ note 2: do not use 'onclick' or 'drag xy' with tranformation objects : the mouse coordinates do not get transformed (yet)
          @ note 3: no matrix operations on the transformation matrix implemented (yet)
          @ a : Scales the drawings horizontally
                     case 4: int_data[0] = (int)(get_real(infile,0));break;
                     case 5: int_data[1] = (int)(get_real(infile,1));
                         use_affine = TRUE;
                         string_length = snprintf(NULL,0,"[%.2f,%.2f,%.2f,%.2f,%d,%d] ",double_data[0],double_data[1],double_data[2],double_data[3],int_data[0],int_data[1]);
                         check_string_length(string_length);affine_matrix = my_newmem(string_length+1);
                         snprintf(affine_matrix,string_length,"[%.2f,%.2f,%.2f,%.2f,%d,%d] ",double_data[0],double_data[1],double_data[2],double_data[3],int_data[0],int_data[1]);
                     break;
                     default: break;
+                }
+            }
         break;
         */
             use_dashed = TRUE;
             break;
         case FILLED:
         /*
         @ keyword "filled"
         @ the next 'fillable' object (only) will be filled
         @ use command "fillcolor color" to set fillcolor
         @ use command "opacity 0-255,0-255" to set stroke and fill-opacity
         @ use command "fill x,y,color" or "floodfill x,y,color" to fill the space around (x;y) with color <br />pixel operation implemented in javascript: use with care !
         */
             use_filled = TRUE;
         @ strokecolor colorname or #hex
         @ to be used for commands that do not supply a color argument (like command 'linegraph')
         */
             stroke_color = get_color(infile,1);
             break;
         case BGIMAGE:
         /*
          @bgimage image_location
          @use an image as background .<br />(we use the background of 'canvas_div' )
          @the background image will be resized to match "width = xsize" and "height = ysize"
         */
         URL = get_string(infile,1);
         fprintf(js_include_file,"<!-- set background image to canvas div -->\ncanvas_div.style.backgroundImage = \"url(%s)\";canvas_div.style.backgroundSize = \"%dpx %dpx\";\n",URL,xsize,ysize);
             break;
         case BGCOLOR:
         /*
          @bgcolor colorname or #hex
          @use this color as background of the "div" containing the canvas(es)
         */
         /* [255,255,255]*/
         case COPY:
         /*
         @ copy x,y,x1,y1,x2,y2,[filename URL]
         @ Insert the region from (x1,y1) to (x2,y2) (in pixels) of [filename] to (x,y) in x/y-range
         @ If x1=y1=x2=y2=-1, the whole [filename URL] is copied.
         @ [filename] is the URL of the image
         @ URL is normal URL of network reachable image file location<br />(eg special url for 'classexo' not -yet- implemented)
         @ if command 'drag x/y/xy' is set before command 'copy', the images will be draggable<br />javascript function read_canvas(); will return the x/y coordinate data in xrange/yrange of all -including non draggable- images<br />the command drag is only valuid for the next image<br />draggable / non-draggable images may be mixed
         @ if you want to draw / userdraw  on an "imported" image, make sure it is transparent.<br />for example GNUPlot: set terminal gif transparent
         context.drawImage(img,sx,sy,swidth,sheight,x,y,width,height);
         draw_external_image(canvas_type,URL,sx,sy,swidth,sheight,x,y,width,height,drag_drop){
         */
             for(i = 0 ; i<7;i++){
                             if( drag_type > -1 ){
                                 if( js_function[DRAG_EXTERNAL_IMAGE] != 1 ){ js_function[DRAG_EXTERNAL_IMAGE] = 1;}
                                 if(reply_format < 1 ){reply_format = 20;}
                                 string_length = snprintf(NULL,0,"drag_external_image(\"%s\",%d,%d,%d,%d,%d,%d,%d,%d,%d,%d);\n",URL,int_data[2],int_data[3],int_data[6],int_data[7],int_data[0],int_data[1],int_data[6],int_data[7],ext_img_cnt,1);
                                 check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
                                 snprintf(tmp_buffer,string_length,"drag_external_image(\"%s\",%d,%d,%d,%d,%d,%d,%d,%d,%d,%d);\n",URL,int_data[2],int_data[3],int_data[6],int_data[7],int_data[0],int_data[1],int_data[6],int_data[7],ext_img_cnt,1);
                                 drag_type = -1;
                                 ext_img_cnt++;
+                            }
                             else
+                            {
 /*
 context.drawImage(img,sx,sy,swidth,sheight,x,y,width,height);
 img     Specifies the image, canvas, or video element to use
 sx      The x coordinate where to start clipping : x1 = int_data[0]
 sy      The y coordinate where to start clipping : x2 = int_data[1]
 swidth  The width of the clipped image : int_data[2] - int_data[0]
 sheight The height of the clipped image : int_data[3] - int_data[1]
 x       The x coordinate where to place the image on the canvas : dx1 = int_data[4]
 y       The y coordinate where to place the image on the canvas : dy1 = int_data[5]
 width   The width of the image to use (stretch or reduce the image) : dx2 - dx1 = int_data[6]
 height  The height of the image to use (stretch or reduce the image) : dy2 - dy1 = int_data[7]
 */
         case COPYRESIZED:
         /*
         @ copyresized x1,y2,x2,y2,dx1,dy1,dx2,dy2,image_file_url
         @ Insert the region from (x1,y1) to (x2,y2) (in pixels) of [ filename], <br />possibly resized,<br />to the region of (dx1,dy1) to (dx2,dy2) in x/y-range
         @ If x1=y1=x2=y2=-1, the whole [filename / URL ] is copied and resized.
         @ URL is normal URL of network reachable image file location<br />(eg special url for 'classexo' not -yet- implemented)
         @ if command 'drag x/y/xy' is set before command 'copy', the images will be draggable<br />javascript function read_canvas(); will return the x/y coordinate data in xrange/yrange of all -including non draggable- images<br />the command drag is only valuid for the next image<br />draggable / non-draggable images may be mixed
         @ if you want to draw / userdraw  on an "imported" image, make sure it is transparent.<br />for example GNUPlot: set terminal gif transparent
         */
             for(i = 0 ; i<9;i++){
                 switch(i){
                     case 0: int_data[0] = (int)(get_real(infile,0));break; /* x1 */
                     case 1: int_data[1] = (int)(get_real(infile,0));break; /* y1 */
         @ example: inputstyle color:blue;font-weight:bold;font-style:italic;font-size:16pt
         */
             input_style = get_string(infile,1);
             break;
         case INPUT:
         /*
          @ input x,y,size,editable,value
          @ to set inputfield "readonly", use editable = 0
          @ only active inputfields (editable = 1) will be read with read_canvas();
          @ may be further controlled by "inputstyle" (inputcss is not yet implemented...)
          @ if mathml inputfields are present and / or some userdraw is performed, these data will NOT be send as well (javascript:read_canvas();)
         */
         if( js_function[DRAW_INPUTS] != 1 ){ js_function[DRAW_INPUTS] = 1;}
             for(i = 0 ; i<5;i++){
                 switch(i){
                     case 0: int_data[0]=x2px(get_real(infile,0));break;/* x in px */
                     case 1: int_data[1]=y2px(get_real(infile,0));break;/* y in px */
                     case 2: int_data[2]=abs( (int)(get_real(infile,0)));break; /* size */
                     case 3: if( get_real(infile,1) >0){int_data[3] = 1;}else{int_data[3] = 0;};break; /* readonly */
                     case 4:
                             temp = get_string_argument(infile,1);
                             string_length = snprintf(NULL,0,  "draw_inputs(%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],input_style,temp);
                             check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
                             snprintf(tmp_buffer,string_length,"draw_inputs(%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],input_style,temp);
                             add_to_buffer(tmp_buffer);
+            }
             if(reply_format < 1 ){reply_format = 15;}
             reset();
             break;
         case TEXTAREA:
         /*
          @ textarea x,y,cols,rows,readonly,value
          @ may be further controlled by "inputstyle"
          @ if mathml inputfields are present and / or some userdraw is performed, these data will NOT be send as well (javascript:read_canvas();)
         */
             if( js_function[DRAW_TEXTAREAS] != 1 ){ js_function[DRAW_TEXTAREAS] = 1;}
             for(i = 0 ; i<6;i++){
                 switch(i){
                     case 0: int_data[0]=x2px(get_real(infile,0));break; /* x in px */
                     case 1: int_data[1]=y2px(get_real(infile,0));break; /* y in px */
                     case 2: int_data[2]=abs( (int)(get_real(infile,0)));break;/* cols */
         */
             precision = (int) (get_real(infile,1));
             break;
         case SETLIMITS:
         /*
             @setlimits
             @keyword : if set, it will produce 4 inputfields for 'xmin,xmax,ymin,ymax' and an 'ok' button
             @may be used for inputfield based zooming / panning
             @note:the input value will not be checked on validity
         */
             add_setlimits(js_include_file,canvas_root_id);
             /* add_setlimits provides 'fprintf(js_include_file,"use_pan_and_zoom = 1;");' */
             use_pan_and_zoom = TRUE;
             done = TRUE;
          @ zoom button_color
          @ introduce a controlpanel at the lower right corner
          @ giving six 15x15pixel 'active' rectangle areas<br />(for x,leftarrow,rightarrow,uparrow,downarrow and a '-' and a '+' sign ) for zooming and/or panning of the image
          @ the 'x' symbol will do a 'location.reload' of the page, and thus reset all canvas drawings.
          @ choose an appropriate colour, so the small 'x,arrows,-,+' are clearly visible
          @ command 'opacity' may be used to set stroke_opacity of 'buttons
          @ NOTE: only objects that may be set draggable / clickable will be zoomed / panned
          @ NOTE: when an object is dragged, zooming / panning will cause the coordinates to be reset to the original position :( <br />e.g. dragging / panning will get lost. (array with 'drag data' is erased)<br />This is a design flaw and not a feature !!
         */
             fprintf(js_include_file,"use_pan_and_zoom = 1;");
             use_pan_and_zoom = TRUE;
         case ONCLICK:
         /*
          @ onclick
          @ keyword, no arguments
          @ if the next object is clicked, it's 'object sequence number' in fly script is returned <br /> by javascript:read_canvas();
          @ Line based object will show an increase in linewidth<br />Font based objects will show the text in 'bold' when clicked.
          @ NOTE: not all objects  may be set clickable
         */
             onclick = 1;
             break;
         case DRAG:
         /*
          @ drag [x][y][xy]
          @ the next object will be draggable in x / y / xy direction
          @ the displacement can be read by 'javascript:read_dragdrop();'
          @ in case of external images (commands copy / copyresized) the external image can be set draggable ; always xy. <br />The function javascript;read_canvas() will return the xy-coordinates of all images.
          @ NOTE: in case an object is dragged , zooming or panning will cause the coordinates to be reset to the original position :( <br />e.g. dragging / panning will get lost. (array with 'drag data' is erased)<br />This is a design flaw and not a feature !!
         */
             temp = get_string(infile,1);
             if(strstr(temp,"xy") != NULL ){
                 drag_type = 0;
+            }
             else
+            {
                 if(strstr(temp,"x") != NULL ){
                     drag_type = 1;
+                }
                 else
+                {
                     drag_type = 2;
                     case 1: int_data[1] = y2px(get_real(infile,0)); break; /* y in x/y-range coord system  -> pixel */
                     case 2: int_data[2] = (int) (get_real(infile,0)); break; /* pixel width */
                     case 3: int_data[3] = (int) (get_real(infile,0)); break; /* height pixel height */
                     case 4: int_data[4] = (int) (get_real(infile,0)); if(int_data[4] != TRUE){int_data[4] = FALSE;} break; /* loop boolean */
                     case 5: int_data[5] = (int) (get_real(infile,0)); if(int_data[5] != TRUE){int_data[5] = FALSE;} break; /* visible boolean */
                     case 6:
                     temp = get_string(infile,1);
                     if( strstr(temp,".mp3") != 0 ){ temp = str_replace(temp,".mp3","");}
                     if( strstr(temp,".ogg") != 0 ){ temp = str_replace(temp,".ogg","");}
                     string_length = snprintf(NULL,0,  "draw_audio(%d,%d,%d,%d,%d,%d,%d,\"%s.ogg\",\"%s.mp3\");\n",canvas_root_id,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],int_data[5],temp,temp);
                     check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
                     case 4: stroke_color = get_color(infile,1);
                     /* draw_hatchfill(ctx,x0,y0,dx,dy,linewidth,color,opacity,xsize,ysize) */
                     string_length = snprintf(NULL,0,  "draw_hatchfill(%d,%d,%d,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",STATIC_CANVAS,int_data[0],int_data[1],int_data[2],int_data[3],line_width,stroke_color,stroke_opacity,xsize,ysize);
                     check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
                     snprintf(tmp_buffer,string_length,"draw_hatchfill(%d,%d,%d,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",STATIC_CANVAS,int_data[0],int_data[1],int_data[2],int_data[3],line_width,stroke_color,stroke_opacity,xsize,ysize);
                     add_to_buffer(tmp_buffer);
                     break;
                     default:break;
                 }
             }
             reset();
         break;
         case DIAMONDFILL:
         /*
         @ diamondfill x0,y0,dx,dy,color
         @ x0,y0 in xrange / yrange
         @ distances dx,dy in pixels
         */
             if( js_function[DRAW_DIAMONDFILL] != 1 ){ js_function[DRAW_DIAMONDFILL] = 1;}
             for(i=0;i<5;i++){
                 switch(i){
                     case 0: int_data[0] = x2px(get_real(infile,0)); break; /* x */
                     case 1: int_data[1] = y2px(get_real(infile,0)); break; /* y  */
                     case 2: int_data[2] = (int) (get_real(infile,0)); break; /* dx pixel */
                     case 3: int_data[3] = (int) (get_real(infile,0)); break; /* dy pixel*/
+                }
+            }
             reset();
         break;
         case GRIDFILL:
         /*
         @ gridfill x0,y0,dx,dy,color
         @ x0,y0 in xrange / yrange
         @ distances dx,dy in pixels
         */
             if( js_function[DRAW_GRIDFILL] != 1 ){ js_function[DRAW_GRIDFILL] = 1;}
             for(i=0;i<5;i++){
                 switch(i){
                     case 0: int_data[0] = x2px(get_real(infile,0)); break; /* x */
                     case 1: int_data[1] = y2px(get_real(infile,0)); break; /* y  */
                     case 2: int_data[2] = (int) (get_real(infile,0)); break; /* dx pixel */
                     case 3: int_data[3] = (int) (get_real(infile,0)); break; /* dy pixel*/
                     case 4: stroke_color = get_color(infile,1);
                     /* draw_gridfill(ctx,x0,y0,dx,dy,linewidth,color,opacity,xsize,ysize) */
                     string_length = snprintf(NULL,0,  "draw_gridfill(%d,%d,%d,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",STATIC_CANVAS,int_data[0],int_data[1],int_data[2],int_data[3],line_width,stroke_color,stroke_opacity,xsize,ysize);
                     check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
                     /* draw_dotfill(ctx,x0,y0,dx,dy,radius,color,opacity,xsize,ysize) */
                     string_length = snprintf(NULL,0,  "draw_dotfill(%d,%d,%d,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",STATIC_CANVAS,int_data[0],int_data[1],int_data[2],int_data[3],line_width,stroke_color,stroke_opacity,xsize,ysize);
                     check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
                     snprintf(tmp_buffer,string_length,"draw_dotfill(%d,%d,%d,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",STATIC_CANVAS,int_data[0],int_data[1],int_data[2],int_data[3],line_width,stroke_color,stroke_opacity,xsize,ysize);
                     add_to_buffer(tmp_buffer);
                     break;
                     default:break;
                 }
             }
             reset();
         break;
         case IMAGEFILL:
         /*
         @ imagefill dx,dy,image_url
         @ The next suitable <b>filled object</b> will be filled with "image_url" tiled
+            }
         break;
         case FILLTOBORDER:
         /*
         @ filltoborder x,y,bordercolor,color
         @ fill the region  of point (x:y) bounded by 'bordercolor' with color 'color'
         @ any other color will not act as border to the bucket fill
         @ use this command  after all boundary objects are declared.
         @ NOTE: filltoborder is a very (client) cpu intensive operation!<br />filling is done pixel by pixel<br/>e.g. image size of 400x400 uses 160000 pixels : each pixel contains 4 data (R,G,B,Opacity) = 640000 data.<br />on every data a few operations / comparisons are done...<br />So have pity on your students CPU..
         */
             for(i=0 ;i < 4 ; i++){
+                           }
                            decimals = find_number_of_digits(precision);/*floodfill(interaction,x,y,[R,G,B,A]) */
                            string_length = snprintf(NULL,0,  "floodfill(0,%.*f,%.*f,[%s,%d]);\n",decimals,double_data[0],decimals,double_data[1],fill_color,(int) (fill_opacity/0.0039215));
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
                            snprintf(tmp_buffer,string_length,"floodfill(0,%.*f,%.*f,[%s,%d]);\n",decimals,double_data[0],decimals,double_data[1],fill_color,(int) (fill_opacity/0.0039215));
                            add_to_buffer(tmp_buffer);
                            break;
                     default:break;
+                    }
+                }
         break;
         case LEGENDCOLORS:
         /*
         @ legendcolors color1:color2:color3:...:color_n
         @ will be used to colour a legend
         @ make sure the number of colours match the number of legend items
         @ command 'legend' in case of 'piechart' and 'barchart' will use these colours per default (no need to specify 'legendcolors'
         */
             temp = get_string(infile,1);
             if( strstr( temp,":") != 0 ){ temp = str_replace(temp,":","\",\""); }
             fprintf(js_include_file,"var legendcolors%d = [\"%s\"];",canvas_root_id,temp);
             break;
         case LEGEND:
         /*
         @ legend string1:string2:string3....string_n
         @ will be used to create a legend for a graph
         @ also see command 'piechart'
         */
             temp = get_string(infile,1);
             if( strstr( temp,":") != 0 ){ temp = str_replace(temp,":","\",\""); }
             fprintf(js_include_file,"var legend%d = [\"%s\"];",canvas_root_id,temp);
             break;
         case XLABEL:
         /*
         @ xlabel some_string
         @ will be used to create a label for the x-axis (label is in quadrant I)
         @ can only be used together with command 'grid'<br />not depending on keywords 'axis' and 'axisnumbering'
         @ font setting: italic Courier, fontsize will be slightly larger (fontsize + 4)
         */
             temp = get_string(infile,1);
             fprintf(js_include_file,"var xaxislabel = \"%s\";",temp);
             break;
         case YLABEL:
         /*
         @ ylabel some_string
         @ will be used to create a (vertical) label for the y-axis (label is in quadrant I)
         @ can only be used together with command 'grid'<br />not depending on keywords 'axis' and 'axisnumbering'
         @ font setting: italic Courier, fontsize will be slightly larger (fontsize + 4)
         */
             temp = get_string(infile,1);
             fprintf(js_include_file,"var yaxislabel = \"%s\";",temp);
             break;
         case LINEGRAPH: /* scheme: var linegraph_0 = [ 'stroke_color','line_width','use_dashed' ,'dashtype0','dashtype1','x1','y1',...,'x_n','y_n'];*/
         @ can be used together with freestyle x-axis/y-axis texts : see commands 'xaxis' and 'yaxis'
         @ use command 'legend' to provide an optional legend in right-top-corner
         @ also see command 'piechart'
         @ multiple linegraphs may be used in a single plot
         @ <ul><li>use command 'strokecolor' before command 'linegraph' to set the color of this graph</li><li>use command 'linewidth' before command 'linegraph' to set linewidth of this graph</li><li>use command 'dashed' before command 'linegraph' to set dashing of the graph</li><li>if dashing is set, use command 'dashtype' before command 'linegraph' to set the type of dashing of the graph</li></ul>
         */
             temp = get_string(infile,1);
             if( strstr( temp,":") != 0 ){ temp = str_replace(temp,":","\",\""); }
             fprintf(js_include_file,"var linegraph_%d = [\"%s\",\"%d\",\"%d\",\"%d\",\"%d\",\"%s\"];",linegraph_cnt,stroke_color,line_width,use_dashed,dashtype[0],dashtype[1],temp);
             linegraph_cnt++;
             reset();
+                            }
                      break;
                      default: canvas_error("interactive must be set 0,1 or 2");break;
+                }
                 break;
                 case 8:
                         temp = get_string(infile,1);
                         if( strstr( temp,",") != 0 ){ temp = str_replace(temp,",","\",\""); }
                         if( strlen(temp) < 1 ){temp = ",\"\",\"\",\"\",\"\",\"\"";}
                         string_length = snprintf(NULL,0,"clocks%d = new clock(%d,%d,%d,%d,%d,%d,%d,%d,\"%s\");\n",clock_cnt,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],int_data[5],int_data[6],int_data[7],temp);
                         check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
         @ barchart x_1:y_1:color_1:x_2:y_2:color_2:...x_n:y_n:color_n
         @ will be used to create a legend for bar graph
         @ may only to be used together with command 'grid'
         @ can be used together with freestyle x-axis/y-axis texts : see commands 'xaxis' and 'yaxis'
         @ use command 'legend' to provide an optional legend in right-top-corner
         @ also see command 'piechart'
         */
             temp = get_string(infile,1);
             if( strstr( temp,":" ) != 0 ){ temp = str_replace(temp,":","\",\""); }
             fprintf(js_include_file,"var barchart%d = [\"%s\"];",canvas_root_id,temp);
             reset();
         @ example data+colorlist : 132:red:23565:green:323:black:234324:orange:23434:yellow:2543:white
         @ the number of colors must match the number of data.
         @ use command "opacity 0-255,0-255" to adjust fill_opacity of colours
         @ use command "legend string1:string2:...:string_n" to automatically create a legend <br />using the same colours as pie segments<br />unicode allowed in legend<br />expect javascript trouble if the amount of 'pie-slices', 'pie-colours' 'pie-legend-titles' do not match<br />a javascript console is your best friend...
         */
             if( js_function[DRAW_PIECHART] != 1 ){ js_function[DRAW_PIECHART] = 1;}
             for(i=0;i<5;i++){
                 switch(i){
                     case 0: int_data[0] = x2px(get_real(infile,0)); break; /* x */
                     case 1: int_data[1] = y2px(get_real(infile,0)); break; /* y  */
                     case 2: int_data[2] = (int)(get_real(infile,1));break;/* radius*/
          @ the x/y-range are set using commands 'xrange xmin,xmax' and 'yrange ymin,ymax'
          @ ymajor is the major step on the y-axis; yminor is the divisor for the y-step
          @ the linewidth is set using command 'linewidth int'
          @ 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'
          @ the x/y- axis numbering is triggered by keyword 'axisnumbering'<ul><li>use command 'precision' before 'xlogscale' command to set the precision (decimals) of the axis numbering</li><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: userdrawings are done in the log paper, e.g. javascript:read_canvas() will return the real values
          @ note: command 'mouse color,fontsize' will show the real values in the logpaper.<br />\
          @ note: when using something like 'xrange 0.0001,0.01'...combined with commands 'mouse color,fontsize' and/or 'userdraw type,color'...<br /> make sure the precision is set accordingly (eg command 'precision 10000')
          @ note: in case of userdraw , the use of keyword 'userinput_xy' may be handy !
          @ attention: keyword 'snaptogrid' may not lead to the desired result...
         */
             if( js_function[DRAW_GRID] == 1 ){canvas_error("only one type of grid is allowed...");}
             if( js_function[DRAW_XLOGSCALE] != 1 ){ js_function[DRAW_XLOGSCALE] = 1;}
             for(i=0;i<4;i++){
                 switch(i){
                     case 0: double_data[0] = get_real(infile,0);break; /* xmajor */
                     case 1: int_data[0] = (int) (get_real(infile,0));break; /* xminor */
                     case 2: stroke_color = get_color(infile,0); break;
                     case 3: fill_color = get_color(infile,1);
                         string_length = snprintf(NULL,0,"draw_grid%d(%d,%d,\"%s\",\"%s\",%.2f,%.2f,%d,\"%s\",\"%s\",%d,%f,%d,%d); ",canvas_root_id,GRID_CANVAS,line_width,stroke_color,fill_color,stroke_opacity,fill_opacity,font_size,font_family,font_color,use_axis_numbering,double_data[0],int_data[0],precision);
                         tmp_buffer = my_newmem(string_length+1);
                         snprintf(tmp_buffer,string_length,"draw_grid%d(%d,%d,\"%s\",\"%s\",%.2f,%.2f,%d,\"%s\",\"%s\",%d,%f,%d,%d); ",canvas_root_id,GRID_CANVAS,line_width,stroke_color,fill_color,stroke_opacity,fill_opacity,font_size,font_family,font_color,use_axis_numbering,double_data[0],int_data[0],precision);
                         fprintf(js_include_file,"use_xlogscale=1;snap_y = %f;snap_x = xlogbase;",double_data[0]/int_data[0]);
                         add_to_buffer(tmp_buffer);
          @ the x/y-range are set using commands 'xrange xmin,xmax' and 'yrange ymin,ymax'
          @ xmajor is the major step on the x-axis; xminor is the divisor for the x-step
          @ the linewidth is set using command 'linewidth int'
          @ 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 'ylogbase number'
          @ the x/y- axis numbering is triggered by keyword 'axisnumbering'<ul><li>use command 'precision' before 'ylogscale' command to set the precision (decimals) of the axis numbering</li><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: userdrawings are done in the log paper, e.g. javascript:read_canvas() will return the real values
          @ note: command 'mouse color,fontsize' will show the real values in the logpaper.<br />\
          @ note: when using something like 'yrange 0.0001,0.01'...combined with commands 'mouse color,fontsize' and/or 'userdraw type,color'...<br /> make sure the precision is set accordingly (eg command 'precision 10000')
          @ note: in case of userdraw , the use of keyword 'userinput_xy' may be handy !
          @ attention: keyword 'snaptogrid' may not lead to the desired result...
         */
             if( js_function[DRAW_GRID] == 1 ){canvas_error("only one type of grid is allowed...");}
             if( js_function[DRAW_YLOGSCALE] != 1 ){ js_function[DRAW_YLOGSCALE] = 1;}
             for(i=0;i<4;i++){
                 switch(i){
                     case 0: double_data[0] = get_real(infile,0);break; /* xmajor */
                     case 1: int_data[0] = (int) (get_real(infile,0));break; /* xminor */
                     case 2: stroke_color = get_color(infile,0); break;
                     case 3: fill_color = get_color(infile,1);
                         string_length = snprintf(NULL,0,"draw_grid%d(%d,%d,\"%s\",\"%s\",%.2f,%.2f,%d,\"%s\",\"%s\",%d,%f,%d,%d); ",canvas_root_id,GRID_CANVAS,line_width,stroke_color,fill_color,stroke_opacity,fill_opacity,font_size,font_family,font_color,use_axis_numbering,double_data[0],int_data[0],precision);
                         tmp_buffer = my_newmem(string_length+1);
                         snprintf(tmp_buffer,string_length,"draw_grid%d(%d,%d,\"%s\",\"%s\",%.2f,%.2f,%d,\"%s\",\"%s\",%d,%f,%d,%d); ",canvas_root_id,GRID_CANVAS,line_width,stroke_color,fill_color,stroke_opacity,fill_opacity,font_size,font_family,font_color,use_axis_numbering,double_data[0],int_data[0],precision);
                         fprintf(js_include_file,"use_ylogscale=1;snap_x = %f;snap_y = ylogbase;",double_data[0]/int_data[0]);
                         add_to_buffer(tmp_buffer);
          @ xylogscale majorcolor,minorcolor
          @ the x/y-range are set using commands 'xrange xmin,xmax' and 'yrange ymin,ymax'
          @ the linewidth is set using command 'linewidth int'
          @ 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'
          @ 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: userdrawings are done in the log paper, e.g. javascript:read_canvas() will return the real values
          @ note: command 'mouse color,fontsize' will show the real values in the logpaper.<br />\
          @ note: when using something like 'yrange 0.0001,0.01'...combined with commands 'mouse color,fontsize' and/or 'userdraw type,color'...<br /> make sure the precision is set accordingly (eg command 'precision 10000')
          @ note: in case of userdraw , the use of keyword 'userinput_xy' may be handy !
          @ attention: keyword 'snaptogrid' may not lead to the desired result...
         */
             if( js_function[DRAW_GRID] == 1 ){canvas_error("only one type of grid is allowed...");}
             if( js_function[DRAW_XYLOGSCALE] != 1 ){ js_function[DRAW_XYLOGSCALE] = 1;}
             for(i=0;i<2;i++){
                 switch(i){
                     case 0: stroke_color = get_color(infile,0); break;
                     case 1: fill_color = get_color(infile,1);
                         string_length = snprintf(NULL,0,"draw_grid%d(%d,%d,\"%s\",\"%s\",%.2f,%.2f,%d,\"%s\",\"%s\",%d,%d); ",canvas_root_id,GRID_CANVAS,line_width,stroke_color,fill_color,stroke_opacity,fill_opacity,font_size,font_family,font_color,use_axis_numbering,precision);
                         tmp_buffer = my_newmem(string_length+1);
                         snprintf(tmp_buffer,string_length,"draw_grid%d(%d,%d,\"%s\",\"%s\",%.2f,%.2f,%d,\"%s\",\"%s\",%d,%d); ",canvas_root_id,GRID_CANVAS,line_width,stroke_color,fill_color,stroke_opacity,fill_opacity,font_size,font_family,font_color,use_axis_numbering,precision);
                         fprintf(js_include_file,"use_xlogscale=1;use_ylogscale=1;snap_x = xlogbase;snap_y = ylogbase;");
                         add_to_buffer(tmp_buffer);
+            }
         break;
         default:sync_input(infile);
         break;
+    }
   }
   /* we are done parsing script file */
   /* if needed, add generic draw functions (grid / xml etc) to buffer : these are no draggable shapes / objects  ! */
   add_javascript_functions(js_function,canvas_root_id);
    /* add read_canvas() etc functions if needed */
   if( reply_format > 0 ){ add_read_canvas(reply_format);}
   if( use_pan_and_zoom == TRUE ){
     if (oldlen != newlen){
         for (count = 0, p = str; (q = strstr(p, old)) != NULL; p = q + oldlen){
             count++;
             retlen = p - str + strlen(p) + count * (newlen - oldlen);
+        }
     }
     else
+    {
         retlen = strlen(str);
+    }
     if ((ret = malloc(retlen + 1)) == NULL){
         ret = NULL;
         canvas_error("string argument is NULL");
+    }
     else
             r += newlen;
+        }
         strcpy(r, p);
+    }
     return ret;
 }
 /******************************************************************************/
 /*
 avoid the use of ctypes.h for tolower() toupper();
 it gives trouble in FreeBSD 9.0 / 9.1 when used in a chroot environment (C library bug) : Undefined symbol "_ThreadRuneLocale"
   if (c >= 'A'){
    return c - 'A' + 'a';
+  }
+ }
  return c;
 }
 int toupper(int c){
  if(c >= 'a' && c <= 'z'){
    return c + 'A' - 'a';
+ }
  return c;
 }
 char *get_color(FILE *infile , int last){
     int c,i = 0,is_hex = 0;
     char temp[MAX_COLOR_STRING], *string;
     while(( (c=getc(infile)) != EOF ) && ( c != '\n') && ( c != ',' ) && ( c != ';' ) ){
         if( c != ' '){
             temp[i]=tolower(c);
             i++;
+        }
+    }
     if( ( c == '\n' || c == EOF || c == ';' ) && last == 0){canvas_error("expecting more arguments in command");}
     if( c == '\n' || c == ';' ){ done = TRUE; line_number++; }
     if( c == EOF ){finished = 1;}
     if( finished == 1 && last != 1 ){ canvas_error("expected more arguments");}
     temp[i]='\0';
     if( strlen(temp) == 0 ){ canvas_error("expected a colorname or hexnumber, but found nothing !!");}
     while(( (c=getc(infile)) != EOF ) && ( c != '\n') ){
         temp[i]=c;
         i++;
         if(i > MAX_BUFFER){ canvas_error("string size too big...repeat command to fit string");break;}
+    }
     if( ( c == '\n' || c == EOF ) && last == 0){canvas_error("expecting more arguments in command");}
     if( c == '\n') { done = TRUE; line_number++; }
     if( c == EOF ) {
         finished = 1;
         if( last != 1 ){ canvas_error("expected more arguments");}
+    }
     while(( (c=getc(infile)) != EOF ) && ( c != '\n') && ( c != ',')){
         temp[i]=c;
         i++;
         if(i > MAX_BUFFER){ canvas_error("string size too big...will cut it off");break;}
+    }
     if( ( c == '\n' || c == EOF) && last == 0){canvas_error("expecting more arguments in command");}
     if( c == '\n') { line_number++; }
     if( c == EOF ) {finished = 1;}
     if( finished == 1 && last != 1 ){ canvas_error("expected more arguments");}
     temp[i]='\0';
     if( strlen(temp) == 0 ){ canvas_error("expected a word or string (without comma) , but found nothing !!");}
     int c,i=0,found_calc = 0;
     double y;
     char tmp[MAX_INT];
     while(( (c=getc(infile)) != EOF ) && ( c != ',') && (c != '\n') && ( c != ';')){
      if( c != ' ' ){
      /*
      libmatheval will segfault when for example: "xrange -10,+10" or "xrange -10,10+" is used
      We will check after assert() if it's a NULL pointer...and exit program via :
      canvas_error("I'm having trouble parsing your \"expression\" ");
      */
       if( i == 0 &&  c == '+' ){
        continue;
       }
       else
+      {
        if(canvas_iscalculation(c) != 0){
         found_calc = 1;
         c = tolower(c);
        i++;
+      }
+     }
      if( i > MAX_INT - 1){canvas_error("number too large");}
+    }
     if( ( c == '\n' || c == EOF || c == ';' ) && last == 0){canvas_error("expecting more arguments in command");}
     if( c == '\n' || c == ';' ){ done = TRUE; line_number++; }
     if( c == EOF ){done = TRUE ; finished = 1;}
     tmp[i]='\0';
     if( strlen(tmp) == 0 ){canvas_error("expected a number , but found nothing !!");}
     if( found_calc == 1 ){ /* use libmatheval to calculate 2*pi/3 */
 = x1,x2,x3,x4....x_n
     y1,y2,y3,y4....y_n
     r1,r2,r3,r4....r_n
     x/y in pixels
     r in pixels
 = x1,x2,x3,x4....x_n
     y1,y2,y3,y4....y_n
     r1,r2,r3,r4....r_n
     x/y in  xrange / yrange coordinate system
     r in pixels
 = Ax1,Ax2,Ax3,Ax4....Ax_n
     Ay1,Ay2,Ay3,Ay4....Ay_n
     Bx1,Bx2,Bx3,Bx4....Bx_n
     By1,By2,By3,By4....By_n
     Cx1,Cx2,Cx3,Cx4....Cx_n
     Cy1,Cy2,Cy3,Cy4....Cy_n
     ....
     Zx1,Zx2,Zx3,Zx4....Zx_n
     Zy1,Zy2,Zy3,Zy4....Zy_n
     x/y in pixels
 = Ax1,Ax2,Ax3,Ax4....Ax_n
     Ay1,Ay2,Ay3,Ay4....Ay_n
     Bx1,Bx2,Bx3,Bx4....Bx_n
     ....
     Zx1,Zx2,Zx3,Zx4....Zx_n
     Zy1,Zy2,Zy3,Zy4....Zy_n
     x/y in  xrange / yrange coordinate system
 = x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n
-    x/y in pixels
-= x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n
-    x/y in  xrange / yrange coordinate system
-= x1:y1:r1,x2:y2:r2,x3:y3:r3,x4:y4:r3...x_n:y_n:r_n
     x/y in pixels
+= x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n
+    x/y in  xrange / yrange coordinate system
+= x1:y1:r1,x2:y2:r2,x3:y3:r3,x4:y4:r3...x_n:y_n:r_n
+    x/y in pixels
 = x1:y1:r1,x2:y2:r2,x3:y3:r3,x4:y4:r3...x_n:y_n:r_n
     x/y in  xrange / yrange coordinate system
 = Ax1,Ay1,Ax2,Ay2
      Bx1,By1,Bx2,By2
      Cx1,Cy1,Cx2,Cy2
      Dx1,Dy1,Dx2,Dy2
      ......
      Zx1,Zy1,Zx2,Zy2
     x/y in  xrange / yrange coordinate system
 = Ax1,Ay1,Ax2,Ay2
      Bx1,By1,Bx2,By2
      Cx1,Cy1,Cx2,Cy2
      Dx1,Dy1,Dx2,Dy2
      ......
      Zx1,Zy1,Zx2,Zy2
     x/y in pixels
 = Ax1:Ay1:Ax2:Ay2,Bx1:By1:Bx2:By2,Cx1:Cy1:Cx2:Cy2,Dx1:Dy1:Dx2:Dy2, ... ,Zx1:Zy1:Zx2:Zy2
     x/y in  xrange / yrange coordinate system
 = Ax1:Ay1:Ax2:Ay2,Bx1:By1:Bx2:By2....Zx1:Zy1:Zx2:Zy2
     x/y in pixels
 = reply from inputfields,textareas
     reply1,reply2,reply3,...,reply_n
 = return clicked object number (analogue to shape-library onclick)
 = return x/y-data in x-range/y-range of all 'draggable' images
 = return verbatim coordinates (x1:y1) (x2:y2)...(x_n:y_n)
 = array : x1,y1,x2,y2,x3,y3,x4,y4...x_n,y_n
     x/y in  xrange / yrange coordinate system
 = answertype for a polyline : remove multiple occurences  due to reclick on a point to create next polyline segment
 */
 void add_read_canvas(int type_reply){
 /* just 1 reply type allowed */
 switch(type_reply){
 /*  TO DO
 !!!!  NEED TO SIMPLIFY !!!!
 answers may have:
 x-values,y-values,r-values,input-fields,mathml-inputfields,text-typed answers
 */
     case 1: fprintf(js_include_file,"\
 \n<!-- begin function 1 read_canvas() -->\n\
     t++;\
    };\
   };\
   if( typeof userdraw_text != 'undefined' ){\
    return userdraw_x+\"\\n\"+userdraw_y+\"\\n\"+input_reply + \"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return userdraw_x+\"\\n\"+userdraw_y+\"\\n\"+input_reply;\
   }\
  }\
  else\
  {\
   if( typeof userdraw_text != 'undefined' ){\
    return userdraw_x+\"\\n\"+userdraw_y+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return userdraw_x+\"\\n\"+userdraw_y;\
   }\
  };\
   reply_y[p] = px2y(userdraw_y[p]);\
   p++;\
  };\
  if(p == 0){alert(\"nothing drawn...\");return;};\
  if( document.getElementById(\"canvas_input0\")){\
   var p = 0;var input_reply = new Array();\
   if( document.getElementById(\"canvas_input0\")){\
    var t = 0;\
    while(document.getElementById(\"canvas_input\"+t)){\
     if( ! document.getElementById(\"canvas_input\"+t).getAttribute(\"readonly\")){\
      input_reply[p] = document.getElementById(\"canvas_input\"+t).value;\
      p++;\
     };\
     t++;\
    };\
   };\
   if( typeof userdraw_text != 'undefined' ){\
    return reply_x+\"\\n\"+reply_y+\"\\n\"+input_reply+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply_x+\"\\n\"+reply_y+\"\\n\"+input_reply;\
   }\
  }\
  else\
  {\
   if( typeof userdraw_text != 'undefined' ){\
    return reply_x+\"\\n\"+reply_y+\"\\n\"+userdraw_text;\
   }\
   else\
     t++;\
    };\
   };\
   if( typeof userdraw_text != 'undefined' ){\
    return userdraw_x+\"\\n\"+userdraw_y+\"\\n\"+userdraw_radius+\"\\n\"+input_reply+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return userdraw_x+\"\\n\"+userdraw_y+\"\\n\"+userdraw_radius+\"\\n\"+input_reply;\
   }\
  }\
  else\
  {\
   if( typeof userdraw_text != 'undefined' ){\
    return userdraw_x+\"\\n\"+userdraw_y+\"\\n\"+userdraw_radius+\"\\n\"+userdrawW_text;\
   }\
   else\
   }\
  }\
 };\
 this.read_canvas = read_canvas;\n\
 <!-- end function 3 read_canvas() -->");
     break;
     case 4: fprintf(js_include_file,"\
 \n<!-- begin function 4 read_canvas() -->\n\
 function read_canvas(){\
  var reply_x = new Array();var reply_y = new Array();var p = 0;\
  while(userdraw_x[p]){\
   reply_x[p] = px2x(userdraw_x[p]);\
   reply_y[p] = px2y(userdraw_y[p]);\
   p++;\
  };\
  if(p == 0){alert(\"nothing drawn...\");return;};\
  if( document.getElementById(\"canvas_input0\") || document.getElementById(\"mathml0\") ){\
   var p = 0;var input_reply = new Array();\
   if( document.getElementById(\"canvas_input0\")){\
    var t = 0;\
    while(document.getElementById(\"canvas_input\"+t)){\
     if( ! document.getElementById(\"canvas_input\"+t).getAttribute(\"readonly\")){\
      input_reply[p] = document.getElementById(\"canvas_input\"+t).value;\
      p++;\
     };\
     t++;\
    };\
   };\
   if( typeof userdraw_text != 'undefined' ){\
    return reply_x+\"\\n\"+reply_y +\"\\n\"+userdraw_radius+\"\\n\"+input_reply+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply_x+\"\\n\"+reply_y +\"\\n\"+userdraw_radius+\"\\n\"+input_reply;\
   }\
  }\
  else\
  {\
   if( typeof userdraw_text != 'undefined' ){\
    return reply_x+\"\\n\"+reply_y+\"\\n\"+userdraw_radius+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply_x+\"\\n\"+reply_y+\"\\n\"+userdraw_radius;\
   }\
  };\
 };\
 this.read_canvas = read_canvas;\n\
 <!-- end function 4 read_canvas() -->");
     break;
     /*
         attention: we reset userdraw_x / userdraw_y  : because  userdraw_x = [][] userdraw_y = [][]
         used for userdraw multiple paths
     */
     case 5: fprintf(js_include_file,"\
 \n<!-- begin function 5 read_canvas() -->\n\
 function read_canvas(){\
  var p = 0;\
   };\
  };\
  if(p == 0){alert(\"nothing drawn...\");return;};\
  userdraw_x = [];userdraw_y = [];\
  if( document.getElementById(\"canvas_input0\") || document.getElementById(\"mathml0\") ){\
   var p = 0;var input_reply = new Array();\
   if( document.getElementById(\"canvas_input0\")){\
    var t = 0;\
    while(document.getElementById(\"canvas_input\"+t)){\
     if( ! document.getElementById(\"canvas_input\"+t).getAttribute(\"readonly\")){\
      input_reply[p] = document.getElementById(\"canvas_input\"+t).value;\
      p++;\
     };\
     t++;\
    };\
   };\
   if( typeof userdraw_text != 'undefined' ){\
    return reply +\"\\n\"+input_reply+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply +\"\\n\"+input_reply;\
   }\
  }\
  else\
  {\
   if( typeof userdraw_text != 'undefined' ){\
    return reply+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply;\
   }\
  };\
 };\
 this.read_canvas = rdad_canvas;\n\
 <!-- end function 5 read_canvas() -->");
     break;
     /*
         attention: we reset userdraw_x / userdraw_y  : because  userdraw_x = [][] userdraw_y = [][]
         used for userdraw multiple paths
     */
     case 6: fprintf(js_include_file,"\
 \n<!-- begin function 6 read_canvas() -->\n\
 function read_canvas(){\
  var p = 0;\
 function read_canvas(){\
  var reply = new Array();\
  var p = 0;\
  while(userdraw_x[p]){\
   reply[p] = userdraw_x[p] +\":\" + userdraw_y[p];\
   p++;\
  };\
  if(p == 0){alert(\"nothing drawn...\");return;};\
  if( document.getElementById(\"canvas_input0\") ){\
   var p = 0;var input_reply = new Array();\
   if( document.getElementById(\"canvas_input0\")){\
    var t = 0;\
    while(document.getElementById(\"canvas_input\"+t)){\
     if( ! document.getElementById(\"canvas_input\"+t).getAttribute(\"readonly\")){\
      input_reply[p] = document.getElementById(\"canvas_input\"+t).value;\
      p++;\
     };\
     t++;\
    };\
   };\
   if( typeof userdraw_text != 'undefined' ){\
    return reply+\"\\n\"+input_reply+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply+\"\\n\"+input_reply;\
   }\
- };\
- else\
- {\
-  if( typeof userdraw_text != 'undefined' ){\
-   return reply+\"\\n\"+userdraw_text;\
-  }\
-  else\
-  {\
-   return reply;\
-  }\
- };\
-};\
-this.read_canvas = read_canvas;\n\
-<!-- end function 7 read_canvas() -->");
-    break;
-    case 8: fprintf(js_include_file,"\
-\n<!-- begin function 8 read_canvas() -->\n\
-function read_canvas(){\
- var reply = new Array();\
- var p = 0;\
- while(userdraw_x[p]){\
-  reply[p] = px2x(userdraw_x[p]) +\":\" + px2y(userdraw_y[p]);\
-  p++;\
  };\
- if(p == 0){alert(\"nothing drawn...\");return;};\
- if( document.getElementById(\"canvas_input0\") || document.getElementById(\"mathml0\") ){\
-  var p = 0;var input_reply = new Array();\
-  if( document.getElementById(\"canvas_input0\")){\
-   var t = 0;\
-   while(document.getElementById(\"canvas_input\"+t)){\
-    if( ! document.getElementById(\"canvas_input\"+t).getAttribute(\"readonly\")){\
-     input_reply[p] = document.getElementById(\"canvas_input\"+t).value;\
-     p++;\
-    };\
-    t++;\
-   };\
-  };\
-  if( typeof userdraw_text != 'undefined' ){\
-   return reply +\"\\n\"+input_reply+\"\\n\"+userdraw_text;\
-  }\
-  else\
-  {\
-   return reply +\"\\n\"+input_reply;\
-  }\
- }\
  else\
  {\
   if( typeof userdraw_text != 'undefined' ){\
-   return reply +\"\\n\"+userdraw_text;\
+   return reply+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply;\
   }\
  };\
 };\
 this.read_canvas = read_canvas;\n\
-<!-- end function 8 read_canvas() -->");
+<!-- end function 7 read_canvas() -->");
     break;
-    case 9: fprintf(js_include_file,"\
+    case 8: fprintf(js_include_file,"\
-\n<!-- begin function 9 read_canvas() -->\n\
+\n<!-- begin function 8 read_canvas() -->\n\
 function read_canvas(){\
  var reply = new Array();\
  var p = 0;\
  while(userdraw_x[p]){\
-  reply[p] = userdraw_x[p] +\":\" + userdraw_y[p] + \":\" + userdraw_radius[p];\
+  reply[p] = px2x(userdraw_x[p]) +\":\" + px2y(userdraw_y[p]);\
   p++;\
  };\
  if(p == 0){alert(\"nothing drawn...\");return;};\
+ if( document.getElementById(\"canvas_input0\") || document.getElementById(\"mathml0\") ){\
+  var p = 0;var input_reply = new Array();\
+  if( document.getElementById(\"canvas_input0\")){\
+   var t = 0;\
+   while(document.getElementById(\"canvas_input\"+t)){\
+    if( ! document.getElementById(\"canvas_input\"+t).getAttribute(\"readonly\")){\
+     input_reply[p] = document.getElementById(\"canvas_input\"+t).value;\
+     p++;\
+    };\
+    t++;\
+   };\
+  };\
+  if( typeof userdraw_text != 'undefined' ){\
+   return reply +\"\\n\"+input_reply+\"\\n\"+userdraw_text;\
+  }\
+  else\
+  {\
+   return reply +\"\\n\"+input_reply;\
+  }\
+ }\
+ else\
+ {\
+  if( typeof userdraw_text != 'undefined' ){\
+   return reply +\"\\n\"+userdraw_text;\
+  }\
+  else\
+  {\
+   return reply;\
+  }\
+ };\
+};\
+this.read_canvas = read_canvas;\n\
+<!-- end function 8 read_canvas() -->");
+    break;
+    case 9: fprintf(js_include_file,"\
+\n<!-- begin function 9 read_canvas() -->\n\
+function read_canvas(){\
+ var reply = new Array();\
+ var p = 0;\
+ while(userdraw_x[p]){\
+  reply[p] = userdraw_x[p] +\":\" + userdraw_y[p] + \":\" + userdraw_radius[p];\
+  p++;\
+ };\
+ if(p == 0){alert(\"nothing drawn...\");return;};\
  if( document.getElementById(\"canvas_input0\") ){\
   var p = 0;var input_reply = new Array();\
   if( document.getElementById(\"canvas_input0\")){\
    var t = 0;\
    while(document.getElementById(\"canvas_input\"+t)){\
     if( ! document.getElementById(\"canvas_input\"+t).getAttribute(\"readonly\")){\
 function read_canvas(){\
  var reply = new Array();\
  var p = 0;var i = 0;\
  while(userdraw_x[p]){\
   reply[i] = userdraw_x[p] +\":\" + userdraw_y[p] +\":\" + userdraw_x[p+1] +\":\" + userdraw_y[p+1];\
   p = p+2;i++;\
  };\
  if(p == 0){alert(\"nothing drawn...\");return;};\
  if( document.getElementById(\"canvas_input0\") ){\
   var p = 0;var input_reply = new Array();\
   if( document.getElementById(\"canvas_input0\")){\
    var t = 0;\
    while(document.getElementById(\"canvas_input\"+t)){\
     if( ! document.getElementById(\"canvas_input\"+t).getAttribute(\"readonly\")){\
      input_reply[p] = document.getElementById(\"canvas_input\"+t).value;\
      p++;\
     };\
     t++;\
    };\
    return reply +\"\\n\"+input_reply+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply +\"\\n\"+input_reply;\
   }\
  }\
  else\
  {\
   if( typeof userdraw_text != 'undefined' ){\
    return reply +\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply;\
   }\
  };\
 };\
  this.read_canvas = read_canvas;\n\
 <!-- end function 14 read_canvas() -->");
     break;
     case 15: fprintf(js_include_file,"\
 \n<!-- begin function 15  read_canvas() -->\n\
 function read_canvas(){\
    return input_reply +\"\\n\"+userdraw_text;\
  }\
  else\
  {\
   return input_reply;\
  };\
 };\
  this.read_canvas = read_canvas;\n\
 <!-- end function 15 read_canvas() -->");
     break;
     case 16: fprintf(js_include_file,"\
 \n<!-- begin function 16 read_mathml() -->\n\
     case 17:  fprintf(js_include_file,"\
 \n<!-- begin function 17 read_canvas() -->\n\
 function read_canvas(){\
  if( userdraw_text.length == 0){alert(\"no text typed...\");return;}\
  return userdraw_text;\
 };\
 this.read_canvas = read_canvas;\n\
 <!-- end function 17 read_canvas() -->");
     break;
     case 18: fprintf(js_include_file,"\
 \n<!-- begin function 18 read_canvas() -->\n\
 function read_canvas(){\
     break;
     case 19: fprintf(js_include_file,"\
 \n<!-- begin function 19 read_canvas() -->\n\
 function read_canvas(){\
  return reply[0];\
 };\
 this.read_canvas = read_canvas;\n\
 <!-- end function 19 read_canvas() -->");
     case 20: fprintf(js_include_file,"\
 \n<!-- begin function 20 read_canvas() -->\n\
 function read_canvas(){\
  var len  = ext_drag_images.length;\
  if( userdraw_x.length == 0){alert(\"nothing drawn...\");return;}\
  var reply_coord = new Array();var p = 0;\
  while(userdraw_x[p]){\
   reply_coord[p] = \"(\"+px2x(userdraw_x[p])+\":\"+px2y(userdraw_y[p])+\")\";\
   p++;\
  };\
  if(p == 0){alert(\"nothing drawn...\");return;};\
  if( document.getElementById(\"canvas_input0\") ){\
   var p = 0;var input_reply = new Array();\
   if( document.getElementById(\"canvas_input0\")){\
    var t = 0;\
    while(document.getElementById(\"canvas_input\"+t)){\
     if( ! document.getElementById(\"canvas_input\"+t).getAttribute(\"readonly\")){\
      input_reply[p] = document.getElementById(\"canvas_input\"+t).value;\
      p++;\
     };\
     t++;\
    };\
   };\
   if( typeof userdraw_text != 'undefined' ){\
    return reply_coord+\"\\n\"+input_reply+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply_coord+\"\\n\"+input_reply;\
   }\
  }\
  else\
  {\
   if( typeof userdraw_text != 'undefined' ){\
    return reply_coord+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
  }\
  else\
  {\
   if( typeof userdraw_text != 'undefined' ){\
    return reply +\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply;\
   }\
  };\
 };\
 this.read_canvas = read_canvas;\n\
 <!-- end function 22 read_canvas() -->");
     break;
     case 23: fprintf(js_include_file,"\
 \n<!-- begin function 23 read_canvas() default 5 px marge -->\n\
   }\
   else\
   {\
    return reply_x+\"\\n\"+reply_y;\
   };\
  };\
 };\
 this.read_canvas = read_canvas;\n\
 <!-- end function 23 read_canvas() -->");
     break;
     default: canvas_error("hmmm unknown replyformat...");break;
+}
  return;
+}
 /*
  add drawfunction :
  - functions used by userdraw_primitives (circle,rect,path,triangle...)
  - things not covered by the drag&drop library (static objects like parallel, lattice ,gridfill , imagefill)
  - grid / mathml
  - will not scale or zoom in
  - will not be filled via pixel operations like fill / floodfill / filltoborder / clickfill
  - is printed directly into 'js_include_file'
 */
 void add_javascript_functions(int js_functions[],int canvas_root_id){
 int i;
 for(i = 0 ; i < MAX_JS_FUNCTIONS; i++){
   external_ctx.drawImage(img[1],img[2],img[3],img[4],img[5],img[6],img[7],img[8],img[9]);\
  };\
 };\
 function dragstop(evt){\
  selected_image = null;return;\
 };\
 function dragxy(evt){\
  if( selected_image != null ){\
   var xoff = (document.documentElement.scrollLeft ? document.documentElement.scrollLeft : document.body.scrollLeft);\
   var yoff = (document.documentElement.scrollTop ? document.documentElement.scrollTop : document.body.scrollTop);\
   var s_img = ext_drag_images[selected_image];\
   canvas_bg_div.style.backgroundSize = width+\"px \"+height+\"px\";\
   canvas_bg_div.style.backgroundRepeat = \"no-repeat\";\
   canvas_bg_div.style.backgroundPosition= sx+\"px \"+sy+\"px\";\
   canvas_bg_div.style.backgroundImage = \"url(\" + URL + \")\";\
  };\
 };",canvas_root_id);
     break;
     case DRAW_ZOOM_BUTTONS: /* 6 rectangles 15x15 px  forbidden zone for drawing : y < ysize - 15*/
 fprintf(js_include_file,"\n<!-- draw zoom buttons -->\n\
 draw_zoom_buttons = function(canvas_type,color,opacity){\
  var obj;\
  if( document.getElementById(\"wims_canvas%d\"+canvas_type) ){\
   obj = document.getElementById(\"wims_canvas%d\"+canvas_type);\
  }\
  else\
  {\
  ctx.fillText(\"\\u2191\",xsize - 60,ysize-2);\
  ctx.fillText(\"\\u2193\",xsize - 75,ysize-2);\
  ctx.fillText(\"\\u00D7\",xsize - 90,ysize-2);\
  ctx.stroke();\
 };",canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_GRIDFILL:/* not used for userdraw */
 fprintf(js_include_file,"\n<!-- draw gridfill -->\n\
 draw_gridfill = function(canvas_type,x0,y0,dx,dy,linewidth,color,opacity,xsize,ysize){\
  var obj;\
  if( document.getElementById(\"wims_canvas%d\"+canvas_type) ){\
   obj = document.getElementById(\"wims_canvas%d\"+canvas_type);\
  }\
  else\
  {\
   obj = create_canvas%d(canvas_type,xsize,ysize);\
  };\
  var ctx = obj.getContext(\"2d\");\
  var x,y;\
  ctx.save();\
  ctx.strokeStyle=\"rgba(\"+color+\",\"+opacity+\")\";\
  snap_x = dx;snap_y = dy;\
  for( x = x0 ; x < xsize+dx ; x = x + dx ){\
     ctx.moveTo(x,y0);\
     ctx.lineTo(x,ysize);\
  };\
  for( y = y0 ; y < ysize+dy; y = y + dy ){\
     ctx.moveTo(x0,y);\
     ctx.lineTo(xsize,y);\
  };\
  ctx.stroke();\
  ctx.restore();\
  return;};",canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_IMAGEFILL:/* not  used for userdraw */
 fprintf(js_include_file,"\n<!-- draw imagefill -->\n\
 draw_imagefill = function(canvas_type,x0,y0,URL,xsize,ysize){\
  var obj;\
  if( document.getElementById(\"wims_canvas%d\"+canvas_type) ){\
   obj = document.getElementById(\"wims_canvas%d\"+canvas_type);\
  }\
  else\
  {\
   obj = create_canvas%d(canvas_type,xsize,ysize);\
  };\
  var ctx = obj.getContext(\"2d\");\
  ctx.save();\
  var img = new Image();\
  img.src = URL;\
  img.onload = function(){\
   if( (img.width > xsize-x0) && (img.height > ysize-y0) ){\
  };\
  ctx.restore();\
  return;\
 };",canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_DOTFILL:/* not  used for userdraw */
 fprintf(js_include_file,"\n<!-- draw dotfill -->\n\
 draw_dotfill = function(canvas_type,x0,y0,dx,dy,radius,color,opacity,xsize,ysize){\
  var obj;\
  if( document.getElementById(\"wims_canvas%d\"+canvas_type) ){\
   obj = document.getElementById(\"wims_canvas%d\"+canvas_type);\
  }\
  else\
  {\
   obj = create_canvas%d(canvas_type,xsize,ysize);\
  };\
  var ctx = obj.getContext(\"2d\");\
     break;
     case DRAW_DIAMONDFILL:/* not used for userdraw */
 fprintf(js_include_file,"\n<!-- draw hatch fill -->\n\
 draw_diamondfill = function(canvas_type,x0,y0,dx,dy,linewidth,stroke_color,stroke_opacity,xsize,ysize){\
   var obj;\
  if( document.getElementById(\"wims_canvas%d\"+canvas_type) ){\
   obj = document.getElementById(\"wims_canvas%d\"+canvas_type);\
  }\
  else\
  {\
   obj = create_canvas%d(canvas_type,xsize,ysize);\
  };\
  var ctx = obj.getContext(\"2d\");\
  var x;\
  var y;\
  ctx.save();\
  ctx.lineWidth = linewidth;\
  ctx.strokeStyle=\"rgba(\"+stroke_color+\",\"+stroke_opacity+\")\";\
  y = ysize;\
  for( x = x0 ; x < xsize ; x = x + dx ){\
   ctx.moveTo(x,y0);\
   ctx.lineTo(xsize,y);\
   y = y - dy;\
  };\
  y = y0;\
  for( x = xsize ; x > 0 ; x = x - dx){\
   ctx.moveTo(x,ysize);\
  x = x0;\
  for( y = y0 ; y < ysize ; y = y + dy ){\
   ctx.moveTo(xsize,y);\
   ctx.lineTo(x,ysize);\
   x = x + dx;\
  };\
  x = xsize;\
  for( y = ysize ; y > y0 ; y = y - dy ){\
   ctx.moveTo(x,y0);\
   ctx.lineTo(x0,y);\
   x = x - dx;\
  ctx.stroke();\
  ctx.restore();\
  return;\
  }",canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_HATCHFILL:/* not used for userdraw */
 fprintf(js_include_file,"\n<!-- draw hatch fill -->\n\
 draw_hatchfill = function(canvas_type,x0,y0,dx,dy,linewidth,stroke_color,stroke_opacity,xsize,ysize){\
   var obj;\
  if( document.getElementById(\"wims_canvas%d\"+canvas_type) ){\
  y = ysize;\
  for( x = x0 ; x < xsize ; x = x + dx ){\
   ctx.moveTo(x,y0);\
   ctx.lineTo(xsize,y);\
   y = y - dy;\
  };\
  y = y0;\
  for( x = xsize ; x >= dx ; x = x - dx){\
   ctx.moveTo(x,ysize);\
   ctx.lineTo(x0,y);\
   y = y + dy;\
  };\
  ctx.stroke();\
  ctx.restore();\
  return;\
  };",canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_CIRCLES:/*  used for userdraw */
 fprintf(js_include_file,"\n<!-- draw circles -->\n\
 draw_circles = function(ctx,x_points,y_points,radius,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype0,dashtype1,use_rotate,angle,use_translate,vector){\
  ctx.save();\
  if(use_translate == 1 ){ctx.translate(vector[0],vector[1]);}\
  if(use_rotate == 1 ){ctx.rotate(angle*Math.PI/180);}\
  ctx.lineWidth = line_width;\
  for(var p = 0 ; p < x_points.length ; p++ ){\
   ctx.beginPath();\
   ctx.arc(x_points[p],y_points[p],radius[p],0,2*Math.PI,false);\
   ctx.closePath();\
   if(use_dashed == 1){if(ctx.setLineDash){ctx.setLineDash([dashtype0,dashtype1]);}else{ctx.mozDash = [dashtype0,dashtype1];};};\
   if(use_filled == 1){ctx.fillStyle = \"rgba(\"+fill_color+\",\"+fill_opacity+\")\";ctx.fill();}\
   ctx.strokeStyle=\"rgba(\"+stroke_color+\",\"+stroke_opacity+\")\";\
  ctx.fillStyle =\"rgba(\"+stroke_color+\",\"+stroke_opacity+\")\";\
  for(var p = 0 ; p < x_points.length ; p++ ){\
   ctx.beginPath();\
   ctx.arc(x_points[p],y_points[p],line_width,0,2*Math.PI,false);\
   ctx.closePath();ctx.fill();ctx.stroke();\
  };\
  ctx.restore();\
  return;\
 };");
     break;
     case DRAW_SEGMENTS:/*  used for userdraw */
 fprintf(js_include_file,"\n<!-- draw segments -->\n\
 draw_segments = function(ctx,x_points,y_points,line_width,stroke_color,stroke_opacity,use_dashed,dashtype0,dashtype1,use_rotate,angle,use_translate,vector){\
  ctx.save();\
  if(use_translate == 1 ){ctx.translate(vector[0],vector[1]);}\
  if(use_rotate == 1 ){ctx.rotate(angle*Math.PI/180);}\
  ctx.lineWidth = line_width;\
  ctx.strokeStyle=\"rgba(\"+stroke_color+\",\"+stroke_opacity+\")\";\
  if(use_dashed == 1){if(ctx.setLineDash){ctx.setLineDash([dashtype0,dashtype1]);}else{ctx.mozDash = [dashtype0,dashtype1];};};\
  for(var p = 0 ; p < x_points.length ; p = p+2 ){\
   ctx.beginPath();\
   ctx.moveTo(x_points[p],y_points[p]);\
   ctx.lineTo(x_points[p+1],y_points[p+1]);\
   ctx.closePath();\
   ctx.stroke();\
   }\
   ctx.restore();\
   return;\
  };");
     break;
     case DRAW_LINES:/*  used for userdraw */
 fprintf(js_include_file,"\n<!-- draw lines -->\n\
 function calc_line(x1,x2,y1,y2){\
  var marge = 2;\
  if(x1 < x2+marge && x1>x2-marge){\
   return [x1,0,x1,ysize];\
  };\
  if(y1 < y2+marge && y1>y2-marge){\
   return [0,y1,xsize,y1];\
  };\
  var Y1 = y1 - (x1)*(y2 - y1)/(x2 - x1);\
  var Y2 = y1 + (xsize - x1)*(y2 - y1)/(x2 - x1);\
  for(var p = 0 ; p < x_points.length ; p = p+2 ){\
   line = calc_line(x_points[p],x_points[p+1],y_points[p],y_points[p+1]);\
   ctx.beginPath();\
   ctx.moveTo(line[0],line[1]);\
   ctx.lineTo(line[2],line[3]);\
   ctx.closePath();\
   ctx.stroke();\
   }\
   ctx.restore();\
   return;\
  };");
     break;
     case DRAW_CROSSHAIRS:/*  used for userdraw */
 fprintf(js_include_file,"\n<!-- draw crosshairs  -->\n\
   if( use_filled == 1 ){ctx.fillStyle =\"rgba(\"+fill_color+\",\"+fill_opacity+\")\";ctx.fill();};\
   ctx.stroke();\
  }\
  ctx.restore();\
 };");
     break;
     case DRAW_ELLIPSES:/* not  used for userdraw */
 fprintf(js_include_file,"\n<!-- draw ellipses -->\n\
 draw_ellipses = function(canvas_type,x_points,y_points,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype0,use_rotate,angle,use_translate,vector){\
  var obj;\
   ctx.translate(cx - rx, cy - ry);\
   ctx.scale(rx, ry);\
   ctx.arc(1, 1, 1, 0, 2 * Math.PI, false);\
   if( use_filled == 1 ){ctx.fill();}\
   ctx.stroke();\
  };\
  ctx.restore();\
 };",canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_PATHS: /*  used for userdraw */
  if(use_filled == 1){ctx.fillStyle = \"rgba(\"+fill_color+\",\"+fill_opacity+\")\";ctx.fill();}\
  ctx.stroke();\
  ctx.restore();\
  return;\
 };");
     break;
     case DRAW_ARROWS:/*  used for userdraw */
 fprintf(js_include_file,"\n<!-- draw arrows -->\n\
 draw_arrows = function(ctx,x_points,y_points,arrow_head,line_width,stroke_color,stroke_opacity,use_dashed,dashtype0,dashtype1,type,use_rotate,angle,use_translate,vector){\
  ctx.save();\
  src.type = \"video/mp4\";\
  src.src = URL;\
  video.appendChild(src);\
  video.load();\
  return;\
 };");
     break;
     case DRAW_AUDIO:/* not used for userdraw */
 fprintf(js_include_file,"\n<!-- draw audio -->\n\
 draw_audio = function(canvas_root_id,x,y,w,h,loop,visible,URL1,URL2){\
  var canvas_div = document.getElementById(\"canvas_div\"+canvas_root_id);\
  var audio_div = document.createElement(\"div\");\
  audio.appendChild(src2);\
  audio.load();\
  return;\
 };");
     break;
     case DRAW_HTTP:/* not  used for userdraw */
 fprintf(js_include_file,"\n<!-- draw http -->\n\
 draw_http = function(canvas_root_id,x,y,w,h,URL){\
  var canvas_div = document.getElementById(\"canvas_div\"+canvas_root_id);\
  var http_div = document.createElement(\"div\");\
  iframe.src = URL;\
  iframe.setAttribute(\"width\",w);\
  iframe.setAttribute(\"height\",h);\
  return;\
 };");
     break;
     case DRAW_XML:
 fprintf(js_include_file,"\n<!-- draw xml -->\n\
 draw_xml = function(canvas_root_id,x,y,w,h,mathml,onclick){\
  var canvas_div = document.getElementById(\"canvas_div\"+canvas_root_id);\
  var xml_div = document.createElement(\"div\");\
  return;\
 };"
 );
     break;
     case DRAW_SGRAPH:
 /*
  xstart = given
  ystart = given
  sgraph(canvas_type,precision,xmajor,ymajor,xminor,yminor,majorcolor,minorcolor,fontfamily)
 */
 fprintf(js_include_file,"\n<!-- draw sgraph -->\n\
 };\
 ctx.restore();\
 return;\
 };",canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_PIECHART:
 fprintf(js_include_file,"\n<!-- draw piechars -->\n\
 function draw_piechart(canvas_type,x_center,y_center,radius, data_color_list,fill_opacity,font_size,font_family){\
  if( document.getElementById(\"wims_canvas%d\"+canvas_type) ){\
   obj = document.getElementById(\"wims_canvas%d\"+canvas_type);\
    y_offset = parseInt(y_offset + 1.5*font_size);\
   };\
  };\
  ctx.restore();\
 };",canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_ARCS:
 fprintf(js_include_file,"\n<!-- draw arcs -->\n\
 draw_arc = function(canvas_type,xc,yc,r,start,end,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype0,use_rotate,angle,use_translate,vector){\
  var obj;\
     ctx.stroke();\
     ctx.closePath();\
  }\
  ctx.restore();\
 };",canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_TEXTS:
 fprintf(js_include_file,"\n<!-- draw text -->\n\
 draw_text = function(canvas_type,x,y,font_size,font_family,stroke_color,stroke_opacity,angle2,text,use_rotate,angle,use_translate,vector){\
   var obj;\
    if(use_translate == 1 ){ctx.translate(vector[0],vector[1]);}\
    if(use_rotate == 1 ){ctx.rotate(angle*Math.PI/180);}\
   };\
   if( font_family.indexOf('px') != null ){\
    ctx.font = font_family;\
   }\
   else\
   {\
    ctx.font = \"+font_size+'px '+font_family \";\
   };\
   ctx.fillStyle = \"rgba(\"+stroke_color+\",\"+stroke_opacity+\")\";\
   if(angle2 != 0){\
    ctx.restore();\
   }else{ctx.fillText(text,x,y);};\
  ctx.restore();\
  return;\
  };",canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_CURVE:
 fprintf(js_include_file,"\n<!-- draw curve -->\n\
 draw_curve = function(canvas_type,type,x_points,y_points,line_width,stroke_color,stroke_opacity,use_dashed,dashtype0,use_rotate,angle,use_translate,vector){\
  var obj;\
   };\
  };\
  ctx.stroke();\
  ctx.restore();\
 };",canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_INPUTS:
 fprintf(js_include_file,"\n<!-- draw input fields -->\n\
 draw_inputs = function(root_id,input_cnt,x,y,size,readonly,style,value){\
 var canvas_div = document.getElementById(\"canvas_div\"+root_id);\
 var input = document.createElement(\"input\");\
 input.setAttribute(\"style\",\"position:absolute;left:\"+x+\"px;top:\"+y+\"px;\"+style);\
 input.setAttribute(\"size\",size);\
 input.setAttribute(\"value\",value);\
 if( readonly == 0 ){ input.setAttribute(\"readonly\",\"readonly\");};\
 canvas_div.appendChild(input);};");
     break;
     case DRAW_TEXTAREAS:
 fprintf(js_include_file,"\n<!-- draw text area inputfields -->\n\
 draw_textareas = function(root_id,input_cnt,x,y,cols,rows,readonly,style,value){\
 var canvas_div = document.getElementById(\"canvas_div\"+root_id);\
 var textarea = document.createElement(\"textarea\");\
 textarea.setAttribute(\"cols\",cols);\
 textarea.setAttribute(\"rows\",rows);\
 textarea.innerHTML = value;\
 canvas_div.appendChild(textarea);};");
     break;
 case DRAW_PIXELS:
 fprintf(js_include_file,"\n<!-- draw pixel -->\n\
 draw_setpixel = function(x,y,color,opacity,pixelsize){\
  var canvas = create_canvas%d(10,xsize,ysize);\
  var d = 0.5*pixelsize;\
+        }
         if( strcmp(input_type, fellipse) == 0){
         free(input_type);
         use_filled = TRUE;
         return ELLIPSE;
         }
         if( strcmp(input_type, blink) == 0 ){
         free(input_type);
         return BLINK;
         }
         if( strcmp(input_type, button) == 0){
         free(input_type);
         return BUTTON;
         }
         if( strcmp(input_type, translation) == 0 ||  strcmp(input_type, translate) == 0  ){
         free(input_type);
         return TRANSLATION;
         }
         if( strcmp(input_type, killtranslation) == 0 ||  strcmp(input_type, killtranslate) == 0){
         free(input_type);
         return KILLTRANSLATION;
+        }
         if( strcmp(input_type, rotate) == 0){
         if( strcmp(input_type, killaffine) == 0){
         free(input_type);
         return KILLAFFINE;
+        }
         if( strcmp(input_type, audio) == 0 ){
         free(input_type);
         return AUDIO;
+        }
         if( strcmp(input_type, audioobject) == 0 ){
         free(input_type);
         return AUDIOOBJECT;
         return VIDEO;
+        }
         if( strcmp(input_type,floodfill) == 0 || strcmp(input_type,fill) == 0 ){
         free(input_type);
         return FLOODFILL;
         }
         if( strcmp(input_type,filltoborder) == 0 ){
         free(input_type);
         return FILLTOBORDER;
         }
         if( strcmp(input_type,clickfill) == 0 ){
         free(input_type);
         return CLICKFILL;
         }
         if( strcmp(input_type, replyformat) == 0 ){
         free(input_type);
         return REPLYFORMAT;
+        }
         if( strcmp(input_type, pixelsize) == 0 ){
         return LEGENDCOLORS;
+        }
         if( strcmp(input_type, xlabel) == 0  ){
         free(input_type);
         return XLABEL;
         }
         if( strcmp(input_type, ylabel) == 0  ){
         free(input_type);
         return YLABEL;
+        }
         if( strcmp(input_type, animate) == 0  ){
+        }
         free(input_type);
         ungetc(c,infile);
         return 0;
+}

Subversion Repositories wimsdev

(root)/trunk/wims/src/Misc/canvasdraw/canvasdraw.c – Rev 7839 → 7842