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

 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,int reply_precision);
 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 slider = 0;/* slider=1 : x-values ; slider=2 : y-values;slider=3 angle values */
 int use_affine = FALSE;
 int use_rotate = FALSE;
     int dashtype[2] = { 4 , 4 };
     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; /* 1 = found size ; 2 = found xrange; 3 = found yrange*/
     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*/
     int barchart_cnt = 0; /* identifier for command 'barchart' ; multiple charts may be plotted in a single plot*/
     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 == 0){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><li> all draggable objects may have a slider for translation / rotation; several objects may be translated / rotated by a single slider</li> <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();The replyformat is : object_number : x-orig : y-orig : x-drag : y-drag<br />The x-orig/y-orig will be returned in maximum precision (javascript float)...<br />the x-drag/y-drag will be returned in defined 'precision' number of decimals<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.</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;margin-left:auto;margin-right:auto;\" ></div><div id=\"tooltip_placeholder_div%d\" style=\"display:block;margin-bottom:4px;\"><span id=\"tooltip_placeholder%d\" style=\"display:none;\"></span></div>\n",canvas_root_id,xsize,ysize,canvas_root_id,canvas_root_id);
 fprintf(stdout,"<!-- include actual object code via include file -->\n<script type=\"text/javascript\" src=\"%s\"></script>\n",getfile_cmd);
 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;
         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,%d,%d));\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,slider,slider_cnt);
                 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 */
                     case 2: 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,2,[%.*f],[%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s,%d,%d));\n",click_cnt,onclick,drag_type,decimals,double_data[0],decimals,double_data[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,slider,slider_cnt);
                     click_cnt++;break;
                     default: break;
                 }
+            }
             reset();
             break;
         case POINTS:
         /*
             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,2,[%.*f],[%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s,%d,%d));\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,slider,slider_cnt);
                 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
                     case 3:double_data[3] = get_real(infile,0);break; /* y-values */
                     case 4:int_data[0] = (int) (get_real(infile,0));break; /* radius value in pixels */
                     case 5:stroke_color = get_color(infile,1);/* name or hex color */
                         /* ensure no inverted roundrect is produced... */
                         if( double_data[0] > double_data[2] ){double_data[4] = double_data[0];double_data[0] = double_data[2];double_data[2] = double_data[4];}
                         if( double_data[3] > double_data[1] ){double_data[4] = double_data[1];double_data[1] = double_data[3];double_data[3] = double_data[4];}
                         decimals = find_number_of_digits(precision);
                         fprintf(js_include_file,"dragstuff.addShape(new Shape(%d,%d,%d,6,[%.*f,%.*f],[%.*f,%.*f],[%d,%d],[%d,%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s,%d,%d));\n",click_cnt,onclick,drag_type,decimals,double_data[0],decimals,double_data[2],decimals,double_data[1],decimals,double_data[3],int_data[0],int_data[0],int_data[0],int_data[0],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,slider,slider_cnt);
                         click_cnt++;reset();
                     break;
+                }
             /* 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,%d,%d));\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,slider,slider_cnt);
                 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
          @ will not zoom in or zoom out (because radius is given in pixels an not in x/y-system !). Panning will work
                     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,%d,%d));\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,slider,slider_cnt);
                         reset();
                     break;
+                }
+            }
             break;
         case ANGLE:
         /*
          @ angle xc,yc,width,start_angle,end_angle,color
          @ width is in x-range
          @ will zoom in/out
          @ if size is controlled by command 'slider' use radians to set limits of slider.
         */
             for(i=0;i<7;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; /* width in pixels ! */
                     case 3:double_data[3] = get_real(infile,0);break; /* start angle in degrees */
                     case 4:double_data[4] = get_real(infile,0);break; /* end angle in degrees */
                     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,17,[%.*f,%.*f],[%.*f,%.*f],[%.*f,%.*f],[%.*f,%.*f],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%d,%s,%d,%d));\n",click_cnt,onclick,drag_type,decimals,double_data[0],decimals,double_data[0],decimals,double_data[1],decimals,double_data[1],decimals,double_data[2],decimals,double_data[2],decimals,double_data[3],decimals,double_data[4],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,slider,slider_cnt);
                         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,%d,%d));\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,slider,slider_cnt);
                         click_cnt++;reset();
                     break;
         /*
         @ 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 */
+                {
                     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,%d,%d));\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,slider,slider_cnt);
+            }
             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,%d,%d));\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,slider,slider_cnt);
                         click_cnt++;
                         reset();
                         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
                         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*/
          @ textarea and inputfield are only usable in combination with some 'userdraw draw_ type'
          @ function may be used any time (e.g. without userdraw)
         */
             temp = get_string_argument(infile,1);
             if(strstr(temp,"function") != 0  || strstr(temp,"curve") != 0  || strstr(temp,"plot") != 0 ){
              if( js_function[DRAW_JSFUNCTION] != 1 ){
               js_function[DRAW_JSFUNCTION] = 1;
               if(reply_format == 0){reply_format = 24;}/* read canvas_input values */
               add_input_jsfunction(js_include_file,canvas_root_id,1,input_style,input_cnt,stroke_color,stroke_opacity,line_width,use_dashed,dashtype[0],dashtype[1]);
               input_cnt++;
+             }
+            }
             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)
         @ user drawings will not zoom on zooming (or pan on panning)
         */
             if( use_input_xy != 0 ){canvas_error("usertextarea_xy can not be combined with userinput_xy command");}
             if( use_safe_eval == FALSE){use_safe_eval = TRUE;add_safe_eval(js_include_file);} /* just once */
             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)
         */
             /* add simple eval check to avoid code injection with unprotected eval(string) */
             if( use_input_xy != 0 ){canvas_error("userinput_xy can not be combined with usertextarea_xy command");}
             if( use_safe_eval == FALSE){use_safe_eval = TRUE;add_safe_eval(js_include_file);} /* just once */
             use_input_xy = 1;
             break;
         @ the userinput value will be plotted in the canvas
         @ this value may be read with 'read_canvas()'. <br />for do it yourself js-scripters : If this is the first inputfield in the script, it's id is canvas_input0
         @ use before this command 'userinput_function',<br />commands like 'inputstyle some_css' , 'xlabel some_description' , 'opacity int,int' , 'linewidth int' , 'dashed' and 'dashtype int,int' to modify
         @ incompatible with command 'intooltip link_text_or_image' : it uses the tooltip div for adding the inputfield
         */
             if( js_function[DRAW_JSFUNCTION] != 1 ){
              js_function[DRAW_JSFUNCTION] = 1;
              if(reply_format == 0){reply_format = 24;}/* read canvas_input values */
              add_input_jsfunction(js_include_file,canvas_root_id,1,input_style,input_cnt,stroke_color,stroke_opacity,line_width,use_dashed,dashtype[0],dashtype[1]);
              input_cnt++;
+            }
             if( use_js_math == FALSE){/* add this stuff only once...*/
              add_to_js_math(js_include_file);
              use_js_math = TRUE;
             }
             if( use_js_plot == FALSE){
              use_js_plot = TRUE;
              add_jsplot(js_include_file,canvas_root_id); /* this plots the function on JSPLOT_CANVAS */
+            }
             break;
         case USERDRAW:
         /*
         @ 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>vline</li><li>vlines</li><li>hline</li><li>hlines</li><li>segment</li><li>segments</li><li>polyline</li><li>circle</li><li>circles</li><li>arrow</li><li>arrow2 (double arrow)</li><li>arrows</li><li>arrows2 (double 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><li>arc</li><li>arcs</li><li>input<br/>place a single inputfield on 'canvas'<br />use commands 'inputstyle' for css styling: use command 'linewidth' for adjusting the input field size (default 1)</li><li>inputs<br/>place multiple inputfield : placing inputfields on top of each other is not possible</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 !!");
+            }
             draw_type = get_string_argument(infile,0);
             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 == 0 ){reply_format = 8;}
                 /* 7 = x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n in x/y-range */
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
                 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);
