Subversion Repositories wimsdev

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

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

void  add_to_buffer(char *tmp); /* add tmp_buffer to the buffer */

void  add_to_buffer(char *tmp); /* add tmp_buffer to the buffer */

void  sync_input(FILE *infile);/* proceed with inputfile */

void  sync_input(FILE *infile);/* proceed with inputfile */

void  reset();/* reset some global variables like "use_filled", "use_dashed" */

void  reset();/* reset some global variables like "use_filled", "use_dashed" */

int  get_token(FILE *infile); /* read next char until EOL*/

int  get_token(FILE *infile); /* read next char until EOL*/

double   px2x(int x);

double   px2x(int x);

double   px2y(int y);

double   px2y(int y);

double  get_real(FILE *infile,int last); /* read a value; calculation and symbols allowed */

double  get_real(FILE *infile,int last); /* read a value; calculation and symbols allowed */

char  *str_replace ( const char *word, const char *sub_word, const char *rep_word );

char  *str_replace ( const char *word, const char *sub_word, const char *rep_word );

char  *get_string(FILE *infile,int last); /* get the string at the end of a command */

char  *get_string(FILE *infile,int last); /* get the string at the end of a command */

char  *get_string_argument(FILE *infile,int last); /* the same, but with "comma" as  separator */

char  *get_string_argument(FILE *infile,int last); /* the same, but with "comma" as  separator */

int hypgeodaux(double *q, double* res, int full);

int hypgeodaux(double *q, double* res, int full);

char   *convert_hex2rgb(char *hexcolor);

char   *convert_hex2rgb(char *hexcolor);

void  make_js_include(int canvas_root_id);