+            }
             if( strcmp(draw_type,"points") == 0 ){
                 if( js_function[DRAW_CIRCLES] != 1 ){ js_function[DRAW_CIRCLES] = 1;}
                 if(reply_format == 0 ){reply_format = 8;}
                 /* 7 = x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n in x/y-range */
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
                 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);
+            }
             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 == 0){reply_format = 11;}
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
                 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]);
+            }
             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 == 0){reply_format = 11;}
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
                 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 == 0){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 == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
                 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 == 0){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 == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
                 if(use_input_xy == 1){
                     add_input_circle(js_include_file,2,2);
                     add_input_xyr(js_include_file,canvas_root_id);
+                }
+            }
             else
                 if( js_function[DRAW_CROSSHAIRS] != 1 ){ js_function[DRAW_CROSSHAIRS] = 1;}
                 if(reply_format == 0){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 == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
                 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 == 0){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 == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
                 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 == 0){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 !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_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 == 0){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 !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_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 == 0){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 !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_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 == 0){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 !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_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 == 0){reply_format = 11;}
                 add_js_arrows(js_include_file,2,draw_type,line_width,1,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);
+                }
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
+            }
             else
             if(strcmp(draw_type,"arrows2") == 0 ){
                 if( js_function[DRAW_ARROWS] != 1 ){ js_function[DRAW_ARROWS] = 1;}
                 if(reply_format == 0){reply_format = 11;}
                 add_js_arrows(js_include_file,2,draw_type,line_width,2,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);
+                }
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
+            }
             else
             if(strcmp(draw_type,"arrow2") == 0 ){
                 if( js_function[DRAW_ARROWS] != 1 ){ js_function[DRAW_ARROWS] = 1;}
                 if(reply_format == 0){reply_format = 11;}
                 add_js_arrows(js_include_file,1,draw_type,line_width,2,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);
                 }
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
             }
             else
             if(strcmp(draw_type,"arrow") == 0 ){
                 if( js_function[DRAW_ARROWS] != 1 ){ js_function[DRAW_ARROWS] = 1;}
                 if(reply_format == 0){reply_format = 11;}
                 add_js_arrows(js_include_file,1,draw_type,line_width,1,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);
                 }
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
             }
             else
             if(strcmp(draw_type,"polygon") == 0){
                 if( js_function[DRAW_PATHS] != 1 ){ js_function[DRAW_PATHS] = 1;}
                 if(reply_format == 0){reply_format = 2;}
                 add_js_poly(js_include_file,-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 == 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 == 0){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 !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_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 == 0){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 !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
+            }
             else
             if( strcmp(draw_type,"hline") == 0 ){
                 if( js_function[DRAW_LINES] != 1 ){ js_function[DRAW_LINES] = 1;}
                 if(reply_format == 0){reply_format = 11;}
                 add_js_hlines(js_include_file,1,draw_type,line_width,stroke_color,stroke_opacity,use_dashed,dashtype[0],dashtype[1]);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
                 if(reply_format == 0){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 !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_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 == 0){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 !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_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 == 0){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 !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_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 == 0){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 !");}
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_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 == 0){reply_format = 17;}
                 add_js_text(js_include_file,canvas_root_id,font_size,font_family,font_color,stroke_opacity);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
+            }
             else
             if( strcmp(draw_type,"inputs") == 0){
                 if( js_function[DRAW_INPUTS] != 1 ){ js_function[DRAW_INPUTS] = 1;}
                 if(reply_format == 0){reply_format = 27;}
                 add_js_inputs(js_include_file,canvas_root_id,2,input_cnt,input_style,line_width);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
+            }
             else
             if( strcmp(draw_type,"input") == 0){
                 if( js_function[DRAW_INPUTS] != 1 ){ js_function[DRAW_INPUTS] = 1;}
                 if(reply_format == 0){reply_format = 27;}
                 add_js_inputs(js_include_file,canvas_root_id,1,input_cnt,input_style,line_width);
                 if(use_input_xy == 1){ canvas_error("userinput_xy not yet implemented for this userdraw type !");}
                 if(use_input_xy == 2){ canvas_error("usertextarea_xy not yet implemented for this userdraw type !");}
+            }
         case TRACE_JSCURVE:
         /*
          @trace_jscurve some_math_function
          @will use a crosshair to trace the jsmath curve
          @two inputfields will display the current x/y-values (numerical evaluation by javascript)
          @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.
          @the client browser will convert your math function to javascript math.<br />use parenthesis and rawmath : use 2*x in stead of 2x etc etc<br />no check is done on the validity of your function and/or syntax<br />use error console to debug any errors...
         */
             if( js_function[DRAW_CROSSHAIRS] != 1 ){ js_function[DRAW_CROSSHAIRS] = 1;}
             if( js_function[DRAW_LINES] != 1 ){ js_function[DRAW_LINES] = 1;}
             break;
         case JSMATH:
         /*
             @jsmath some_math_function
             @will calculate an y-value from a userinput x-value and draws a crosshair 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 sin(x^2)
             @the client browser will convert your math function to javascript math.<br />use parenthesis and rawmath : use 2*x in stead of 2x etc etc<br />no check is done on the validity of your function and/or syntax<br />use error console to debug any errors...
         */
             if( js_function[DRAW_CROSSHAIRS] != 1 ){ js_function[DRAW_CROSSHAIRS] = 1;}
             if( use_js_math == FALSE){
                 add_to_js_math(js_include_file);
                 use_js_math = TRUE;
+            }
             add_calc_y(js_include_file,canvas_root_id,get_string(infile,1));
             break;
         case JSCURVE:
         /*
          @jscurve color,formula(x)
          @your function will be plotted by the javascript engine of the client browser.
          @use only basic math in your curve:<br /> sqrt,^,asin,acos,atan,log,pi,abs,sin,cos,tan,e
          @no validity check is done by wims.
          @zooming & panning are implemented :<br />use command 'zoom color' for mouse driven zooming<br />or use keyword 'setlimits' for inputfields setting xmin/xmax, ymin/ymax
          @use command 'trace_jscurve formula(x)` for tracing
          @use commmand 'jsmath  formula(x)` for calculating and displaying indiviual points on the curve
          @can not be set draggable / onclick (yet)
          @commands plotjump / plotstep are not active for 'jscurve'
         */
             stroke_color = get_color(infile,0);
             if( use_js_math == FALSE){/* add this stuff only once...*/
                 add_to_js_math(js_include_file);
                 use_js_math = TRUE;
+            }
             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,%d,%d));\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,slider,slider_cnt);
                 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 these keywords
         @ may be set "onclick" or "drag xy"
         @ backwards compatible with flydraw
         @ unicode supported: text red,0,0,huge,\\u2232
         @ use command 'string' combined with '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 reset 'fontfamily' to something lke 'fontfamily Ariel' before the old flydraw commands.
+                            }
                             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);
+                                        }
+                                        }
+                                    }
+                                }
+                            }
                             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,%f,\"%s\",%d,\"%s\",%d,%s,%d,%d));\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,use_rotate,angle,temp,font_size,font_family,use_affine,affine_matrix,slider,slider_cnt);
                         click_cnt++;reset();break;
                     default:break;
+            }
             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 reset '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,%s);\n",STATIC_CANVAS,int_data[0],int_data[1],font_size,font_family,font_color,stroke_opacity,temp,use_rotate,angle,use_affine,affine_matrix);
                     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,%s);\n",STATIC_CANVAS,int_data[0],int_data[1],font_size,font_family,font_color,stroke_opacity,temp,use_rotate,angle,use_affine,affine_matrix);
          @ 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*/
                     default:break;
+                }
+            }
             break;
         case CENTERSTRING:
         /*
          @ centerstring color,y-value,the text string
          @ title color,y-value,the text string
          @ draw a string centered on the canvas at y = y-value
          @ can not set "onclick" or "drag xy" (...)
          @ unicode supported: centerstring red,5,\\u2232
          @ use a command like 'fontfamily italic 24px Ariel' <br />to set fonts on browser that support font change
         */
             if( js_function[DRAW_CENTERSTRING] != 1 ){ js_function[DRAW_CENTERSTRING] = 1;}
             for(i=0;i<3;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; /* y in xrange*/
                     default:break;
+                }
+            }
             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 == 0 ){reply_format = 16;} /* no other reply type is defined */
+                            }
                             break;
                     default:break;
                 }
             }
             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:
         /*
             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 arguments required
         */
             use_axis_numbering = 1;
             break;
         case AXIS:
         /*
             @ axis
             @ keyword, no arguments required
         */
             use_axis = TRUE;
             break;
         case KILLSLIDER:
         /*
          @ killslider
+                     }
                      else
+                     {
                       if(strstr(temp,"y") != 0){
                        slider = 2;
                       }
                       else
+                      {
                        if(strstr(temp,"angle") != 0){ /* angle diplay radian */
                         slider = 3;
+                       }
                        else
+                       {
                         canvas_error("slider types may be : x , y , xy , angle");
+                       }
                       }
                      }
                     }
                     if(strstr(temp,"display")!=0){
                      use_slider_display = 1; /* show x xy values in canvas window */
+                    }
                     else