void  make_js_include(int canvas_root_id);

              case 5: stroke_color = get_color(infile,1);/* name or hex color */

              case 5: stroke_color = get_color(infile,1);/* name or hex color */

                if(use_rotate == TRUE ){rotate(4,angle,rotationcenter,2);}

                if(use_rotate == TRUE ){rotate(4,angle,rotationcenter,2);}

                if(use_affine == TRUE ){ transform(4,2);}

                if(use_affine == TRUE ){ transform(4,2);}

                if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

                if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

                decimals = find_number_of_digits(precision);

                decimals = find_number_of_digits(precision);

                tmp_buffer=my_newmem(MAX_BUFFER);

                tmp_buffer=my_newmem(MAX_BUFFER);

                check_string_length(snprintf(tmp_buffer,MAX_BUFFER,"dragstuff.addShape(new Shape(%d,%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\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,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,my_sliders,rotation_center,use_offset));

                check_string_length(snprintf(tmp_buffer,MAX_BUFFER,"dragstuff.addShape(new Shape(%d,%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\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,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,my_sliders,rotation_center,use_offset));

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

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

          /* object_cnt++;*/

          /* object_cnt++;*/

                add_to_buffer(tmp_buffer);reset();

                add_to_buffer(tmp_buffer);reset();

                dragstuff[8] = 1;

                dragstuff[8] = 1;

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

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

              break;

              break;

          }

          }

          break;

          break;

        case ARROWS:

        case ARROWS:

  /*

  /*

  @ arrows color,head (px),x1,y1,x2,y2...x_n,y_n

  @ arrows color,head (px),x1,y1,x2,y2...x_n,y_n

            }

            }

          i++;

          i++;

          }

          }

          if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}

          if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}

          if( use_affine == TRUE ){ transform(i-1,2);}

          if( use_affine == TRUE ){ transform(i-1,2);}

            check_string_length(snprintf(tmp_buffer,MAX_BUFFER,"dragstuff.addShape(new Shape(%d,%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\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+1],decimals,double_data[c+3],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,my_sliders,rotation_center,use_offset));

            check_string_length(snprintf(tmp_buffer,MAX_BUFFER,"dragstuff.addShape(new Shape(%d,%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\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+1],decimals,double_data[c+3],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,my_sliders,rotation_center,use_offset));

            add_to_buffer(tmp_buffer);

            add_to_buffer(tmp_buffer);

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

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

          }

          }

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

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

                break;

                break;

              default: break;

              default: break;

            }

            }

          }

          }

          reset();

          reset();

        case BGCOLOR:

        case BGCOLOR:

  /*

  /*

  @ bgcolor colorname or #hex

  @ bgcolor colorname or #hex

  @ use this color as background of the "div" containing the canvas(es)

  @ use this color as background of the "div" containing the canvas(es)

  @%bgcolor%size 400,400%xrange -10,10%yrange -10,10%bgcolor lightblue

  @%bgcolor%size 400,400%xrange -10,10%yrange -10,10%bgcolor lightblue

  */

  */

          URL = get_string(infile,1);

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

          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;

          break;

        case BLINK:

        case BLINK:

  @ blink time(seconds)

  @ blink time(seconds)

  @ NOT IMPLEMETED -YET

  @ NOT IMPLEMETED -YET

  */

  */

          break;

          break;

        case BOXPLOT:

        case BOXPLOT:

          }

          }

          decimals = find_number_of_digits(precision);

          decimals = find_number_of_digits(precision);

          /*function draw_boxplot(canvas_type,xy,hw,cxy,data,line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,use_dashed,dashtype0,dashtype1)*/

          /*function draw_boxplot(canvas_type,xy,hw,cxy,data,line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,use_dashed,dashtype0,dashtype1)*/

          tmp_buffer=my_newmem(MAX_BUFFER);

          tmp_buffer=my_newmem(MAX_BUFFER);

          check_string_length(snprintf(tmp_buffer,MAX_BUFFER,"draw_boxplot(%d,%d,%.*f,%.*f,[%.*f,%.*f,%.*f,%.*f,%.*f],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d);\n",BOXPLOT_CANVAS+boxplot_cnt,int_data[0],decimals,double_data[0],decimals,double_data[1],decimals,double_data[2],decimals,double_data[3],decimals,double_data[4],decimals,double_data[5],decimals,double_data[6],line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1]));

          check_string_length(snprintf(tmp_buffer,MAX_BUFFER,"draw_boxplot(%d,%d,%.*f,%.*f,[%.*f,%.*f,%.*f,%.*f,%.*f],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d);\n",BOXPLOT_CANVAS+boxplot_cnt,int_data[0],decimals,double_data[0],decimals,double_data[1],decimals,double_data[2],decimals,double_data[3],decimals,double_data[4],decimals,double_data[5],decimals,double_data[6],line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1]));

          boxplot_cnt++;

          boxplot_cnt++;

          reset();

          reset();

          break;

          break;

        case BOXPLOTDATA:

        case BOXPLOTDATA:

  /*

  /*

              default:break;

              default:break;

            }

            }

          }

          }

          break;

          break;

        case CHEMTEX:

        case CHEMTEX:

  chemtex

  chemtex

  keyword...needs to be the first command in the script (even before the ''size`` command)

  keyword...needs to be the first command in the script (even before the ''size`` command)

  only for KaTeX enabled typesetting !

  only for KaTeX enabled typesetting !

  will include 80kB large js-library for chemisty typesetting

  will include 80kB large js-library for chemisty typesetting

  using <a href="http://85.148.206.56/wims/download/katex.for.wims.tar.gz">KaTeX</a> : <code>katex x,y,\\ce{ chemistry tex code} like : \\ce{ Hg^2+ ->[I-] HgI2 ->[I-] [Hg^{II}I4]^2- }</code>

  using <a href="http://85.148.206.56/wims/download/katex.for.wims.tar.gz">KaTeX</a> : <code>katex x,y,\\ce{ chemistry tex code} like : \\ce{ Hg^2+ ->[I-] HgI2 ->[I-] [Hg^{II}I4]^2- }</code>

  @ alternative: disk

  @ alternative: disk

  @ use command <code>fillcolor color</code> to set the fillcolor

  @ use command <code>fillcolor color</code> to set the fillcolor

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

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

  @ will shrink / expand on zoom out / zoom in

  @ will shrink / expand on zoom out / zoom in

  @%circle%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor lightblue%opacity 255,50%drag xy%circle 0,0,60,red%zoom red

  @%circle%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor lightblue%opacity 255,50%drag xy%circle 0,0,60,red%zoom red

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

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

            switch(i){

            switch(i){

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

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

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

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

              case 2: double_data[2] = px2x((get_real(infile,0))/2) - px2x(0);break; /* for zoom in/out: radius in 'dx' xrange*/

              case 2: double_data[2] = px2x((get_real(infile,0))/2) - px2x(0);break; /* for zoom in/out: radius in 'dx' xrange*/

              case 3: stroke_color = get_color(infile,1);/* name or hex color */

              case 3: stroke_color = get_color(infile,1);/* name or hex color */

                if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}

                if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}

                if(use_affine == TRUE ){ transform(2,2);}

                if(use_affine == TRUE ){ transform(2,2);}

                if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

                if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

                decimals = find_number_of_digits(precision);

                decimals = find_number_of_digits(precision);

                tmp_buffer=my_newmem(MAX_BUFFER);

                tmp_buffer=my_newmem(MAX_BUFFER);

                add_to_buffer(tmp_buffer);

                add_to_buffer(tmp_buffer);

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

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

                dragstuff[13] = 1;

                dragstuff[13] = 1;

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

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

                reset();

                reset();

  @%circles_drag%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor lightblue%opacity 255,50%drag xy%circles blue,0,0,2,2,2,3,-3,-3,3,3,3,4,3,-4,2%zoom red

  @%circles_drag%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor lightblue%opacity 255,50%drag xy%circles blue,0,0,2,2,2,3,-3,-3,3,3,3,4,3,-4,2%zoom red

  @%circles_onclick%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor lightblue%opacity 255,50%onclick%circles blue,0,0,2,2,2,3,-3,-3,3,3,3,4,3,-4,2%zoom red

  @%circles_onclick%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor lightblue%opacity 255,50%onclick%circles blue,0,0,2,2,2,3,-3,-3,3,3,3,4,3,-4,2%zoom red

  @%circles_drag_slider%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%drag xy%# Click circles(s) to activate%opacity 200,50%fillcolor orange%rotationcenter 2,3%slider 0,2*pi,300,30,angle degrees,Rotate%slider -5,5*pi,300,30,x display,move in x-direction%slider -10,10*pi,300,30,y display,move in y-direction%fcircles blue,0,0,0.5,2,2,1,-3,-3,1.5,3,3,0.5,3,-4,0.5

  @%circles_drag_slider%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%drag xy%# Click circles(s) to activate%opacity 200,50%fillcolor orange%rotationcenter 2,3%slider 0,2*pi,300,30,angle degrees,Rotate%slider -5,5*pi,300,30,x display,move in x-direction%slider -10,10*pi,300,30,y display,move in y-direction%fcircles blue,0,0,0.5,2,2,1,-3,-3,1.5,3,3,0.5,3,-4,0.5

  */

  */

          stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/

          stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/

          i=1;

          i=1;

          while( ! done ){     /* get next item until EOL*/

          while( ! done ){     /* get next item until EOL*/

            if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}

            if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}

            switch (i%3){

            switch (i%3){

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

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

          if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

          if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

          decimals = find_number_of_digits(precision);

          decimals = find_number_of_digits(precision);

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

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

            tmp_buffer=my_newmem(MAX_BUFFER);

            tmp_buffer=my_newmem(MAX_BUFFER);

            add_to_buffer(tmp_buffer);

            add_to_buffer(tmp_buffer);

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

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

          }

          }

          reset();

          reset();

          dragstuff[13] = 1;

          dragstuff[13] = 1;