+                    {
                     slider_cnt++;
                     if(slider == 4){
                      add_xyslider(js_include_file,canvas_root_id,double_data[0],double_data[1],int_data[0],int_data[1],slider,get_string_argument(infile,1),slider_cnt,stroke_color,fill_color,line_width,fill_opacity,font_family,font_color,use_slider_display );
                     }else{
                      add_slider(js_include_file,canvas_root_id,double_data[0],double_data[1],int_data[0],int_data[1],slider,get_string_argument(infile,1),slider_cnt,stroke_color,fill_color,line_width,fill_opacity,font_family,font_color,use_slider_display);
                     }
                     break;
                 }
              }
             break;
         case SGRAPH:
         /*
          @ sgraph xstart,ystart,xmajor,ymajor,xminor,yminor,majorgrid_color,minorgrid_color
          @ primitive implementation of a 'broken scale' graph...
          @ not very versatile: only usable in combination with userdraw <br />eg no other objects will obey this "coordinate system"<br />if you want to place an object into this coordinate system, be aware that 10% or 20% of xsize and/or ysize is 'lost'.<br />Use these "formulas" to recalculate the virtual coordinates:<br />factor=0.8 in case xstart != xmin (or ystart != ymin)<br />factor=0.9 in case xstart = xmin (or ystart = ymin)<br />px_x_point = ((factor*xsize)/(xmax - xstart))*(x_point - xmax)+xsize<br />x_recalculated = px*(xmax - xmin)/xsize + $xmin<br />px_y_point = -1*factor*y_point*ysize/(ymax - ystart) + ymax*factor*ysize/(ymax - ystart)<br />y_recalculated = ymax - py*(ymax - ymin)/ysize<br />
          @ 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
          @ b : Skews the drawings horizontally
          @ c : Skews the drawings vertically
          @ d : Scales the drawings vertically
          @ tx: Moves the drawings horizontally in xrange coordinate system
          @ ty: Moves the drawings vertically in yrange coordinate system
          @ the data precision is 2 decimals (printf : %2.f)
         */
             for(i = 0 ; i<6;i++){
                 switch(i){
                     case 0: double_data[0] = get_real(infile,0);break;
                     case 4: double_data[4] = get_real(infile,0);break;
                     case 5: double_data[5] = get_real(infile,1);
                         use_affine = TRUE;
                         string_length = snprintf(NULL,0,     "[%.2f,%.2f,%.2f,%.2f,%.2f,%.2f] ",double_data[0],double_data[1],double_data[2],double_data[3],double_data[4]*xsize/(xmax - xmin),-1*double_data[5]*ysize/(ymax - ymin));
                         check_string_length(string_length);affine_matrix = my_newmem(string_length+1);
                         snprintf(affine_matrix,string_length,"[%.2f,%.2f,%.2f,%.2f,%.2f,%.2f] ",double_data[0],double_data[1],double_data[2],double_data[3],double_data[4]*xsize/(xmax - xmin),-1*double_data[5]*ysize/(ymax - ymin));
                         break;
                     default: break;
+                }
+            }
         break;
         case KILLTRANSLATION:
         /*
          killtranslation
         */
             use_affine = FALSE;
             snprintf(affine_matrix,14,"[1,0,0,1,0,0]");
             break;
         case TRANSLATION:
         /*
          @translation tx,ty
          @will translate the next object tx in xrange and ty in yrange
         */
             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 == 0 ){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 */
         /*
          @clearbutton value
          @adds a button to clear the userdraw canvas with text 'value'
          @normally userdraw primitives have the option to use middle/right mouse button on<br /> a point of the object to remove this specific object...this clear button will remove all drawings
          @uses the tooltip placeholder div element: may not be used with command 'intooltip'
          @use command 'inputstyle' to style the button...
         */
             add_clear_button(js_include_file,canvas_root_id,input_style,get_string(infile,1));
         break;
         case INPUTSTYLE:
         /*
         @ 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();
          @ if "$status=done"  (e.g. in answer.phtml) the inputfield will be clearedand set readonly<br />Override this by keyword 'status'
          @ 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 == 0 ){reply_format = 15;}
             reset();
             break;
         case TEXTAREA:
         /*
          @ textarea x,y,cols,rows,readonly,value
          @ may be further controlled by "inputstyle"
          @ if "$status=done"  (e.g. in answer.phtml) the inputfield will be clearedand set readonly<br />Override this by keyword 'status'
          @ 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 */
                     default: break;
+                }
+            }
             if(reply_format == 0 ){reply_format = 15;}
             reset();
             break;
         case MOUSE_PRECISION:
         /*
             @ precision int
             @ 1 = no decimals ; 10 = 1 decimal ; 100 = 2 decimals etc
             @ may be used / changed before every object
         */
             precision = (int) (get_real(infile,1));
             if(precision < 1 ){precision = 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
             @use command xlabel / ylabel to change text from xmin to 'xlabel'min etc
             @note:the input value will not be checked on validity
         */
             if( use_safe_eval == FALSE){use_safe_eval = TRUE;add_safe_eval(js_include_file);} /* just once */
             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;
          @ 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: use command 'zoom' at the end of your script code (the same is true for commanmd 'mouse')
          @ 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();'
          @ the precision (default 2 decimals) in the student reply may be set with command 'precision'.<br />Use this 'precision' command before this command 'drag x|y|xy' !
          @ the answer is  : object_number : Xorg : Yorg : Xnew : Ynew<br />wherein object_number is the place of the draggable object in your script.<br />Only draggable object will have an object_number (e.g things like point,crosshair,line,segment,circle,rect,triangle...etc)
          @ use keywordd 'snaptogrid' , 'xsnaptogrid' or 'ysnaptogrid' to switch from free to discrete movement
          @ 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 MOUSE_DEGREE:
         /*
          @ mouse_degree color,fontsize
          @ will display the angle in degrees between x-axis, (0:0) and the cursor (x:y) in 'color' and 'font size'<br /> using default fontfamily Ariel
          @ The angle is positive in QI and QIII and the angle value is negative in QII and QIV
          @ NOTE: use command 'mouse' at the end of your script code (the same is true for command 'zoom')
         */
             stroke_color = get_color(infile,0);
             font_size = (int) (get_real(infile,1));
             tmp_buffer = my_newmem(26);
             break;
         case MOUSEX:
         /*
          @ mousex color,fontsize
          @ will display the cursor x-coordinate in 'color' and 'font size'<br /> using default fontfamily Ariel
          @ NOTE: use command 'mouse' at the end of your script code (the same is true for command 'zoom')
         */
             stroke_color = get_color(infile,0);
             font_size = (int) (get_real(infile,1));
             tmp_buffer = my_newmem(26);
             snprintf(tmp_buffer,25,"use_mouse_coordinates();\n");add_to_buffer(tmp_buffer);
             add_js_mouse(js_include_file,MOUSE_CANVAS,canvas_root_id,precision,stroke_color,font_size,stroke_opacity,0);
             break;
         case MOUSEY:
         /*
          @ mousey color,fontsize
          @ will display the cursor y-coordinate in 'color' and 'font size'<br /> using default fontfamily Ariel
          @ NOTE: use command 'mouse' at the end of your script code (the same is true for command 'zoom')
         */
             stroke_color = get_color(infile,0);
             font_size = (int) (get_real(infile,1));
             tmp_buffer = my_newmem(26);
             break;
         case MOUSE:
         /*
          @ mouse color,fontsize
          @ will display the cursor (x:y) coordinates  in 'color' and 'font size'<br /> using default fontfamily Ariel
          @ NOTE: use command 'mouse' at the end of your script code (the same is true for commanmd 'zoom')
         */
             stroke_color = get_color(infile,0);
             font_size = (int) (get_real(infile,1));
             tmp_buffer = my_newmem(26);
                     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);
         @ normal url : imagefill 80,80,http://adres/a/b/c/my_image.jpg
         @ if dx,dy is larger than the image, the whole image will be background to the next object.
         */
             if( js_function[DRAW_IMAGEFILL] != 1 ){ js_function[DRAW_IMAGEFILL] = 1;}
             for(i=0 ;i < 3 ; i++){
                 switch(i){
                     case 0:int_data[0] = (int) (get_real(infile,0));break;
                     case 1:int_data[1] = (int) (get_real(infile,0));break;
                     case 2: URL = get_string_argument(infile,1);
                             string_length = snprintf(NULL,0,  "draw_imagefill(%d,%d,%d,\"%s\",%d,%d);\n",STATIC_CANVAS,int_data[0],int_data[1],URL,xsize,ysize);
                             check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
             reset();
         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);
                            /* we need to set a timeout: the canvas is not yet draw in memory? when floodfill is called directly... */
                            string_length = snprintf(NULL,0,  "setTimeout(function(){filltoborder(%.*f,%.*f,[%s,%d],[%s,%d]);},1000);\n",decimals,double_data[0],decimals,double_data[1],bgcolor,(int) (fill_opacity/0.0039215),fill_color,(int) (fill_opacity/0.0039215));
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length+1);
                            snprintf(tmp_buffer,string_length,"setTimeout(function(){filltoborder(%.*f,%.*f,[%s,%d],[%s,%d]);},1000);\n",decimals,double_data[0],decimals,double_data[1],bgcolor,(int) (fill_opacity/0.0039215),fill_color,(int) (fill_opacity/0.0039215));
                            add_to_buffer(tmp_buffer);
                            break;
                     default:break;
                 }
             }
             reset();
         break;
         case FLOODFILL:
         /*
         @ floodfill x,y,color
         @ any other color or size of picture (borders of picture) will act as border to the bucket fill
         @ use this command  after all boundary objects are declared.
         @ Use command 'clickfill,color' for user click driven flood fill.
         @ NOTE: recognised colour boundaries are in the "drag canvas" e.g. only for objects that can be set draggable / clickable
         @ NOTE: floodfill 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++){
                 switch(i){
                     case 0:double_data[0] = get_real(infile,0);break;
                     case 1:double_data[1] = get_real(infile,0);break;
                     case 2:fill_color = get_color(infile,1);
         @ the coloured areas can be removed (changed to "bgcolor") by  middle / right mouse click <br />(if the click is in an 40x40 pixel area of the click coordinate that "painted" the area)
         @ the answer will be read as the (x:y) click coordinates per coloured area
         @ background color of main div may be set by using command "bgcolor color"
         @ may not be combined with command "userdraw"
         @ NOTE: recognised colour boundaries are in the "drag canvas" e.g. only for objects that can be set draggable / clickable
         */
          fill_color = get_color(infile,1);
          if(js_function[DRAW_FLOODFILL] != 1 ){/* use only once */
             js_function[DRAW_FLOODFILL] = 1;
             add_js_floodfill(js_include_file,canvas_root_id);
+         }
         break;
         case SETPIXEL:
         /*
         @ setpixel x,y,color
         @ A "point" with diameter 1 pixel centeres at (x:y) in xrange / yrange
         @ pixels can not be dragged or clicked
         @ "pixelsize = 1" may be changed by command "pixelsize int"
         */
             if( js_function[DRAW_PIXELS] != 1 ){ js_function[DRAW_PIXELS] = 1;}
             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  */
         break;
         case PIXELSIZE:
         /*
         @ pixelsize int
         @ in case you want to deviate from default pixelsize = 1...
         */
             pixelsize = (int) get_real(infile,1);
         break;
         case PIXELS:
         /*
         @ pixels color,x1,y1,x2,y2,x3,y3...
         case LEGENDCOLORS:
         /*
         @ legendcolors color1:color2:color3:...:color_n
         @ will be used to colour a legend: use this command after the legend command ! e.g.<br />legend test1:test2:test3<br />legendcolors blue:red:orange<br />
         @ 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'
         */
             if(legend_cnt == -1){canvas_error("use command \"legend\" before command \"legendcolors\" ! ");}
             temp = get_string(infile,1);
             if( strstr( temp,":") != 0 ){ temp = str_replace(temp,":","\",\""); }
             fprintf(js_include_file,"var legendcolors%d = [\"%s\"];",legend_cnt,temp);
             break;
         case LEGEND:
         /*
         @ legend string1:string2:string3....string_n
         @ will be used to create a legend for a graph
         @ also see command 'piechart'
         @ will use the same colors per default as used in the graphs : use command 'legendcolors' to override the default
         */
             temp = get_string(infile,1);
             if( strstr( temp,":") != 0 ){ temp = str_replace(temp,":","\",\""); }
             legend_cnt++; /* attention :starts with -1 : it will be used in piechart etc */
         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'];*/
         @ 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
         @ NOTE: your arguments are not checked by canvasdraw : use your javascript console in case of trouble...
         @ <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:
                         if(clock_cnt == 0 ){ /* set opacity's just once .... it should be a argument to clock() , for now it's OK */
                             fprintf(js_include_file,"var clock_bg_opacity = %.2f;var clock_fg_opacity = %.2f;",fill_opacity,stroke_opacity);
+                        }
                         temp = get_string(infile,1);
                         if( strstr( temp,",") != 0 ){ temp = str_replace(temp,",","\",\""); }
         @ radius in pixels
         @ data+color list: a colon separated list of raw data and corresponding colours<br />canvasdraw will not check validity of colornames...<br />in case of trouble look into javascript debugging of your browser
         @ 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...<br />use command 'fontfamily' to set the font of the legend.
         */
             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*/
         @alernative keyword: nostatus
         @used to override the effects of "status=done" in wims (answer.phtml)
         @affects inputfields / textarea's in canvasimage and all userdraw based commands
         @e.g.: if keyword 'status' is set, the pupil will be able to modify the canvas when the 'wims status variable' is set to 'done'
         */
             fprintf(js_include_file,"\nwims_status=\"waiting\";\n");
             break;
         case XLOGBASE:
         /*
         @ xlogbase number
          @ 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);
                         break;
                     default:break;
+                }
+            }
             break;
         case XYLOGSCALE:
          @ 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 */
   /* check if xrange / yrange was set explicit ... or use xmin=0 xmax=xsize ymin=0 ymax=ysize : Quadrant I */
   if( found_size_command == 1 ){
     fprintf(js_include_file,"var xmin = 0;var xmax = %d;var ymin = 0;var ymax = %d",xsize,ysize);
+  }
     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
         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 !!");}
         int g = (int) strtol(green, NULL, 16);
         int b = (int) strtol(blue,  NULL, 16);
         string = (char *)my_newmem(12);
         snprintf(string,11,"%d,%d,%d",r,g,b);
         return string;
     }
     else
+    {
         string = (char *)my_newmem(sizeof(temp));
         snprintf(string,sizeof(temp),"%s",temp);
         for( i = 0; i <= NUMBER_OF_COLORNAMES ; i++ ){
     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 */
 /* convert x/y coordinates to pixel */
 int x2px(double x){
  return x*xsize/(xmax - xmin) -  xsize*xmin/(xmax - xmin);
 }
 int y2px(double y){
  return -1*y*ysize/(ymax - ymin) + ymax*ysize/(ymax - ymin);
 }
 double px2x(int x){
  return (x*(xmax - xmin)/xsize + xmin);
 }
 double px2y(int y){
  return (y*(ymax - ymin)/ysize + ymin);
 }
 void add_to_buffer(char *tmp){
  if( tmp == NULL || tmp == 0 ){ canvas_error("nothing to add_to_buffer()...");}
  /*  do we have enough space left in buffer[MAX_BUFFER] ? */
  int space_left = (int) (sizeof(buffer) - strlen(buffer));
  if( space_left > strlen(tmp)){
  if(use_dashed == TRUE){use_dashed = FALSE;}
  if(use_rotate == TRUE){use_rotate = FALSE;}
    onclick = 0;
+}
 /* What reply format in read_canvas();
 note:if userdraw is combined with inputfields...every "userdraw" based answer will append "\n" and  inputfield.value()
 = x1,x2,x3,x4....x_n
     y1,y2,y3,y4....y_n
     x/y in pixels
 = x1,x2,x3,x4....x_n
     y1,y2,y3,y4....y_n
     x/y in  xrange / yrange coordinate system
 = 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
     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  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: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  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
 = 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
 = read all inputfield values: even those set 'readonly'
 = return all userdrawn arcs in degrees:
 = return all userdrawn arcs in radians:
 = return (only) userdraw inputfields array: x1:y1:text1,x2:y2:text2...
 */
 void add_read_canvas(int type_reply,int reply_precision){
   };\
  };\
 };",reply_precision);
 switch(type_reply){
 /*
 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\
 read_canvas = function(){\
  if( userdraw_x.length == 0){alert(\"nothing drawn...\");return;}\
  set_reply_precision();\
  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 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;\
-  }\
- };\
-};\n\
-<!-- end function 1 read_canvas() -->");
-    break;
-    case 2: fprintf(js_include_file,"\
-\n<!-- begin function 2 read_canvas() -->\n\
-read_canvas = function(){\
- if( userdraw_x.length == 0){alert(\"nothing drawn...\");return;}\
- set_reply_precision();\
- var reply_x = new Array();var reply_y = new Array();var p = 0;\
- var prec = %d;\
- while(userdraw_x[p]){\
-  reply_x[p] = (Math.round(prec*(px2x(userdraw_x[p]))))/prec;\
-  reply_y[p] = (Math.round(prec*(px2y(userdraw_y[p]))))/prec;\
-  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\")){\
     };\
     t++;\
    };\
   };\
   if( typeof userdraw_text != 'undefined' ){\
-   return reply_x+\"\\n\"+reply_y+\"\\n\"+input_reply+\"\\n\"+userdraw_text;\
+   return userdraw_x+\"\\n\"+userdraw_y+\"\\n\"+input_reply + \"\\n\"+userdraw_text;\
   }\
   else\
   {\
-   return reply_x+\"\\n\"+reply_y+\"\\n\"+input_reply;\
+   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;\
+  }\
+ };\
+};\n\
+<!-- end function 1 read_canvas() -->");
+    break;
+    case 2: fprintf(js_include_file,"\
+\n<!-- begin function 2 read_canvas() -->\n\
+read_canvas = function(){\
+ if( userdraw_x.length == 0){alert(\"nothing drawn...\");return;}\
+ set_reply_precision();\
+ var reply_x = new Array();var reply_y = new Array();var p = 0;\
+ var prec = %d;\
+ while(userdraw_x[p]){\
+  reply_x[p] = (Math.round(prec*(px2x(userdraw_x[p]))))/prec;\
+  reply_y[p] = (Math.round(prec*(px2y(userdraw_y[p]))))/prec;\
+  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\
   {\
    return reply_x+\"\\n\"+reply_y;\
   };\
     break;
     case 3: fprintf(js_include_file,"\
 \n<!-- begin function 3 read_canvas() -->\n\
 read_canvas = function(){\
  if( userdraw_x.length == 0){alert(\"nothing drawn...\");return;}\
  set_reply_precision();\
  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 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\
   {\
    return userdraw_x+\"\\n\"+userdraw_y+\"\\n\"+userdraw_radius;\
   }\
  }\
 };\n\
   }\
  };\
 };\n\
 <!-- end function 4 read_canvas() -->",reply_precision);
     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\
 read_canvas = function(){\
  set_reply_precision();\
  var p = 0;\
  var reply = \"\";\
  for(p = 0; p < userdraw_x.length;p++){\
   if(userdraw_x[p] != null ){\
    reply = reply + userdraw_x[p]+\"\\n\"+userdraw_y[p]+\"\\n\";\
   };\
  };\
  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\
   }\
  };\
 };\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\
 read_canvas = function(){\
  var p = 0;\
    reply = reply + tmp_x + \"\\n\" + tmp_y +\"\\n\";\
   };\
  };\
  if(p == 0){alert(\"nothing drawn...\");return;};\
  userdraw_x = [];userdraw_y = [];\
  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\
  set_reply_precision();\
  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;\
   }\
  };\
 };\n\
 <!-- end function 7 read_canvas() -->");
     break;
     case 8: fprintf(js_include_file,"\
 \n<!-- begin function 8 read_canvas() -->\n\
 read_canvas = function(){\
  var reply = new Array();\
  var p = 0;\
  var prec = %d;\
- while(userdraw_x[p]){\
-  reply[p] = (Math.round(prec*(px2x(userdraw_x[p]))))/prec +\":\" + (Math.round(prec*(px2y(userdraw_y[p]))))/prec;\
-  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;\
-  }\
- };\
-};\n\
-<!-- end function 8 read_canvas() -->",reply_precision);
-    break;
-    case 9: fprintf(js_include_file,"\
-\n<!-- begin function 9 read_canvas() -->\n\
-read_canvas = function(){\
- set_reply_precision();\
- var reply = new Array();\
- var p = 0;\
  while(userdraw_x[p]){\
-  reply[p] = userdraw_x[p] +\":\" + userdraw_y[p] + \":\" + userdraw_radius[p];\
+  reply[p] = (Math.round(prec*(px2x(userdraw_x[p]))))/prec +\":\" + (Math.round(prec*(px2y(userdraw_y[p]))))/prec;\
   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;\
+  }\
+ };\
+};\n\
+<!-- end function 8 read_canvas() -->",reply_precision);
+    break;
+    case 9: fprintf(js_include_file,"\
+\n<!-- begin function 9 read_canvas() -->\n\
+read_canvas = function(){\
+ set_reply_precision();\
+ 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\")){\
  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++;\
    };\
   };\
   if( typeof userdraw_text != 'undefined' ){\
    return reply +\"\\n\"+input_reply+\"\\n\"+userdraw_text;\
   }\
   else\
   {\
    return reply +\"\\n\"+input_reply;\
   }\
  for(var p = 0 ; p < lu ; p++){\
    reply[p] = (Math.round(prec*(px2x(userdraw_x[p]))))/prec+\":\"+(Math.round(prec*(px2y(userdraw_y[p]))))/prec+\":\"+ document.getElementById(\"canvas_input\"+p).value;\
  };\
  return reply;\
 };\n\
 <!-- end function 27 read_canvas() -->",reply_precision);
     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++){
   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_GRIDFILL:/* not used for userdraw */
 fprintf(js_include_file,"\n<!-- draw gridfill -->\n\
 var 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;\
  snap_x = dx;snap_y = dy;\
  ctx.save();\
  ctx.strokeStyle=\"rgba(\"+color+\",\"+opacity+\")\";\
  for( x = x0 ; x < xsize+dx ; x = x + dx ){\
     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\
 var 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();\
  };\
  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\
 var draw_dotfill = function(canvas_type,x0,y0,dx,dy,radius,color,opacity,xsize,ysize){\
  var obj;\
  if( document.getElementById(\"wims_canvas%d\"+canvas_type) ){\
   }\
  }\
  ctx.fill();\
  ctx.restore();\
  return;};",canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_DIAMONDFILL:/* not used for userdraw */
 fprintf(js_include_file,"\n<!-- draw hatch fill -->\n\
 var 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);\
   ctx.lineTo(x0,y);\
   y = y + dy;\
  };\
  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\
 var 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) ){\
   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.stroke();\
  }\
  ctx.restore();\
  return;\
 };");
     break;
     case DRAW_POLYLINE:/* user for userdraw : draw lines through points */
 fprintf(js_include_file,"\n<!-- draw polyline -->\n\
 var draw_polyline = function(ctx,x_points,y_points,line_width,stroke_color,stroke_opacity,use_dashed,dashtype0,dashtype1,use_rotate,angle,use_affine,affine_matrix){\
  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\
 var draw_segments = function(ctx,x_points,y_points,line_width,stroke_color,stroke_opacity,use_dashed,dashtype0,dashtype1,use_rotate,angle,use_affine,affine_matrix){\
  ctx.save();\
  if(use_affine == 1 ){ctx.translate(affine_matrix[4],affine_matrix[5]);}\
  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){\
  for(var p = 0 ; p < x_points.length ; p++ ){\
   x1 = x_points[p] - crosshair_size;\
   x2 = x_points[p] + crosshair_size;\
   y1 = y_points[p] - crosshair_size;\
   y2 = y_points[p] + crosshair_size;\
   ctx.beginPath();\
   ctx.moveTo(x1,y1);\
   ctx.lineTo(x2,y2);\
   ctx.closePath();\
   ctx.stroke();\
   ctx.beginPath();\
   ctx.moveTo(x2,y1);\
   ctx.lineTo(x1,y2);\
   ctx.closePath();\
   ctx.stroke();\
  }\
  ctx.restore();\
   return;\
 };");
   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\
 var 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_affine,affine_matrix){\
  var obj;\
  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\
 var 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_affine,affine_matrix){\
  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\
 var 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\
 var 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.setAttribute(\"width\",w);\
  iframe.setAttribute(\"height\",h);\
  return;\
 };");
     break;
     case DRAW_XML:
 fprintf(js_include_file,"\n<!-- draw xml -->\n\
 var 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.moveTo(zero_x,zero_y);\
  ctx.lineTo(zero_x + 0.25*snor_x,zero_y - 0.1*snor_x);\
  ctx.lineTo(zero_x + 0.5*snor_x,zero_y + 0.1*snor_x);\
  ctx.lineTo(zero_x + 0.75*snor_x,zero_y - 0.1*snor_x);\
  ctx.lineTo(zero_x + snor_x,zero_y);\
  ctx.stroke();\
  ctx.closePath();\
  ctx.beginPath();\
  var num = xstart;\
  var flipflop = 1;\
  var step_x = xmajor*(xsize - zero_x - snor_x)/(xmax - xstart);\
  ctx.lineTo(p,ysize);\
 };\
 for(var p = zero_x ; p > 0; p = p - xstep){\
  ctx.moveTo(p,0);\
  ctx.lineTo(p,ysize);\
 };\
 for(var p = zero_y ; p < ysize; p = p + ystep){\
  ctx.moveTo(0,p);\
  ctx.lineTo(xsize,p);\
 };\
 for(var p = zero_y ; p > 0; p = p - ystep){\
 if( typeof xaxislabel !== 'undefined' ){\
  ctx.save();\
  ctx.font = \"italic \"+font_size+\"px Ariel\";\
  var corr =  ctx.measureText(xaxislabel).width;\
  ctx.fillText(xaxislabel,xsize - 1.5*corr,zero_y - tics_length - 0.4*font_size);\
  ctx.restore();\
 };\
 if( typeof yaxislabel !== 'undefined' ){\
  ctx.save();\
  ctx.font = \"italic \"+font_size+\"px Ariel\";\
  var corr =  ctx.measureText(yaxislabel).width;\
  ctx.translate(zero_x+tics_length + font_size,corr+font_size);\
  ctx.stroke();\
  ctx.closePath();\
  ctx.lineWidth = line_width+0.5;\
  ctx.beginPath();\
  for(var p = zero_x ; p < xsize; p = p + xstep){\
   ctx.moveTo(p,zero_y-tics_length);\
   ctx.lineTo(p,zero_y+tics_length);\
  };\
  for(var p = zero_x ; p > 0; p = p - xstep){\
   ctx.moveTo(p,zero_y-tics_length);\
   ctx.lineTo(p,zero_y+tics_length);\
  };\
  for(var p = zero_y ; p < ysize; p = p + ystep){\
   ctx.moveTo(zero_x-tics_length,p);\
   ctx.lineTo(zero_x+tics_length,p);\
  };\
  for(var p = zero_y ; p > 0; p = p - ystep){\
   ctx.moveTo(zero_x-tics_length,p);\
   ctx.lineTo(zero_x+tics_length,p);\
  };\
  for(var p = zero_x ; p < xsize; p = p + x2step){\
   ctx.moveTo(p,zero_y-0.5*tics_length);\
   ctx.lineTo(p,zero_y+0.5*tics_length);\
  };\
  for(var p = zero_x ; p > 0; p = p - x2step){\
   ctx.moveTo(p,zero_y-0.5*tics_length);\
   ctx.lineTo(p,zero_y+0.5*tics_length);\
  };\
  for(var p = zero_y ; p < ysize; p = p + y2step){\
   ctx.moveTo(zero_x-0.5*tics_length,p);\
   ctx.lineTo(zero_x+0.5*tics_length,p);\
  };\
  for(var p = zero_y ; p > 0; p = p - y2step){\
   ctx.moveTo(zero_x-0.5*tics_length,p);\
   ctx.lineTo(zero_x+0.5*tics_length,p);\
  };\
  ctx.stroke();\
  {\
   skip = 1;cnt = px2x(zero_x);\
   prec = Math.log(precision)/(Math.log(10));\
   var y_basis;if(f_y == 1){ y_basis = ysize }else{ y_basis = zero_y + 1.4*font_size;};\
   for( var p = zero_x ; p < xsize ; p = p+xstep){\
    if(skip == 0 ){\
     disp_cnt = cnt.toFixed(prec);\
     corr = ctx.measureText(disp_cnt).width;\
     skip = parseInt(1.2*corr/xstep);\
     ctx.fillText(disp_cnt,p-0.5*corr,y_basis);\
    }\
    else\
  ctx.restore();\
 };\
 return;\
 };",canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_PIECHART:
 fprintf(js_include_file,"\n<!-- draw piecharts -->\n\
 function draw_piechart(canvas_type,x_center,y_center,radius, data_color_list,fill_opacity,legend_cnt,font_family){\
  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 ld = data_color_list.length;\
  var sum = 0;\
  var idx = 0;\
  var font_size = parseInt(font_family.replace(/[^0-9\\.]+/g, \"\"));\
  var colors = new Array();\
  for(var p = 0;p < ld; p = p + 2){\
   data[idx] = parseFloat(data_color_list[p]);\
   sum = sum + data[idx];\
   colors[idx] = data_color_list[p+1];\
   idx++;\
  };\
  var ctx = obj.getContext(\"2d\");\
  ctx.save();\
  var angle;\
  var angle_end = 0;\
  var offset = Math.PI / 2;\
    y_offset = parseInt(y_offset + 1.5*font_size);\
   };\
  };\
  ctx.restore();\
 };",canvas_root_id,canvas_root_id,canvas_root_id);
     break;
     case DRAW_ARCS:
 fprintf(js_include_file,"\n<!-- draw arcs -->\n\
 var draw_arc = function(ctx,xc,yc,r,start,end,line_width,stroke_color,stroke_opacity,use_filled,fill_color,fill_opacity,use_dashed,dashtype0,dashtype1,use_rotate,angle,use_affine,affine_matrix){\
  ctx.save();\
   ctx.fill();\
  };\
  ctx.stroke();\
  ctx.restore();\
 };");
     break;
     case DRAW_CENTERSTRING:
 fprintf(js_include_file,"\n<!-- draw centerstring -->\n\
 var draw_centerstring = function(canvas_type,y,font_family,stroke_color,stroke_opacity,text){\
  var obj;\
    ctx.translate(x,y);\
    ctx.rotate((360-angle2)*(Math.PI / 180));\
    ctx.fillText(text,0,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\
  };\
  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\
 var 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(\"size\",size);\
 input.setAttribute(\"value\",value);\
 if( readonly == 0 || wims_status == \"done\" ){ input.setAttribute(\"readonly\",\"readonly\");if( wims_status == \"done\" ){input.setAttribute(\"value\",\"\");};};\
 canvas_div.appendChild(input);};");
     break;
     case DRAW_TEXTAREAS:
 fprintf(js_include_file,"\n<!-- draw text area inputfields -->\n\
 var 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(\"rows\",rows);\
 textarea.value = value;\
 if( readonly == 0 || wims_status == \"done\" ){ textarea.setAttribute(\"readonly\",\"readonly\");if( wims_status == \"done\" ){textarea.value=\"\";};};\
 canvas_div.appendChild(textarea);};");
     break;
 case DRAW_PIXELS:
 fprintf(js_include_file,"\n<!-- draw pixel -->\n\
 var 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, clearbutton) == 0){
         free(input_type);
         return CLEARBUTTON;
         }
         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){
         free(input_type);
         return ROTATE;
         }
         if( strcmp(input_type, affine) == 0){
         free(input_type);
         return AFFINE;
         }
         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;
+        }
         if( strcmp(input_type, slider) == 0 ){
         if( strcmp(input_type, ylogscale) == 0 ){
         free(input_type);
         return YLOGSCALE;
+        }
         if( strcmp(input_type, xylogscale) == 0 ){
         free(input_type);
         return XYLOGSCALE;
         }
         if( strcmp(input_type, ylogscale) == 0 ){
         free(input_type);
         return YLOGSCALE;
         }
         if( strcmp(input_type, xlogbase) == 0 ){
         free(input_type);
         return XLOGBASE;
         }
         if( strcmp(input_type, ylogbase) == 0 ){
         free(input_type);
         return YLOGBASE;
+        }
         if( strcmp(input_type, intooltip) == 0 ){
         free(input_type);
         return INTOOLTIP;
         }
         if( strcmp(input_type,video) == 0 ){
         free(input_type);
         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 ){

Subversion Repositories wimsdev

(root)/trunk/wims/src/Misc/canvasdraw/canvasdraw.c – Rev 8222 → 8224