y   The y coordinate where to place the image on the canvas: dy1 = int_data[5]

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]

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]

height   The height of the image to use (stretch or reduce the image): dy2 - dy1 = int_data[7]

*/

*/

        case COPYRESIZED:

        case COPYRESIZED:

  @ copyresized x1,y2,x2,y2,dx1,dy1,dx2,dy2,image_file_url

  @ copyresized x1,y2,x2,y2,dx1,dy1,dx2,dy2,image_file_url

  @ The image may be any "bitmap" or "SVG"

  @ The image may be any "bitmap" or "SVG"

  @ 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

  @ 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

  @ (dx1:dy1) must be left top corner; (dx2:dy2) must be right bottom corner of inserted image

  @ (dx1:dy1) must be left top corner; (dx2:dy2) must be right bottom corner of inserted image

  @ If x1=y1=x2=y2=-1, the whole [filename / URL ] is copied and resized.

  @ If x1=y1=x2=y2=-1, the whole [filename / URL ] is copied and resized.

            stroke_color = get_color(infile,0);

            stroke_color = get_color(infile,0);

            char *fun1 = get_string_argument(infile,1);

            char *fun1 = get_string_argument(infile,1);

            if( strlen(fun1) == 0 ){canvas_error("function is NOT OK !");}

            if( strlen(fun1) == 0 ){canvas_error("function is NOT OK !");}

            tmp_buffer=my_newmem(MAX_BUFFER);

            tmp_buffer=my_newmem(MAX_BUFFER);

            check_string_length(snprintf(tmp_buffer,MAX_BUFFER, "dragstuff.addShape(new Shape(%d,%d,%d,%d,9,%s,[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,eval(xsize,ysize,fun1,xmin,xmax,ymin,ymax,plot_steps,precision,rotationcenter),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,my_sliders,rotation_center,use_offset));

            check_string_length(snprintf(tmp_buffer,MAX_BUFFER, "dragstuff.addShape(new Shape(%d,%d,%d,%d,9,%s,[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,eval(xsize,ysize,fun1,xmin,xmax,ymin,ymax,plot_steps,precision,rotationcenter),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,my_sliders,rotation_center,use_offset));

          }

          }

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

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

          dragstuff[9] = 1;

          dragstuff[9] = 1;

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

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

          reset();

          reset();

  */

  */

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

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

            switch(i){

            switch(i){

              case 0 : dashtype[0] = (int) line_width*( get_real(infile,0)) ; break;

              case 0 : dashtype[0] = (int) line_width*( get_real(infile,0)) ; break;

              case 1 : dashtype[1] = (int) line_width*( get_real(infile,1)) ; break;

              case 1 : dashtype[1] = (int) line_width*( get_real(infile,1)) ; break;

          break;

          break;

        case DIAMONDFILL:

        case DIAMONDFILL:

  /*

  /*

  @ diamondfill x0,y0,dx,dy,color

  @ diamondfill x0,y0,dx,dy,color

  @ x0,y0 in xrange / yrange

  @ x0,y0 in xrange / yrange

          decimals = find_number_of_digits(precision);

          decimals = find_number_of_digits(precision);

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

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

            switch(i){

            switch(i){

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

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

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

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

              case 4: stroke_color = get_color(infile,1);

              case 4: stroke_color = get_color(infile,1);

                if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}

                if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}

                if(use_affine == TRUE ){ transform(2,2);}

                if(use_affine == TRUE ){ transform(2,2);}

              /* draw_diamondfill(ctx,x0,y0,dx,dy,linewidth,color,opacity,xsize,ysize) */

              /* draw_diamondfill(ctx,x0,y0,dx,dy,linewidth,color,opacity,xsize,ysize) */

                tmp_buffer=my_newmem(MAX_BUFFER);

                tmp_buffer=my_newmem(MAX_BUFFER);

  @%ellipses%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor orange%opacity 200,40%linewidth 3%onclick%ellipses red,-3,0,2,4,0,0,4,2,3,0,6,2

  @%ellipses%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor orange%opacity 200,40%linewidth 3%onclick%ellipses red,-3,0,2,4,0,0,4,2,3,0,6,2

  */

  */

          if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

          if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

          stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/

          stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/

          i=1;

          i=1;

          while( ! done ){     /* get next item until EOL*/

          while( ! done ){     /* get next item until EOL*/

            if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}

            if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}

            switch (i%4){

            switch (i%4){

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

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

          }

          }

          if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,4);}

          if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,4);}

          if(use_affine == TRUE ){ transform(i-1,4);}

          if(use_affine == TRUE ){ transform(i-1,4);}

          decimals = find_number_of_digits(precision);

          decimals = find_number_of_digits(precision);

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

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

            add_to_buffer(tmp_buffer);

            add_to_buffer(tmp_buffer);

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

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

          }

          }

          reset();

          reset();

          dragstuff[3] = 1;

          dragstuff[3] = 1;

          break;

          break;

        case FILLCOLOR:

        case FILLCOLOR:

  /*

  /*

  @ fillcolor colorname or #hex

  @ fillcolor colorname or #hex

  @ set the color: mainly used for command 'userdraw obj,stroke_color'

  @ set the color: mainly used for command 'userdraw obj,stroke_color'

  @ see <a href="#fillpattern">fillpattern</a> for non-solid color filling.

  @ see <a href="#fillpattern">fillpattern</a> for non-solid color filling.

  */

  */

          break;

          break;

        case FILLPATTERN:

        case FILLPATTERN:

  /*

  /*

  @ fillpattern grid | hatch | diamond | dot | image_url

  @ fillpattern grid | hatch | diamond | dot | image_url

  @ alternative: settile image_url

  @ alternative: settile image_url

              0,1   2,3

              0,1   2,3

          6,7      4,5

          6,7      4,5

          x = [0,2,4,6]

          x = [0,2,4,6]

          y = [1,3,5,7]

          y = [1,3,5,7]

          */

          */

                if(use_rotate == TRUE ){rotate(8,angle,rotationcenter,2);}

                if(use_rotate == TRUE ){rotate(8,angle,rotationcenter,2);}

                if(use_affine == TRUE ){ transform(8,2);}

                if(use_affine == TRUE ){ transform(8,2);}

                if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

                if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

                tmp_buffer=my_newmem(MAX_BUFFER);

                tmp_buffer=my_newmem(MAX_BUFFER);

                add_to_buffer(tmp_buffer);

                add_to_buffer(tmp_buffer);

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

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

                /* object_cnt++; */

                /* object_cnt++; */

                reset();

                reset();

                break;

                break;

        case RECTS:

        case RECTS:

  /*

  /*

  @ rects color,x1,y1,x2,y2,.....

  @ rects color,x1,y1,x2,y2,.....

  @ use command <code>frect color,x1,y1,x2,y2,.....</code> for a filled rectangle

  @ use command <code>frect color,x1,y1,x2,y2,.....</code> for a filled rectangle

  @ use command/keyword <a href='#filled'>filled</a> before command <code>rects color,x1,y1,x2,y2,....</code>

  @ use command/keyword <a href='#filled'>filled</a> before command <code>rects color,x1,y1,x2,y2,....</code>

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

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

  @%rects%size 400,400%xrange -10,10%yrange -10,10%rects red,0,0,4,-4,0,5,4,1

  @%rects%size 400,400%xrange -10,10%yrange -10,10%rects red,0,0,4,-4,0,5,4,1

  */

  */

      /* using closed PATH (type=5) in stead of ctx.rect (type=1)!!!

      /* using closed PATH (type=5) in stead of ctx.rect (type=1)!!!

      0,1   2,3 .....8,9  10,11.....

      0,1   2,3 .....8,9  10,11.....

  6,7      4,5 .....14,15  12,13.....

  6,7      4,5 .....14,15  12,13.....

  x = [0,2,4,6,8,10,12,14...]

  x = [0,2,4,6,8,10,12,14...]

  y = [1,3,5,7,9,11,13,15...]

  y = [1,3,5,7,9,11,13,15...]

      */

      */

          stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/

          stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/

          i=0;

          i=0;

          while( ! done ){     /* get next item until EOL*/

          while( ! done ){     /* get next item until EOL*/

            if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}

            if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}

            if(i%2 == 0 ){

            if(i%2 == 0 ){

              double_data[i] = get_real(infile,0); /* x */

              double_data[i] = get_real(infile,0); /* x */

          if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

          if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */

          decimals = find_number_of_digits(precision);

          decimals = find_number_of_digits(precision);

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

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

            tmp_buffer=my_newmem(MAX_BUFFER);

            tmp_buffer=my_newmem(MAX_BUFFER);

            add_to_buffer(tmp_buffer);

            add_to_buffer(tmp_buffer);

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

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

    /* object_cnt++; */

    /* object_cnt++; */

          }

          }

          dragstuff[5] = 1;

          dragstuff[5] = 1;

  @%roundrects%size 400,400%xrange -10,10%yrange -10,10%roundrects blue,5,0,0,4,-4,5,4,1,2

  @%roundrects%size 400,400%xrange -10,10%yrange -10,10%roundrects blue,5,0,0,4,-4,5,4,1,2

  */

  */

          stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/

          stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/

          int_data[0] = (int) (get_real(infile,0)); /* radius value in pixels */

          int_data[0] = (int) (get_real(infile,0)); /* radius value in pixels */

          i=0;

          i=0;

          while( ! done ){     /* get next item until EOL*/

          while( ! done ){     /* get next item until EOL*/

            if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}

            if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}

            if(i%2 == 0 ){

            if(i%2 == 0 ){

              double_data[i] = get_real(infile,0); /* x */

              double_data[i] = get_real(infile,0); /* x */

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

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

    /* ensure no inverted roundrect is produced... */

    /* ensure no inverted roundrect is produced... */

            if( double_data[c] > double_data[c+2] ){double_data[c+4] = double_data[c];double_data[c] = double_data[c+2];double_data[c+2] = double_data[c+4];}

            if( double_data[c] > double_data[c+2] ){double_data[c+4] = double_data[c];double_data[c] = double_data[c+2];double_data[c+2] = double_data[c+4];}

            if( double_data[c+3] > double_data[c+1] ){double_data[c+4] = double_data[c+1];double_data[c+1] = double_data[c+3];double_data[c+3] = double_data[c+4];}

            if( double_data[c+3] > double_data[c+1] ){double_data[c+4] = double_data[c+1];double_data[c+1] = double_data[c+3];double_data[c+3] = double_data[c+4];}

            tmp_buffer=my_newmem(MAX_BUFFER);

            tmp_buffer=my_newmem(MAX_BUFFER);

            add_to_buffer(tmp_buffer);

            add_to_buffer(tmp_buffer);

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

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

    /* object_cnt++; */

    /* object_cnt++; */

          }

          }

          dragstuff[6] = 1;

          dragstuff[6] = 1;

            tmp_buffer=my_newmem(MAX_BUFFER);

            tmp_buffer=my_newmem(MAX_BUFFER);

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

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

            add_to_buffer(tmp_buffer);

            add_to_buffer(tmp_buffer);

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

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

    /* object_cnt++;*/

    /* object_cnt++;*/

          dragstuff[4] = 1;

          dragstuff[4] = 1;

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

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

          break;

          break;

        case SETLIMITS:

        case SETLIMITS:

  /*

  /*

            int_data[c] = i; c++;

            int_data[c] = i; c++;

          }

          }

          my_sliders = data2js_array(int_data,use_slider - last_slider+1);

          my_sliders = data2js_array(int_data,use_slider - last_slider+1);

          break;

          break;

        case SGRAPH:

        case SGRAPH:

  @ sgraph xstart,ystart,xmajor,ymajor,xminor,yminor,majorgrid_color,minorgrid_color

  @ sgraph xstart,ystart,xmajor,ymajor,xminor,yminor,majorgrid_color,minorgrid_color

  @ primitive implementation of a ''broken scale`` graph...

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

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

  @%sgraph%size 400,400%xrange 0,10000%yrange 0,100%sgraph 9000,50,100,10,4,4,grey,blue%userinput_xy%linewidth 2%userdraw segments,red%precision 0%mouse blue,22

  @%sgraph%size 400,400%xrange 0,10000%yrange 0,100%sgraph 9000,50,100,10,4,4,grey,blue%userinput_xy%linewidth 2%userdraw segments,red%precision 0%mouse blue,22

  */

  */

              case 5: temp = get_string_argument(infile,1);

              case 5: temp = get_string_argument(infile,1);

                tmp_buffer=my_newmem(MAX_BUFFER);

                tmp_buffer=my_newmem(MAX_BUFFER);

                check_string_length(snprintf(tmp_buffer,MAX_BUFFER, "draw_textareas(%d,%d,%d,%d,%d,%d,%d,\"%s\",\"%s\");\n",canvas_root_id,input_cnt,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],css_class,temp));

                check_string_length(snprintf(tmp_buffer,MAX_BUFFER, "draw_textareas(%d,%d,%d,%d,%d,%d,%d,\"%s\",\"%s\");\n",canvas_root_id,input_cnt,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],css_class,temp));

                add_to_buffer(tmp_buffer);

                add_to_buffer(tmp_buffer);

                input_cnt++;break;

                input_cnt++;break;

            }

            }

          }

          }

          if(reply_format == 0 ){reply_format = 15;}

          if(reply_format == 0 ){reply_format = 15;}

          reset();

          reset();

          break;

          break;

        case TEXTFILL:

        case TEXTFILL:

  @ textfill x0,y0,color,some_text

  @ textfill x0,y0,color,some_text

  @ x0,y0 in xrange / yrange

  @ x0,y0 in xrange / yrange

  @ color will be used for the font color

  @ color will be used for the font color

  @ use command <a href="#fontfamily">fontfamily</a> to set font type and size

  @ use command <a href="#fontfamily">fontfamily</a> to set font type and size

  @ there is also a command <a href="#userdraw">userdraw textfill,color,some_text</a>

  @ there is also a command <a href="#userdraw">userdraw textfill,color,some_text</a>

            js_function[DRAW_FILLTOBORDER] = 1;

            js_function[DRAW_FILLTOBORDER] = 1;

            add_js_filltoborder(canvas_type);

            add_js_filltoborder(canvas_type);

          }

          }

          decimals = find_number_of_digits(precision);

          decimals = find_number_of_digits(precision);

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

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

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

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

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

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

              case 2: font_color = get_color(infile,0); break;

              case 2: font_color = get_color(infile,0); break;

              case 3: temp = get_string(infile,1);

              case 3: temp = get_string(infile,1);

                tmp_buffer=my_newmem(MAX_BUFFER);

                tmp_buffer=my_newmem(MAX_BUFFER);

                  fly_font_size = (int)(font_size + 24);

                  fly_font_size = (int)(font_size + 24);

                }

                }

                else {

                else {

                  if(strcmp(fly_font,"huge") == 0){

                  if(strcmp(fly_font,"huge") == 0){

                    fly_font_size = (int)(font_size + 14);

                    fly_font_size = (int)(font_size + 14);

                  else {

                  else {

                    if(strcmp(fly_font,"large") == 0){

                    if(strcmp(fly_font,"large") == 0){

                      fly_font_size = (int)(font_size + 6);

                      fly_font_size = (int)(font_size + 6);