Subversion Repositories wimsdev

Rev

Rev 16882 | Rev 16972 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
15111 schaersvoo 1
/*27/7/2013 version  0.01
7614 schaersvoo 2
"Inspired" by FLY program: http://martin.gleeson.com/fly
3
*********************************************************************************
4
* J.M. Evers 7/2013                                                             *
5
* This is all just amateur scriblings... So no copyrights.                      *
6
* This source code file, and compiled objects derived from it,                  *
7
* can be used and distributed without restriction, including for commercial use *
15111 schaersvoo 8
* No warrenty whatsoever                                                        *
7614 schaersvoo 9
*********************************************************************************
10
*/
15734 schaersvoo 11
#define VERSION         "0.5"
7848 bpr 12
#include "canvasdraw.h"
15348 bpr 13
void *tmp_buffer;
14
FILE    *js_include_file;
7614 schaersvoo 15
/******************************************************************************
16
**  Internal Functions
17
******************************************************************************/
18
void    add_to_buffer(char *tmp); /* add tmp_buffer to the buffer */
19
void    sync_input(FILE *infile);/* proceed with inputfile */
14078 bpr 20
void    reset();/* reset some global variables like "use_filled", "use_dashed" */
7614 schaersvoo 21
int     get_token(FILE *infile); /* read next char until EOL*/
8225 bpr 22
/*
7614 schaersvoo 23
int     x2px(double x);
24
int     y2px(double y);
8225 bpr 25
*/
15111 schaersvoo 26
double  px2x(int x);
27
double  px2y(int y);
7906 schaersvoo 28
double  get_real(FILE *infile,int last); /* read a value; calculation and symbols allowed */
7614 schaersvoo 29
char    *str_replace ( const char *word, const char *sub_word, const char *rep_word );
15111 schaersvoo 30
char    *get_color(FILE *infile,int last); /* read hex-color or colorname -> hex */
7906 schaersvoo 31
char    *get_string(FILE *infile,int last); /* get the string at the end of a command */
7614 schaersvoo 32
char    *get_string_argument(FILE *infile,int last); /* the same, but with "comma" as  separator */
15111 schaersvoo 33
char    *convert_hex2rgb(char *hexcolor);
7614 schaersvoo 34
void    make_js_include(int canvas_root_id);
35
void    check_string_length(int length);/* checks if the length of string argument of command is correct */
15111 schaersvoo 36
FILE    *js_include_file;
7614 schaersvoo 37
FILE    *get_file(int *line_number, char **filename);
15111 schaersvoo 38
FILE    *infile;    /* will be stdin */
7614 schaersvoo 39
/******************************************************************************
40
** global
41
******************************************************************************/
42
int finished = FALSE;/* main variable for signalling the end of the fly-script ; if finished = 1 ; write to stdout or canvasz */
43
int line_number = 1;/* used in canvas_error() ; keep track of line number in canvasdraw/fly - script */
44
/* set some variables to avoid trouble (NaN) in case of syntax and other usage errors */
45
int xsize = 320;
46
int ysize = 320;
47
double xmin = 0.0;
48
double xmax = 320.0;
49
double ymin = 0.0;
50
double ymax = 320.0;
11893 schaersvoo 51
double tmax = 0;
52
double tmin = 0;
7614 schaersvoo 53
/* flag to indicate parsing of line status */
8224 bpr 54
int done = FALSE;
7614 schaersvoo 55
int type; /* eg command number */
15111 schaersvoo 56
int onclick = 0;
57
/*
15116 bpr 58
 
59
1 = onclick ;
60
2 = draggable ;
61
3 = click+slideable ;
62
4 = slideable without click
15111 schaersvoo 63
5 = draggable + slideable
64
*/
14208 schaersvoo 65
char *slider_type="0";
15111 schaersvoo 66
char *my_sliders = "[-1]";
67
int use_slider = -1;
68
int last_slider = 0;
69
double double_data[MAX_INT+1];
70
int int_data[MAX_INT+1];
71
int dragstuff[MAX_DRAGSTUFF];
72
int js_function[MAX_JS_FUNCTIONS]; /* javascript functions include objects on demand basis: only once per object type */
73
double affine_matrix[] = {1,0,0,1,0,0};
7785 schaersvoo 74
int use_affine = FALSE;
7614 schaersvoo 75
int use_rotate = FALSE;
14078 bpr 76
int use_filled = 0; /* 0:no fill, 1:fill,2=grid?,3=hatch?,4=diamond?,5=dot?,6=image? */
77
int use_dashed = FALSE; /* dashing not natively supported in firefox, for now... */
15111 schaersvoo 78
double angle = 0.0;
7614 schaersvoo 79
char buffer[MAX_BUFFER];/* contains js-functions with arguments ... all other basic code is directly printed into js-include file */
9329 schaersvoo 80
char *getfile_cmd = "";
15111 schaersvoo 81
int reply_format = 0;
82
unsigned int canvas_root_id;
83
char *css_class;
84
int font_size;
85
char *draw_type;
86
int jsplot_cnt = -1;     /* keepint track on the curve identity */
87
int input_cnt = 0;
88
int dashtype[2] = { 4 , 4 }; /* just line_px and space_px: may have more arguments...if needed in future */
89
char *function_label = "[\"f(x)=\",\"g(x)=\",\"h(x)=\"]";
90
int drag_type = -1;/* 0,1,2: xy,x,y */
91
int use_offset = 0;/* use_offset only for text shape objects... 0=none;1=yoffset;2=xoffset;3=xyoffset;4=centered*/
92
int linegraph_cnt = 0; /* identifier for command 'linegraph' ; multiple line graphs may be plotted in a single plot*/
93
int barchart_cnt = 0; /* identifier for command 'barchart' ; multiple charts may be plotted in a single plot*/
94
int legend_cnt = -1; /* to allow multiple legends to be used, for multiple piecharts etc  */
95
int use_axis = FALSE;
96
int use_axis_numbering = -1;
97
int no_reset = FALSE;
98
 
7614 schaersvoo 99
/******************************************************************************
100
** Main Program
101
******************************************************************************/
102
int main(int argc, char *argv[]){
14066 bpr 103
    /* need unique id for every call to canvasdraw: rand(); is too slow...will result in many identical id's */
12104 schaersvoo 104
    struct timeval tv;struct timezone tz;gettimeofday(&tv, &tz);
15111 schaersvoo 105
    canvas_root_id = (unsigned int) tv.tv_usec;
7614 schaersvoo 106
    infile = stdin;/* read flyscript via stdin */
107
    int i,c;
15111 schaersvoo 108
    for(i=0;i<MAX_DRAGSTUFF;i++){dragstuff[i] = 0;}
7614 schaersvoo 109
    for(i=0;i<MAX_INT;i++){int_data[i]=0;double_data[i]=0;}
14066 bpr 110
    int use_snap = 0; /* 0 = none 1=grid: 2=x-grid: 3=y-grid: 4=snap to points */
8448 schaersvoo 111
    int print_drag_params_only_once = FALSE;/* avoid multiple useless identical lines about javascript precision and use_dragdrop */
7614 schaersvoo 112
    int line_width = 1;
113
    int decimals = 2;
15111 schaersvoo 114
    int use_dragstuff = 0;
8365 schaersvoo 115
    int precision = 100; /* 10 = 1;100=2;1000=3 decimal display for mouse coordinates or grid coordinate.May be redefined before every object */
15111 schaersvoo 116
    int use_userdraw = 0; /* 0=none,1=userdraw,2=multidraw flag to indicate user interaction */
9329 schaersvoo 117
    int use_tooltip = -1; /* 1= tooltip 2= popup window*/
15601 schaersvoo 118
    int use_parametric = FALSE;/* will be reset after parametric plotting */
7614 schaersvoo 119
    char *tooltip_text = "Click here";
120
    char *temp = ""; /* */
121
    char *bgcolor = "";/* used for background of canvas_div ; default is tranparent */
122
    char *stroke_color = "255,0,0";
14208 schaersvoo 123
    char *fill_color = "255,255,255";
15313 schaersvoo 124
    char *font_family = "12px Arial"; /* commands xaxistext,yaxistext,legend,text/textup/string/stringup may us this */
7614 schaersvoo 125
    char *font_color = "#00000";
15111 schaersvoo 126
    draw_type = "points";
7614 schaersvoo 127
    char *fly_font = "normal";
15111 schaersvoo 128
    css_class = "none";
7614 schaersvoo 129
    char *flytext = "";
11006 schaersvoo 130
    int canvas_type = DRAG_CANVAS; /* to use a specific canvas  for filling etc */
7614 schaersvoo 131
    int pixelsize = 1;
11763 schaersvoo 132
    int fill_cnt = 0;
15111 schaersvoo 133
    int use_zoom = 0;
15313 schaersvoo 134
    font_size = 12;/* this may lead to problems when using something like <code>fontfamily Italic 24px Arial</code> the ''fontsize`` value is not substituted into fontfamily !! */
8388 schaersvoo 135
    int fly_font_size = 12; /*fly_font_size is relative to this... */
7614 schaersvoo 136
    for(i=0;i<MAX_JS_FUNCTIONS;i++){js_function[i]=0;}
8365 schaersvoo 137
    int arrow_head = 8; /* size in px needed for arrow based  userdraw:  "userdraw arrow,color" */
7833 schaersvoo 138
    int crosshair_size = 5; /* size in px*/
8365 schaersvoo 139
    int plot_steps = 250;/* the js-arrays with x_data_points and y_data_points will have size 250 each: use with care !!! use jscurve when precise plots are required  */
14066 bpr 140
    int found_size_command = 0; /* 1 = found size ; 2 = found xrange; 3 = found yrange: just to flag an error message */
15111 schaersvoo 141
    int object_cnt = 0; /*counter to identify the "onclick" ojects ; 0 is first object set onclick: reply[object_cnt]=1 when clicked ; otherwise reply[object_cnt]=0 ; object_cnt is only increased when another object is set  again */
7614 schaersvoo 142
    int clock_cnt = 0; /* counts the amount of clocks used -> unique object clock%d */
9433 schaersvoo 143
    int boxplot_cnt = 0;
15111 schaersvoo 144
    int drawxml_cnt = 0;
11890 schaersvoo 145
    int numberline_cnt = 0;
8074 schaersvoo 146
    int reply_precision = 100; /* used for precision of student answers / drawings */
15111 schaersvoo 147
    char *rotation_center = "null";/* needs to be removed... but is used for canvas CTX based rotation*/
148
    double rotationcenter[] = {0,0}; /* use for recalculating x/y values on rotation() */
11893 schaersvoo 149
    int use_animate = 0; /* used for jscurve / js parametric  */
7823 schaersvoo 150
    int use_input_xy = 0; /* 1= input fields 2= textarea 3=calc y value*/
8365 schaersvoo 151
    size_t string_length = 0; /* measure the size of the user input fly-string */
152
    double stroke_opacity = 0.8; /* use some opacity as default */
14208 schaersvoo 153
    double fill_opacity = 0.5;/* use some opacity as default */
7614 schaersvoo 154
    char *URL = "http://localhost/images";
155
    memset(buffer,'\0',MAX_BUFFER);
156
    void *tmp_buffer = "";
157
    /* default writing a unzipped js-include file into wims getfile directory */
158
    char *w_wims_session = getenv("w_wims_session");
12104 schaersvoo 159
    if(  w_wims_session == NULL || *w_wims_session == 0 ){canvas_error("Hmmm, your wims environment does not exist...\nCanvasdraw should be used within wims.");}
7614 schaersvoo 160
    int L0=strlen(w_wims_session) + 21;
161
    char *getfile_dir = my_newmem(L0); /* create memory to fit string precisely */
162
    snprintf(getfile_dir,L0, "../sessions/%s/getfile",w_wims_session);/* string will fit precisely  */
163
    mode_t process_mask = umask(0); /* check if file exists */
164
    int result = mkdir(getfile_dir, S_IRWXU | S_IRWXG | S_IRWXO);
165
    if( result == 0 || errno == EEXIST ){
166
     umask(process_mask); /* be sure to set correct permission */
8224 bpr 167
     char *w_session = getenv("w_session");
7614 schaersvoo 168
     int L1 = (int) (strlen(w_session)) + find_number_of_digits(canvas_root_id) + 48;
12104 schaersvoo 169
     getfile_cmd = my_newmem(L1); /* create memory to fit string precisely */
8224 bpr 170
     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 */
13306 obado 171
    /* write the include tag to html page:<script src="wims.cgi?session=%s&cmd=getfile&special_parm=11223344_js"></script> */
7614 schaersvoo 172
    /* now write file into getfile dir*/
14066 bpr 173
    char *w_wims_home = getenv("w_wims_home"); /* "/home/users/wims": we need absolute path for location */
7614 schaersvoo 174
    int L2 = (int) (strlen(w_wims_home)) + (int) (strlen(w_wims_session)) + find_number_of_digits(canvas_root_id) + 23;
175
    char *location = my_newmem(L2); /* create memory to fit string precisely */
176
    snprintf(location,L2,"%s/sessions/%s/getfile/%d.js",w_wims_home,w_wims_session,canvas_root_id);/*absolute path */
177
    js_include_file = fopen(location,"w");/* open the file location for writing */
14066 bpr 178
    /* check on opening...if nogood: mount readonly? disk full? permissions not set correctly? */
179
    if(js_include_file == NULL){ canvas_error("SHOULD NOT HAPPEN: could not write to javascript include file...check your system logfiles !" );}
7614 schaersvoo 180
 
181
/* ----------------------------------------------------- */
11997 schaersvoo 182
 
7614 schaersvoo 183
/* while more lines to process */
184
 
185
    while(!finished){
9329 schaersvoo 186
        if(line_number>1 && found_size_command == 0 && use_tooltip != 2 ){canvas_error("command \"size xsize,ysize\" needs to come first ! ");}
7614 schaersvoo 187
        type = get_token(infile);
188
        done = FALSE;
189
        /*
9385 schaersvoo 190
        @ canvasdraw
15116 bpr 191
        @ Canvasdraw will try use the same basic syntax structure as flydraw
16844 bpr 192
        @ General syntax <ul><li>The transparency of all objects can be controlled by command <a href="#opacity">opacity [0-255],[0,255]</a></li><li>line width of any object can be controlled by command <a href="#linewidth">linewidth int</a></li><li>any may be dashed by using keyword <a href="#dashed">dashed</a> before the object command.<br /> the dashing type can be controled by command <a href="#dashtype">dashtype int,int</a>please note: dashing may have different spacing depending on the angle of the line<br />see https://wimsedu.info/?topic=dashed-arrows-not-dashed-in-canvasdraw</li><li>a fillable object can be set fillable by starting the object command with an ''f`` (like ''frect``,''fcircle``,''ftriangle`` ...) or by using the keyword <a href="#filled">filled</a> before the object command.<br />The fill colour of ''non_userdraw`` objects will be the stroke colour...(flydraw harmonization 19/10/2013)<br />    non-solid filling (grid,hatch,diamond,dot,text) is provided using command <a href="#fillpattern">fillpattern a_pattern</a><br />note: do not use a <b>f</b> with this non-solid pattern filling !<br />for <a href="#filltoborder">filltoborder x0,y0,color</a> or <a href="#filltoborder">fill x0,y0,color</a> type filling (eg fill a region around x0,y0 with color until a border is encountered),<br />there are non-solid pattern fill analogues:<ul><li><a href="#gridfill">gridfill x,y,dx,dy,color</a></li><li><a href="#hatchfill">hatchfill x,y,dx,dy,color</a></li><li><a href="#diamondfill">diamondfill x,y,dx,dy,color</a></li><li><a href="#dotfill">dotfill x,y,dx,dy,color</a></li><li><a href="#textfill">textfill x,y,color,sometext_or_char</a></li></ul></li><li>all draggable objects may have a <a href="#slider">slider</a> 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 <a href="#drag">drag x/y/xy</a><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 <a href="#zoom">zoom</a> and will be translated in case of panning.</li><li> a ''onclick object`` can be set ''clickable`` by the preceding keyword <a href="#onclick">onclick</a><br />not all flydraw objects can be set clickable</li><li><b>remarks using a '';`` as command separator</b>. Commands with only numeric or colour arguments may be using a '';`` as command separator (instead of a new line). 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><li>almost every <a href="#userdraw">userdraw object,color</a> or <a href="#multidraw">multidraw</a> command ''family`` may be combined with keywords <a href="#snaptogrid">"snaptogrid | xsnaptogrid | ysnaptogrid | snaptofunction</a> or command <code>snaptopoints x1,y1,x2,y2,...</code></li><li>every draggable | onclick object may be combined with keywords <a href="#snaptogrid">snaptogrid | xsnaptogrid | ysnaptogrid | snaptofunction</a> or command <code>snaptopoints x1,y1,x2,y2,...</code></li><li>almost every command for a single object has a multiple objects counterpart:<br /><ul>general syntax rule:<li><code>object x1,y1,...,color</code></li><li><code>objects color,x1,y1,...</code></li></ul><li>All inputfields or textareas generated, can be styled individually using command <a href="#css">css some_css</a><br/>the fontsize used for labeling these elements can be controlled by command <a href="#fontsize">fontsize int</a> <br />command <code>fontfamily</code> is <b>not</b> active for these elements</li></ul>
193
        @ If needed multiple interactive scripts (*) may be used in a single webpage.<br />A function <code>read_canvas()</code> and / or <code>read_dragdrop()</code> can read all interactive userdata from these images.<br />The global array <code>canvas_scripts</code>will contain all unique random "canvas_root_id" of the included scripts.<br />The included local javascript "read" functions ''read_canvas%d()`` and ''read_dragdrop%d()`` will have this ''%d = canvas_root_id``<br />e.g. canvas_scripts[0] will be the random id of the first script in the page and will thus provide a function<br /><code>fun = eval("read_canvas"+canvas_scripts[0])</code> to read user based drawings / inputfield in this first image.<br />The read_dragdrop is analogue.<br />If the default reply formatting is not suitable, use command <a href='#replyformat'>replyformat</a> to format the replies for an individual canvas script,<br />To read all user interactions from all included canvas scripts, use something like:<br /><code>function read_all_canvas_images(){<br />&nbsp;var script_len = canvas_scripts.length;<br />&nbsp;var draw_reply = "";<br />&nbsp;var found_result = false;<br />&nbsp;for(var p = 0 ; p < script_len ; p++){<br />&nbsp;&nbsp;var fun = eval("read_canvas"+canvas_scripts[p]);<br />&nbsp;&nbsp;if( typeof fun === 'function'){<br />&nbsp;&nbsp;&nbsp;var result = fun();<br />&nbsp;&nbsp;&nbsp;if( result&nbsp;&nbsp;&& result.length != 0){<br />&nbsp;&nbsp;&nbsp;&nbsp;if(script_len == 1 ){.return result;};<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;found_result = true;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;draw_reply = draw_reply + result + "newline";<br />&nbsp;&nbsp;&nbsp;&nbsp;};<br />&nbsp;&nbsp;&nbsp;};<br />&nbsp;&nbsp;};<br />&nbsp;if( found_result ){return draw_reply;}else{return null;};<br />};</code> <br />(*) Note: the speed advantage over <em>canvas-do-it-all</em> libraries is reduced to zero, when multiple canvasdraw scripts are present in a single page...<br />For example a typical canvasdraw script is between 5 and 40 kB...a large library like JSXgraph is approx 600 kB<br />In these cases it would be much faster to load a static general HTML5 canvas javascript draw library and parse it multiple raw fly instructions !<br />
194
  @ Canvasdraw can be used 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...)
15111 schaersvoo 195
        @ You can check the javascript reply format in the wims tool <a href="http://localhost/wims/wims.cgi?lang=en&module=tool/directexec">direct exec</a>
196
        @ For usage within OEF (without anstype ''draw``), something like this (a popup function plotter) will work:<br /><code>\\text{popup_grapher=wims(exec canvasdraw <br />popup<br />size 400,400<br />xrange -10,10<br />yrange -10,10<br />axis<br />axisnumbering<br />opacity 100,100<br />grid 2,2,grey,2,2,6,black<br />snaptogrid<br />linewidth 2<br />jsplot red,5*sin(1/x)<br />strokecolor green<br />functionlabel f(x)=<br />userinput function<br />mouse blue,22<br />)<br />}<br />\\statement{<br />\\popup_grapher<br />}</code>.
14379 bpr 197
        @ Be aware that older browsers will probably not work correctly<br />no effort has been undertaken to add glue code for older browsers !! <br />in any case it is not wise to use older browsers...not just for canvasdraw.
15111 schaersvoo 198
        @ Be aware that combining several different objects and interactivity may lead to problems.
14379 bpr 199
        @ If you find flaws, errors or other incompatibilities -not those mentioned in this document- send <a href='mailto:jm.evers-at-schaersvoorde.nl'>me</a> an email with screenshots and the generated javascript include file.
15633 bpr 200
        @ There is limited support for touch devices: touchstart, touchmove and touchend in commands <a href="#userdraw">userdraw primitives </a>, <a href="#multidraw">multidraw primitives </a>, <a href="#protractor">protractor</a>, <a href="#ruler">ruler</a> and probably a few others... <br />Only single finger gestures are supported (for now).<br />The use of a special pen is advised for interactive drawing on touch devices.<br />For more accurate user-interaction (numeric, eg keyboard driven drawings) with canvasdraw on touch devices: use the command family <a href="#userinput_xy">userinput</a>.
7614 schaersvoo 201
        */
202
        switch(type){
15111 schaersvoo 203
        case END:finished = 1;done = TRUE;break;
204
        case 0:sync_input(infile);break;
11806 schaersvoo 205
        case AFFINE:
7614 schaersvoo 206
        /*
11806 schaersvoo 207
         @ affine a,b,c,d,tx,ty
208
         @ defines a transformation matrix for subsequent objects
14066 bpr 209
         @ use keyword <a href='#killaffine'>killaffine</a> to end the transformation...the next objects will be drawn in the original x/y-range
210
         @ a: Scales the drawings horizontally
211
         @ b: Skews the drawings horizontally
212
         @ c: Skews the drawings vertically
213
         @ d: Scales the drawings vertically
11806 schaersvoo 214
         @ tx: Moves the drawings horizontally in xrange coordinate system
215
         @ ty: Moves the drawings vertically in yrange coordinate system
14078 bpr 216
         @ the data precision may be set by preceding command ''precision int``
15541 schaersvoo 217
         @ <b>note</b>: not all affine operations on canvasdraw objects will be identical to flydraw's behaviour. Make sure to check !
15111 schaersvoo 218
         @%affine%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%#use larger linewith to improve selecting a draggable object !%linewidth 4%drag xy%frect 0,5,3,3,red%affine cos(pi/4),sin(pi/4),-cos(pi/2),sin(pi/2),-5,-5%drag xy%frect 0,5,3,3,red
15313 schaersvoo 219
         @%affine+latex%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%strokecolor blue%fontfamily 42px Arial%centered%drag xy%latex 5,5,\\frac{123}{\\pi^{234}}%affine cos(pi/4),sin(pi/4),-cos(pi/2),sin(pi/2),-5,-5%drag xy%latex 5,5,\\frac{123}{\\pi^{234}}
7614 schaersvoo 220
        */
11806 schaersvoo 221
            for(i = 0 ; i<6;i++){
7614 schaersvoo 222
                switch(i){
15111 schaersvoo 223
                    case 0: affine_matrix[0] = get_real(infile,0);break;
224
                    case 1: affine_matrix[1] = get_real(infile,0);break;
225
                    case 2: affine_matrix[2] = get_real(infile,0);break;
226
                    case 3: affine_matrix[3] = get_real(infile,0);break;
227
                    case 4: affine_matrix[4] = get_real(infile,0);break;
228
                    case 5: affine_matrix[5] = get_real(infile,1);
11806 schaersvoo 229
                        use_affine = TRUE;
230
                        break;
7614 schaersvoo 231
                    default: break;
232
                }
233
            }
11806 schaersvoo 234
        break;
14394 schaersvoo 235
        case ALLOW_DUPLICATES:
236
        /*
14393 schaersvoo 237
         @ duplicates || allowdups
238
         @ keyword (no arguments)
15645 bpr 239
         @ only useful in case of a <a href="#multidraw">multidraw</a> student reply.
240
         @ only useful in default <a href="#replyformat">replyformat</a> (eg in case of a not specified replyformat).
14396 bpr 241
         @ if set, duplicate (x:y) coordinates will not be removed from the student reply.
15645 bpr 242
         @ technical: a javascript variable "allow_duplicate_answer = 1;" is declared.
243
         @ default for command multidraw is: removal of duplicates.
14393 schaersvoo 244
        */
15111 schaersvoo 245
        fprintf(js_include_file,"var allow_duplicate_answers = 1;");
14393 schaersvoo 246
        break;
11806 schaersvoo 247
        case ANGLE:
7614 schaersvoo 248
        /*
11806 schaersvoo 249
         @ angle xc,yc,width,start_angle,end_angle,color
250
         @ width is in x-range
14208 schaersvoo 251
         @ angles are in degrees
252
         @ not compatible with ''flydraw``
11806 schaersvoo 253
         @ will zoom in/out
15690 schaersvoo 254
         @ may be set onclick or drag&amp;drop
14208 schaersvoo 255
         @ if angle size is controlled by command <a href='#slider'>slider</a>, use radians to set limits of slider
15111 schaersvoo 256
         @ ''angle`` and <a href="#arc">arc</a>  are exceptions in case of sliders...they are always active (e.g. not click-activated)
12110 schaersvoo 257
         @%angle%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor orange%angle 0,0,4,10,135,blue
15111 schaersvoo 258
         @%angle_slider%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 3%strokecolor blue%slider -2*pi,2*pi,260,28,angle active degree,blue arrow%arrow 0,0,8,0,8,blue%fillpattern diamond%angle 0,0,2,0,0,blue%killslider%strokecolor red%slider -2*pi,2*pi,260,28,angle active radian,red arrow%arrow 0,1,8,1,8,red%fillpattern dot%angle 0,1,2,0,0,red
7614 schaersvoo 259
        */
11806 schaersvoo 260
            for(i=0;i<7;i++){
7614 schaersvoo 261
                switch(i){
11806 schaersvoo 262
                    case 0:double_data[0] = get_real(infile,0);break; /* x-values */
15111 schaersvoo 263
                    case 1:double_data[1] = get_real(infile,0);
264
                    if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}
15116 bpr 265
                    if(use_affine == TRUE ){ transform(2,2);}
15111 schaersvoo 266
                    break; /* y-values */
14208 schaersvoo 267
                    case 2:double_data[2] = get_real(infile,0);break; /* width x-range ! */
15111 schaersvoo 268
                    case 3:double_data[3] = 0.0174532925*(get_real(infile,0) - angle);break; /* start angle in degrees -> radians  */
269
                    case 4:double_data[4] = 0.0174532925*(get_real(infile,0) - angle);break; /* end angle in degrees -> radians */
11806 schaersvoo 270
                    case 5:stroke_color = get_color(infile,1);/* name or hex color */
15111 schaersvoo 271
                        if( use_slider != -1 ){ onclick = 3; }/* always active in case of slider */
272
                        decimals = find_number_of_digits(precision);
273
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%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\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,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,my_sliders,rotation_center,use_offset);
274
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
275
                        snprintf(tmp_buffer,string_length,  "dragstuff.addShape(new Shape(%d,%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\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,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,my_sliders,rotation_center,use_offset);
276
                        add_to_buffer(tmp_buffer);
277
                        dragstuff[17] = 1;
278
                        if(use_dragstuff == 0 ){ use_dragstuff = 1; }
279
                        if(onclick != 0){object_cnt++;}/* object_cnt++;*/
11806 schaersvoo 280
                    break;
7614 schaersvoo 281
                }
282
            }
283
            break;
8386 schaersvoo 284
 
11806 schaersvoo 285
        case ANIMATE:
7614 schaersvoo 286
        /*
11930 schaersvoo 287
         @ animate
11893 schaersvoo 288
         @ keyword
15111 schaersvoo 289
         @ if set, it will animate a point on a curve
290
         @ all other canvas object or group of objects (like lines,circles,rects,points...images,svg,latex,mathml etc)<br />may be animated using command <a href='#slider'>slider</a> with keyword 'anim'
14071 bpr 291
         @ the animated point is a filled rectangle ; adjust colour with command <code>fillcolor colorname/hexnumber</code>
11893 schaersvoo 292
         @ use linewidth to adjust size of the points
14078 bpr 293
         @ will animate a point on -only- the next <a href='#jsplot'>jsplot/jscurve command</a>. Only a single call to <code>animate</code> is allowed...in case of multiple <code>animate</code> keywords, only the last one is valid
15111 schaersvoo 294
         @ only usable in combination with command <a href='#jsplot'>jsplot</a> (normal functions or parametric)
13957 schaersvoo 295
         @ moves repeatedly from <a href='#xrange'>xmin to xmax</a> or in case of a parametric function from <a href='#trange'>tmin to tmax</a>
15650 reyssat 296
         @ use commands <a href='#multilinewidth'>multilinewidth</a>, <a href='#multistrokecolor'>multistrokecolor</a> etc in case of multiple animated functions.<br />use multiple functions as argument in a single call to <a href='#jsplot'>jsplot color,fun1,fun2,fun3...fun_n</a>
13939 bpr 297
         @%animate_1%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%precision 100%linewidth 4%fillcolor red%animate%trange -2*pi,2*pi%linewidth 1%opacity 255,50%canvastype 100%fill 1.2,1.2,red%canvastype 101%fill -1.2,-1.2,blue%jsplot blue,7*cos(x),5*sin(2*x)
298
         @%animate_2%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%precision 100%linewidth 4%fillcolor red%animate%trange -2*pi,2*pi%linewidth 1%opacity 255,50%canvastype 100%fill 1.2,1.2,red%canvastype 101%fill -1.2,-1.2,blue%multistrokecolors blue,blue,green,green,orange,orange%multilinewidth 2,2,3,3,1,1%jsplot blue,7*cos(x),5*sin(2*x),9*sin(x),5*cos(x),x^2,x
7614 schaersvoo 299
        */
13512 schaersvoo 300
            use_animate++;
301
            if( use_animate == 1 ){
302
            fprintf(js_include_file,"\nvar trace_canvas  = create_canvas%d(%d,xsize,ysize);\
303
            var trace_ctx = trace_canvas.getContext('2d');\
304
            trace_ctx.fillStyle = 'rgba(%s,%f)';\
305
            trace_ctx.strokeStyle = 'rgba(%s,%f)';\
306
            trace_ctx.lineWidth = %d;var anim_pos = 0;\n\
307
            function animate_this(){\
308
             var sync;\
309
             var synchrone = Math.floor(animation_steps/animation_funs);\
310
             trace_ctx.clearRect(0,0,xsize,ysize);\
311
             for(var p=0; p<animation_funs;p++){\
312
              sync = p*synchrone;\
313
              trace_ctx.fillRect(x_anim_points[sync+anim_pos]-%d, y_anim_points[sync+anim_pos]-%d,%d,%d);\
314
             };\
315
             setTimeout(function(){\
316
              requestAnimationFrame(animate_this);  anim_pos++;}, 50\
317
             );\
318
             if(anim_pos >= animation_steps){anim_pos = 0;};\
319
             };",canvas_root_id,ANIMATE_CANVAS,fill_color,fill_opacity,stroke_color,stroke_opacity,line_width,line_width,line_width,2*line_width,2*line_width);
320
            }
321
            else
322
            {
13514 schaersvoo 323
                canvas_error("animate can only be used once<br />multiple curves may be animated using something like:<br />jsplot red,sin(x),cos(x),x^2,sin(2*x)");
13512 schaersvoo 324
            }
7614 schaersvoo 325
            break;
8386 schaersvoo 326
 
11806 schaersvoo 327
        case ARC:
7614 schaersvoo 328
        /*
11997 schaersvoo 329
         @ arc xc,yc,x-width,y-height,start_angle,end_angle,color
15690 schaersvoo 330
         @ may be set ''onclick`` or ''drag xy``
14208 schaersvoo 331
         @ compatible with ''flydraw``
332
         @ attention: width &amp; height in x/y-range
16832 bpr 333
         @ for arrow hats on an arc, see  command <a href='#arcarrow'>arcarrow or arrowarc</a>
14208 schaersvoo 334
         @ better use command <a href='#angle'>angle</a> for use with a <a href='#slider'>slider</a>
15111 schaersvoo 335
         @%arc%size 400,400%xrange -10,10%yrange -10,10%arc 0,0,4,4,10,135,red
13961 schaersvoo 336
         @%arc_filled%size 400,400%xrange -10,10%yrange -10,10%opacity 255,60%filled%fillcolor green%arc 0,0,4,4,10,135,red
7614 schaersvoo 337
        */
11806 schaersvoo 338
            for(i=0;i<7;i++){
339
                switch(i){
340
                    case 0:double_data[0] = get_real(infile,0);break; /* x-values */
15111 schaersvoo 341
                    case 1:double_data[1] = get_real(infile,0);
342
                    if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}
343
                    if(use_affine == TRUE ){ transform(4,2);}
344
                    break; /* y-values */
11806 schaersvoo 345
                    case 2:double_data[2] = get_real(infile,0);break; /* width x-range no pixels ! */
15111 schaersvoo 346
                    case 3:double_data[3] = get_real(infile,0);
347
                    break; /* height y-range no pixels ! */
348
                    case 4:double_data[4] = get_real(infile,0) - angle ;break; /* start angle in degrees */
349
                    case 5:double_data[5] = get_real(infile,0) - angle;break; /* end angle in degrees */
11806 schaersvoo 350
                    case 6:stroke_color = get_color(infile,1);/* name or hex color */
351
                    /* in Shape library:
352
                        x[0] = x[1] = xc = double_data[0]
353
                        y[0] = y[1] = yc = double_data[1]
354
                        w[0] = width = double_data[2]
355
                        w[1] = height = double_data[3]
356
                        h[0] = start_angle = double_data[4]
357
                        h[1] = end_angle = double_data[5]
358
                    */
15111 schaersvoo 359
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
11806 schaersvoo 360
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 361
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,12,[%.*f,%.*f],[%.*f,%.*f],[%.*f,%.*f],[%.*f,%.*f],%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[0],decimals,double_data[1],decimals,double_data[1],decimals,double_data[2],decimals,double_data[3],decimals,double_data[4],decimals,double_data[5],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);
362
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
363
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,12,[%.*f,%.*f],[%.*f,%.*f],[%.*f,%.*f],[%.*f,%.*f],%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[0],decimals,double_data[1],decimals,double_data[1],decimals,double_data[2],decimals,double_data[3],decimals,double_data[4],decimals,double_data[5],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);
364
                        add_to_buffer(tmp_buffer);reset();
365
                        dragstuff[12] = 1;
366
                        if(onclick != 0){object_cnt++;}
367
                        if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 368
                    break;
369
                }
370
            }
7614 schaersvoo 371
            break;
15690 schaersvoo 372
        case ARCARROW:
373
        /*
374
         @ arrowarc xc,yc,x-width,y-height,start_angle,end_angle,color,type
15715 schaersvoo 375
         @ alternative: arcarrow
15690 schaersvoo 376
         @ uses same syntax as <a href='#arc'>arc</a>
377
         @ for arrow hat: type = 1 : right<br />type = 2 : left<br />type = 3 : left&amp;right
378
         @ if the default arrow hat/head is not satisfactory , the size of the arrow may be set with command <a href='#arrowhead'>arrowhead</a>
379
         @ no other arrow types are implemented...yet
380
         @ may be set draggable or onclick
381
         @ attention: when width ad height are very different, the arrow hat is not drawn correctly. This is a flaw and not a feature...(for now: too much calculations to correct)
382
         @%arcarrow%size 400,400%xrange -10,10%yrange -10,10%noreset%onclick%arcarrow 0,0,7,7,50,275,blue,3%arcarrow 0,0,8,8,50,275,red,2%arcarrow 0,0,9,9,50,275,green,1
383
        */
384
            for(i=0;i<8;i++){
385
                switch(i){
386
                    case 0:double_data[0] = get_real(infile,0);break; /* x-values */
387
                    case 1:double_data[1] = get_real(infile,0);
388
                    if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}
389
                    if(use_affine == TRUE ){ transform(4,2);}
390
                    break; /* y-values */
391
                    case 2:double_data[2] = get_real(infile,0);break; /* width x-range no pixels ! */
392
                    case 3:double_data[3] = get_real(infile,0);
393
                    break; /* height y-range no pixels ! */
394
                    case 4:double_data[4] = get_real(infile,0) - angle ;break; /* start angle in degrees */
395
                    case 5:double_data[5] = get_real(infile,0) - angle;break; /* end angle in degrees */
396
                    case 6:stroke_color = get_color(infile,0);/* name or hex color */
397
                    break;
398
                    case 7:int_data[0] = (int) get_real(infile,1);
399
                        switch(int_data[0]){
400
                         case 1: int_data[1] = 24;break; /* right */
401
                         case 2: int_data[1] = 25;break; /* left */
402
                         case 3: int_data[1] = 26;break; /* left&right */
403
                         default:int_data[1] = 24;break;
404
                        }
405
                        if(int_data[0] == 1 ){int_data[1] = 24;}
406
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
407
                        decimals = find_number_of_digits(precision);
408
                        string_length = 1 + snprintf(NULL,0,"var arrow_head = %d;dragstuff.addShape(new Shape(%d,%d,%d,%d,%d,[%.*f,%.*f],[%.*f,%.*f],[%.*f,%.*f],[%.*f,%.*f],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",arrow_head,drag_type,object_cnt,onclick,use_snap,int_data[1],decimals,double_data[0],decimals,double_data[0],decimals,double_data[1],decimals,double_data[1],decimals,double_data[2],decimals,double_data[3],decimals,double_data[4],decimals,double_data[5],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);
409
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
410
                        snprintf(tmp_buffer,string_length,"var arrow_head = %d;dragstuff.addShape(new Shape(%d,%d,%d,%d,%d,[%.*f,%.*f],[%.*f,%.*f],[%.*f,%.*f],[%.*f,%.*f],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",arrow_head,drag_type,object_cnt,onclick,use_snap,int_data[1],decimals,double_data[0],decimals,double_data[0],decimals,double_data[1],decimals,double_data[1],decimals,double_data[2],decimals,double_data[3],decimals,double_data[4],decimals,double_data[5],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);
411
                        add_to_buffer(tmp_buffer);
412
                        dragstuff[int_data[1]] = 1;
413
                        if(onclick != 0){object_cnt++;}
414
                        if(use_dragstuff == 0 ){ use_dragstuff = 1; }
415
                        js_function[JS_ARROWHEAD] = 1;
416
                        reset();
417
                }
418
            }
419
            break;
11806 schaersvoo 420
        case ARROW:
7614 schaersvoo 421
        /*
11806 schaersvoo 422
        @ arrow x1,y1,x2,y2,h,color
15715 schaersvoo 423
        @ alternative: vector
14379 bpr 424
        @ draw a single headed arrow / vector from (x1:y1) to (x2:y2)<br />with arrowhead size h in px and in color ''color``
14077 bpr 425
        @ use command <code>linewidth int</code> to adjust thickness of the arrow
9406 schaersvoo 426
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
13957 schaersvoo 427
        @%arrow_drag%size 400,400%xrange -10,10%yrange -10,10%cursor move%linewidth 2%drag xy%arrow 0,0,4,3,8,blue%drag xy%arrow 0,0,-4,3,8,green%drag xy%arrow 0,0,4,-3,8,orange%drag xy%arrow 0,0,-4,-3,8,cyan
428
        @%arrow_click%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%%onclick%arrow 0,0,4,4,8,blue%onclick%arrow 0,0,-4,5,8,green%onclick%arrow 0,0,4,-6,8,orange%onclick%arrow 0,0,-4,-2,8,cyan
7614 schaersvoo 429
        */
11806 schaersvoo 430
            for(i=0;i<6;i++){
7614 schaersvoo 431
                switch(i){
432
                    case 0: double_data[0] = get_real(infile,0);break; /* x */
433
                    case 1: double_data[1] = get_real(infile,0);break; /* y */
11806 schaersvoo 434
                    case 2: double_data[2] = get_real(infile,0);break; /* x */
435
                    case 3: double_data[3] = get_real(infile,0);break; /* y */
436
                    case 4: arrow_head = (int) get_real(infile,0);break;/* h */
437
                    case 5: stroke_color = get_color(infile,1);/* name or hex color */
15111 schaersvoo 438
                            if(use_rotate == TRUE ){rotate(4,angle,rotationcenter,2);}
439
                            if(use_affine == TRUE ){ transform(4,2);}
440
                            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
441
                            decimals = find_number_of_digits(precision);
442
                            string_length = 1 + snprintf(NULL,0,"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);
443
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
444
                            snprintf(tmp_buffer,string_length,"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);
445
                            if(onclick != 0){object_cnt++;}
446
                            /* object_cnt++;*/
447
                            add_to_buffer(tmp_buffer);reset();
448
                            dragstuff[8] = 1;
449
                            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
450
                            break;
11806 schaersvoo 451
                }
452
            }
453
            break;
8386 schaersvoo 454
 
11806 schaersvoo 455
        case ARROWS:
7614 schaersvoo 456
        /*
11806 schaersvoo 457
        @ arrows color,head (px),x1,y1,x2,y2...x_n,y_n
15715 schaersvoo 458
        @ alternative: vectors
15111 schaersvoo 459
        @ draw single headed arrows / vectors from (x1:y1) to (x2:y2) ... (x3:y3) to (x4:y4) etc ... in color 'color'
14071 bpr 460
        @ use command <code>linewidth int</code> to adjust thickness of the arrow
11806 schaersvoo 461
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually
13957 schaersvoo 462
        @%arrows_click%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%onclick%arrows red,8,0,0,4,3,0,0,2,4,0,0,-2,4,0,0,-3,-4,0,0,3,-2%
463
        @%arrows_drag%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%drag xy%arrows red,8,0,0,4,3,0,0,2,4,0,0,-2,4,0,0,-3,-4,0,0,3,-2%
14208 schaersvoo 464
        @%arrows_drag_slider%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%drag xy%# Click arrow(s) to activate %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%arrows red,8,0,0,4,3,0,0,2,4,0,0,-2,4,0,0,-3,-4,0,0,3,-2%
7614 schaersvoo 465
        */
466
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
467
            fill_color = stroke_color;
11806 schaersvoo 468
            arrow_head = (int) get_real(infile,0);/* h */
7614 schaersvoo 469
            i=0;
470
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 471
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
7614 schaersvoo 472
                if(i%2 == 0 ){
473
                    double_data[i] = get_real(infile,0); /* x */
474
                }
475
                else
476
                {
477
                    double_data[i] = get_real(infile,1); /* y */
478
                }
479
                i++;
480
            }
15111 schaersvoo 481
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
482
            if( use_affine == TRUE ){ transform(i-1,2);}
483
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
7614 schaersvoo 484
            decimals = find_number_of_digits(precision);
11806 schaersvoo 485
            for(c = 0 ; c < i-1 ; c = c+4){
15111 schaersvoo 486
                string_length = 1 + snprintf(NULL,0,"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);
487
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
488
                snprintf(tmp_buffer,string_length,  "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);
489
                add_to_buffer(tmp_buffer);
490
                if(onclick != 0){object_cnt++;}/* object_cnt++; */
7614 schaersvoo 491
            }
15111 schaersvoo 492
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
493
            dragstuff[8] = 1;
7614 schaersvoo 494
            reset();
495
            break;
8386 schaersvoo 496
 
11806 schaersvoo 497
        case ARROW2:
7614 schaersvoo 498
        /*
11806 schaersvoo 499
        @ arrow2 x1,y1,x2,y2,h,color
14071 bpr 500
        @ draw a double headed arrow/vector from (x1:y1) to (x2:y2)<br />with arrowhead size h in px and in color ''color``
501
        @ use command <code>arrowhead int</code> to adjust the arrow head size
502
        @ use command <code>linewidth int</code> to adjust thickness of the arrow
9406 schaersvoo 503
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
12107 schaersvoo 504
        @%arrow2%size 400,400%xrange -10,10%yrange -10,10%drag xy%arrow2 0,0,4,3,8,blue%
7614 schaersvoo 505
        */
11806 schaersvoo 506
            for(i=0;i<6;i++){
7614 schaersvoo 507
                switch(i){
508
                    case 0: double_data[0] = get_real(infile,0);break; /* x */
509
                    case 1: double_data[1] = get_real(infile,0);break; /* y */
11806 schaersvoo 510
                    case 2: double_data[2] = get_real(infile,0);break; /* x */
511
                    case 3: double_data[3] = get_real(infile,0);break; /* y */
512
                    case 4: arrow_head = (int) get_real(infile,0);break;/* h */
513
                    case 5: stroke_color = get_color(infile,1);/* name or hex color */
15111 schaersvoo 514
                        if(use_rotate == TRUE ){rotate(4,angle,rotationcenter,2);}
515
                        if( use_affine == 1 ){ transform(4,2);}
516
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
11806 schaersvoo 517
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 518
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,10,[%.*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);
519
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
520
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,10,[%.*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);
521
                        add_to_buffer(tmp_buffer);
522
                        if(onclick != 0){object_cnt++;}/* object_cnt++;*/
523
                        if(use_dragstuff == 0 ){ use_dragstuff = 1; }
524
                        dragstuff[10] = 1;
11806 schaersvoo 525
                        reset();
526
                        break;
527
                }
528
            }
529
            break;
8386 schaersvoo 530
 
11806 schaersvoo 531
        case ARROWS2:
7614 schaersvoo 532
        /*
11806 schaersvoo 533
        @ arrows2 color,head (px),x1,y1,x2,y2...x_n,y_n
14071 bpr 534
        @ draw double headed arrows / vectors from (x1:y1) to (x2:y2) ... (x3:y3) to (x4:y4) etc ... in color ''color``
535
        @ use command <code>linewidth int</code> to adjust thickness of the arrows
11806 schaersvoo 536
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually
12107 schaersvoo 537
        @%arrows2%size 400,400%xrange -10,10%yrange -10,10%onclick%arrows2 red,8,0,0,4,3,1,1,2,4,2,2,-2,4,3,3,-3,-4,0,0,3,-2%
7614 schaersvoo 538
        */
539
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
540
            fill_color = stroke_color;
11806 schaersvoo 541
            arrow_head = (int) get_real(infile,0);/* h */
7614 schaersvoo 542
            i=0;
543
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 544
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
7614 schaersvoo 545
                if(i%2 == 0 ){
546
                    double_data[i] = get_real(infile,0); /* x */
547
                }
548
                else
549
                {
550
                    double_data[i] = get_real(infile,1); /* y */
551
                }
552
                i++;
553
            }
15111 schaersvoo 554
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
555
            if( use_affine == 1 ){ transform(i-1,2);}
556
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
557
 
8224 bpr 558
            decimals = find_number_of_digits(precision);
11806 schaersvoo 559
            for(c = 0 ; c < i-1 ; c = c+4){
15111 schaersvoo 560
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,10,[%.*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);
561
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
562
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,10,[%.*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);
563
                add_to_buffer(tmp_buffer);
564
                if(onclick != 0){object_cnt++;}/* object_cnt++; */
7614 schaersvoo 565
            }
15111 schaersvoo 566
            dragstuff[10] = 1;
567
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
7614 schaersvoo 568
            reset();
569
            break;
11806 schaersvoo 570
        case ARROWHEAD:
9427 schaersvoo 571
        /*
11806 schaersvoo 572
        @ arrowhead int
573
        @ default 8 (pixels)
9427 schaersvoo 574
        */
11806 schaersvoo 575
            arrow_head = (int) (get_real(infile,1));
576
            break;
577
 
578
        case AUDIO:
579
        /*
580
        @ audio x,y,w,h,loop,visible,audiofile location
14066 bpr 581
        @ x,y: left top corner of audio element (in xrange / yrange)
582
        @ w,y: width and height in pixels
583
        @ loop: 0 or 1 ( 1 = loop audio fragment)
584
        @ visible: 0 or 1 (1 = show controls)
11806 schaersvoo 585
        @ audio format may be in *.mp3 or *.ogg
14066 bpr 586
        @ If you are using *.mp3: be aware that FireFox will not (never) play this ! (Pattented format)
587
        @ if you are using *.ogg: be aware that Microsoft based systems not support it natively
11806 schaersvoo 588
        @ To avoid problems supply both types (mp3 and ogg) of audiofiles.<br />the program will use both as source tag
589
        */
15111 schaersvoo 590
            js_function[DRAW_AUDIO] = 1;
11806 schaersvoo 591
            for(i=0;i<7;i++){
592
                switch(i){
593
                    case 0: int_data[0] = x2px(get_real(infile,0)); break; /* x in x/y-range coord system -> pixel */
594
                    case 1: int_data[1] = y2px(get_real(infile,0)); break; /* y in x/y-range coord system  -> pixel */
595
                    case 2: int_data[2] = (int) (get_real(infile,0)); break; /* pixel width */
596
                    case 3: int_data[3] = (int) (get_real(infile,0)); break; /* height pixel height */
597
                    case 4: int_data[4] = (int) (get_real(infile,0)); if(int_data[4] != TRUE){int_data[4] = FALSE;} break; /* loop boolean */
598
                    case 5: int_data[5] = (int) (get_real(infile,0)); if(int_data[5] != TRUE){int_data[5] = FALSE;} break; /* visible boolean */
599
                    case 6:
600
                    temp = get_string(infile,1);
601
                    if( strstr(temp,".mp3") != 0 ){ temp = str_replace(temp,".mp3","");}
602
                    if( strstr(temp,".ogg") != 0 ){ temp = str_replace(temp,".ogg","");}
14208 schaersvoo 603
                    string_length = 1 + 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);
604
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11806 schaersvoo 605
                    snprintf(tmp_buffer,string_length,"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);
606
                    add_to_buffer(tmp_buffer);
607
                    break;
608
                    default:break;
9427 schaersvoo 609
                }
11806 schaersvoo 610
            }
611
            reset();
612
            break;
613
 
614
 
615
        case AXIS_NUMBERING:
616
        /*
617
            @ axisnumbering
618
            @ keyword (no arguments required)
14246 bpr 619
            @ for special numbering of x-axis or y-axis see grid related commands <a href="#axis">axis</a> <a href="#xaxis">xaxis</a>, <a href="#xaxisup">xaxisup</a>, <a href="#noxaxis">noxaxis</a>, <a href="#yaxis">yaxis</a>, <a href="#yaxisup">yaxisup</a>, <a href="#noyaxis">noyaxis</a>
11806 schaersvoo 620
            @ to be used before command grid (see <a href="#grid">command grid</a>)
621
        */
11891 schaersvoo 622
            use_axis_numbering++;
11806 schaersvoo 623
            break;
624
        case AXIS:
625
        /*
626
            @ axis
627
            @ keyword (no arguments required)
628
            @ to be used before command grid (see <a href="#grid">command grid</a>)
629
 
630
        */
631
            use_axis = TRUE;
632
            break;
633
 
634
        case BARCHART:
635
        /*
636
        @ barchart x_1:y_1:color_1:x_2:y_2:color_2:...x_n:y_n:color_n
14066 bpr 637
        @ may <b>only</b> to be used together with command <a href='#grid'>grid</a>
638
        @ can be used together with freestyle x-axis/y-axis texts: see commands <a href='#xaxis'>xaxis</a>,<a href='#xaxisup'>xaxisup</a> and <a href='#yaxis'>yaxis</a>
639
        @ use command <a href='#legend'>legend</a> to provide an optional legend in right-top-corner
11806 schaersvoo 640
        @ multiple barchart command may be used in a single script
14066 bpr 641
        @ also see command <a href='#piechart'>piechart</a>
642
        @ note: your arguments are not checked by canvasdraw: use your javascript console in case of trouble...
15313 schaersvoo 643
        @%barchart%size 400,400%xrange -1,10%yrange -2,14%legend legend Z:legend A:this is B:C:D:E:F:G:H:X%legendcolors green:red:orange:lightblue:cyan:gold:purple:darkred:yellow:lightgreen%xaxis 0:Z:1:A:2:B:3:C:4:D:5:E:6:F:7:G:8:H:9:X%noyaxis%precision 1%fontfamily bold 15px Arial%grid 1,1,white%barchart 0:5.5:green:2:5.5:red:4:6.5:orange:6:8:lightblue:8:11:cyan:1:5.5:gold:3:9:purple:5:4:darkred:7:7:yellow:9:1:lightgreen%mouse red,14
11806 schaersvoo 644
        */
645
            temp = get_string(infile,1);
646
            if( strstr( temp,":" ) != 0 ){ temp = str_replace(temp,":","\",\""); }
647
            fprintf(js_include_file,"var barchart_%d = [\"%s\"];",barchart_cnt,temp);
648
            barchart_cnt++;
649
            reset();
650
            break;
651
 
652
        case BEZIER:
653
        /*
654
        @ bezier color,x_start,y_start,x_first,y_first,x_second,y_second,x_end,y_end
655
        @ draw a bezier curve between points, starting from (x_start:y_start)
656
        @ can <b>not</b> be dragged or set onclick
657
        */
15111 schaersvoo 658
            js_function[DRAW_BEZIER] = 1;
11806 schaersvoo 659
            decimals = find_number_of_digits(precision);
660
            for(i = 0 ; i < 9; i++){
661
                switch(i){
662
                    case 0: stroke_color = get_color(infile,0);break;
663
                    case 1: double_data[0] = get_real(infile,0);break;/* start x */
664
                    case 2: double_data[1] = get_real(infile,0);break;/* start y */
665
                    case 3: double_data[2] = get_real(infile,0);break;/*The x-coordinate of the first Bézier control point */
666
                    case 4: double_data[3] = get_real(infile,0);break;/*The y-coordinate of the first Bézier control point */
667
                    case 5: double_data[4] = get_real(infile,0);break;/*The x-coordinate of the second Bézier control point */
668
                    case 6: double_data[5] = get_real(infile,0);break;/*The y-coordinate of the second Bézier control point */
669
                    case 7: double_data[6] = get_real(infile,0);break;/*The x-coordinate of the Bézier end point */
670
                    case 8: double_data[7] = get_real(infile,1);/*The y-coordinate of the Bézier end point */
15111 schaersvoo 671
                        if(use_rotate == TRUE ){rotate(8,angle,rotationcenter,2);}
672
                        if(use_affine == TRUE ){ transform(2,5);}
673
                        string_length = 1 + snprintf(NULL,0,"draw_bezier(%d,%d,[%f,%f,%f,%f,%f,%f,%f,%f],\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.2f);",STATIC_CANVAS,line_width,double_data[0],double_data[1],double_data[2],double_data[3],double_data[4],double_data[5],double_data[6],double_data[7],fill_color,fill_opacity,stroke_color,stroke_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle);
14208 schaersvoo 674
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15111 schaersvoo 675
                        snprintf(tmp_buffer,string_length,"draw_bezier(%d,%d,[%f,%f,%f,%f,%f,%f,%f,%f],\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.2f);",STATIC_CANVAS,line_width,double_data[0],double_data[1],double_data[2],double_data[3],double_data[4],double_data[5],double_data[6],double_data[7],fill_color,fill_opacity,stroke_color,stroke_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle);
11806 schaersvoo 676
                        add_to_buffer(tmp_buffer);
677
                        break;
678
                    default: break;
9427 schaersvoo 679
                }
680
            }
681
            reset();
682
            break;
11806 schaersvoo 683
 
684
 
685
        case BGCOLOR:
9427 schaersvoo 686
        /*
11806 schaersvoo 687
         @ bgcolor colorname or #hex
688
         @ use this color as background of the "div" containing the canvas(es)
12110 schaersvoo 689
         @%bgcolor%size 400,400%xrange -10,10%yrange -10,10%bgcolor lightblue
9427 schaersvoo 690
        */
11806 schaersvoo 691
        /* [255,255,255]*/
692
            bgcolor = get_string(infile,1);
693
            if(strstr(bgcolor,"#") == NULL){ /* convert colorname -> #ff00ff */
694
                int found = 0;
695
                for( i = 0; i < NUMBER_OF_COLORNAMES ; i++ ){
696
                    if( strcmp( colors[i].name , bgcolor ) == 0 ){
697
                        bgcolor = colors[i].hex;
698
                        found = 1;
699
                        break;
700
                    }
9427 schaersvoo 701
                }
14066 bpr 702
                if(found == 0){canvas_error("your bgcolor is not in my rgb.txt data list: use hexcolor...something like #a0ffc4");}
11806 schaersvoo 703
            }
13970 obado 704
            fprintf(js_include_file,"/* set background color of canvas div */\ncanvas_div.style.backgroundColor = \"%s\";canvas_div.style.opacity = %f;\n",bgcolor,fill_opacity);
11806 schaersvoo 705
            break;
706
 
707
        case BGIMAGE:
708
        /*
709
         @ bgimage image_location
14071 bpr 710
         @ use an image as background; technical: we use the background of ''canvas_div``
11806 schaersvoo 711
         @ the background image will be resized to match "width = xsize" and "height = ysize"
12110 schaersvoo 712
         @%bgimage%size 400,400%xrange -10,10%yrange -10,10%bgimage https://wims.unice.fr/wims/gifs/en.gif
11806 schaersvoo 713
        */
714
        URL = get_string(infile,1);
13970 obado 715
        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);
11806 schaersvoo 716
            break;
717
 
718
        case BLINK:
719
        /*
720
         @ blink time(seconds)
721
         @ NOT IMPLEMETED -YET
722
        */
723
            break;
724
 
725
        case BOXPLOT:
726
        /*
727
        @ boxplot x_or_y,box-height_or_box-width,position,min,Q1,median,Q3,max
14066 bpr 728
        @ example:<br /><code>xrange 0,300<br />yrange 0,10<br />boxplot x,4,8,120,160,170,220,245</code><br />meaning: create a boxplot in x-direction, with height 4 (in yrange) and centered around line y=8
729
        @ example:<br /><code>xrange 0,10<br />yrange 0,300<br />boxplot y,4,8,120,160,170,220,245</code><br />meaning: create a boxplot in y-direction, with width 4 (in xrange) and centered around line x=8
730
        @ use command <a href='#filled'>filled</a> to fill the box<br /><b>note:</b> the strokecolor is used for filling Q1, the fillcolor is used for filling Q3
731
        @ use command <a href='#fillpattern'>fillpattern some_pattern</a> to use a (diamond for Q1, hatch for Q3) pattern.
732
        @ use command <a href='#opacity'>opacity</a> to adjust fill_opacity of stroke and fill colours
14379 bpr 733
        @ use command <a href='#legend'>legend</a> to automatically create a legend <br />unicode allowed in legend<br />use command <a href='#fontfamily'>fontfamily</a> to set the font of the legend.
11806 schaersvoo 734
        @ there is no limit to the number of boxplots used.
14078 bpr 735
        @ can <b>not</b> be set draggable and <a href='#onclick'>onclick</a> is not ready yet
14066 bpr 736
        @ use keyword <a href="#userboxplot">userboxplot</a> before command boxplot, if a pupil must draw a boxplot (using his own min,Q1,median,Q3,max data)
737
        @ use keyword <a href="#userboxplotdata">userboxplotdata</a> before command boxplot, if a pupil must generate the data by some means.
738
        @ use command <a href="#boxplotdata">boxplotdata</a> when the boxplot should be drawn from wims-generated raw statistical date
12110 schaersvoo 739
        @%boxplot_1%size 400,400%xrange 0,300%yrange 0,10%opacity 120,50%filled%fillcolor orange%strokecolor blue%linewidth 2%boxplot x,4,8,120,160,170,220,245
740
        @%boxplot_2%size 400,400%xrange 0,10%yrange 0,300%opacity 120,50%filled%fillcolor orange%strokecolor blue%linewidth 2%boxplot y,4,8,120,160,170,220,245
13958 schaersvoo 741
        @%boxplot_3%size 400,400%xrange 0,100%yrange 0,10%fillpattern hatch%linewidth 3%fillcolor red%strokecolor green%boxplot x,1,2,4,14,27,39,66%strokecolor blue%boxplot x,1,4,15,45,50,66,87%strokecolor red%boxplot x,1,6,45,70,80,90,100%strokecolor orange%boxplot x,1,8,28,38,48,56,77%mouse red,16
11806 schaersvoo 742
        */
15111 schaersvoo 743
            js_function[DRAW_BOXPLOT] = 1;
11806 schaersvoo 744
            for(i=0;i<8;i++){
745
                switch(i){
746
                    case 0: temp = get_string_argument(infile,0);
747
                            if( strstr(temp,"x") != 0){int_data[0] = 1;}else{int_data[0] = 0;} break; /* x or y */
748
                    case 1: double_data[0] = get_real(infile,0);break;/* height | width  */
749
                    case 2:
750
                    if( js_function[DRAW_JSBOXPLOT] == 0 ){
751
                     double_data[1] = get_real(infile,0);
752
                     fprintf(js_include_file,"var boxplot_source = 0;\n");/* we use given min,Q1,median,Q3,max */
753
                    }
754
                    else
755
                    {
756
                     double_data[1] = get_real(infile,1);
757
                     double_data[2] = 1;
758
                     double_data[3] = 1;
759
                     double_data[4] = 1;
760
                     double_data[5] = 1;
761
                     double_data[6] = 1;
762
                     double_data[7] = 1;
763
                     i=8;
764
                    }
765
                    break;/* center value x or y */
766
                    case 3: double_data[2] = get_real(infile,0); break;/* min */
767
                    case 4: double_data[3] = get_real(infile,0); break;/* Q1 */
768
                    case 5: double_data[4] = get_real(infile,0); break;/* median */
769
                    case 6: double_data[5] = get_real(infile,0); break;/* Q3 */
770
                    case 7: double_data[6] = get_real(infile,1); break;/* max */
771
                    default:break;
9427 schaersvoo 772
                }
773
            }
774
            decimals = find_number_of_digits(precision);
11806 schaersvoo 775
            /*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)*/
14208 schaersvoo 776
            string_length = 1 + snprintf(NULL,0,  "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]);
11806 schaersvoo 777
            check_string_length(string_length);
14208 schaersvoo 778
            tmp_buffer = my_newmem(string_length);
11806 schaersvoo 779
            snprintf(tmp_buffer,string_length,  "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]);
780
            add_to_buffer(tmp_buffer);
781
            boxplot_cnt++;
782
            reset();
783
        break;
784
        case BOXPLOTDATA:
785
        /*
786
        @ boxplotdata some_data
15111 schaersvoo 787
        @ 'some_data' are a list of numbers separated by a comma "," (items)
14071 bpr 788
        @ only be used before command <code>boxplot</code>: the command <a href="#boxplot">boxplot</a> will provide the boxplot drawing of the data.
11806 schaersvoo 789
        @ xrange 0,100<br />yrange 0,10<br />boxplotdata 11,22,13,15,23,43,12,12,14,2,45,32,44,13,21,24,13,19,35,21,24,23<br />boxplot x,4,5
790
        @ note: wims will not check your data input | format. use js-error console to debug any problems.
14071 bpr 791
        @ a javascript function <code>statistics()</code> will parse the data and calculate the values [min,Q1,median,Q3,max] and hand them to the boxplot draw function.
792
        @ only a single call to <code>boxplotdata</code> can be made. If multiple boxplots should be present in a single canvas, then use multiple calls to command <a href='#boxplot'>boxplot</a>
13959 bpr 793
        @%boxplotdata%size 400,400%xrange 0,100%yrange 0,10%strokecolor orange%fillpattern hatch%linewidth 3%strokecolor green%boxplotdata 11,22,13,15,23,43,12,12,14,2,45,32,44,13,21,24,13,19,35,21,24,23%boxplot x,2,2%mouse red,16
11806 schaersvoo 794
        */
15111 schaersvoo 795
            js_function[DRAW_JSBOXPLOT] = 1;
796
            js_function[DRAW_BOXPLOT] = 1;
11806 schaersvoo 797
            fprintf(js_include_file,"var boxplot_source = 1;var jsboxplot_data = [%s];\n",get_string(infile,1));
798
 
799
        break;
800
 
801
        case CANVASTYPE:
802
         canvas_type = (int) (get_real(infile,1));
803
        /*
804
        @ canvastype TYPE
14246 bpr 805
        @ for now only useful before commands filltoborder / floodfill / clickfill etc operations<br />Only the images of this TYPE will be scanned and filled
11806 schaersvoo 806
        @ default value of TYPE is DRAG_CANVAS e.g. 5 (all clickable / draggable object are in this canvas)
807
        @ use another TYPE, if you know what you are doing...
15309 schaersvoo 808
        @ other possible canvasses (e.g. transparent PNG pictures, xsize &times; ysize on top of each other)<ul><li> EXTERNAL_IMAGE_CANVAS 0</li><li> BG_CANVAS         1</li><li> STATIC_CANVAS        2</li><li> MOUSE_CANVAS 3</li><li> GRID_CANVAS  4</li><li> DRAG_CANVAS  5</li><li> DRAW_CANVAS  6</li><li> TEXT_CANVAS  7</li><li> CLOCK_CANVAS 8</li><li> ANIMATE_CANVAS       9</li><li> TRACE_CANVAS 10</li><li>BOXPLOT_CANVAS 11</li><li> JSPLOT_CANVAS     100, will increase with every call</li><li> FILL_CANVAS 200, will increase with every call</li><li> USERDRAW_JSPLOT 300, will increase with every call</li><li>CLICKFILL_CANVAS 400, will increase with every call/click</li><li>BOXPLOT_CANVAS 500, will increase with every call</li></ul>
11806 schaersvoo 809
        */
810
        break;
811
 
15111 schaersvoo 812
        case CENTERED:
813
         use_offset = 4;
814
         /*
815
         @ centered
816
         @ keyword ; to place the text centered (in width and height) on the text coordinates(x:y)
817
         @ may be used for text exactly centered on its (x;y)
818
         @ use <a href="#fontfamily">fontfamily</a> for setting the font
819
         @ may be active for commands <a href="#text">text</a> and <a href="#string">string</a> (e.g. objects in the ''drag/drop/onclick-library``)
15313 schaersvoo 820
         @%centered%size 400,400%xrange -10,10%yrange -10,10%fontfamily 12pt Arial%string blue,-9,-9,no offset%point -9,-9,red%centered%string blue,-6,-6,centered%point -6,-6,red%xoffset%string blue,-3,-3,xoffset%point -3,-3,red%yoffset%string blue,0,0,yoffset%point 0,0,red%xyoffset%string blue,3,3,xyoffset%point 3,3,red%resetoffset%string blue,6,6,resetoffset%point 6,6,red
15111 schaersvoo 821
        */
822
        break;
823
 
11806 schaersvoo 824
        case CENTERSTRING:
825
        /*
826
         @ centerstring color,y-value,the text string
827
         @ title color,y-value,the text string
828
         @ draw a string centered on the canvas at y = y-value
14071 bpr 829
         @ can not be set ''onclick`` or ''drag xy`` (...)
14162 bpr 830
         @ unicode supported: <code>centerstring red,5,\\u2232</code>
15313 schaersvoo 831
         @ use a command like <code>fontfamily italic 24pt Arial</code> to set fonts on browser that support font change
12110 schaersvoo 832
         @%centerstring%size 400,400%xrange -10,10%yrange -10,10%bgcolor lightblue%fontfamily italic 22pt Courier%centerstring blue,7,the center
11806 schaersvoo 833
        */
15111 schaersvoo 834
            js_function[DRAW_CENTERSTRING] = 1;
11806 schaersvoo 835
            for(i=0;i<3;i++){
836
                switch(i){
837
                    case 0: stroke_color = get_color(infile,0);break;/* name or hex color */
838
                    case 1: double_data[0] = get_real(infile,0);break; /* y in xrange*/
839
                    case 2: temp = get_string_argument(infile,1);
840
                            /* draw_text = function(canvas_type,y,font_family,stroke_color,stroke_opacity,text) */
841
                            decimals = find_number_of_digits(precision);
15111 schaersvoo 842
                            string_length = 1 + snprintf(NULL,0,"draw_centerstring(%d,%.*f,\"%s\",\"%s\",%.2f,\"%s\");\n",canvas_root_id,decimals,double_data[0],font_family,stroke_color,stroke_opacity,temp);
14208 schaersvoo 843
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11806 schaersvoo 844
                            snprintf(tmp_buffer,string_length,"draw_centerstring(%d,%.*f,\"%s\",\"%s\",%.2f,\"%s\");\n",canvas_root_id,decimals,double_data[0],font_family,stroke_color,stroke_opacity,temp);
845
                            add_to_buffer(tmp_buffer);
846
                            break;
847
                    default:break;
848
                }
9427 schaersvoo 849
            }
850
            break;
15111 schaersvoo 851
        case CHEMTEX:
852
        /*
15116 bpr 853
        chemtex
854
        keyword...needs to be the first command in the script (even before the ''size`` command)
855
        only for KaTeX enabled typesetting !
856
        will include 80kB large js-library for chemisty typesetting
857
        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>
858
        using MathJaX : <code>latex x,y,\\ce{ chemistry tex code} like : \\ce{ Hg^2+ ->[I-] HgI2 ->[I-] [Hg^{II}I4]^2- }</code>
859
        see https://mhchem.github.io/MathJax-mhchem/
15313 schaersvoo 860
        %chemtex_katex_mathjax%chemtex%size 400,400%xrange -10,10%yrange -10,10%snaptogrid%fontfamily 22px Arial%strokecolor red%drag xy%centered%latex 0,8,\\ce{Hg^2+}%drag xy%centered%latex 0,4,\\ce{\\xrightarrow{\\text{I}^{-}}}%drag xy%centered%latex 0,0,\\ce{HgI2}%centered%drag xy%latex 0,-4,\\ce{\\xrightarrow{\\text{I}^{-}}}%drag xy%centered%latex 0,-8,\\ce{[Hg^{II}I4]^2-}
15111 schaersvoo 861
        */
862
         found_size_command = 1;
863
          fprintf(stdout,"\n<script src=\"scripts/js/KaTeX/mhchem.js\" defer></script>\n");
864
        break;
8386 schaersvoo 865
 
866
        case CIRCLE:
8299 schaersvoo 867
        /*
8386 schaersvoo 868
        @ circle xc,yc,width (2*r in pixels),color
15111 schaersvoo 869
        @ use command <code>fcircle xc,yc,d,color</code>
15715 schaersvoo 870
        @ alternative: disk
15111 schaersvoo 871
        @ use command <code>fillcolor color</code> to set the fillcolor
14071 bpr 872
        @ may be set <a href='#drag'>draggable</a> / <a href='#onclick'>onclick</a>
15111 schaersvoo 873
        @ will shrink / expand on zoom out / zoom in
12110 schaersvoo 874
        @%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
8299 schaersvoo 875
        */
8386 schaersvoo 876
            for(i=0;i<4;i++){
877
                switch(i){
878
                    case 0: double_data[0] = get_real(infile,0);break; /* x */
879
                    case 1: double_data[1] = get_real(infile,0);break; /* y */
14066 bpr 880
                    case 2: double_data[2] = px2x((get_real(infile,0))/2) - px2x(0);break; /* for zoom in/out: radius in 'dx' xrange*/
8386 schaersvoo 881
                    case 3: stroke_color = get_color(infile,1);/* name or hex color */
15111 schaersvoo 882
                        if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}
883
                        if(use_affine == TRUE ){ transform(2,2);}
884
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
8386 schaersvoo 885
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 886
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,13,[%.*f],[%.*f],[%.3f],[%.3f],%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[1],double_data[2],double_data[2],line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
887
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
888
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,13,[%.*f],[%.*f],[%.3f],[%.3f],%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[1],double_data[2],double_data[2],line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
889
                        add_to_buffer(tmp_buffer);
890
                        if(onclick != 0){object_cnt++;}/* object_cnt++;*/
891
                        dragstuff[13] = 1;
892
                        if(use_dragstuff == 0 ){ use_dragstuff = 1; }
8386 schaersvoo 893
                        reset();
894
                        break;
895
                    default : break;
896
                }
897
            }
898
            break;
899
 
900
        case CIRCLES:
901
        /*
902
        @ circles color,xc1,yc1,r1,xc2,yc2,r2...xc_n,yc_n,r_n
9383 schaersvoo 903
        @ <b>attention</b> r = radius in x-range (!)
14071 bpr 904
        @ use keyword <code>filled</code> or command <code>fcircles</code> to produce solid circles
15715 schaersvoo 905
        @ alternative: disks
14071 bpr 906
        @ use command <code>fillcolor color</code> to set the fillcolor
907
        @ may be set <a href='#drag'>draggable</a> / <a href='#onclick'>onclick</a> (individually)
8386 schaersvoo 908
        @ will shrink / expand on zoom out / zoom in
14208 schaersvoo 909
        @%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
910
        @%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
911
        @%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
8386 schaersvoo 912
        */
8299 schaersvoo 913
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
914
            fill_color = stroke_color;
8386 schaersvoo 915
            i=1;
8299 schaersvoo 916
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 917
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
8386 schaersvoo 918
                switch (i%3){
919
                 case 1:double_data[i-1] = get_real(infile,0);break; /* x */
920
                 case 2:double_data[i-1] = get_real(infile,0);break; /* y */
921
                 case 0:double_data[i-1] = get_real(infile,1);break; /* r */
8299 schaersvoo 922
                }
923
                i++;
924
            }
15111 schaersvoo 925
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,3);}
926
            if(use_affine == TRUE ){ transform(i-1,3);}
927
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
928
 
8299 schaersvoo 929
            decimals = find_number_of_digits(precision);
8386 schaersvoo 930
            for(c = 0 ; c < i-1 ; c = c+3){
15111 schaersvoo 931
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,13,[%.*f],[%.*f],[%.3f],[%.3f],%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+1],double_data[c+2],double_data[c+2],line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
932
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
933
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,13,[%.*f],[%.*f],[%.3f],[%.3f],%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+1],double_data[c+2],double_data[c+2],line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
934
                add_to_buffer(tmp_buffer);
935
                if(onclick != 0){object_cnt++;}/* object_cnt++; */
8299 schaersvoo 936
            }
937
            reset();
15111 schaersvoo 938
            dragstuff[13] = 1;
939
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
8299 schaersvoo 940
            break;
11806 schaersvoo 941
        case CLEARBUTTON:
942
        /*
943
         @ clearbutton value
15715 schaersvoo 944
         @ alternative: delete
945
         @ alternative: erase
15111 schaersvoo 946
         @ adds a button to clear the <a href="#userdraw">userdraw</a> canvas with text ''value``
947
         @ <b>attention</b> command <code>clearbutton</code> is incompatible with <a href="#multidraw">multidraw</a> based drawings<br/>(in <code>multidraw</code> there is always a remove_object_button for every draw primitive)
948
         @ normally <a href="#userdraw">userdraw</a> 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
14071 bpr 949
         @ uses the tooltip placeholder div element: may not be used with command <code>intooltip</code>
15111 schaersvoo 950
         @ use command <a href="#css">css</a> to style the button...
951
         @ the clearbutton will have id="canvas_scripts[%d]" ; starting with %d=0 for the first script<br />to change the style of all ''clearbutton`` of all included canvasdraw scripts, use something like<br /><code>if(document.getElementById("clearbutton"+canvas_scripts[0])){<br />&nbsp;var p = 0;<br />&nbsp;while(document.getElementById("clearbutton"+canvas_scripts[p])){<br />&nbsp;&nbsp;document.getElementById("clearbutton"+canvas_scripts[p]).className="some_class_name";<br />&nbsp;&nbsp;&lt;!&minus;&minus;</code> or <code>document.getElementById("clearbutton"+canvas_scripts[p]).setAttribute("style","some_style"); &minus;&minus;&gt;<br />&nbsp;&nbsp;p++;<br />&nbsp;};<br />};</code>
13935 bpr 952
         @%clearbutton%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor lightblue%opacity 255,50%userdraw circles,red%clearbutton Remove All
11806 schaersvoo 953
        */
954
        if(reply_format == 29){/* eg multidraw is selected */
14054 schaersvoo 955
        // canvas_error("command clearbutton incompatible with multidraw...only suitable for userdraw");
11806 schaersvoo 956
        }
15111 schaersvoo 957
          add_clear_button(css_class,get_string(infile,1));
11806 schaersvoo 958
        break;
8386 schaersvoo 959
 
11806 schaersvoo 960
        case CLOCK:
7614 schaersvoo 961
        /*
11806 schaersvoo 962
        @ clock x,y,r(px),H,M,S,type hourglass,interactive [ ,H_color,M_color,S_color,background_color,foreground_color ]
14071 bpr 963
        @ use command <code>opacity stroke-opacity,fill-opacity</code> to adjust foreground (stroke) and background (fill) transparency
14066 bpr 964
        @ type hourglass:<br />type = 0: only segments<br />type = 1: only numbers<br />type = 2: numbers and segments
11806 schaersvoo 965
        @ colors are optional: if not defined, default values will be used<br />default colours: clock 0,0,60,4,35,45,1,2<br />custom colours: clock 0,0,60,4,35,45,1,2,,,,yellow,red<br />custom colours: clock 0,0,60,4,35,45,1,2,white,green,blue,black,yellow
966
        @ if you don't want a seconds hand (or minutes...), just make it invisible by using the background color of the hourglass...
14162 bpr 967
        @ interactive <ul><li>0: not interactive, just clock(s)</li><li>1: function read_canvas() will read all active clocks in H:M:S format<br />The active clock(s) can be adjusted by pupils</li><li>2: function read_canvas() will return the clicked clock <br />(like multiplechoice; first clock in script in nr. 0 )</li><li>3: no prefab buttons...create your own buttons (or other means) to make the clock(s) adjustable by javascript function set_clock(num,type,diff)<br />wherein: num = clock id (starts with 0) ; type = 1 (hours) ; type = 2 (minutes) ; type = 3 (seconds) <br />and diff = the increment of 'type' (positive or negative)</li></ul>
11806 schaersvoo 968
        @ canvasdraw will not check validity of colornames...the javascript console is your best friend
969
        @ no combinations with other reply_types allowed, for now
14077 bpr 970
        @ if interactive is set to ''1``, 6 buttons per clock will be displayed for adjusting a clock (H+ M+ S+ H- M- S-)<br /> set_clock(clock_id,type,incr) <br />first clock has clock_id=0 ; type: H=1,M=2,S=3 ; incr: increment integer
971
        @ note: if you need multiple -interactive- clocks on a webpage, use multiple ''clock`` commands in a single script !<br />and <i>not multiple canvas scripts</i> in a single page
14066 bpr 972
        @ note: clocks will not zoom or pan, when using command <a href='#zoom'>zoom</a>
12110 schaersvoo 973
        @%clock_1%size 400,400%xrange -10,10%yrange -10,10%clock 0,0,120,4,35,45,0,0,red,green,blue,lightgrey,black
974
        @%clock_2%size 400,400%xrange -10,10%yrange -10,10%clock 0,0,120,4,35,45,1,1,red,green,blue,lightgrey,black
975
        @%clock_3%size 400,400%xrange -10,10%yrange -10,10%clock -5,0,80,4,35,45,2,2,red,green,blue,lightgrey,black%clock 5,0,80,3,15,65,2,2,red,green,blue,lightgrey,black
976
        @%clock_4%size 400,400%xrange -10,10%yrange -10,10%clock 0,0,120,4,35,45,0,0,red,green,blue,lightgrey,black
977
        @%clock_5%size 400,400%xrange -10,10%yrange -10,10%clock 0,0,120,4,35,45,1,1,red,green,blue,lightgrey,black
978
        @%clock_6%size 400,400%xrange -10,10%yrange -10,10%clock -5,0,80,4,35,45,2,2,red,green,blue,lightgrey,black%clock 5,0,80,8,55,15,2,2,red,green,blue,lightgrey,black
979
        @%clock_7%size 400,400%xrange -10,10%yrange -10,10%clock 0,0,120,4,35,45,2,0,red,green,blue,lightgrey,black
7614 schaersvoo 980
        */
15111 schaersvoo 981
            js_function[DRAW_CLOCK] = 1;
982
            js_function[INTERACTIVE] = 1;
11806 schaersvoo 983
 
984
        /*    var clock = function(xc,yc,radius,H,M,S,h_color,m_color,s_color,bg_color,fg_color) */
985
            for(i=0;i<9;i++){
986
             switch(i){
987
              case 0: int_data[0] = x2px(get_real(infile,0)); break; /* xc */
988
              case 1: int_data[1] = y2px(get_real(infile,0)); break; /* yc */
989
              case 2: int_data[2] = get_real(infile,0);break;/* radius in px */
990
              case 3: int_data[3] = get_real(infile,0);break;/* hours */
991
              case 4: int_data[4] = get_real(infile,0);break;/* minutes */
992
              case 5: int_data[5] = get_real(infile,0);break;/* seconds */
993
              case 6: int_data[6] = get_real(infile,0);if(int_data[6] < 0 || int_data[6] > 2){canvas_error("hourglass can be 0,1 or 2");}break;/* type hourglass */
994
              case 7: int_data[7] = (int)(get_real(infile,1));/* interactive 0,1,2*/
995
                switch(int_data[7]){
996
                    case 0:break;
997
                    case 1:if(clock_cnt == 0){
998
                           if( reply_format == 0 ){
999
                            reply_format = 18; /* user sets clock */
14208 schaersvoo 1000
                            /* string_length = 1 + snprintf(NULL,0,"set_clock = function(num,type,diff){var name = eval(\"clocks\"+num);switch(type){case 1:name.H = parseInt(name.H+diff);break;case 2:name.M = parseInt(name.M+diff);break;case 3:name.S = parseInt(name.S+diff);break;default: break;};name = clock(name.xc,name.yc,name.radius,name.H,name.M,name.S,name.type,name.interaction,name.H_color,name.M_color,name.S_color,name.bg_color,name.fg_color);};\n");
1001
                               check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11806 schaersvoo 1002
                               snprintf(tmp_buffer,string_length,"set_clock = function(num,type,diff){var name = eval(\"clocks\"+num);switch(type){case 1:name.H = parseInt(name.H+diff);break;case 2:name.M = parseInt(name.M+diff);break;case 3:name.S = parseInt(name.S+diff);break;default: break;};name = clock(name.xc,name.yc,name.radius,name.H,name.M,name.S,name.type,name.interaction,name.H_color,name.M_color,name.S_color,name.bg_color,name.fg_color);};\n");
1003
                               add_to_buffer(tmp_buffer);
1004
                           */
1005
                            fprintf(js_include_file,"set_clock = function(num,type,diff){if(wims_status == \"done\"){return;};var name = eval(\"clocks\"+num);switch(type){case 1:name.H = parseInt(name.H+diff);break;case 2:name.M = parseInt(name.M+diff);break;case 3:name.S = parseInt(name.S+diff);break;default: break;};name = new clock(name.xc,name.yc,name.radius,name.H,name.M,name.S,name.type,name.interaction,name.H_color,name.M_color,name.S_color,name.bg_color,name.fg_color);};\n");
1006
                           }
1007
                           else
1008
                           {
1009
                            canvas_error("interactive clock may not be used together with other reply_types...");
1010
                           }
1011
                          }
15111 schaersvoo 1012
                          fprintf(stdout,"<p style=\"text-align:center\"><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,1,1)\" value=\"H+\" /><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,2,1)\" value=\"M+\" /><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,3,1)\" value=\"S+\" /><br /><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,1,-1)\" value=\"H&minus;\" /><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,2,-1)\" value=\"M&minus;\" /><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,3,-1)\" value=\"S&minus;\" /></p>",css_class,clock_cnt,css_class,clock_cnt,css_class,clock_cnt,css_class,clock_cnt,css_class,clock_cnt,css_class,clock_cnt);
11806 schaersvoo 1013
                    break;
1014
                    case 3:if(clock_cnt == 0){
1015
                            if( reply_format == 0 ){
1016
                             reply_format = 18; /* user sets clock */
1017
                             fprintf(js_include_file,"set_clock = function(num,type,diff){if(wims_status == \"done\"){return;};var name = eval(\"clocks\"+num);switch(type){case 1:name.H = parseInt(name.H+diff);break;case 2:name.M = parseInt(name.M+diff);break;case 3:name.S = parseInt(name.S+diff);break;default: break;};name = new clock(name.xc,name.yc,name.radius,name.H,name.M,name.S,name.type,1,name.H_color,name.M_color,name.S_color,name.bg_color,name.fg_color);};\n");
1018
                            }
1019
                            else
1020
                            {
1021
                             canvas_error("interactive clock may not be used together with other reply_types...");
1022
                            }
1023
                           }
1024
                            /*
15111 schaersvoo 1025
                            fprintf(stdout,"<p style=\"text-align:center\"><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,1,1)\" value=\"H+\" /><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,2,1)\" value=\"M+\" /><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,3,1)\" value=\"S+\" /><br /><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,1,-1)\" value=\"H&minus;\" /><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,2,-1)\" value=\"M&minus;\" /><input class=\"%s\" type=\"button\" onclick=\"javascript:set_clock(%d,3,-1)\" value=\"S&minus;\" /></p>",css_class,clock_cnt,css_class,clock_cnt,css_class,clock_cnt,css_class,clock_cnt,css_class,clock_cnt,css_class,clock_cnt);
11806 schaersvoo 1026
                           */
1027
                    break;
1028
                    case 2:if( reply_format == 0 ){
1029
                                reply_format = 19; /* "onclick */
15111 schaersvoo 1030
                                js_function[INTERACTIVE] = 1;
1031
                                fprintf(js_include_file,"\n/* begin onclick handler for clocks */\nvar reply = new Array();canvas_div.addEventListener( 'mousedown', user_click,false);\n\nfunction user_click(evt){if(evt.button == 1){var canvas_rect = clock_canvas.getBoundingClientRect();var x = evt.clientX - canvas_rect.left;var y = evt.clientY - canvas_rect.top;var p = 0;var name;var t = true;while(t){try{name = eval('clocks'+p);if( x < name.xc + name.radius && x > name.xc - name.radius ){if( y < name.yc + name.radius && y > name.yc - name.radius ){reply[0] = p;name = new clock(name.xc,name.yc,name.radius,name.H,name.M,name.S,name.type,name.interaction,name.H_color,name.M_color,name.S_color,\"lightblue\",name.fg_color);};}else{clock_ctx.clearRect(name.xc-name.radius,name.yc-name.radius,name.xc+name.radius,name.yc+name.radius);name = new clock(name.xc,name.yc,name.radius,name.H,name.M,name.S,name.type,name.interaction,name.H_color,name.M_color,name.S_color,name.bg_color,name.fg_color);};p++;}catch(e){t=false;};};};};\n");
11806 schaersvoo 1032
                            }
1033
                            else
1034
                            {
1035
                                if( reply_format != 19){
1036
                                   canvas_error("clickable clock(s) may not be used together with other reply_types...");
1037
                                 }
1038
                            }
1039
                     break;
1040
                     default: canvas_error("interactive must be set 0,1 or 2");break;
1041
                }
1042
                break;
1043
                case 8:
14078 bpr 1044
                        if(clock_cnt == 0 ){ /* set opacity's just once .... it should be a argument to clock(), for now it's OK */
11806 schaersvoo 1045
                            fprintf(js_include_file,"var clock_bg_opacity = %.2f;var clock_fg_opacity = %.2f;",fill_opacity,stroke_opacity);
1046
                        }
1047
                        temp = get_string(infile,3);/* optional colors, like: ,,red,,blue*/
1048
                        if( strstr( temp,",") != 0 ){ temp = str_replace(temp,",","\",\""); }
1049
                        else{
1050
                        /* h_color,m_color,s_color,bg_color,fg_color */
11991 schaersvoo 1051
                        temp = ",black\",\"black\",\"black\",\"white\",\"black";}
14208 schaersvoo 1052
                        string_length = 1 + snprintf(NULL,0,"clocks%d = new clock(%d,%d,%d,%d,%d,%d,%d,%d,\"%s\");\n",clock_cnt,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],int_data[5],int_data[6],int_data[7],temp);
1053
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11806 schaersvoo 1054
                        snprintf(tmp_buffer,string_length,"clocks%d = new clock(%d,%d,%d,%d,%d,%d,%d,%d,\"%s\");\n",clock_cnt,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],int_data[5],int_data[6],int_data[7],temp);
1055
                        add_to_buffer(tmp_buffer);
1056
                        fprintf(js_include_file,"var clocks%d;",clock_cnt);
1057
                        clock_cnt++;
1058
                        break;
1059
                default:break;
1060
             }
1061
            }
1062
            break;
1063
 
1064
 
1065
        case COLORPALETTE:
1066
        /*
1067
         @ colorpalette color_name_1,color_name_2,...,color_name_8
1068
         @ opacity will be the same for all colors and is set by command <a href="#opacity">opacity [0-255],[0-255]</a>
14066 bpr 1069
         @ can be used with command <a href='#userdraw'>userdraw clickfill,color</a> when more than one fillcolor is wanted.<br />in that case use for example <a href='#replyformat'>replyformat 10</a> ... reply=x1:y1:color1,x2:y2:color2...<br />the pupil can choose from the given colors by clicking small coloured buttons.<br /> the click coordinates and corresponding fillcolor will be stored in read_canvas()...when using the appropriate replyformat.<br />the first color of the palette is color=0
14077 bpr 1070
         @ make sure to include the ''remove button`` by using command <a href='#clearbutton'>clearbutton some_text</a>
11806 schaersvoo 1071
        */
1072
            if( use_tooltip == 1 ){canvas_error("command 'colorpalette' is incompatible with command 'intooltip tip_text'");}
1073
            fprintf(js_include_file,"var multifillcolors = [];var palettecolors = [");
1074
            while( ! done ){
1075
                temp = get_color(infile,1);
1076
                fprintf(js_include_file,"\"%s\",",temp);
1077
            }
1078
            fprintf(js_include_file,"];");/* add black to avoid trouble with dangling comma... */
15111 schaersvoo 1079
            add_color_palette(css_class);
11806 schaersvoo 1080
            break;
13829 bpr 1081
 
15111 schaersvoo 1082
        case COMMENT:
1083
            sync_input(infile);
1084
            break;
1085
 
1086
 
11806 schaersvoo 1087
        case COPY:
1088
        /*
1089
        @ copy x,y,x1,y1,x2,y2,[filename URL]
1090
        @ The image may be "bitmap" or "SVG"
1091
        @ Insert the region from (x1,y1) to (x2,y2) (in pixels) of [filename] to (x,y) in x/y-range
1092
        @ If x1=y1=x2=y2=-1, the whole [filename URL] is copied.
1093
        @ [filename] is the URL of the image
15111 schaersvoo 1094
        @ <em>TODO:move special image functions to generic 'dragstuff' library</em>
1095
        @ URL is normal URL of network reachable image file location
1096
        @ if command <a href="#drag">drag x/y/xy</a> 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 valid for the next image<br />draggable / non-draggable images may be mixed<br />may be used together with preceding keywords ''snaptogrid``, ''xsnaptogrid``, ''ysnaptogrid`` or <code>snaptopoints x1,y1,x2,y2...</code>.
1097
        @ if keyword <a href="#onclick">onclick</a> is set before command ''copy`` the image(s) is clickable (marked with a green rectangle around the image)<br />use 'read_dragdrop' to get the number of the clicked image(s)<br />use command 'clearbutton some_text' to reset the reply/click array.<br />example: 4 images; student clicked on image 2 and 3: reply = 0,1,1,0<br />after clicking the clear button: reply = 0,0,0,0<br />May be mixed with commands ''drag x|y|xy`` (use javascript read_canvas to get the new coordinates
1098
        @ ''onclick`` for external images may be mixed with canvas generated stuff (like lines,curves, embeded XML etc)
11806 schaersvoo 1099
        @ you may draw / userdraw / drag other stuff on top of an "imported" image
15633 bpr 1100
        @ the use of a slider is not possible: if needed, use command <a href='#html'>html x,y,&lt;img src=my_image.svg /&gt; </a>
14077 bpr 1101
        @ use keyword <a href='#centered'>centered</a> before command ''copy`` to place image center at given coordinates.
13967 schaersvoo 1102
        @%copy_onclick%size 400,400%xrange -10,10%yrange -10,10%onclick%copy -5,5,-1,-1,-1,-1,gifs/fr.gif%onclick%copy 5,5,-1,-1,-1,-1,gifs/en.gif%onclick%copy 5,-5,-1,-1,-1,-1,gifs/it.gif%onclick%copy -5,-5,-1,-1,-1,-1,gifs/cn.gif
14066 bpr 1103
        @%copy_drag_xy%size 400,400%xrange -10,10%yrange -10,10%# attention: left mouse click on the image will activate dragging...%# keep left mouse button pressed while moving the image !%drag xy%copy -5,5,-1,-1,-1,-1,gifs/fr.gif%drag xy%copy 5,5,-1,-1,-1,-1,gifs/en.gif%drag xy%copy 5,-5,-1,-1,-1,-1,gifs/it.gif%drag xy%copy -5,-5,-1,-1,-1,-1,gifs/cn.gif
1104
        @%copy_drag_xy_snaptogrid%size 400,400%xrange -10,10%yrange -10,10%grid 2,2,grey%# attention: left mouse click on the image will activate dragging...%# keep left mouse button pressed while moving the image !%drag xy%# a function read_canvas_images() %copy -6,6,-1,-1,-1,-1,gifs/fr.gif%snaptogrid%drag xy%copy 6,6,-1,-1,-1,-1,gifs/en.gif%snaptogrid%drag xy%copy 6,-6,-1,-1,-1,-1,gifs/it.gif%snaptogrid%drag xy%copy -6,-6,-1,-1,-1,-1,gifs/cn.gif
11806 schaersvoo 1105
        */
1106
            for(i = 0 ; i<7;i++){
7614 schaersvoo 1107
                switch(i){
15111 schaersvoo 1108
                    case 0: double_data[0]=get_real(infile,0);break; /* x left top corner in x/y range  */
1109
                    case 1: double_data[1]=get_real(infile,0);break; /* y left top corner in x/y range */
11806 schaersvoo 1110
                    case 2: int_data[2]=(int)(get_real(infile,0));break;/* x1 in px of external image */
1111
                    case 3: int_data[3]=(int)(get_real(infile,0));break;/* y1 in px of external image */
1112
                    case 4: int_data[4]=(int)(get_real(infile,0));break;/* x2 --> width  */
1113
                    case 5: int_data[5]=(int)(get_real(infile,0)) ;break;/* y2 --> height */
1114
                    case 6: URL = get_string(infile,1);
15111 schaersvoo 1115
                            if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}
1116
                            if(use_affine == TRUE ){transform(2,2);}
1117
                            int_data[0] = x2px(double_data[0]);
1118
                            int_data[1] = y2px(double_data[1]);
11806 schaersvoo 1119
                            int_data[6] = int_data[4] - int_data[2];/* swidth & width (if not scaling )*/
1120
                            int_data[7] = int_data[5] - int_data[3];/* sheight & height (if not scaling )*/
15111 schaersvoo 1121
                            if( onclick == 0 ){ /* no mouse needed static image copy  */
1122
                             if(js_function[DRAW_EXTERNAL_IMAGE] == 0){/* create canvas just once */
1123
                              fprintf(js_include_file,"var image_copy_canvas = create_canvas%d(%d,xsize,ysize);",canvas_root_id,STATIC_IMAGE_CANVAS);
1124
                              js_function[DRAW_EXTERNAL_IMAGE] = 1;
1125
                             }
1126
                             string_length = 1 + snprintf(NULL,0,  "draw_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],use_offset,int_data[10]);
1127
                             check_string_length(string_length);tmp_buffer = my_newmem(string_length);
1128
                             snprintf(tmp_buffer,string_length,    "draw_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],use_offset,int_data[10]);
11806 schaersvoo 1129
                            }
15111 schaersvoo 1130
                            else /* onclick or drag & drop external copy images */
11806 schaersvoo 1131
                            {
15111 schaersvoo 1132
                             js_function[DRAG_EXTERNAL_IMAGE] = 1;
1133
                             string_length = 1 + snprintf(NULL,0,  "drag_external_image(\"%s\",%d,%d,%d,%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],onclick,object_cnt,use_offset,use_snap,int_data[10]);
1134
                             check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15116 bpr 1135
                             snprintf(tmp_buffer,string_length,    "drag_external_image(\"%s\",%d,%d,%d,%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],onclick,object_cnt,use_offset,use_snap,int_data[10]);
11806 schaersvoo 1136
                            }
14038 schaersvoo 1137
                            add_to_buffer(tmp_buffer);
16847 schaersvoo 1138
                            object_cnt++;
11806 schaersvoo 1139
                            break;
7614 schaersvoo 1140
                    default: break;
1141
                }
1142
            }
15111 schaersvoo 1143
            reset();
7614 schaersvoo 1144
            break;
11806 schaersvoo 1145
/*
1146
HTML5 specs:
1147
context.drawImage(img,sx,sy,swidth,sheight,x,y,width,height);
1148
img     Specifies the image, canvas, or video element to use
14066 bpr 1149
sx      The x coordinate where to start clipping: x1 = int_data[0]
1150
sy      The y coordinate where to start clipping: x2 = int_data[1]
1151
swidth  The width of the clipped image: int_data[2] - int_data[0]
1152
sheight The height of the clipped image: int_data[3] - int_data[1]
1153
x       The x coordinate where to place the image on the canvas: dx1 = int_data[4]
1154
y       The y coordinate where to place the image on the canvas: dy1 = int_data[5]
1155
width   The width of the image to use (stretch or reduce the image): dx2 - dx1 = int_data[6]
1156
height  The height of the image to use (stretch or reduce the image): dy2 - dy1 = int_data[7]
11806 schaersvoo 1157
*/
1158
        case COPYRESIZED:
1159
        /*
15111 schaersvoo 1160
        @ copyresized x1,y2,x2,y2,dx1,dy1,dx2,dy2,image_file_url
11806 schaersvoo 1161
        @ The image may be any "bitmap" or "SVG"
1162
        @ 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
14066 bpr 1163
        @ (dx1:dy1) must be left top corner; (dx2:dy2) must be right bottom corner of inserted image
11806 schaersvoo 1164
        @ If x1=y1=x2=y2=-1, the whole [filename / URL ] is copied and resized.
15111 schaersvoo 1165
        @ URL is normal URL of network reachable image file location<br />(as seen from public_html-root or network reachable 'http://some_server/my_images/test.gif'<br />(eg no special wims paths are searched !!)
1166
        @ if command <a href="#drag">drag x/y/xy</a> 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 valid for the next image<br />draggable / non-draggable images may be mixed<br />may be used together with preceding keywords ''snaptogrid``,''xsnaptogrid``,''ysnaptogrid`` or <code>snaptopoints x1,y1,x2,y2...</code>
1167
        @ if keyword <a href="#onclick">onclick</a> is set before command ''copy`` the image(s) is clickable (marked with a green rectangle around the image)<br />use ''read_dragdrop`` to get the number of the clicked image(s)<br />use command 'clearbutton some_text' to reset the reply/click array.<br />example: 4 images; student clicked on image 2 and 3: reply = 0,1,1,0<br />after clicking the clear button: reply = 0,0,0,0<br />May be mixed with commands ''drag x|y|xy`` (use javascript read_canvas to get the new coordinates
1168
        @ ''onclick`` for external images may be mixed with canvas generated stuff (like lines,curves etc)
1169
        @ you may draw / userdraw / drag stuff on top of an "imported" image
1170
        @ when set draggable, there will be special function 'read_canvas_images()'<br />now dragging external images may be combined with 'read_canvas()' from <a href='#userdraw'>userdraw</a> or <a href='#multidraw'>multidraw</a><br />set command <a href='#precision'>precision</a> before command ''copy``
1171
        @ use keyword <a href='#centered'>centered</a> before command 'copyresized' to place image center at given coordinates.
1172
        @ <em>TODO:move special image functions to generic 'dragstuff' library</em>
11806 schaersvoo 1173
        */
1174
            for(i = 0 ; i<9;i++){
1175
                switch(i){
1176
                    case 0: int_data[0] = (int)(get_real(infile,0));break; /* x1 */
1177
                    case 1: int_data[1] = (int)(get_real(infile,0));break; /* y1 */
1178
                    case 2: int_data[2] = (int)(get_real(infile,0));break;/* x2 */
1179
                    case 3: int_data[3] = (int)(get_real(infile,0));break;/* y2 */
1180
                    case 4: int_data[4] = x2px(get_real(infile,0));break;/* dx1 */
1181
                    case 5: int_data[5] = y2px(get_real(infile,0));break;/* dy1 */
1182
                    case 6: int_data[6] = x2px(get_real(infile,0));break;/* dx2 */
1183
                    case 7: int_data[7] = y2px(get_real(infile,0));break;/* dy2 */
1184
                    case 8: URL = get_string(infile,1);
15111 schaersvoo 1185
                            if( int_data[1] == -1 ){ int_data[10] = 1; }else{int_data[10] = 0; }/* resized / not resized */
11806 schaersvoo 1186
                            /* flag error when wrong diagonal:  copyresized -1,-1,-1,-1,0,0,7,7,testfig.gif */
1187
                            if( int_data[7] < int_data[5] || int_data[6] < int_data[4]){
15633 bpr 1188
                                canvas_error("in copyresized,  use:<br />left top corner (dx1:dy1) and right bottom corner (dx2:dy2) ! ");
11806 schaersvoo 1189
                            }
1190
                            int_data[2] = abs(int_data[2] - int_data[0]);/* swidth */
1191
                            int_data[3] = abs(int_data[3] - int_data[1]);/* sheight */
1192
                            int_data[6] = abs(int_data[6] - int_data[4]);/* width */
1193
                            int_data[7] = abs(int_data[7] - int_data[5]);/* height */
15111 schaersvoo 1194
                            if( onclick == 0 ){ /* no mouse needed static image copy  */
1195
                             if(js_function[DRAW_EXTERNAL_IMAGE] == 0){
1196
                              fprintf(js_include_file,"var image_copy_canvas = create_canvas%d(%d,xsize,ysize);",canvas_root_id,STATIC_IMAGE_CANVAS);
1197
                              js_function[DRAW_EXTERNAL_IMAGE] = 1;
1198
                             }
1199
                             string_length = 1 + snprintf(NULL,0,  "draw_external_image(\"%s\",%d,%d,%d,%d,%d,%d,%d,%d,%d,%d);\n",URL,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],int_data[5],int_data[6],int_data[7],use_offset,int_data[10]);
1200
                             check_string_length(string_length);tmp_buffer = my_newmem(string_length);
1201
                             snprintf(tmp_buffer,string_length,    "draw_external_image(\"%s\",%d,%d,%d,%d,%d,%d,%d,%d,%d,%d);\n",URL,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],int_data[5],int_data[6],int_data[7],use_offset,int_data[10]);
11806 schaersvoo 1202
                            }
15111 schaersvoo 1203
                            else /* onclick or drag & drop external copy images */
11806 schaersvoo 1204
                            {
15111 schaersvoo 1205
                             js_function[DRAG_EXTERNAL_IMAGE] = 1;
1206
                             string_length = 1 + snprintf(NULL,0,  "drag_external_image(\"%s\",%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d);\n",URL,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],int_data[5],int_data[6],int_data[7],onclick,object_cnt,use_offset,use_snap,int_data[10]);
1207
                             check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15116 bpr 1208
                             snprintf(tmp_buffer,string_length,    "drag_external_image(\"%s\",%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d);\n",URL,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],int_data[5],int_data[6],int_data[7],onclick,object_cnt,use_offset,use_snap,int_data[10]);
15111 schaersvoo 1209
                             object_cnt++;
11806 schaersvoo 1210
                            }
14038 schaersvoo 1211
                            add_to_buffer(tmp_buffer);
11806 schaersvoo 1212
                            break;
1213
                    default: break;
1214
                }
1215
            }
14038 schaersvoo 1216
            reset();
11806 schaersvoo 1217
            break;
8386 schaersvoo 1218
 
11806 schaersvoo 1219
        case CROSSHAIR:
8386 schaersvoo 1220
        /*
11806 schaersvoo 1221
        @ crosshair x,y,color
14379 bpr 1222
        @ draw a single crosshair point at (x;y) in color ''color``
1223
        @ use command <code>crosshairsize int</code> and / or <code>linewidth int</code> to adjust
11806 schaersvoo 1224
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
12107 schaersvoo 1225
        @%crosshair%size 400,400%xrange -10,10%yrange -10,10%opacity 255,255%linewidth 2%onclick%crosshair 0,0,red%linewidth 1%onclick%crosshair 1,1,blue%linewidth 3%onclick%crosshair 3,3,green%linewidth 4%xrosshair 4,4,orange
11806 schaersvoo 1226
        */
1227
            for(i=0;i<3;i++){
1228
                switch(i){
1229
                    case 0: double_data[0] = get_real(infile,0);break; /* x */
1230
                    case 1: double_data[1] = get_real(infile,0);break; /* y */
1231
                    case 2: stroke_color = get_color(infile,1);/* name or hex color */
15111 schaersvoo 1232
                        if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}
1233
                        if(use_affine == TRUE ){ transform(2,2);}
1234
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
11806 schaersvoo 1235
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 1236
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,7,[%.*f],[%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[1],crosshair_size,crosshair_size,line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,0,0,0,use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
1237
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
1238
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,7,[%.*f],[%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[1],crosshair_size,crosshair_size,line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,0,0,0,use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
1239
                        add_to_buffer(tmp_buffer);
1240
                        if(onclick != 0){object_cnt++;}
1241
                        /* object_cnt++ */
11806 schaersvoo 1242
                        reset();
15111 schaersvoo 1243
                        dragstuff[7] = 1;
11806 schaersvoo 1244
                        break;
1245
                    default:break;
1246
                }
1247
            }
15111 schaersvoo 1248
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 1249
            break;
1250
 
1251
        case CROSSHAIRS:
1252
        /*
1253
        @ crosshairs color,x1,y1,x2,y2,...,x_n,y_n
14077 bpr 1254
        @ draw multiple crosshair points at given coordinates in color ''color``
14246 bpr 1255
        @ use command <code>crosshairsize int</code> and / or <code>linewidth int</code> to adjust
9406 schaersvoo 1256
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually (!)
12107 schaersvoo 1257
        @%crosshairs_1%size 400,400%xrange -10,10%yrange -10,10%opacity 255,255%snaptogrid%linewidth 2%drag xy%crosshairs red,0,0,1,1,2,2,3,3%drag x%crosshairs blue,0,1,1,2,2,3,3,4
1258
        @%crosshairs_2%size 400,400%xrange -10,10%yrange -10,10%opacity 255,255%linewidth 2%onclick%crosshairs red,0,0,1,1,2,2,3,3%onclick%crosshairs blue,0,1,1,2,2,3,3,4
1259
*/
8386 schaersvoo 1260
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
1261
            fill_color = stroke_color;
1262
            i=0;
1263
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 1264
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
8386 schaersvoo 1265
                if(i%2 == 0 ){
1266
                    double_data[i] = get_real(infile,0); /* x */
1267
                }
1268
                else
1269
                {
1270
                    double_data[i] = get_real(infile,1); /* y */
1271
                }
1272
                i++;
1273
            }
15111 schaersvoo 1274
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
1275
            if(use_affine == TRUE ){ transform(i-1,2);}
1276
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
8386 schaersvoo 1277
            decimals = find_number_of_digits(precision);
11806 schaersvoo 1278
            for(c=0 ; c < i-1 ; c = c+2){
15111 schaersvoo 1279
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,7,[%.*f],[%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+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,my_sliders,rotation_center,use_offset);
1280
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
1281
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,7,[%.*f],[%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+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,my_sliders,rotation_center,use_offset);
1282
                add_to_buffer(tmp_buffer);
1283
                if(onclick != 0){object_cnt++;}/* object_cnt++; */
8386 schaersvoo 1284
            }
15111 schaersvoo 1285
            dragstuff[7] = 1;
1286
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
8386 schaersvoo 1287
            reset();
1288
            break;
1289
 
11806 schaersvoo 1290
        case CROSSHAIRSIZE:
7614 schaersvoo 1291
        /*
11806 schaersvoo 1292
        @ crosshairsize int
1293
        @ default 8 (px)
7614 schaersvoo 1294
        */
11806 schaersvoo 1295
            crosshair_size = (int) (get_real(infile,1));
1296
            break;
15111 schaersvoo 1297
        case CSS:
1298
        /*
1299
        @ css css_class
1300
        @ may be used before any ''style-able`` html object (like inputfields or buttons) or some html objects that are generated by some canvasdraw commands
1301
        @ in case of <a href="#multidraw">multidraw</a> this command must be a table css class, for example "wimstable"
1302
        @%css%size 400,400%xrange -10,10%yrange -10,10%css wims_button_help%input 0,0,10,1,Hello
1303
        */
1304
            css_class = get_string(infile,1);
1305
            break;
11806 schaersvoo 1306
 
1307
        case CURSOR:
1308
        /*
14086 bpr 1309
        @ cursor some CSS cursor_style
15715 schaersvoo 1310
        @ alternative: pointer
13956 schaersvoo 1311
        @ style can be any valid CSS property value
1312
        @ choose from these types:<br />alias,all-scroll,auto,cell,context-menu,col-resize,copy,crosshair,default,e-resize,<br />ew-resize,grab,grabbing,help,move,n-resize,ne-resize,nesw-resize,ns-resize,nw-resize,<br />nwse-resize,no-drop,none,not-allowed,pointer,progress,row-resize,s-resize,se-resize,<br />sw-resize,text,url(myBall.cur),auto,vertical-text,w-resize,wait,zoom-in,zoom-out,initial
1313
        @ note: wims will not check the validity of your cursor declaration
1314
        @%cursor_css%size 400,400%xrange -10,10%yrange -10,10%cursor move%linewidth 3%drag xy%opacity 200,75%fcircles blue,-5,5,3,-4,-2,6,0,0,5,3,4,2,4,-5,4
11806 schaersvoo 1315
        */
1316
            fprintf(js_include_file,"canvas_div%d.style.cursor = \"%s\";",canvas_root_id,get_string(infile,1));
1317
            break;
1318
 
1319
        case CURVE:
1320
        /*
1321
         @ curve color,formula(x)
15715 schaersvoo 1322
         @ alternative: plot
15601 schaersvoo 1323
         @ use command <a href="#trange">trange</a> in parametric functions before <b>every</b> command curve / plot <code>trange -pi,pi<br />curve color,formula1(t),formula2(t)</code><br />A next parametric curve will only be correctly plot when trange is set again !<br/>this is a design flaw and not a feature...
14086 bpr 1324
         @ use command <a href="#precision">precision</a> to increase the number of digits of the plotted points
14066 bpr 1325
         @ use command <a href="#plotsteps">plotsteps</a> to increase / decrease the amount of plotted points (default 150)
11806 schaersvoo 1326
         @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
14379 bpr 1327
         @ if you need a plot beyond xrange / yrange, use <a href="#jsplot">jsplot</a> (command ''curve`` will only calculate points within the xrange)
12107 schaersvoo 1328
         @%curve%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%xlabel x-axis%ylabel y-axis%precision 1%grid 2,2,grey,2,2,6,grey%precision 1000%curve red,4*sqrt(x)%curve green,2*sqrt(abs(x)%curve blue,3*1/sqrt(x)%curve orange,4*sin(4/x)%dashed%curve red,4*cos(x)
11806 schaersvoo 1329
        */
15111 schaersvoo 1330
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
1331
 
11806 schaersvoo 1332
            if( use_parametric == TRUE ){ /* parametric color,fun1(t),fun2(t)*/
1333
                use_parametric = FALSE;
1334
                stroke_color = get_color(infile,0);
1335
                char *fun1 = get_string_argument(infile,0);
1336
                char *fun2 = get_string_argument(infile,1);
1337
                if( strlen(fun1) == 0 || strlen(fun2) == 0 ){canvas_error("parametric functions are NOT OK !");}
15601 schaersvoo 1338
                string_length = 1 + snprintf(NULL,0,"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_parametric(xsize,ysize,fun1,fun2,xmin,xmax,ymin,ymax,tmin,tmax,plot_steps,precision,rotationcenter),2*line_width,2*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);
15116 bpr 1339
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15601 schaersvoo 1340
                snprintf(tmp_buffer,string_length,"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_parametric(xsize,ysize,fun1,fun2,xmin,xmax,ymin,ymax,tmin,tmax,plot_steps,precision,rotationcenter),2*line_width,2*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);
15111 schaersvoo 1341
                add_to_buffer(tmp_buffer);
11806 schaersvoo 1342
            }
1343
            else
1344
            {
1345
                stroke_color = get_color(infile,0);
1346
                char *fun1 = get_string_argument(infile,1);
1347
                if( strlen(fun1) == 0 ){canvas_error("function is NOT OK !");}
15601 schaersvoo 1348
                string_length = 1 + snprintf(NULL,0,"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);
15116 bpr 1349
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15601 schaersvoo 1350
                snprintf(tmp_buffer,string_length,"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);
15111 schaersvoo 1351
                add_to_buffer(tmp_buffer);
11806 schaersvoo 1352
            }
15111 schaersvoo 1353
            if(onclick != 0){object_cnt++;}/* object_cnt++; */
1354
            dragstuff[9] = 1;
1355
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 1356
            reset();
1357
            break;
15116 bpr 1358
 
14038 schaersvoo 1359
    case CURVEDARROW:
1360
    /*
1361
    @ curvedarrow x1,y1,xc,yc,x2,y2,color
15111 schaersvoo 1362
    @ draw a single headed curved arrow from (x1:y1) in direction of (xc:yc) to point (x2:y2)<br /> note: the curve will <b>not go through</b> point (xc:yc)
14038 schaersvoo 1363
    @ use command <a href='#arrowhead'>arrowhead</a> to set the size of the arrow head.
15111 schaersvoo 1364
    @ use command <code>linewidth int</code> to adjust thickness of the arrow
1365
    @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
14038 schaersvoo 1366
    @%curvedarrow_drag%size 400,400%xrange -10,10%yrange -10,10%cursor move%linewidth 2%drag xy%curvedarrow -5,0,0,10,5,0,blue
1367
    @%curvedarrow_click%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%%onclick%curvedarrow -5,0,0,-10,5,0,blue%onclick%curvedarrow -8,0,0,5,8,3,green
11806 schaersvoo 1368
 
14029 schaersvoo 1369
h[0] = arrowhead
14066 bpr 1370
h[1] = type: 1 = single 2=double arrow
15111 schaersvoo 1371
function Shape(object_cnt,onclick,direction,type,x,y,w,h,line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,use_dashed,dashtype0,dashtype1,use_rotate,angle,text,font_size,font_family,use_slider,rotation_center,use_offset)
14038 schaersvoo 1372
    */
15111 schaersvoo 1373
        for(i=0;i<7;i++){
14038 schaersvoo 1374
            switch(i){
1375
                case 0: double_data[0] = get_real(infile,0);break; /* x1 */
1376
                case 1: double_data[1] = get_real(infile,0);break; /* y1 */
1377
                case 2: double_data[2] = get_real(infile,0);break; /* xc */
1378
                case 3: double_data[3] = get_real(infile,0);break; /* yc */
1379
                case 4: double_data[4] = get_real(infile,0);break; /* y3 */
1380
                case 5: double_data[5] = get_real(infile,0);break; /* y3 */
1381
                case 6: stroke_color = get_color(infile,1);/* name or hex color */
15111 schaersvoo 1382
                if(use_rotate == TRUE ){rotate(6,angle,rotationcenter,2);}
1383
                if(use_affine == TRUE ){ transform(6,2);}
1384
                if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
14038 schaersvoo 1385
                decimals = find_number_of_digits(precision);
15111 schaersvoo 1386
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,21,[%.*f,%.*f,%.*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[4],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],arrow_head,arrow_head,arrow_head,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,my_sliders,rotation_center,use_offset);
1387
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
1388
                snprintf(tmp_buffer,string_length,  "dragstuff.addShape(new Shape(%d,%d,%d,%d,21,[%.*f,%.*f,%.*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[4],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],arrow_head,arrow_head,arrow_head,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,my_sliders,rotation_center,use_offset);
1389
                add_to_buffer(tmp_buffer);
1390
                if(onclick != 0){object_cnt++;}/* object_cnt++;*/
1391
                reset();
14038 schaersvoo 1392
            break;
1393
            }
15111 schaersvoo 1394
        }
1395
        dragstuff[21] = 1;
1396
        if(use_dragstuff == 0 ){ use_dragstuff = 1; }
1397
        break;
14029 schaersvoo 1398
 
14038 schaersvoo 1399
    case CURVEDARROW2:
1400
    /*
1401
    @ curvedarrow2 x1,y1,xc,yc,x2,y2,color
14248 bpr 1402
    @ draw a double headed curved arrow from (x1:y1) in direction of (xc:yc) to point (x2:y2)<br /> note: the curve will <b>not go through</b> point (xc:yc)
14038 schaersvoo 1403
    @ use command <a href='#arrowhead'>arrowhead</a> to set the size of the arrow head.
14077 bpr 1404
    @ use command <code>linewidth int</code> to adjust thickness of the arrow
14038 schaersvoo 1405
    @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
1406
    @%curvedarrow_drag%size 400,400%xrange -10,10%yrange -10,10%cursor move%linewidth 2%drag xy%curvedarrow2 -5,0,0,10,5,0,blue
1407
    @%curvedarrow_click%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%%onclick%cuvedarrow2 -5,0,0,-10,5,0,blue%onclick%curvedarrow -8,0,0,5,8,3,green
14029 schaersvoo 1408
 
1409
h[0] = arrowhead
14066 bpr 1410
h[1] = type: 1 = single 2=double arrow
15111 schaersvoo 1411
function Shape(object_cnt,onclick,direction,type,x,y,w,h,line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,use_dashed,dashtype0,dashtype1,use_rotate,angle,text,font_size,font_family,use_slider,rotation_center,use_offset)
14038 schaersvoo 1412
    */
15111 schaersvoo 1413
        for(i=0;i<7;i++){
14038 schaersvoo 1414
            switch(i){
1415
                case 0: double_data[0] = get_real(infile,0);break; /* x1 */
1416
                case 1: double_data[1] = get_real(infile,0);break; /* y1 */
1417
                case 2: double_data[2] = get_real(infile,0);break; /* xc */
1418
                case 3: double_data[3] = get_real(infile,0);break; /* yc */
1419
                case 4: double_data[4] = get_real(infile,0);break; /* y3 */
1420
                case 5: double_data[5] = get_real(infile,0);break; /* y3 */
1421
                case 6: stroke_color = get_color(infile,1);/* name or hex color */
15111 schaersvoo 1422
                if(use_rotate == TRUE ){rotate(6,angle,rotationcenter,2);}
1423
                if(use_affine == TRUE ){ transform(6,2);}
1424
                if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
14038 schaersvoo 1425
                decimals = find_number_of_digits(precision);
15111 schaersvoo 1426
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,21,[%.*f,%.*f,%.*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[4],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],arrow_head,arrow_head,arrow_head,2,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);
1427
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
1428
                snprintf(tmp_buffer,string_length,  "dragstuff.addShape(new Shape(%d,%d,%d,%d,21,[%.*f,%.*f,%.*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[4],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],arrow_head,arrow_head,arrow_head,2,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);
1429
                add_to_buffer(tmp_buffer);
1430
                if(onclick != 0){object_cnt++;}/* object_cnt++;*/
1431
                dragstuff[21] = 1;
1432
                if(use_dragstuff == 0 ){ use_dragstuff = 1; }
1433
                reset();
1434
                break;
14038 schaersvoo 1435
            }
15111 schaersvoo 1436
        }
1437
        break;
14038 schaersvoo 1438
    case CURVEDARROWS:
1439
    /*
14248 bpr 1440
    @ curvedarrows color,x1,y1,xc,yc,x2,y2,...,x_(n-1),y_(n-1),xc,yc,x_n,y_n
1441
    @ draw curved arrows from (x1:y1) in direction of (xc:yc) to point (x2:y2), etc<br /> note: the curve will <b>not go through</b> point (xc:yc)
14038 schaersvoo 1442
    @ use command <a href='#arrowhead'>arrowhead</a> to set the size of the arrow head.
14077 bpr 1443
    @ use command <code>linewidth int</code> to adjust thickness of the arrow
14038 schaersvoo 1444
    @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
1445
    @%curvedarrows_drag%size 400,400%xrange -10,10%yrange -10,10%cursor move%linewidth 2%drag xy%curvedarrows red,-8,0,0,8,8,0,-5,5,0,-10,6,3
1446
    @%curvedarrows_click%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%%onclick%curvedarrows red,-8,0,0,8,8,0,-5,5,0,-10,6,3
14029 schaersvoo 1447
 
14030 schaersvoo 1448
h[0] = arrowhead
14066 bpr 1449
h[1] = type: 1 = single 2=double arrow
15111 schaersvoo 1450
function Shape(object_cnt,onclick,direction,type,x,y,w,h,line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,use_dashed,dashtype0,dashtype1,use_rotate,angle,text,font_size,font_family,use_slider,rotation_center,use_offset)
14038 schaersvoo 1451
    */
1452
        stroke_color = get_color(infile,0);/* name or hex color */
1453
        i = 0;
1454
        decimals = find_number_of_digits(precision);
15111 schaersvoo 1455
        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
14038 schaersvoo 1456
        while( ! done ){
15111 schaersvoo 1457
         if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
1458
         double_data[0] = get_real(infile,0); /* x1 */
1459
         double_data[1] = get_real(infile,0); /* y1 */
1460
         double_data[2] = get_real(infile,0); /* xc */
1461
         double_data[3] = get_real(infile,0); /* yc */
1462
         double_data[4] = get_real(infile,0); /* x3 */
1463
         double_data[5] = get_real(infile,1); /* y3 */
1464
         string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,21,[%.*f,%.*f,%.*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[4],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],arrow_head,arrow_head,arrow_head,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,my_sliders,rotation_center,use_offset);
1465
         check_string_length(string_length);tmp_buffer = my_newmem(string_length);
1466
         snprintf(tmp_buffer,string_length,  "dragstuff.addShape(new Shape(%d,%d,%d,%d,21,[%.*f,%.*f,%.*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[4],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],arrow_head,arrow_head,arrow_head,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,my_sliders,rotation_center,use_offset);
1467
         add_to_buffer(tmp_buffer);
1468
         if(onclick != 0){object_cnt++;}
1469
         i = i + 6;
1470
        }
1471
        if(use_rotate == TRUE ){rotate(i-6,angle,rotationcenter,2);}
1472
        if(use_affine == TRUE ){ transform(i-6,2);}
1473
        dragstuff[21] = 1;
1474
        if(use_dragstuff == 0 ){ use_dragstuff = 1; }
1475
        reset();
1476
        break;
14030 schaersvoo 1477
 
14038 schaersvoo 1478
    case CURVEDARROWS2:
1479
    /*
1480
    @ curvedarrows2 color,x1,y1,xc,yc,x2,y2,...x_(n-1),y_(n-1),xc,yc,x_n,y_n
14248 bpr 1481
    @ draw double headed curved arrows from (x1:y1) in direction of (xc:yc) to point (x2:y2), etc. <br /> note: the curve will <b>not go through</b> point (xc:yc)
14038 schaersvoo 1482
    @ use command <a href='#arrowhead'>arrowhead</a> to set the size of the arrow head.
14077 bpr 1483
    @ use command <code>linewidth int</code> to adjust thickness of the arrow
14038 schaersvoo 1484
    @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
1485
    @%curvedarrows2_drag%size 400,400%xrange -10,10%yrange -10,10%cursor move%linewidth 2%drag xy%curvedarrows2 red,-8,0,0,8,8,0,-5,5,0,-10,6,3
1486
    @%curvedarrows2_click%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%%onclick%curvedarrow -5,0,0,-10,5,0,blue%onclick%curvedarrows2 red,-8,0,0,8,8,0,-5,5,0,-10,6,3
14030 schaersvoo 1487
 
1488
h[0] = arrowhead
14066 bpr 1489
h[1] = type: 1 = single 2=double arrow
15111 schaersvoo 1490
function Shape(object_cnt,onclick,direction,type,x,y,w,h,line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,use_dashed,dashtype0,dashtype1,use_rotate,angle,text,font_size,font_family,use_slider,rotation_center,use_offset)
14038 schaersvoo 1491
    */
1492
        stroke_color = get_color(infile,0);/* name or hex color */
1493
        i = 0;
1494
        decimals = find_number_of_digits(precision);
15111 schaersvoo 1495
        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
14038 schaersvoo 1496
        while( ! done ){
15111 schaersvoo 1497
         if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
1498
         double_data[0] = get_real(infile,0); /* x1 */
1499
         double_data[1] = get_real(infile,0); /* y1 */
1500
         double_data[2] = get_real(infile,0); /* xc */
1501
         double_data[3] = get_real(infile,0); /* yc */
1502
         double_data[4] = get_real(infile,0); /* x3 */
1503
         double_data[5] = get_real(infile,1); /* y3 */
1504
         string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,21,[%.*f,%.*f,%.*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[4],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],arrow_head,arrow_head,arrow_head,2,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);
1505
         check_string_length(string_length);tmp_buffer = my_newmem(string_length);
1506
         snprintf(tmp_buffer,string_length,  "dragstuff.addShape(new Shape(%d,%d,%d,%d,21,[%.*f,%.*f,%.*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[4],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],arrow_head,arrow_head,arrow_head,2,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);
1507
         add_to_buffer(tmp_buffer);
1508
         if(onclick != 0){object_cnt++;}
1509
         i = i + 6;
1510
        }
1511
        if(use_rotate == TRUE ){rotate(i-6,angle,rotationcenter,2);}
1512
        if(use_affine == TRUE ){ transform(i-6,2);}
1513
        dragstuff[21] = 1;
1514
        if(use_dragstuff == 0 ){ use_dragstuff = 1; }
1515
        reset();
1516
        break;
15116 bpr 1517
 
11806 schaersvoo 1518
        case DASHED:
1519
        /*
1520
        @ dashed
1521
        @ keyword (no arguments required)
1522
        @ next object will be drawn with a dashed line
1523
        @ change dashing scheme by using command <a href="#dashtype">dashtype</a>
12107 schaersvoo 1524
        @%dashed%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%line -5,-5,-5,5,red%dashtype 1,1%dline -4,-5,-4,5,green%dashtype 2,2%dline -3,-5,-3,5,blue%dashtype 3,3%dline 0,-5,0,5,orange%dashtype 4,4%dline 3,-5,3,5,brown
11806 schaersvoo 1525
        */
1526
            use_dashed = TRUE;
1527
            break;
1528
 
1529
        case DASHTYPE:
1530
        /*
1531
        @ dashtype line_width_px,space_width_px
1532
        @ every indiviual object may have its own dashtype, if needed...
1533
        @ When keyword <a href='#dashed'>dashed</a> is set, the objects will be drawn with this dashtype
14086 bpr 1534
        @ default value <code>dashtype 2,2</code> e.g. 2px line and 2px space
13957 schaersvoo 1535
        @ HTML5 canvas specification supports more arguments (dashing schemes) ... but not all modern browsers are yet capable
13949 schaersvoo 1536
        @%dashtype%size 400,400%xrange -10,10%yrange -10,10%dashtype 1,1%dhline 0,9,red%dashtype 2,2%dhline 0,8,red%dashtype 4,4%dhline 0,7,red%dashtype 6,6%dhline 0,6,red%dashtype 8,8%dhline 0,5,red%dashtype 10,10%dhline 0,4,red%dashtype 1,2%dhline 0,3,red%dashtype 2,4%dhline 0,2,red%dashtype 3,6%dhline 0,1,red%dashtype 4,8%dhline 0,0,red%linewidth 2%dashtype 1,1%dhline 0,-9,red%dashtype 2,2%dhline 0,-8,red%dashtype 4,4%dhline 0,-7,red%dashtype 6,6%dhline 0,-6,red%dashtype 8,8%dhline 0,-5,red%dashtype 10,10%dhline 0,-4,red%dashtype 1,2%dhline 0,-3,red%dashtype 2,4%dhline 0,-2,red%dashtype 4,8%dhline 0,-1,red
11806 schaersvoo 1537
        */
1538
            for(i=0;i<2;i++){
1539
                switch(i){
1540
                    case 0 : dashtype[0] = (int) line_width*( get_real(infile,0)) ; break;
1541
                    case 1 : dashtype[1] = (int) line_width*( get_real(infile,1)) ; break;
1542
                }
1543
            }
1544
        break;
1545
 
1546
        case DIAMONDFILL:
1547
        /*
1548
        @ diamondfill x0,y0,dx,dy,color
1549
        @ x0,y0 in xrange / yrange
1550
        @ distances dx,dy in pixels
13936 bpr 1551
        @ there is also a command <a href="#userdraw">userdraw diamondfill,color</a>
12110 schaersvoo 1552
        @%diamondfill%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%circles red,-4,0,6,4,0,6%linewidth 1%diamondfill 0,0,5,8,blue%diamondfill 0,7,8,8,lightgreen
11806 schaersvoo 1553
        */
15111 schaersvoo 1554
            js_function[DRAW_DIAMONDFILL] = 1;
11820 schaersvoo 1555
            if(js_function[DRAW_FILLTOBORDER] != 1 ){/* use only once */
1556
             js_function[DRAW_FILLTOBORDER] = 1;
15111 schaersvoo 1557
             add_js_filltoborder(canvas_type);
11820 schaersvoo 1558
            }
1559
            decimals = find_number_of_digits(precision);
7614 schaersvoo 1560
            for(i=0;i<5;i++){
1561
                switch(i){
11820 schaersvoo 1562
                    case 0: double_data[0] = get_real(infile,0); break; /* x */
14032 schaersvoo 1563
                    case 1: double_data[1] = get_real(infile,0); break; /* y  */
11820 schaersvoo 1564
                    case 2: int_data[0] = (int) (get_real(infile,0)); break; /* dx pixel */
1565
                    case 3: int_data[1] = (int) (get_real(infile,0)); break; /* dy pixel*/
11806 schaersvoo 1566
                    case 4: stroke_color = get_color(infile,1);
15111 schaersvoo 1567
                    if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}
1568
                    if(use_affine == TRUE ){ transform(2,2);}
11806 schaersvoo 1569
                    /* draw_hatchfill(ctx,x0,y0,dx,dy,linewidth,color,opacity,xsize,ysize) */
14208 schaersvoo 1570
                    string_length = 1 + snprintf(NULL,0,  "draw_diamondfill(%d,%.*f,%.*f,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",STATIC_CANVAS+fill_cnt,decimals,double_data[0],decimals,double_data[1],int_data[0],int_data[1],line_width,stroke_color,stroke_opacity,xsize,ysize);
1571
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11820 schaersvoo 1572
                    snprintf(tmp_buffer,string_length,"draw_diamondfill(%d,%.*f,%.*f,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",STATIC_CANVAS+fill_cnt,decimals,double_data[0],decimals,double_data[1],int_data[0],int_data[1],line_width,stroke_color,stroke_opacity,xsize,ysize);
11806 schaersvoo 1573
                    add_to_buffer(tmp_buffer);
11820 schaersvoo 1574
                    fill_cnt++;
15111 schaersvoo 1575
                    reset();
11806 schaersvoo 1576
                    break;
1577
                    default:break;
1578
                }
1579
            }
1580
        break;
8224 bpr 1581
 
11806 schaersvoo 1582
        case DOTFILL:
1583
        /*
1584
        @ dotfill x0,y0,dx,dy,color
1585
        @ x0,y0 in xrange / yrange
1586
        @ distances dx,dy in pixels
1587
        @ radius of dots is linewidth
13936 bpr 1588
        @ there is also a command <a href="#userdraw">userdraw dotfill,color</a>
12110 schaersvoo 1589
        @%dotfill%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%circles red,-4,0,6,4,0,6%dotfill 0,0,5,8,blue%dotfill 0,7,8,8,lightgreen
11806 schaersvoo 1590
        */
15111 schaersvoo 1591
            js_function[DRAW_DOTFILL] = 1;
11817 schaersvoo 1592
            if(js_function[DRAW_FILLTOBORDER] != 1 ){/* use only once */
1593
             js_function[DRAW_FILLTOBORDER] = 1;
15111 schaersvoo 1594
             add_js_filltoborder(canvas_type);
11817 schaersvoo 1595
            }
1596
            decimals = find_number_of_digits(precision);
11806 schaersvoo 1597
            for(i=0;i<5;i++){
1598
                switch(i){
11817 schaersvoo 1599
                    case 0: double_data[0] = get_real(infile,0); break; /* x in px */
1600
                    case 1: double_data[1] = get_real(infile,0); break; /* y in py */
1601
                    case 2: int_data[0] = (int) (get_real(infile,0)); break; /* dx pixel */
1602
                    case 3: int_data[1] = (int) (get_real(infile,0)); break; /* dy pixel*/
11806 schaersvoo 1603
                    case 4: stroke_color = get_color(infile,1);
15111 schaersvoo 1604
                    if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}
1605
                    if(use_affine == TRUE ){ transform(2,2);}
11806 schaersvoo 1606
                    /* draw_dotfill(ctx,x0,y0,dx,dy,radius,color,opacity,xsize,ysize) */
14208 schaersvoo 1607
                    string_length = 1 + snprintf(NULL,0,  "draw_dotfill(%d,%.*f,%.*f,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",FILL_CANVAS+fill_cnt,decimals,double_data[0],decimals,double_data[1],int_data[0],int_data[1],line_width,stroke_color,stroke_opacity,xsize,ysize);
1608
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11817 schaersvoo 1609
                    snprintf(tmp_buffer,string_length,"draw_dotfill(%d,%.*f,%.*f,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",FILL_CANVAS+fill_cnt,decimals,double_data[0],decimals,double_data[1],int_data[0],int_data[1],line_width,stroke_color,stroke_opacity,xsize,ysize);
11806 schaersvoo 1610
                    add_to_buffer(tmp_buffer);
11817 schaersvoo 1611
                    fill_cnt++;
15111 schaersvoo 1612
                    reset();
7614 schaersvoo 1613
                    break;
11806 schaersvoo 1614
                    default:break;
7614 schaersvoo 1615
                }
1616
            }
11806 schaersvoo 1617
        break;
1618
 
1619
        case DRAG:
1620
        /*
1621
         @ drag [x][y][xy]
1622
         @ the next object will be draggable in x / y / xy direction
14077 bpr 1623
         @ the displacement can be read by <code>javascript:read_dragdrop();</code>
15111 schaersvoo 1624
         @ the precision (default 2 decimals) in the student reply may be set with command <a href="#precision">precision</a>.<br />Use this 'precision' command before this command 'drag x|y|xy' !
14078 bpr 1625
         @ <a href='#onclick'>onclick</a> and ''drag x|y|xy`` may be combined (for different objects: a single object can either be onclick or drag, not both )
14077 bpr 1626
         @ ''multi_objects`` will be numbered in the given x/y-sequence (example: points red,0,0,1,1,2,2,3,3: point (0:0) is object_number 1)
15313 schaersvoo 1627
         @ <b>attention</b>: static objects and ''onclick/drag`` objects of the same type (like point,circle,etc) with the same coordinates (e.g. objects that overlap) will give problems in the ''recognition algorithm``) in this example<br /> <code>linewidth 4<br />point 0,0,red<br />drag xy<br />point 0,0,blue</code><br />the red point will not be recognised as draggable ! in the example<br /><code>linewidth 4<br />drag xy<br />point 0,0,red<br />drag xy<br />point 0,0,blue</code><br />both points will be recognised
14066 bpr 1628
         @ the answer is: drag_or_onclick_object_number : Xorg : Yorg : Xnew : Ynew<br />wherein object_number is the sequence number of the draggable &amp; onclick objects in your script.<br />Only draggable & onclick objects will have an object_number (e.g things like point,crosshair,line,segment,circle,rect,triangle...etc)
15650 reyssat 1629
         @ use keyword <a href='#snaptogrid'>snaptogrid</a>, <a href='#xsnaptogrid'>xsnaptogrid</a>, <a href='#ysnaptogrid'>ysnaptogrid</a> or command <a href='#snaptopoints'>snaptopoints x1,y1,x2,y2,...</a> to switch from free to discrete movement
11806 schaersvoo 1630
         @ 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.
13829 bpr 1631
         @%drag_x%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor lightblue%opacity 200,40%drag x%linewidth 2%circles blue,-5,0,3,0,0,2,5,0,4,0,4,3,0,-3,4
1632
         @%drag_y%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor lightblue%opacity 200,40%drag y%linewidth 2%circles blue,-5,0,3,0,0,2,5,0,4,0,4,3,0,-3,4
1633
         @%drag_xy%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor lightblue%opacity 200,40%drag xy%linewidth 2%circles blue,-5,0,3,0,0,2,5,0,4,0,4,3,0,-3,4
11806 schaersvoo 1634
        */
1635
            temp = get_string(infile,1);
1636
            if(strstr(temp,"xy") != NULL ){
1637
                drag_type = 0;
1638
            }
1639
            else
1640
            {
1641
                if(strstr(temp,"x") != NULL ){
1642
                    drag_type = 1;
1643
                }
1644
                else
1645
                {
1646
                    drag_type = 2;
1647
                }
1648
            }
1649
            /* assuming all drag&drop coordinates the same precision: so set only once */
1650
            if( print_drag_params_only_once == FALSE ){
15111 schaersvoo 1651
             fprintf(js_include_file,"dragdrop_precision = %d;use_dragdrop_reply = true;",precision);
11806 schaersvoo 1652
             print_drag_params_only_once = TRUE;
1653
            }
1654
            onclick = 2;
1655
            /* if(use_userdraw == TRUE ){canvas_error("\"drag & drop\" may not be combined with \"userdraw\" or \"pan and zoom\" \n");} */
15111 schaersvoo 1656
            use_dragstuff = 2;
1657
            js_function[INTERACTIVE] = 1;
7614 schaersvoo 1658
            break;
8386 schaersvoo 1659
 
11806 schaersvoo 1660
        case ELLIPSE:
8351 schaersvoo 1661
        /*
11806 schaersvoo 1662
        @ ellipse xc,yc,radius_x,radius_y,color
15111 schaersvoo 1663
        @ ellipses with center xc/yc and radius in x/y-range etc (this differs from flydraw syntax!)
11806 schaersvoo 1664
        @ radius_x and radius_y are in pixels
9406 schaersvoo 1665
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
11806 schaersvoo 1666
        @ will shrink / expand on zoom out / zoom in
13949 schaersvoo 1667
        @%ellipse%size 400,400%xrange -10,10%yrange -10,10%filled%fillcolor orange%opacity 200,40%linewidth 3%drag xy%ellipse 0,0,6,4,green%zoom blue
8351 schaersvoo 1668
        */
11806 schaersvoo 1669
            for(i=0;i<5;i++){
1670
                switch(i){
1671
                    case 0:double_data[0] = get_real(infile,0);break; /* x-values */
1672
                    case 1:double_data[1] = get_real(infile,0);break; /* y-values */
14066 bpr 1673
                    case 2:double_data[2] = get_real(infile,0);break; /* rx -> px */
1674
                    case 3:double_data[3] = get_real(infile,0);break; /* ry -> px */
11806 schaersvoo 1675
                    case 4:stroke_color = get_color(infile,1);/* name or hex color */
15111 schaersvoo 1676
                        if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,4);}
1677
                        if(use_affine == TRUE ){ transform(2,4);}
1678
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
11806 schaersvoo 1679
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 1680
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,3,[%.*f],[%.*f],[%.*f],[%.*f],%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[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,my_sliders,rotation_center,use_offset);
1681
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
1682
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,3,[%.*f],[%.*f],[%.*f],[%.*f],%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[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,my_sliders,rotation_center,use_offset);
1683
                        add_to_buffer(tmp_buffer);
1684
                        if(onclick != 0){object_cnt++;}/* object_cnt++; */
1685
                        dragstuff[3] = 1;
1686
                        if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 1687
                        reset();
1688
                    break;
1689
                }
1690
            }
1691
            break;
13829 bpr 1692
 
12110 schaersvoo 1693
        case ELLIPSES:
1694
        /*
1695
        @ ellipses color,xc1,yc1,radius_x1,radius_y1,xc2,yc2,radius_x2,radius_y2,xc3,yc3,radius_x3,radius_y3,...
15111 schaersvoo 1696
        @ ellipses with center and radius in x/y-range etc (this differs from flydraw syntax!)
12110 schaersvoo 1697
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
1698
        @ will shrink / expand on zoom out / zoom in
13949 schaersvoo 1699
        @%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
12110 schaersvoo 1700
        */
13829 bpr 1701
 
15111 schaersvoo 1702
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
12110 schaersvoo 1703
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
1704
            fill_color = stroke_color;
1705
            i=1;
1706
            while( ! done ){     /* get next item until EOL*/
1707
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
1708
                switch (i%4){
1709
                 case 1:double_data[i-1] = get_real(infile,0);break; /* x */
1710
                 case 2:double_data[i-1] = get_real(infile,0);break; /* y */
1711
                 case 3:double_data[i-1] = get_real(infile,0);break; /* rx */
1712
                 case 0:double_data[i-1] = get_real(infile,1);break; /* ry */
1713
                 default: break;
1714
                }
1715
                i++;
1716
            }
15111 schaersvoo 1717
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,4);}
1718
            if(use_affine == TRUE ){ transform(i-1,4);}
12110 schaersvoo 1719
            decimals = find_number_of_digits(precision);
1720
            for(c = 0 ; c < i-1 ; c = c+4){
15111 schaersvoo 1721
             string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,3,[%.*f],[%.*f],[%.*f],[%.*f],%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+1],decimals,double_data[c+2],decimals,double_data[c+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,my_sliders,rotation_center,use_offset);
1722
             check_string_length(string_length);tmp_buffer = my_newmem(string_length);
1723
             snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,3,[%.*f],[%.*f],[%.*f],[%.*f],%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+1],decimals,double_data[c+2],decimals,double_data[c+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,my_sliders,rotation_center,use_offset);
1724
             add_to_buffer(tmp_buffer);
1725
             if(onclick != 0){object_cnt++;} /* object_cnt++; */
12110 schaersvoo 1726
            }
1727
            reset();
15111 schaersvoo 1728
            dragstuff[3] = 1;
1729
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
12110 schaersvoo 1730
            break;
1731
 
11806 schaersvoo 1732
        case FILLALL:
1733
        /*
1734
        @ fillall color,x1,y1,x2,y2...x_n,y_n
15111 schaersvoo 1735
        @ fill all region containing points (x1:y1),(x2:y2)...(x_n:y_n) with color 'color'
15650 reyssat 1736
        @ any other colors (objects) in the <a href="#canvastype">canvastype</a> will act as border to the bucket fill
14246 bpr 1737
        @ use this command after all boundary objects are declared.
15111 schaersvoo 1738
        @ Use command 'userdraw clickfill,color' for user click driven flood fill.
1739
        @ use command <a href="#canvastype">canvastype </a> to fill another canvas (default should be fine: DRAG_CANVAS = 5)
14071 bpr 1740
        @ note: the fill-family of commands are very (client) cpu intensive operations!<br />filling is done pixel by pixel 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..
12110 schaersvoo 1741
        @%fillall%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%vlines black,-5,0,-5,0,-4,0,-4,0,3,0,3,0%hlines black,-5,0,-5,0,-5,4,-5,4,-5,-2,-5,-2%circles green,0,0,2,3,3,5,-5,-5,3%opacity 240,50%fillall blue,1,1,8,8,-8,-8
11806 schaersvoo 1742
        */
1743
            decimals = find_number_of_digits(precision);
1744
            fill_color=get_color(infile,0); /* how nice: now the color comes first...*/
8351 schaersvoo 1745
            i=0;
11806 schaersvoo 1746
            if(js_function[DRAW_FILLTOBORDER] != 1 ){/* use only once */
1747
             js_function[DRAW_FILLTOBORDER] = 1;
15111 schaersvoo 1748
             add_js_filltoborder(canvas_type);
11806 schaersvoo 1749
            }
8351 schaersvoo 1750
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 1751
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
8351 schaersvoo 1752
                if(i%2 == 0 ){
1753
                    double_data[i] = get_real(infile,0); /* x */
1754
                }
1755
                else
1756
                {
1757
                    double_data[i] = get_real(infile,1); /* y */
14208 schaersvoo 1758
                    string_length = 1 + snprintf(NULL,0,  "setTimeout(function(){filltoborder(%.*f,%.*f,[%s,%d],[%s,%d],%d,false,null);},1000);\n",decimals,double_data[i-1],decimals,double_data[i],fill_color,(int) (fill_opacity/0.0039215),fill_color,(int) (fill_opacity/0.0039215),FILL_CANVAS+fill_cnt);
1759
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11818 schaersvoo 1760
                    snprintf(tmp_buffer,string_length,"setTimeout(function(){filltoborder(%.*f,%.*f,[%s,%d],[%s,%d],%d,false,null);},1000);\n",decimals,double_data[i-1],decimals,double_data[i],fill_color,(int) (fill_opacity/0.0039215),fill_color,(int) (fill_opacity/0.0039215),FILL_CANVAS+fill_cnt);
11806 schaersvoo 1761
                    add_to_buffer(tmp_buffer);
1762
                    fill_cnt++;
8351 schaersvoo 1763
                }
1764
                i++;
1765
            }
11806 schaersvoo 1766
        break;
1767
 
1768
        case FILLED:
1769
        /*
1770
        @ filled
1771
        @ keyword (no arguments required)
14077 bpr 1772
        @ the next ''fillable`` object (only the next !) will be filled
14066 bpr 1773
        @ use command <a href="#fillcolor">fillcolor color</a> to set fillcolor
11839 schaersvoo 1774
        @ use <a href="#fillpattern">fillpattern</a> for non-solid color filling.
14086 bpr 1775
        @ use command <code>opacity 0-255,0-255</code> to set stroke and fill-opacity
14066 bpr 1776
        @ use command <a href='#fill'>fill x,y,color</a> or <a href="#floodfill">floodfill x,y,color</a> to fill the space around (x;y) with color <br />pixel operation implemented in javascript: use with care !
11806 schaersvoo 1777
        */
11839 schaersvoo 1778
            use_filled = 1;
11806 schaersvoo 1779
            break;
1780
 
1781
        case FILLCOLOR:
1782
        /*
1783
        @ fillcolor colorname or #hex
15111 schaersvoo 1784
        @ set the color: mainly used for command 'userdraw obj,stroke_color'
11806 schaersvoo 1785
        @ all fillable massive objects will have a fillcolor == strokecolor (just to be compatible with flydraw...)
11839 schaersvoo 1786
        @ see <a href="#fillpattern">fillpattern</a> for non-solid color filling.
11806 schaersvoo 1787
        */
1788
            fill_color = get_color(infile,1);
1789
            break;
1790
 
11837 schaersvoo 1791
        case FILLPATTERN:
1792
        /*
15601 schaersvoo 1793
        @ fillpattern grid | hatch | diamond | dot | image_url
15715 schaersvoo 1794
        @ alternative: settile image_url
11837 schaersvoo 1795
        @ use a pattern as fillstyle
14066 bpr 1796
        @ suitable for all fillable object including the <a href="#userdraw">userdraw objects' family</a>
15601 schaersvoo 1797
        @ note: do not use the ''f`` for a fillable object : this is used exclusively for solid colour filling.
14066 bpr 1798
        @ the fillcolor is set by the object command, for example:<br /><code>size 370,370<br />xrange -5,5<br />yrange -5,5<br />opacity 165,150<br />fillpattern grid<br />fcircle -6,3,160,blue<br />fillpattern dot<br />fcircle -3,-3,160,red<br />fillpattern hatch<br />fcircle 0,3,160,green<br />filpattern diamond<br />fcircle 3,-3,160,cyan<br />userdraw dotfill,blue<br />zoom red</code>
14078 bpr 1799
        @ the pattern dimensions are hardcoded (linewidth, radius,dx,dy are fixed)
11837 schaersvoo 1800
        @ the pattern color is set by command <a href='#fillcolor'>fillcolor</a> and <a href='#opacity'>opacity</a>
11839 schaersvoo 1801
        @ see <a href="#fillcolor">fillcolor</a> for solid color filling.
15111 schaersvoo 1802
        @ when using an image-url, make sure it contains an ''/`` in the filename...''fillpattern &#36;module_dir/gifs/test.jpg`` will fill the next fillable object with this image.|<br />the argument to html5 canvas routine 'createPattern(img,argument)' is set to ''repeat`` e.g. if the image is smaller then the canvas, multiple copies will be used to fill the area ( e.g. ctx.fillStyle() = pattern)<br />for example:<br /><code>size 150,150<br />xrange -5,5<br />yrange -5,5<br />drag xy<br />fillpattern gifs/en.gif<br />fcircle 0,0,100,red<br />fillpattern gifs/nl.gif<br />drag xy<br />fcircle -3,2,100,green<br />fillpattern gifs/cn.gif<br />drag xy<br />fcircle 3,2,100,green</code>
1803
        @ fillpattern is also active for <a href="#userdraw">userdraw object,color</a>...<br />the userdraw family a has also ''clickfill type`` (e.g. an object gets filled between boundaries, when clicked) commands like:<br />'userdraw dotfill,color'<br />'userdraw hatchfill,color' etc
1804
        @%fillpattern_1%size 400,400%xrange -5,5%yrange -5,5%opacity 165,150%fillpattern grid%circle -6,3,160,blue%fillpattern dot%circle -3,-3,160,red%fillpattern hatch%circle 0,3,160,green%filpattern diamond%circle 3,-3,160,cyan%zoom red
1805
        @%fillpattern_2%size 400,400%xrange -10,10%yrange -10,10%linewidth 3%fillcolor green%fillpattern hatch%#fillpattern dot,diamond,grid,imageurl%userdraw circle,red
11837 schaersvoo 1806
        */
1807
            temp = get_string(infile,1);
15111 schaersvoo 1808
            use_filled = 0;
1809
            js_function[DRAW_FILL_PATTERN] = 1;
15116 bpr 1810
            if( strstr(temp,"grid") != 0 ){ use_filled = 2;}
15111 schaersvoo 1811
             else{
1812
             if( strstr(temp,"hatch") != 0 ){ use_filled = 3;}
1813
              else{
1814
              if( strstr(temp,"diamond") != 0 ){ use_filled = 4;}
1815
               else{
1816
               if( strstr(temp,"dot") != 0 ){ use_filled = 5;}
1817
                else{
15600 schaersvoo 1818
                if( strstr(temp,"/") != 0 ){ /* get_image_from_url() needs to be called after function definition...*/
1819
                 use_filled = 6;js_function[JS_LOAD_IMAGE] = 1;
1820
                 string_length = 1 + snprintf(NULL,0,"get_image_from_url(\"%s\");",temp);
1821
                 check_string_length(string_length);
1822
                 tmp_buffer = my_newmem(string_length);
1823
                 snprintf(tmp_buffer,string_length,"get_image_from_url(\"%s\");",temp);
1824
                 add_to_buffer(tmp_buffer);
1825
                }
15111 schaersvoo 1826
               }
1827
              }
1828
             }
1829
            }
1830
            if( use_filled == 0 ){canvas_error("fillpattern unknown or typo...choose grid,hatch,diamond of dot...");}
11837 schaersvoo 1831
            break;
11806 schaersvoo 1832
        case FILLTOBORDER:
1833
        /*
1834
        @ filltoborder x,y,bordercolor,color
15111 schaersvoo 1835
        @ fill the region of point (x:y) with color 'color'
11806 schaersvoo 1836
        @ any other color will not act as border to the bucket fill
14246 bpr 1837
        @ use this command after all boundary objects are declared.
11806 schaersvoo 1838
        @ use command <a href="#canvastype">canvastype </a> to fill another canvas (default should be fine: DRAG_CANVAS = 5)
14071 bpr 1839
        @ note: filltoborder is a very (client) cpu intensive operation!<br />filling is done pixel by pixel 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..
11806 schaersvoo 1840
        @ maybe used together with command <a href="#userdraw">userdraw clickfill,color</a>
12110 schaersvoo 1841
        @%filltoborder%size 400,400%xrange -10,10%yrange -10,10%canvastype 100%linewidth 2%precision 1000%jsplot blue,5*sin(x)%opacity 200,50%filltoborder 6,6,blue,blue%filltoborder 6,-6,blue,red
11806 schaersvoo 1842
        */
1843
            for(i=0 ;i < 4 ; i++){
1844
                switch(i){
1845
                    case 0:double_data[0] = get_real(infile,0);break;
1846
                    case 1:double_data[1] = get_real(infile,0);break;
1847
                    case 2:bgcolor = get_color(infile,0);break;
1848
                    case 3:fill_color = get_color(infile,1);
1849
                           if(js_function[DRAW_FILLTOBORDER] != 1 ){/* use only once */
15111 schaersvoo 1850
                            js_function[DRAW_FILLTOBORDER] = 1;
1851
                            add_js_filltoborder(canvas_type);
11806 schaersvoo 1852
                           }
1853
                           decimals = find_number_of_digits(precision);
1854
                           /* we need to set a timeout: the canvas is not yet draw in memory? when floodfill is called directly... */
14208 schaersvoo 1855
                           string_length = 1 + snprintf(NULL,0,  "setTimeout(function(){filltoborder(%.*f,%.*f,[%s,%d],[%s,%d],%d,false,null);},1000);\n",decimals,double_data[0],decimals,double_data[1],bgcolor,(int) (fill_opacity/0.0039215),fill_color,(int) (fill_opacity/0.0039215),FILL_CANVAS+fill_cnt);
1856
                           check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11818 schaersvoo 1857
                           snprintf(tmp_buffer,string_length,"setTimeout(function(){filltoborder(%.*f,%.*f,[%s,%d],[%s,%d],%d,false,null);},1000);\n",decimals,double_data[0],decimals,double_data[1],bgcolor,(int) (fill_opacity/0.0039215),fill_color,(int) (fill_opacity/0.0039215),FILL_CANVAS+fill_cnt);
11806 schaersvoo 1858
                           add_to_buffer(tmp_buffer);
1859
                           fill_cnt++;
15111 schaersvoo 1860
                           reset();
11806 schaersvoo 1861
                           break;
1862
                    default:break;
8351 schaersvoo 1863
                }
11806 schaersvoo 1864
            }
1865
        break;
1866
        case FLOODFILL:
1867
        /*
1868
        @ floodfill x,y,color
15715 schaersvoo 1869
        @ alternative: fill
15111 schaersvoo 1870
        @ fill the region of point (x:y) with color 'color'
11806 schaersvoo 1871
        @ any other color or size of picture (borders of picture) will act as border to the bucket fill
14246 bpr 1872
        @ use this command after all boundary objects are declared.
14077 bpr 1873
        @ Use command <code>userdraw clickfill,color</code> for user click driven flood fill.
11806 schaersvoo 1874
        @ use command <a href="#canvastype">canvastype </a> to fill another canvas (default should be fine: DRAG_CANVAS = 5)
14071 bpr 1875
        @ note: floodfill is a very (client) cpu intensive operation!<br />filling is done pixel by pixel 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..
12110 schaersvoo 1876
        @%floodfill%size 400,400%xrange -10,10%yrange -10,10%canvastype 100%linewidth 2%precision 1000%jsplot blue,5*sin(x)%opacity 200,50%floodfill 6,6,blue%floodfill 6,-6,red
11806 schaersvoo 1877
        */
1878
            for(i=0 ;i < 4 ; i++){
1879
                switch(i){
1880
                    case 0:double_data[0] = get_real(infile,0);break;
1881
                    case 1:double_data[1] = get_real(infile,0);break;
1882
                    case 2:fill_color = get_color(infile,1);
1883
                           if(js_function[DRAW_FILLTOBORDER] != 1 ){/* use only once */
15111 schaersvoo 1884
                            js_function[DRAW_FILLTOBORDER] = 1;
1885
                            add_js_filltoborder(canvas_type);
11806 schaersvoo 1886
                           }
1887
                           decimals = find_number_of_digits(precision);
1888
                           /* we need to set a timeout: the canvas is not yet draw in memory? when floodfill is called directly... */
14208 schaersvoo 1889
                           string_length = 1 + snprintf(NULL,0,  "setTimeout(function(){filltoborder(%.*f,%.*f,[%s,%d],[%s,%d],%d,false,null);},1000);\n",decimals,double_data[0],decimals,double_data[1],fill_color,(int) (fill_opacity/0.0039215),fill_color,(int) (fill_opacity/0.0039215),FILL_CANVAS+fill_cnt);
1890
                           check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11818 schaersvoo 1891
                           snprintf(tmp_buffer,string_length,"setTimeout(function(){filltoborder(%.*f,%.*f,[%s,%d],[%s,%d],%d,false,null);},1000);\n",decimals,double_data[0],decimals,double_data[1],fill_color,(int) (fill_opacity/0.0039215),fill_color,(int) (fill_opacity/0.0039215),FILL_CANVAS+fill_cnt);
11806 schaersvoo 1892
                           add_to_buffer(tmp_buffer);
1893
                           fill_cnt++;
1894
                           break;
1895
                    default:break;
1896
                }
1897
            }
1898
            reset();
1899
        break;
1900
 
1901
        case FONTCOLOR:
1902
        /*
1903
         @ fontcolor color
1904
         @ color: hexcolor or colorname
1905
         @ default: black
15650 reyssat 1906
         @ use command <a href="#fontfamily">fontfamily</a> to deviate from default font type
13956 schaersvoo 1907
         @%fontcolor%size 400,400%xrange -10,10%yrange -10,10%fontcolor red%#note: use command fontfamily to change size and shape%axis%axisnumbering%grid 2,2,grey,2,2,4,grey
11806 schaersvoo 1908
        */
1909
            font_color = get_color(infile,1);
1910
            break;
1911
 
1912
        case FONTFAMILY:
1913
        /*
1914
         @ fontfamily font_description
1915
         @ set the font family; for browsers that support it
15313 schaersvoo 1916
         @ font_description: Arial, Courier, Helvetica etc
1917
         @ in case commands <code>string color,x,y,the string</code>, <code>stringup color,x,y,rotation,the string</code>, ''fontfamily`` can be something like:<code>fontfamily italic 34pt Arial</code>. Use correct syntax: ''font style``, ''font size pt``, ''fontfamily``
1918
         @%fontfamily%size 400,400%xrange -10,10%yrange -10,10  %fontfamily Bold 10pt Arial%string blue,-9,9,10 pt Arial%fontfamily Italic 20pt Arial%string blue,0,9,20 pt Arial%fontfamily Bold 10pt Helvetica%string blue,-9,5,10 pt Helvetica%fontfamily Italic 20pt Helvetica%string blue,0,5,20 pt Helvetica %fontfamily Bold 10pt Courier%string blue,-9,0,10 pt Courier%fontfamily Italic 20pt Courier%string blue,0,0,20 pt Courier%fontfamily Bold 10pt Fixed%string blue,-9,-5,10 pt Fixed%fontfamily Italic 20pt Fixed%string blue,0,-5,20 pt Fixed %fontfamily Bold 10pt Times%string blue,-9,-9,10 pt Times%fontfamily Italic 20pt Times%string blue,0,-9,20 pt Times
13959 bpr 1919
 
11806 schaersvoo 1920
        */
1921
            font_family = get_string(infile,1);
1922
            break;
1923
 
1924
        case FONTSIZE:
1925
        /*
1926
         @ fontsize font_size
1927
         @ default value 12
15111 schaersvoo 1928
         @ note: for some macros (like ''grid | legend | xaxistext | xlabel`` etc) sometimes command <a href="#fontfamily">fontfamily</a> can be used for some specific font-setting<br />this is however not always very straight forward... so just try and see what happens
11806 schaersvoo 1929
        */
1930
            font_size = (int) (get_real(infile,1));
1931
            break;
1932
 
1933
        case FUNCTION_LABEL:
1934
        /*
15313 schaersvoo 1935
         @ functionlabel label_1:label_2:label_3...
15512 bpr 1936
         @ alternative: functionlabels
15111 schaersvoo 1937
         @ default value ''f(x)=:g(x)=:h(x)=:i(x)=:j(x)=:k(x)=:m(x)=:n(x)=``
11806 schaersvoo 1938
         @ no mathml allowed (just ascii string)
13956 schaersvoo 1939
         @ use command <a href='#fontsize'>fontsize int</a> to adjust the size
1940
         @ use command <a href='#strokecolor'>strokecolor colorname</a> to adjust the labels (individually, if needed)
14066 bpr 1941
         @ if needed, use before every command <a href='#userinput'>userinput function | inputfield | textarea</a>
15111 schaersvoo 1942
         @ no limit in amount of inputfields for userbased function plotting
15313 schaersvoo 1943
         @%function_label%size 400,400%xrange -5,5%yrange -5,5%precision 0%axis%axisnumbering%opacity 100,190%grid 1,1,grey,2,2,5,black%linewidth 3%linewidth 1%precision 1000%functionlabels F(x)=:H(x)=:Yield(x)=%strokecolor green%userinput function%strokecolor red%userinput function%strokecolor blue%userinput function
11806 schaersvoo 1944
        */
15111 schaersvoo 1945
            temp = get_string_argument(infile,1);
1946
            function_label = list2js_array(temp,":");
15116 bpr 1947
 
11806 schaersvoo 1948
            break;
1949
 
14078 bpr 1950
        case GRID:/* xmajor,ymajor,gridcolor [,xminor,yminor,tick length (px), axis/tickscolor]*/
11806 schaersvoo 1951
        /*
1952
         @ grid step_x,step_y,gridcolor
14177 bpr 1953
         @ if keywords <a href="#axis">axis</a> or <a href="#axisnumbering">axisnumbering</a> are set, use: <code>grid step_x,step_y,major_color,minor_x,minor_y,tics height in px,axis_color</code> minor x step = step_x / minor_x
15313 schaersvoo 1954
         @ in that case, use command <a href="#fontcolor">fontcolor</a>, <a href="#fontsize">fontsize</a> and / or <a href="#fontfamily">fontfamily</a> to adjust font; defaults: black,12,Arial
14071 bpr 1955
         @ if xmin > 0 and/or ymin > 0 and zooming / panning is not active: be aware that the x/y-axis numbering and x/y major/minor tic marks will not be visual as they are placed under the x-axis and left to the y-axis (in Quadrant II and IV)
14066 bpr 1956
         @ can <b>not</b> be set <a href="#onclick">onclick</a> or <a href="#drag">drag xy</a>
15313 schaersvoo 1957
         @ use commands <a href="#xlabel">xlabel some_string</a> and/or <a href="#ylabel">ylabel some_string</a> to label axis; use command ''fontsize`` to adjust size: the font family is non-configurable 'italic your_fontsize px Arial' !
1958
         @ see commands <a href="#xaxis">xaxis or xaxistext</a>, <a href="#yaxis">yaxis or yaxistext</a> to set tailormade values on axis (the used font is set by command <a href="#fontfamily">fontfamily</a>; default '12px Arial')
1959
         @ see command <a href="#legend">legend</a> to set a legend for the graph; use command <a href="#fontsize">fontsize</a> to adjust size (the font family is non-configurable 'bold your_fontsize px Arial')
12110 schaersvoo 1960
         @%grid%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%zoom red
1961
         @%grid_axis%size 400,400%xrange -10,10%yrange -10,10%axis%grid 1,1,grey,2,2,6,black%zoom red
15111 schaersvoo 1962
         @%grid_axis_axisnumbering%size 400,400%xrange -10,10%yrange -10,10%fontfamily Italic 14px Courier%axis%axisnumbering%precision 0%grid 1,1,grey,2,2,6,black%zoom red
11806 schaersvoo 1963
        */
1964
            if( js_function[DRAW_YLOGSCALE] == 1 ){canvas_error("only one grid type is allowed...");}
15111 schaersvoo 1965
            js_function[DRAW_GRID] = 1;
11806 schaersvoo 1966
            for(i=0;i<4;i++){
1967
                switch(i){
1968
                    case 0:double_data[0] = get_real(infile,0);break;/* xmajor */
1969
                    case 1:double_data[1] = get_real(infile,0);break;/* ymajor */
1970
                    case 2:
1971
                    if( use_axis == TRUE ){
1972
                        stroke_color = get_color(infile,0);
1973
                        done = FALSE;
1974
                        int_data[0] = (int) (get_real(infile,0));/* xminor */
1975
                        int_data[1] = (int) (get_real(infile,0));/* yminor */
1976
                        int_data[2] = (int) (get_real(infile,0));/* tic_length */
1977
                        fill_color = get_color(infile,1); /* used as axis_color*/
8351 schaersvoo 1978
                    }
1979
                    else
1980
                    {
11806 schaersvoo 1981
                        int_data[0] = 1;
1982
                        int_data[1] = 1;
1983
                        stroke_color = get_color(infile,1);
1984
                        fill_color = stroke_color;
8351 schaersvoo 1985
                    }
11806 schaersvoo 1986
                    if( double_data[0] <= 0 ||  double_data[1] <= 0 ||  int_data[0] <= 0 ||  int_data[1] <= 0 ){canvas_error("major or minor ticks must be positive !");}
1987
                    /* set snap_x snap_y values in pixels */
1988
                    fprintf(js_include_file,"snap_x = %f;snap_y = %f;",double_data[0] / int_data[0],double_data[1] / int_data[1]);
15111 schaersvoo 1989
                    fprintf(js_include_file,"\n/* add grid */function redraw_grid(){draw_grid%d(%d,%d,%.2f,%.*f,%.*f,%d,%d,%d,%d,\"%s\",\"%s\",%d,\"%s\",%d,%d,%d,%d,%d,\"%s\",%.2f);return;};",canvas_root_id,GRID_CANVAS,precision,stroke_opacity,decimals,double_data[0],decimals,double_data[1],int_data[0],int_data[1],int_data[2],line_width,stroke_color,fill_color,font_size,font_family,use_axis,use_axis_numbering,use_dashed,dashtype[0],dashtype[1],font_color,fill_opacity);
1990
                    string_length = 1 + snprintf(NULL,0,  "redraw_grid();\n");
14208 schaersvoo 1991
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15111 schaersvoo 1992
                    snprintf(tmp_buffer,string_length,    "redraw_grid();\n");
11806 schaersvoo 1993
                    add_to_buffer(tmp_buffer);
1994
                    break;
8351 schaersvoo 1995
                }
1996
            }
1997
            reset();
1998
            break;
11806 schaersvoo 1999
        case GRIDFILL:
2000
        /*
2001
        @ gridfill x0,y0,dx,dy,color
2002
        @ x0,y0 in xrange / yrange
2003
        @ distances dx,dy in pixels
13936 bpr 2004
        @ there is also a command <a href="#userdraw">userdraw gridfill,color</a>
12110 schaersvoo 2005
        @%gridfill%size 400,400%xrange -10,10%yrange -10,10%canvastype 100%linewidth 2%precision 1000%jsplot blue,5*sin(x)%opacity 200,50%gridfill 6,6,10,10,blue%gridfill 6,-6,6,6,red
2006
 
11806 schaersvoo 2007
        */
15111 schaersvoo 2008
            js_function[DRAW_GRIDFILL] = 1;
11820 schaersvoo 2009
            decimals = find_number_of_digits(precision);
2010
            if(js_function[DRAW_FILLTOBORDER] != 1 ){/* use only once */
2011
             js_function[DRAW_FILLTOBORDER] = 1;
15111 schaersvoo 2012
             add_js_filltoborder(canvas_type);
11820 schaersvoo 2013
            }
11806 schaersvoo 2014
            for(i=0;i<5;i++){
2015
                switch(i){
11820 schaersvoo 2016
                    case 0: double_data[0] = get_real(infile,0); break; /* x  */
2017
                    case 1: double_data[1] = get_real(infile,0); break; /* y  */
2018
                    case 2: int_data[0] = (int) (get_real(infile,0)); break; /* dx pixel */
2019
                    case 3: int_data[1] = (int) (get_real(infile,0)); break; /* dy pixel*/
11806 schaersvoo 2020
                    case 4: stroke_color = get_color(infile,1);
14208 schaersvoo 2021
                    string_length = 1 + snprintf(NULL,0,  "draw_gridfill(%d,%.*f,%.*f,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",STATIC_CANVAS+fill_cnt,decimals,double_data[0],decimals,double_data[1],int_data[0],int_data[1],line_width,stroke_color,stroke_opacity,xsize,ysize);
2022
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11820 schaersvoo 2023
                    snprintf(tmp_buffer,string_length,"draw_gridfill(%d,%.*f,%.*f,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",STATIC_CANVAS+fill_cnt,decimals,double_data[0],decimals,double_data[1],int_data[0],int_data[1],line_width,stroke_color,stroke_opacity,xsize,ysize);
11806 schaersvoo 2024
                    add_to_buffer(tmp_buffer);
11820 schaersvoo 2025
                    fill_cnt++;
15111 schaersvoo 2026
                    reset();
11806 schaersvoo 2027
                    break;
2028
                    default:break;
2029
                }
2030
            }
2031
        break;
8386 schaersvoo 2032
 
16892 schaersvoo 2033
        case GROUP:
2034
        /*
2035
         @ group
2036
         @ keyword
2037
         @ work in 'progress'
2038
         @ all objects(*) after the command and until <a href="#kill">kill group</a> or <a href="#killslider">killslider</a> may be moved together with mouse moverments<br /> (*) for now all real canvas objects and latex / xml ; but no images (work in progress)
2039
         @ may be combined with slider driven movements or drag & drop
2040
         @%group%%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%precision 100%linewidth 4%rotationcenter 0,0%slider -2*pi,2*pi,300,40,angle active,rotate%snaptogrid%ftriangle 0,-4,-2,-2,4,--5,blue%fillcolor red%fcircle -4.4,4.4,40,blue%kill slider%slider -20,20,300,40,x active,x-slide%ftriangle -2,0,0,4,2,0,green%fcircle 4.4,4.5,40,red%kill slider%slider -20,20,300,40,y active,y-slide%fcircle 4,-4,40,green%linewidth 4%fcircle -4,-4,40,orange%kill slider%group%fcircle -4.4,4.5,10,blue%fcircle -5.4,4.5,10,blue%fcircle -6.4,4.5,10,blue%fcircle -4.4,8,16,green%fcircle -5.4,8,16,green%fcircle -6.4,8,16,green%mouse red,22%zoom red
2041
        */
2042
            use_slider++;
2043
            add_slider(2);
2044
            no_reset = TRUE;
2045
            int c = 0;
2046
            for(i=last_slider;i<=use_slider;i++){ int_data[c] = i; c++; }
2047
            my_sliders = data2js_array(int_data,use_slider - last_slider+1);
2048
            if( precision == 0 ){precision = 100;}
2049
            onclick = 5;
2050
            use_dragstuff = 2;
2051
            drag_type = 0;
2052
            js_function[INTERACTIVE] = 1;
2053
            fprintf(js_include_file,"var slider%d;dragdrop_precision = %d;use_dragdrop_reply = true;",use_slider,precision);
2054
            string_length = 1 + snprintf(NULL,0,"slider%d = new move_group(%d);\n",use_slider);
2055
            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
2056
            snprintf(tmp_buffer,string_length  ,"slider%d = new move_group(%d);\n",use_slider,use_slider);
2057
            add_to_buffer(tmp_buffer);
2058
        break;
2059
 
8244 schaersvoo 2060
        case HALFLINE:
2061
        /*
2062
        @ demiline x1,y1,x2,y2,color
15715 schaersvoo 2063
        @ alternative: halfline
15111 schaersvoo 2064
        @ draws a halfline starting in (x1:y1) and through (x2:y2) in color 'color' (colorname or hex)
9406 schaersvoo 2065
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
12110 schaersvoo 2066
        @%halfline%size 400,400%xrange -10,10%yrange -10,10%halfline -5,5,0,0,red%halfline -5,-5,0,0,blue
8244 schaersvoo 2067
        */
2068
            for(i=0;i<5;i++){
2069
                switch(i){
2070
                    case 0: double_data[0]= get_real(infile,0);break; /* x-values */
2071
                    case 1: double_data[1]= get_real(infile,0);break; /* y-values */
2072
                    case 2: double_data[10]= get_real(infile,0);break; /* x-values */
2073
                    case 3: double_data[11]= get_real(infile,0);break; /* y-values */
2074
                    case 4: stroke_color=get_color(infile,1);/* name or hex color */
2075
                    if(double_data[0] == double_data[10]){ /* vertical halfline */
2076
                        if(double_data[1] < double_data[11]){
2077
                         double_data[3] = ymax + 1000;
2078
                        }
2079
                        else
2080
                        {
2081
                         double_data[3] = ymin - 1000;
2082
                        }
10953 bpr 2083
                        double_data[2] = double_data[0];
8244 schaersvoo 2084
                    }
2085
                    else
2086
                    { /* horizontal halfline*/
2087
                     if( double_data[1] == double_data[11] ){
2088
                      if( double_data[0] < double_data[10] ){
2089
                        double_data[2] = xmax + 1000; /* halfline to the right */
2090
                      }
2091
                      else
2092
                      {
2093
                        double_data[2] = xmin - 1000; /* halfline to the left */
2094
                      }
2095
                      double_data[3] = double_data[1];
2096
                     }
2097
                     else
2098
                     {
2099
                      /* any other halfline */
2100
                      /* slope */
2101
                      double_data[12] = (double_data[11] - double_data[1])/(double_data[10] - double_data[0]);
2102
                      /* const */
2103
                      double_data[13] = double_data[1] - double_data[12]*double_data[0];
2104
                      if( double_data[0] < double_data[10] ){
2105
                       double_data[2] = double_data[2] + 1000;
2106
                      }
2107
                      else
2108
                      {
2109
                       double_data[2] = double_data[2] - 1000;
2110
                      }
2111
                      double_data[3] = double_data[12]*double_data[2] + double_data[13];
2112
                     }
10953 bpr 2113
                    }
15111 schaersvoo 2114
                    if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
2115
                    if(use_rotate == TRUE ){rotate(4,angle,rotationcenter,2);}
2116
                    if(use_affine == TRUE ){ transform(4,2);}
2117
                    string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,18,[%.*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[0],decimals,double_data[2],decimals,double_data[1],decimals,double_data[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);
2118
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
2119
                    snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,18,[%.*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[0],decimals,double_data[2],decimals,double_data[1],decimals,double_data[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);
2120
                    add_to_buffer(tmp_buffer);
2121
                    if(onclick != 0){object_cnt++;}
2122
                    /* object_cnt++; */
8379 schaersvoo 2123
                    reset();
8244 schaersvoo 2124
                    break;
2125
                }
2126
            }
15111 schaersvoo 2127
            dragstuff[18] = 1;
2128
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
8244 schaersvoo 2129
            break;
8386 schaersvoo 2130
 
8365 schaersvoo 2131
        case HALFLINES:
2132
        /*
2133
        @ demilines color,x1,y1,x2,y2,....
15715 schaersvoo 2134
        @ alternative: halflines
15111 schaersvoo 2135
        @ draws halflines starting in (x1:y1) and through (x2:y2) in color 'color' (colorname or hex) etc
9406 schaersvoo 2136
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> indiviually
12110 schaersvoo 2137
        @%halflines%size 400,400%xrange -10,10%yrange -10,10%halflines red,-5,5,0,0,-5,-5,0,0
8365 schaersvoo 2138
        */
2139
            stroke_color=get_color(infile,0);
2140
            fill_color = stroke_color;
2141
            i=0;
2142
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 2143
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
8365 schaersvoo 2144
                if(i%2 == 0 ){
2145
                    double_data[i] = get_real(infile,0); /* x */
2146
                }
2147
                else
2148
                {
2149
                    double_data[i] = get_real(infile,1); /* y */
2150
                }
2151
                i++;
2152
            }
15111 schaersvoo 2153
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
8365 schaersvoo 2154
            decimals = find_number_of_digits(precision);
2155
            for(c = 0 ; c < i-1 ; c = c+4){
2156
                if( double_data[c] == double_data[c+2] ){ /* vertical line*/
2157
                    if(double_data[c+1] < double_data[c+3]){ /* upright halfline */
2158
                        double_data[c+3] = ymax + 1000;
2159
                    }
2160
                    else
2161
                    {
2162
                     double_data[c+3] = ymin - 1000;/* descending halfline */
2163
                    }
2164
                }
2165
                else
2166
                {
2167
                    if( double_data[c+1] == double_data[c+3] ){ /* horizontal line */
2168
                        if(double_data[c] < double_data[c+2] ){ /* halfline to the right */
2169
                            double_data[c+2] = xmax+100;
2170
                        }
2171
                        else
2172
                        {
2173
                            double_data[c+2] = xmin-1000; /* halfline to the right */
2174
                        }
2175
                    }
2176
                    else
2177
                    {
2178
                        /* m */
2179
                        double m = (double_data[c+3] - double_data[c+1]) /(double_data[c+2] - double_data[c]);
2180
                        /* q */
2181
                        double q = double_data[c+1] - ((double_data[c+3] - double_data[c+1]) /(double_data[c+2] - double_data[c]))*double_data[c];
2182
                        if(double_data[c] < double_data[c+2]){ /* to the right */
14071 bpr 2183
                            double_data[c+2] = xmax+1000; /* 1000 is needed for dragging...otherwise it is just segment */
8365 schaersvoo 2184
                            double_data[c+3] = (m)*(double_data[c+2])+(q);
2185
                        }
2186
                        else
2187
                        { /* to the left */
2188
                            double_data[c+2] = xmin - 1000;
2189
                            double_data[c+3] = (m)*(double_data[c+2])+(q);
2190
                        }
2191
                    }
2192
                }
15111 schaersvoo 2193
                if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
2194
                if(use_affine == TRUE ){ transform(i-1,2);}
2195
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,18,[%.*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);
2196
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
2197
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,18,[%.*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);
2198
                add_to_buffer(tmp_buffer);
2199
                if(onclick != 0){object_cnt++;}/* object_cnt++; */
8365 schaersvoo 2200
            }
2201
            reset();
15111 schaersvoo 2202
            dragstuff[18] = 1;
2203
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
8365 schaersvoo 2204
            break;
11806 schaersvoo 2205
        case HATCHFILL:
2206
        /*
2207
        @ hatchfill x0,y0,dx,dy,color
2208
        @ x0,y0 in xrange / yrange
2209
        @ distances dx,dy in pixels
13936 bpr 2210
        @ there is also a command <a href="#userdraw">userdraw hatchfill,color</a>
12110 schaersvoo 2211
        @%hatchfill%size 400,400%xrange -10,10%yrange -10,10%canvastype 100%linewidth 2%precision 1000%jsplot blue,5*sin(x)%opacity 200,50%hatchfill 6,6,10,10,blue%hatchfill 6,-6,6,6,red
11806 schaersvoo 2212
        */
15111 schaersvoo 2213
            js_function[DRAW_HATCHFILL] = 1;
11820 schaersvoo 2214
            if(js_function[DRAW_FILLTOBORDER] != 1 ){/* use only once */
2215
             js_function[DRAW_FILLTOBORDER] = 1;
15111 schaersvoo 2216
             add_js_filltoborder(canvas_type);
11820 schaersvoo 2217
            }
2218
            decimals = find_number_of_digits(precision);
11806 schaersvoo 2219
            for(i=0;i<5;i++){
2220
                switch(i){
11820 schaersvoo 2221
                    case 0: double_data[0] = get_real(infile,0); break; /* x */
2222
                    case 1: double_data[1] = get_real(infile,0); break; /* y  */
2223
                    case 2: int_data[0] = (int) (get_real(infile,0)); break; /* dx pixel */
2224
                    case 3: int_data[1] = (int) (get_real(infile,0)); break; /* dy pixel*/
11806 schaersvoo 2225
                    case 4: stroke_color = get_color(infile,1);
15111 schaersvoo 2226
                    if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}
2227
                    if(use_affine == TRUE ){ transform(2,2);}
11806 schaersvoo 2228
                    /* draw_hatchfill(ctx,x0,y0,dx,dy,linewidth,color,opacity,xsize,ysize) */
14208 schaersvoo 2229
                    string_length = 1 + snprintf(NULL,0,  "draw_hatchfill(%d,%.*f,%.*f,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",STATIC_CANVAS+fill_cnt,decimals,double_data[0],decimals,double_data[1],int_data[0],int_data[1],line_width,stroke_color,stroke_opacity,xsize,ysize);
2230
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11820 schaersvoo 2231
                    snprintf(tmp_buffer,string_length,"draw_hatchfill(%d,%.*f,%.*f,%d,%d,%d,\"%s\",%.2f,%d,%d);\n",STATIC_CANVAS+fill_cnt,decimals,double_data[0],decimals,double_data[1],int_data[0],int_data[1],line_width,stroke_color,stroke_opacity,xsize,ysize);
11806 schaersvoo 2232
                    add_to_buffer(tmp_buffer);
11820 schaersvoo 2233
                    fill_cnt++;
15111 schaersvoo 2234
                    reset();
11806 schaersvoo 2235
                    break;
2236
                    default:break;
2237
                }
2238
            }
2239
        break;
8386 schaersvoo 2240
 
8224 bpr 2241
        case HLINE:
7614 schaersvoo 2242
        /*
2243
        @ hline x,y,color
15715 schaersvoo 2244
        @ alternative: horizontalline
15111 schaersvoo 2245
        @ draw a horizontal line through point (x:y) in color 'color'
2246
        @ or use command <a href='#curve'>curve color,formula</a> to draw the line (uses more points to draw the line; is however better draggable)
9406 schaersvoo 2247
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
12110 schaersvoo 2248
        @%hline%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%hline 0,0,red%dhline 0,5,blue
7614 schaersvoo 2249
        */
2250
            for(i=0;i<3;i++) {
2251
                switch(i){
2252
                    case 0: double_data[0] = get_real(infile,0);break; /* x-values */
2253
                    case 1: double_data[1] = get_real(infile,0);break; /* y-values */
2254
                    case 2: stroke_color = get_color(infile,1);/* name or hex color */
2255
                    double_data[3] = double_data[1];
15111 schaersvoo 2256
                    if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}
2257
                    if(use_affine == TRUE ){ transform(2,2);}
2258
                    if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
7614 schaersvoo 2259
                    decimals = find_number_of_digits(precision);
15111 schaersvoo 2260
                    string_length = 1 + snprintf(NULL,0,"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,100*xmin,decimals,100*xmax,decimals,double_data[1],decimals,double_data[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);
2261
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
2262
                    snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[30,30],[30,30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,100*xmin,decimals,100*xmax,decimals,double_data[1],decimals,double_data[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);
2263
                    add_to_buffer(tmp_buffer);
2264
                    if(onclick != 0){object_cnt++;}/* object_cnt++; */
2265
                    dragstuff[4] = 1;
2266
                    if(use_dragstuff == 0 ){ use_dragstuff = 1; }
8379 schaersvoo 2267
                    reset();
7614 schaersvoo 2268
                    break;
2269
                }
2270
            }
2271
            break;
8366 schaersvoo 2272
 
2273
        case HLINES:
2274
        /*
2275
        @ hlines color,x1,y1,x2,y2,...
15715 schaersvoo 2276
        @ alternative: horizontallines
15111 schaersvoo 2277
        @ draw horizontal lines through points (x1:y1)...(xn:yn) in color 'color'
9406 schaersvoo 2278
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually
12110 schaersvoo 2279
        @%hlines%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%hlines red,0,0,0,5,0,-5
8366 schaersvoo 2280
        */
2281
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
2282
            fill_color = stroke_color;
2283
            i=0;
2284
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 2285
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
8366 schaersvoo 2286
                if(i%2 == 0 ){
2287
                    double_data[i] = get_real(infile,0); /* x */
2288
                }
2289
                else
2290
                {
2291
                    double_data[i] = get_real(infile,1); /* y */
2292
                }
2293
                i++;
2294
            }
15111 schaersvoo 2295
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
2296
            if(use_affine == TRUE ){ transform(i-1,2);}
2297
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
2298
 
8366 schaersvoo 2299
            decimals = find_number_of_digits(precision);
2300
            for(c = 0 ; c < i-1 ; c = c+2){
15111 schaersvoo 2301
                string_length = 1 + snprintf(NULL,0,"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,xmin,decimals,xmax,decimals,double_data[c+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,my_sliders,rotation_center,use_offset);
2302
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
2303
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[30,30],[30,30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,xmin,decimals,xmax,decimals,double_data[c+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,my_sliders,rotation_center,use_offset);
2304
                add_to_buffer(tmp_buffer);
2305
                if(onclick != 0){object_cnt++;}/* object_cnt++; */
8366 schaersvoo 2306
            }
2307
            reset();
15111 schaersvoo 2308
            dragstuff[4] = 1;
2309
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
8366 schaersvoo 2310
            break;
11806 schaersvoo 2311
        case HTTP:
7614 schaersvoo 2312
        /*
11806 schaersvoo 2313
         @ http x1,y1,x2,y2,http://some_adress.com
14078 bpr 2314
         @ an active html-page will be displayed in an "iframe" rectangle left top (x1:y1), right bottom (x2:y2)
11806 schaersvoo 2315
         @ do not use interactivity (or mouse) if the mouse needs to be active in the iframe
14071 bpr 2316
         @ can <b>not</b> be ''set onclick`` or ''drag xy``
12110 schaersvoo 2317
         @%http%size 400,400%xrange -10,10%yrange -10,10%http 0,10,10,0,http://wims.unice.fr%opacity 200,50%drag xy%fcircle 0,0,100,green
7614 schaersvoo 2318
        */
15111 schaersvoo 2319
            js_function[DRAW_HTTP] = 1;
11806 schaersvoo 2320
            for(i=0;i<5;i++){
7614 schaersvoo 2321
                switch(i){
11806 schaersvoo 2322
                    case 0: int_data[0]=x2px(get_real(infile,0));break; /* x in x/y-range coord system -> pixel width */
14032 schaersvoo 2323
                    case 1: int_data[1]=y2px(get_real(infile,0));break; /* y in x/y-range coord system  -> pixel height */
11806 schaersvoo 2324
                    case 2: int_data[2]=x2px(get_real(infile,0)) - int_data[0];break; /* width in x/y-range coord system -> pixel width */
2325
                    case 3: int_data[3]=y2px(get_real(infile,0)) - int_data[1];break; /* height in x/y-range coord system  -> pixel height */
2326
                    case 4: decimals = find_number_of_digits(precision);
2327
                            temp = get_string(infile,1);
2328
                            if(strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\"","'");}
14208 schaersvoo 2329
                            string_length = 1 + snprintf(NULL,0,"draw_http(%d,%d,%d,%d,%d,\"%s\");\n",canvas_root_id,int_data[0],int_data[1],int_data[2],int_data[3],temp);
11806 schaersvoo 2330
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length+2);
2331
                            snprintf(tmp_buffer,string_length,"draw_http(%d,%d,%d,%d,%d,\"%s\");\n",canvas_root_id,int_data[0],int_data[1],int_data[2],int_data[3],temp);
2332
                            add_to_buffer(tmp_buffer);
7614 schaersvoo 2333
                    break;
2334
                }
2335
            }
11806 schaersvoo 2336
            reset();
7614 schaersvoo 2337
            break;
11806 schaersvoo 2338
        case HTML:
8366 schaersvoo 2339
        /*
15111 schaersvoo 2340
         @ html x1,y1,html_string
14071 bpr 2341
         @ all tags are allowed, html code using inputfields could be read using your own javascript code. Do not use ids like 'canvas_input0' etc.
15111 schaersvoo 2342
         @ can be set <a href='#onclick'>onclick</a>  and <a href='#drag'>drag&amp;drop</a>
2343
         @ command <a href='#affine'>affine</a> will produce CSS3 matrix transformations
2344
         @ command <a href='#rotate'>rotate</a> will rotate the object
14038 schaersvoo 2345
         @ use keyword <a href='#centered'>centered</a> to center the html object on (x1:y1)
15111 schaersvoo 2346
         @ note: using drag&amp;drop for all external P,SPAN,DIV,IMG,SVG-images onto a canvasdraw element, use ''onclick=javascript:place_image_on_canvas(this.id)``
16707 schaersvoo 2347
         @ note: sub &amp; sup are supported in command family <a href='#string'>string</a>, e.g. real internal canvas objects !
15629 bpr 2348
         @%html-text%size 500,500%xrange -10,10%yrange -10,10%drag xy%centered%fillcolor lightblue%html 2,2,<h1 style='color:red'>DRAG ME</h1> %opacity 200,50%drag xy%fcircle 0,0,100,green
15111 schaersvoo 2349
         @%html-image-slider%size 500,500%xrange -10,10%yrange -10,10%fontsize 42%rotationcenter 0,0%centered%html 0,0,<img src="http://85.148.206.56/gifs/can1.gif" />%slider 0,pi,400,40,angle active degree, %centered%html 0,0,<img src="http://85.148.206.56/gifs/can2.gif" />
8366 schaersvoo 2350
        */
15111 schaersvoo 2351
            js_function[DRAW_XML] = 1;
11806 schaersvoo 2352
            for(i=0;i<5;i++){
2353
                switch(i){
15111 schaersvoo 2354
                    case 0: double_data[0] = get_real(infile,0);break;
2355
                    case 1: double_data[1] = get_real(infile,0);break;
11806 schaersvoo 2356
                    case 4: decimals = find_number_of_digits(precision);
15111 schaersvoo 2357
                            if(use_affine == TRUE ){ transform(2,2);}/* needs double_data[] */
2358
                            if( use_offset != 0 || drag_type != -1 ){int_data[2] = 1;}else{int_data[2] = 0;} /* only centered or not-centered */
2359
                            int_data[0] = x2px(double_data[0]);/* needs px */
2360
                            int_data[1] = y2px(double_data[1]);
2361
                            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
15116 bpr 2362
                            if( use_slider != -1 && drag_type != -1){ onclick = 5; }
11806 schaersvoo 2363
                            temp = get_string(infile,1);
15111 schaersvoo 2364
                            if( strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\"","\\\""); }
2365
                            if( strstr(temp,"<img ")!= 0){URL="image";}else{URL="html";}
2366
                            string_length = 1 + snprintf(NULL,0,"var draw_xml%d = {id:%d,type:'%s',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%s,rotation_center:%s,once:true};slidergroup[%d] = null;draw_xml(draw_xml%d);\n",drawxml_cnt,drawxml_cnt,URL,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,my_sliders,rotation_center,object_cnt,drawxml_cnt);
14208 schaersvoo 2367
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15111 schaersvoo 2368
                            snprintf(tmp_buffer,string_length,  "var draw_xml%d = {id:%d,type:'%s',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%s,rotation_center:%s,once:true};slidergroup[%d] = null;draw_xml(draw_xml%d);\n",drawxml_cnt,drawxml_cnt,URL,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,my_sliders,rotation_center,object_cnt,drawxml_cnt);
11806 schaersvoo 2369
                            add_to_buffer(tmp_buffer);
15111 schaersvoo 2370
                            if(onclick != 0 ){object_cnt++;}
2371
                            drawxml_cnt++;/* keeps track on imported img,div,p,span,mathml,svg */
11806 schaersvoo 2372
                            break;
2373
                    default:break;
8366 schaersvoo 2374
                }
2375
            }
15111 schaersvoo 2376
            reset();
8366 schaersvoo 2377
            break;
8386 schaersvoo 2378
 
11806 schaersvoo 2379
        case IMAGEFILL:
7614 schaersvoo 2380
        /*
11996 schaersvoo 2381
        @ imagefill x,y,scaling to xsize &times; ysize?,image_url
11874 schaersvoo 2382
        @ The next suitable <b>filled object</b> will be filled with "image_url" tiled
2383
        @ scaling to xsize &times; ysize ? ... 1 = yes 0 = no
14078 bpr 2384
        @ After pattern filling, the fill-color should be reset !
14066 bpr 2385
        @ wims getins / image from class directory: imagefill 80,80,my_image.gif
15111 schaersvoo 2386
        @ normal url: imagefill 80,80,0,&#36;module_dir/gifs/my_image.gif
14066 bpr 2387
        @ normal url: imagefill 80,80,1,http://adres/a/b/c/my_image.jpg
11874 schaersvoo 2388
        @ if dx,dy is larger than the image, the whole image will be background to the next object.
13967 schaersvoo 2389
        @%imagefill_tile%size 400,400%xrange -10,10%yrange -10,10%linewidth 3%circles blue,0,0,5,3,2,5%imagefill 1.5,1.5,0,gifs/en.gif%imagefill -5,5,0,gifs/logo/wimsedu.png
2390
        @%imagefill_scale%size 400,400%xrange -10,10%yrange -10,10%linewidth 3%circles blue,0,0,5,3,2,5%imagefill 1.5,1.5,1,gifs/en.gif%imagefill -5,5,1,gifs/logo/wimsedu.png
7614 schaersvoo 2391
        */
15111 schaersvoo 2392
            js_function[DRAW_IMAGEFILL] = 1;
11854 schaersvoo 2393
            if(js_function[DRAW_FILLTOBORDER] != 1 ){/* use only once */
2394
             js_function[DRAW_FILLTOBORDER] = 1;
15111 schaersvoo 2395
             add_js_filltoborder(canvas_type);
11854 schaersvoo 2396
            }
11874 schaersvoo 2397
            for(i=0 ;i < 4 ; i++){
7614 schaersvoo 2398
                switch(i){
11806 schaersvoo 2399
                    case 0:int_data[0] = (int) (get_real(infile,0));break;
2400
                    case 1:int_data[1] = (int) (get_real(infile,0));break;
11874 schaersvoo 2401
                    case 2:int_data[2] = (int) (get_real(infile,0));break; /* 0 | 1 */
2402
                    case 3: URL = get_string_argument(infile,1);
14208 schaersvoo 2403
                            string_length = 1 + snprintf(NULL,0,  "draw_imagefill(%d,%d,%d,\"%s\",%d,%d,%d,%d);\n",STATIC_CANVAS+fill_cnt,int_data[0],int_data[1],URL,xsize,ysize,use_userdraw,int_data[2]);
2404
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11874 schaersvoo 2405
                            snprintf(tmp_buffer,string_length,"draw_imagefill(%d,%d,%d,\"%s\",%d,%d,%d,%d);\n",STATIC_CANVAS+fill_cnt,int_data[0],int_data[1],URL,xsize,ysize,use_userdraw,int_data[2]);
11806 schaersvoo 2406
                            add_to_buffer(tmp_buffer);
11874 schaersvoo 2407
                            fill_cnt++;
11806 schaersvoo 2408
                    break;
7614 schaersvoo 2409
                }
2410
            }
11806 schaersvoo 2411
            reset();
2412
        break;
14066 bpr 2413
 
14038 schaersvoo 2414
        case IMAGEPALETTE:
2415
        /*
2416
         @ imagepalette image1,image2,image3,...
14379 bpr 2417
         @ if used before and together with command <a href='#multidraw'>multidraw images,..,..., etc</a> the image will be presented in a small table in the ''control panel``.
15313 schaersvoo 2418
         @%imagepalette%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%copy 0,0,-1,-1,-1,-1,gifs/images/skull_and_crossbones50.png%fontcolor green%fontfamily Bold 42pt Arial%imagepalette gifs/ca.gif,gifs/en.gif,gifs/nl.gif,gifs/fr.gif,gifs/cn.gif,gifs/de.gif,gifs/kh.gif,gifs/it.gif%multiuserinput 0,0,1%css color:blue;%multisnaptogrid 1,1,1%multilinewidth 0,4,0%# attention: use unicode text input without the slash %# \u222D ---> u222D at least will sometimes work%# otherwise cut&past unicode symbols into inputfield...%multilabel TEXT,REACTION ARROW,FLAGS,STOP DRAWING%multidraw text,arrow,images
14038 schaersvoo 2419
         */
2420
           temp = get_string(infile,1);
2421
           temp = str_replace(temp,",","\",\"");
2422
            if( use_tooltip == 1 ){canvas_error("command 'imagepalette' is incompatible with command 'intooltip tip_text',as they use the same div-element ");}
2423
            fprintf(js_include_file,"\nvar current_id;var imagepalette = [\" %s \"];\n",temp);
2424
        break;
14066 bpr 2425
 
11806 schaersvoo 2426
        case INPUT:
2427
        /*
2428
         @ input x,y,size,editable,value
2429
         @ to set inputfield "readonly", use editable = 0
15111 schaersvoo 2430
         @ if no preset 'value' is needed...use a 'space' as last item argument
11806 schaersvoo 2431
         @ only active inputfields (editable = 1) will be read with read_canvas();
15111 schaersvoo 2432
         @ if ''&#36;status=done`` (e.g. in answer.phtml) the inputfield will be cleared and set readonly<br />override this by keyword <a href="#status">status</a>
2433
         @ may be further controlled by <a href="#css">css</a>
11806 schaersvoo 2434
         @ if mathml inputfields are present and / or some userdraw is performed, these data will <b>not</b> be send as well (javascript:read_canvas();)
2435
         @ use keyword <a href='#xoffset'>xoffset | centered</a> if the inputfield should be centered on (x:y)<br /> default is the left top corner is (x:y)
13953 schaersvoo 2436
         @ if the student must place an inputfield(s) somewhere on the canvas, use command <a href="#userdraw">userdraw input,color</a> or make use of a command like <a href="#userdraw">userdraw text,color</a>
2437
         @%input%size 400,400%xrange -10,10%yrange -10,10%linewidth 6%point 1,2,red%input 1,2,5,1, ?%point -5,5,red%input -5,5,5,1, ?%point 6,-5,red%input 6,-5,5,1, ?%point -5,-8,red%input -5,-8,5,1, ?
11806 schaersvoo 2438
        */
15111 schaersvoo 2439
        js_function[DRAW_INPUTS] = 1;
11806 schaersvoo 2440
            for(i = 0 ; i<5;i++){
2441
                switch(i){
2442
                    case 0: int_data[0]=x2px(get_real(infile,0));break;/* x in px */
2443
                    case 1: int_data[1]=y2px(get_real(infile,0));break;/* y in px */
2444
                    case 2: int_data[2]=abs( (int)(get_real(infile,0)));break; /* size */
2445
                    case 3: if( get_real(infile,1) >0){int_data[3] = 1;}else{int_data[3] = 0;};break; /* readonly */
15260 schaersvoo 2446
                    case 4: temp = get_string(infile,3);
15111 schaersvoo 2447
                            string_length = 1 + snprintf(NULL,0,  "draw_static_inputs(%d,%d,%d,%d,%d,%d,\"%s\",\"%s\",%d);\n",canvas_root_id,input_cnt,int_data[0],int_data[1],int_data[2],int_data[3],css_class,temp,use_offset);
14208 schaersvoo 2448
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15111 schaersvoo 2449
                            snprintf(tmp_buffer,string_length,"draw_static_inputs(%d,%d,%d,%d,%d,%d,\"%s\",\"%s\",%d);\n",canvas_root_id,input_cnt,int_data[0],int_data[1],int_data[2],int_data[3],css_class,temp,use_offset);
11806 schaersvoo 2450
                            add_to_buffer(tmp_buffer);
2451
                            input_cnt++;break;
2452
                    default: break;
2453
                }
2454
            }
2455
            if(reply_format == 0 ){reply_format = 15;}
2456
            reset();
2457
            break;
8386 schaersvoo 2458
 
11806 schaersvoo 2459
        case INTOOLTIP:
2460
            /*
2461
            @ intooltip link_text
2462
            @ link_text is a single line (span-element)
15111 schaersvoo 2463
            @ link_text may also be an image URL ''http://some_server/images/my_image.png`` or ''&#36;module_dir/gifs/my_image.jpg``
11806 schaersvoo 2464
            @ link_text may contain HTML markup
14071 bpr 2465
            @ the canvas will be displayed in a tooltip on ''link_text``
15111 schaersvoo 2466
            @ the canvas is default transparent: use command <a href="#bgcolor">bgcolor color</a> to adjust background-color, the link text will also be shown with this 'bgcolor'.
14071 bpr 2467
            @ many ''userinput stuff`` will use the tooltip_placeholder_div element...only one is defined in the wims-page<br />and are therefore these commands are mutually exclusive.<br />keep this in mind...
14246 bpr 2468
            @%intooltip%size 400,400%xrange -10,10%yrange -10,10%fontfamily Bold 42pt Courier%string black,0,0,Hello World%intooltip <span style="background-color:black;color:white;font-style:bold;font-size:48pt;">CLICK <br />HERE</span>
11806 schaersvoo 2469
            */
2470
            if(use_input_xy != FALSE ){canvas_error("intooltip can not be combined with userinput_xy or other commands using the tooltip-div...see documentation");}
2471
            if( use_tooltip == 1 ){ canvas_error("command 'intooltip' cannot be combined with command 'popup'...");}
2472
            tooltip_text = get_string(infile,1);
2473
            if(strstr(tooltip_text,"\"") != 0 ){ tooltip_text = str_replace(tooltip_text,"\"","'"); }
2474
            use_tooltip = 1;
2475
            break;
2476
 
2477
        case JSCURVE:
7614 schaersvoo 2478
        /*
11893 schaersvoo 2479
         @ jscurve color,formula1(x),formula2(x),formula3(x),...
15715 schaersvoo 2480
         @ alternative: jsplot
11893 schaersvoo 2481
         @ your function will be plotted by the javascript engine of the client browser
2482
         @ if <a href='trange'>trange</a> is defined, the two functions will be plotted parametric<br /><b>note</b>: use <i>x</i> as variable...and not <i>t</i>. Use keyword <a href='#animate'>animate</a> to animate a point on the curve
14071 bpr 2483
         @ use only basic math in your curve: <code>sqrt,^,asin,acos,atan,log,pi,abs,sin,cos,tan,e</code>
2484
         @ use parenthesis and rawmath: use 2*x instead of 2x ; use 2^(sin(x))...etc etc (use error console to debug any errors...)
2485
         @ <b>attention</b>: last ''precision`` command in the canvasdraw script determines the calculation precision of the javascript curve plot !
11806 schaersvoo 2486
         @ no validity check is done by wims.
15111 schaersvoo 2487
         @ 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
11806 schaersvoo 2488
         @ zooming & panning is better than for curves produced by command <a href="#curve">curve color,formula</a> because for avery change in x/y-range the curve is recalculated in javascript
15116 bpr 2489
         @ zooming & panning in case of userbased functionplot: reclick the OK button to re-plot curve onto the resized grid
11893 schaersvoo 2490
         @ use keyword <a href='animate'>animate</a> for animating a point on the curve
14071 bpr 2491
         @ use command ''trace_jscurve formula(x)`` for tracing
14246 bpr 2492
         @ use command ''jsmath formula(x)`` for calculating and displaying indiviual points on the curve
11806 schaersvoo 2493
         @ can <b>not</b> be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> (yet)
14071 bpr 2494
         @ commands plotjump / plotstep are not active for ''jscurve``
11806 schaersvoo 2495
         @ every command jscurve will produce a new canvas (canvastype 111,112,113...) for this one curve.
14071 bpr 2496
         @ plotting multiple js-curves on the same canvas (for example if you want to use 'userdraw clickfill,color' on <a href="#canvastype">canvastype</a> number 111, use:<br/> <code>jscurve red,fun1(x),fun2(x)...fun_n(x)</code>, you must specify individual multistrokecolors &amp; multistrokeopacity &amp; multilinewidth for these multiple js-curves to use different colors. Otherwise all curves will be the same color... Use commands like: <a href="#multistrokecolors">multistrokecolors</a>, <a href="#multilinewidth">multilinewidth</a>, <a href="#multidash">multidash</a>, <a href="#multistrokeopacity">multistroke</a>, <b>color</b> given for the command <code>jscurve color,formulas(x)</code> will not be used in that case... but the color argument must still be given in any case (otherwise syntax error...)
14622 schaersvoo 2497
         @%jscurve%size 400,400%xrange -10,10%yrange -10,10%multistrokecolors red,green,blue,orange%multilinewidth 1,2,3%multistrokeopacity 0.5,0.8,1.0%jscurve red,sin(x),1/sin(x),sin(x^2)
11806 schaersvoo 2498
        */
15111 schaersvoo 2499
            jsplot_cnt++;/* -1 --> 0 */
11806 schaersvoo 2500
            stroke_color = get_color(infile,0);
15111 schaersvoo 2501
            js_function[JS_MATH] = 1;
2502
            js_function[JS_PLOT] = 1;
2503
            if( tmin != 0 && tmax !=0){use_parametric = TRUE;}
11806 schaersvoo 2504
            temp = get_string(infile,1);
2505
            temp = str_replace(temp,",","\",\"");
15111 schaersvoo 2506
            string_length = 1 + snprintf(NULL,0,  "var js_plot%d = function(){jsplot(%d,[\"%s\"],[%d],[\"%s\"],[%.2f],[%d],%d,%d,[%f,%f],%d,%d,%d,0);};js_plot%d();",jsplot_cnt,JSPLOT_CANVAS+jsplot_cnt,temp,line_width,stroke_color,stroke_opacity,use_dashed,dashtype[0],dashtype[1],tmin,tmax,plot_steps,use_parametric,use_animate,jsplot_cnt);
14208 schaersvoo 2507
            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15111 schaersvoo 2508
            snprintf(tmp_buffer,string_length,    "var js_plot%d = function(){jsplot(%d,[\"%s\"],[%d],[\"%s\"],[%.2f],[%d],%d,%d,[%f,%f],%d,%d,%d,0);};js_plot%d();",jsplot_cnt,JSPLOT_CANVAS+jsplot_cnt,temp,line_width,stroke_color,stroke_opacity,use_dashed,dashtype[0],dashtype[1],tmin,tmax,plot_steps,use_parametric,use_animate,jsplot_cnt);
11806 schaersvoo 2509
            add_to_buffer(tmp_buffer);
15111 schaersvoo 2510
            fprintf(js_include_file,"if(typeof(all_jsplots) !== 'number'){var all_jsplots;};all_jsplots = %d;",jsplot_cnt);
2511
 
11806 schaersvoo 2512
             /* we need to create multiple canvasses, so we may zoom and pan ?? */
2513
        break;
2514
 
2515
        case JSMATH:
2516
        /*
2517
            @ jsmath some_math_function
2518
            @ will calculate an y-value from a userinput x-value and draws a crosshair on these coordinates.
14246 bpr 2519
            @ default labels ''x`` and ''y``; the commands ''xlabel some_x_axis_name`` and ''ylabel some_y_axis_name`` will set the label for the input fields
15111 schaersvoo 2520
            @ use command 'css some_css' for styling the display fields. Use command 'fontsize int' to size the labels ''x`` and ''y``
14066 bpr 2521
            @ the client browser will convert your math function to javascript math.<br />use parenthesis and rawmath: use 2*x instead 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...
11806 schaersvoo 2522
            @ be aware that the formula's of the plotted function(s) can be found in the page javascript source
12111 schaersvoo 2523
            @%jsmath%size 400,400%xrange -10,10%yrange -10,10%jsplot blue,sin(x^2)%jsmath sin(x^2)
11806 schaersvoo 2524
        */
15111 schaersvoo 2525
            js_function[DRAW_CROSSHAIRS] = 1;
2526
            js_function[JS_MATH] = 1;
2527
            add_calc_y(get_string(infile,1),font_size,css_class);
2528
            break;
15716 schaersvoo 2529
        case KILL:
2530
        /*
2531
        @ kill arguments
2532
        @ arguments may be: affine linear translation rotation slider offset  reset
2533
        @ for documentation see: killaffine,killlinear,killtranslation...
2534
        @ multiple arguments are allowed (although not checked for validity...)
2535
        */
2536
            temp = get_string(infile,1);
2537
            if(strstr(temp,"affine") != 0 ){use_affine = FALSE;affine_matrix[0] = 1.0;affine_matrix[1] = 0.0;affine_matrix[2] = 0.0;affine_matrix[3] = 1.0;affine_matrix[4] = 0.0;affine_matrix[5] = 0.0;}
2538
            if(strstr(temp,"linear") != 0 ){affine_matrix[0] = 1.0;affine_matrix[1] = 0.0;affine_matrix[2] = 0.0;affine_matrix[3] = 1.0;}
2539
            if(strstr(temp,"translation") != 0 || strstr(temp,"translate") != 0 ){affine_matrix[4] = 0.0;affine_matrix[5] = 0.0;}
2540
            if(strstr(temp,"rotation") != 0 || strstr(temp,"rotate") != 0 ){use_rotate = FALSE;angle = 0.0;rotation_center="null";}
2541
            if(strstr(temp,"slider") != 0 ){slider_type = "0";my_sliders = "[-1]";last_slider = use_slider+1;}
16872 schaersvoo 2542
            if(strstr(temp,"group") != 0 ){onclick = 0;drag_type = -1;slider_type = "0";my_sliders = "[-1]";last_slider = use_slider+1;use_slider = -1;reset();}
15716 schaersvoo 2543
            if(strstr(temp,"reset") != 0 ){if(no_reset == FALSE){no_reset = TRUE;}else{no_reset = FALSE;reset();}}
2544
            if(strstr(temp,"offset") != 0 ){use_offset = 0;}
2545
            break;
11806 schaersvoo 2546
        case KILLAFFINE:
2547
        /*
2548
        @ killaffine
14066 bpr 2549
        @ keyword: resets the transformation matrix to 1,0,0,1,0,0
15633 bpr 2550
        @ note: any active linear transformation will also be reset: tx=0, ty=0
11806 schaersvoo 2551
        */
15111 schaersvoo 2552
            use_affine = FALSE;
2553
            affine_matrix[0] = 1.0;
2554
            affine_matrix[1] = 0.0;
2555
            affine_matrix[2] = 0.0;
2556
            affine_matrix[3] = 1.0;
2557
            affine_matrix[4] = 0.0;
2558
            affine_matrix[5] = 0.0;
11806 schaersvoo 2559
            break;
15111 schaersvoo 2560
        case KILLLINEAR:
2561
        /*
2562
        @ killlinear
2563
        @ keyword: resets the transformation matrix to 1,0,0,1,tx,ty
2564
        @ note:any active transformation or rotation will not be killed (tx,ty remain active)
2565
        */
2566
            affine_matrix[0] = 1.0;
2567
            affine_matrix[1] = 0.0;
2568
            affine_matrix[2] = 0.0;
2569
            affine_matrix[3] = 1.0;
2570
            break;
11806 schaersvoo 2571
 
15111 schaersvoo 2572
 
11806 schaersvoo 2573
        case KILLROTATE:
2574
        /*
14071 bpr 2575
         @ killrotate
15111 schaersvoo 2576
         @ will set the rotation angle to 0.
2577
         @ will also reset the command <a href="#rotationcenter">rotationcenter</a> to the first (x;y) of the next rotatable/slidable object(s) <br/>eg a following rotate command will have the first object point as rotation center
11806 schaersvoo 2578
         @ if not set, the rotation center will remain unchanged
15111 schaersvoo 2579
         @ note:any active transformation or linear will not be killed (e.g an active transformation matrix remains active)
15116 bpr 2580
         @%killrotate%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%rotationcenter 0,0%# slider is active for all following objects until 'killslider'%slider -10,10,300,40,angle degree,Rotate%drag xy%# after dragging the object must be clicked to re-activate the slider%linewidth 4%arrow 0,0,6,0,9,blue%%# reset rotation center to the first (x,y) of the next object/arrow...%killrotate%drag xy%# after dragging the object must be clicked to re-activate the slider%arrow 0,0,6,1,9,red
11806 schaersvoo 2581
        */
15111 schaersvoo 2582
            use_rotate = FALSE;
14549 schaersvoo 2583
            angle = 0.0;
15111 schaersvoo 2584
            rotation_center="null";
11806 schaersvoo 2585
         break;
2586
 
2587
        case KILLSLIDER:
2588
        /*
2589
         @ killslider
2590
         @ keyword (no arguments required)
2591
         @ ends grouping of object under a previously defined slider
2592
        */
14208 schaersvoo 2593
            slider_type = "0";
15111 schaersvoo 2594
            my_sliders = "[-1]";
2595
            last_slider = use_slider+1;
11806 schaersvoo 2596
            break;
2597
 
2598
        case KILLTRANSLATION:
2599
        /*
15116 bpr 2600
         @ killtranslation
15715 schaersvoo 2601
         @ alternative: killtranslate
15111 schaersvoo 2602
         @ note: a active linear or affine transformation will not be 100% reset...only tx=0,ty=0
2603
         @ resets the translation matrix a,b,c,d,tx,ty to a,b,c,d,0,0
11806 schaersvoo 2604
        */
15111 schaersvoo 2605
            affine_matrix[4] = 0.0;
2606
            affine_matrix[5] = 0.0;
11806 schaersvoo 2607
            break;
15757 schaersvoo 2608
 
14225 schaersvoo 2609
        case LATEX:
2610
        /*
15111 schaersvoo 2611
         @ latex x,y,tex string
15715 schaersvoo 2612
         @ alternative: math
16706 schaersvoo 2613
         @ note: <b>for a single greek letter</b> ,please be smart and use a command like <a href='#string'>string</a> along with <b>unicode</b> !! <br />possibly together with command <a href="#xyoffset">xoffset, yoffset or xyoffset</a><br/> See <a target='new' href='https://en.wikipedia.org/wiki/Mathematical_operators_and_symbols_in_Unicode'>https://en.wikipedia.org/wiki/Mathematical_operators_and_symbols_in_Unicode</a><br/> See <a target='new' href='https://en.wikipedia.org/wiki/Greek_script_in_Unicode'>https://en.wikipedia.org/wiki/Greek_script_in_Unicode</a>
15111 schaersvoo 2614
         @ you may also use command <a href="#mathml">mathml</a> for xml strings generated with wims commmand ''mathmlmath`` (will not work on KaTeX enabled WIMS)
15633 bpr 2615
         @ transformation commands <a href='#affine'>affine</a>, <a href='#translation'>translation</a> and <a href='#rotate'>rotate</a> are supported.(onclick and drag will work)
15111 schaersvoo 2616
         @ can be set onclick: <code>javascript:read_dragdrop();</code> will return click numbers of mathml-objects<br />if 4 clickable object are drawn, the reply could be 1,0,1,0 ... meaning clicked on the first and third object
2617
         @ can be set draggable:<code>javascript:read_dragdrop();</code> will return all coordinates in the same order as the canvas script: unmoved object will have their original coordinates...
2618
         @ can be moved/rotated with command <a href='#slider'>slider</a>
2619
         @ snaptogrid is supported
2620
         @ when clicked, the colour of the 'div background' of the 'mathobject' will be determined by the <a href="#fillcolor">fillcolor</a> and <a href="#opacity">opacity</a> settings
2621
         @ userdraw may be combined with 'latex' ; the js-function 'read_canvas()' will contain the coordinates of the drawing.
2622
         @ userdraw may be combined; the read_canvas() will contain the drawing.
2623
         @ draggable or onclick 'external images' from command <a href='#copyresized'>copy or copyresized</a> and all objects from commands <a href='#html'>html</a> or <a href='#obabel'>obabel</a> can be combined with drag and/or onclick mathml
14230 schaersvoo 2624
         @ other drag objects (circles/rects etc) are supported, but read_dragdrop() will probably be difficult to interpret...
14379 bpr 2625
         @ 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 <code>javascript:read_mathml();</code>. <b>attention</b>: if after this mathml-input object other user-interactions are included, these will read mathml too using "read_canvas();"
2626
         @ If other inputfields (command input / command textarea) or userdraw are performed, the function read_canvas() will not read mathml. Use some generic function to read it....
15116 bpr 2627
         @ use keyword <a href='#centered'>centered</a> to center the katex div object on (x1:y1) <br />this may not work as expected for MathJaX [TO BE TESTED]
15274 bpr 2628
         @ note: if you want to include external TeX via drag&amp;drop onto a canvasdraw element, use \\mmlid{integer} in the tex-command:''!insmath \\mmlid{1}\\frac{1}{\pi}``<br /> (if your wims_mathml does not support it...use <a href="http://85.148.206.56/wims/download/Mathml.tar.gz">this version...</a>)
15111 schaersvoo 2629
         @ note: the same is true for all external P,SPAN,DIV,IMG,SVG-images via drag&amp;drop onto a canvasdraw element, use ''onclick=javascript:place_image_on_canvas(this.id)``
2630
         @%latex_drag%size 400,400%xrange -10,10%yrange -10,10%grid 2,2,grey%strokecolor red%drag xy%centered%latex -6,5,\\frac{1}{2}+ \\frac{\\pi}{2}%strokecolor blue%drag xy%centered%latex -3,5,\\frac{1}{3}+ \\frac{\\pi}{3}%strokecolor green%drag xy%centered%latex 0,5,\\frac{1}{4}+ \\frac{\\pi}{4}%strokecolor orange%drag xy%fontfamily 26px Times%centered%latex 3,5,\\frac{1}{5}+ \\frac{\\pi}{6}
15313 schaersvoo 2631
         @%latex%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 3%vline 0,0,green%hline 0,0,green%fontfamily 16px Arial%fillcolor orange%strokecolor blue%linewidth 2%slider 0,4*pi,400,40,angle degree active, %centered%latex 0,0,\\frac{12345}{23456} \\times \\frac{12345}{23456}%translate 4,4%centered%rotate 180%drag xy%html 0,0,<table><tr><th>HTML TABLE</th></tr><tr><th><a href="https://wimsedu.info/">WIMS EDU </a> </th></tr><tr><td><img src="gifs/en.gif" /></tr><tr><td><img src="gifs/nl.gif" /></tr><tr><td><img src="gifs/fr.gif" /></tr><tr><td><img src="gifs/cn.gif" /></tr><tr><td><img src="gifs/it.gif" /></tr></table>%userdraw arrow2,red
14225 schaersvoo 2632
        */
15111 schaersvoo 2633
            js_function[DRAW_XML] = 1;
15757 schaersvoo 2634
            for(i=0;i<3;i++){
14225 schaersvoo 2635
                switch(i){
15111 schaersvoo 2636
                    case 0: double_data[0]=get_real(infile,0);break; /* x in x/y-range coord system -> pixel width */
2637
                    case 1: double_data[1]=get_real(infile,0);break; /* y in x/y-range coord system  -> pixel height */
14225 schaersvoo 2638
                    case 2: decimals = find_number_of_digits(precision);
15757 schaersvoo 2639
                    temp = get_string(infile,1);
2640
                    if(use_affine == TRUE ){ transform(2,2);}/* slider will use css-rotate transformation */
15111 schaersvoo 2641
                    if( use_offset != 0 || drag_type != -1 ){int_data[2] = 1;}else{int_data[2] = 0;} /* only centered or not-centered */
2642
                    int_data[0] = x2px(double_data[0]);
2643
                    int_data[1] = y2px(double_data[1]);
16882 schaersvoo 2644
                    if( use_slider != -1 && onclick == 0 ){ onclick = 5;}
15116 bpr 2645
                    if( use_slider != -1 && drag_type != -1){ onclick = 5; }
15757 schaersvoo 2646
#ifdef KATEX_INSTALLED
2647
                    if( strstr(temp,"\\") != 0 ){ temp = str_replace(temp,"\\","\\\\"); }
16613 schaersvoo 2648
                    if( strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\"","'"); }
16882 schaersvoo 2649
                    string_length = 1 + snprintf(NULL,0,"var draw_xml%d = {id:%d,type:'katex',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%s,rotation_center:%s,once:true};draw_xml(draw_xml%d);\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,my_sliders,rotation_center,drawxml_cnt);
15757 schaersvoo 2650
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
16882 schaersvoo 2651
                    snprintf(tmp_buffer,string_length,  "var draw_xml%d = {id:%d,type:'katex',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%s,rotation_center:%s,once:true};draw_xml(draw_xml%d);\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,my_sliders,rotation_center,drawxml_cnt);
15757 schaersvoo 2652
#else
15111 schaersvoo 2653
                    temp = getMML(temp);/* generate MathML for Firefox or MathJaX */
2654
                    if( strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\"","'"); }
16882 schaersvoo 2655
                    string_length = 1 + snprintf(NULL,0,"var draw_xml%d = {id:%d,type:'mathml',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%s,rotation_center:%s,once:true};draw_xml(draw_xml%d);\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,my_sliders,rotation_center,drawxml_cnt);
15111 schaersvoo 2656
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
16882 schaersvoo 2657
                    snprintf(tmp_buffer,string_length,  "var draw_xml%d = {id:%d,type:'mathml',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%s,rotation_center:%s,once:true};draw_xml(draw_xml%d);\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,my_sliders,rotation_center,drawxml_cnt);
15757 schaersvoo 2658
#endif
15111 schaersvoo 2659
                    add_to_buffer(tmp_buffer);
2660
                    if(onclick != 0 ){object_cnt++;}
2661
                    drawxml_cnt++;/* keeps track on imported img,div,p,span,mathml,svg */
2662
                    break;
14225 schaersvoo 2663
                    default:break;
2664
                }
2665
            }
15111 schaersvoo 2666
            reset();
14225 schaersvoo 2667
            break;
14230 schaersvoo 2668
        case LATTICE:
2669
        /*
2670
         @ lattice x0,y0,xv1,yv1,xv2,yv2,n1,n2,color
2671
         @ can <b>not</b> be set ''onclick`` or ''drag xy``
2672
         @%lattice%size 400,400%xrange -10,10%yrange -10,10%fillcolor red%linewidth 2%lattice -10,-10,0,1,1,1,10,10,red%fillcolor blue%lattice 10,-10,0,1,-1,1,10,10,blue
2673
        */
15111 schaersvoo 2674
            js_function[DRAW_LATTICE] = 1;
14230 schaersvoo 2675
            for( i = 0; i<9; i++){
2676
                switch(i){
2677
                    case 0: int_data[0] = x2px(get_real(infile,0));break; /* x0-values  -> x-pixels*/
2678
                    case 1: int_data[1] = y2px(get_real(infile,0));break; /* y0-values  -> y-pixels*/
2679
                    case 2: int_data[2] = (int) (get_real(infile,0));break; /* x1-values  -> x-pixels*/
2680
                    case 3: int_data[3] = (int) -1*(get_real(infile,0));break; /* y1-values  -> y-pixels*/
2681
                    case 4: int_data[4] = (int) (get_real(infile,0));break; /* x2-values  -> x-pixels*/
2682
                    case 5: int_data[5] = (int) -1*(get_real(infile,0));break; /* y2-values  -> y-pixels*/
2683
                    case 6: int_data[6] = (int) (get_real(infile,0));break; /* n1-values */
2684
                    case 7: int_data[7] = (int) (get_real(infile,0));break; /* n2-values */
2685
                    case 8: stroke_color=get_color(infile,1);
2686
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 2687
                        string_length = 1 + snprintf(NULL,0,"draw_lattice(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,\"%s\",%.2f,\"%s\",%.2f,%d,%.2f,%d); ",STATIC_CANVAS,line_width,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],int_data[5],int_data[6],int_data[7],fill_color,fill_opacity,stroke_color,stroke_opacity,use_rotate,angle,use_filled);
14230 schaersvoo 2688
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15111 schaersvoo 2689
                        snprintf(tmp_buffer,string_length,"draw_lattice(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,\"%s\",%.2f,\"%s\",%.2f,%d,%.2f,%d); ",STATIC_CANVAS,line_width,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],int_data[5],int_data[6],int_data[7],fill_color,fill_opacity,stroke_color,stroke_opacity,use_rotate,angle,use_filled);
14230 schaersvoo 2690
                        add_to_buffer(tmp_buffer);break;
2691
                    default:break;
2692
                }
2693
            }
2694
            reset();
2695
            break;
15111 schaersvoo 2696
        case LINEAR:
2697
        /*
2698
         @ linear a,b,c,d
2699
         @ defines a transformation matrix for subsequent objects
2700
         @ use keyword <a href='#killlinear'>killlinear</a> to end the transformation...the next objects will be drawn in the original x/y-range
2701
         @ a: Scales the drawings horizontally
2702
         @ b: Skews the drawings horizontally
2703
         @ c: Skews the drawings vertically
2704
         @ d: Scales the drawings vertically
2705
         @ the data precision may be set by preceding command ''precision int``
2706
         @ note: any active translation (tx,ty) is not changed
15309 schaersvoo 2707
         @%linear%size 400,400%xrange -10,10%yrange -10,10%opacity 255,255%fcircle 5,5,40,blue%linear 0.2,0,0,0.2%fcircle 5,5,40,green
15111 schaersvoo 2708
        */
2709
            for(i = 0 ; i<4;i++){
2710
                switch(i){
2711
                    case 0: affine_matrix[0] = get_real(infile,0);break;
2712
                    case 1: affine_matrix[1] = get_real(infile,0);break;
2713
                    case 2: affine_matrix[2] = get_real(infile,0);break;
2714
                    case 3: affine_matrix[3] = get_real(infile,1);
2715
                     affine_matrix[4] = 0;affine_matrix[5] = 0;
2716
                     use_affine = TRUE;
2717
                     break;
2718
                    default: break;
2719
                }
2720
            }
2721
            reset();
2722
        break;
14230 schaersvoo 2723
 
11806 schaersvoo 2724
        case LINE:
2725
        /*
2726
        @ line x1,y1,x2,y2,color
14379 bpr 2727
        @ draw a line through points (x1:y1)--(x2:y2) in color ''color``
15111 schaersvoo 2728
        @ or use command ''curve color,formula`` to draw the line (uses more points to draw the line; is however better draggable)
9406 schaersvoo 2729
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
12107 schaersvoo 2730
        @%line%size 400,400%xrange -10,10%yrange -10,10%line 0,1,2,-1,green
7614 schaersvoo 2731
        */
8386 schaersvoo 2732
            for(i=0;i<5;i++){
7614 schaersvoo 2733
                switch(i){
11806 schaersvoo 2734
                    case 0: double_data[10]= get_real(infile,0);break; /* x-values */
2735
                    case 1: double_data[11]= get_real(infile,0);break; /* y-values */
2736
                    case 2: double_data[12]= get_real(infile,0);break; /* x-values */
2737
                    case 3: double_data[13]= get_real(infile,0);break; /* y-values */
2738
                    case 4: stroke_color=get_color(infile,1);/* name or hex color */
2739
                    if( double_data[10] == double_data[12] ){ /* vertical line*/
2740
                        double_data[1] = xmin;
2741
                        double_data[3] = ymax;
2742
                        double_data[0] = double_data[10];
2743
                        double_data[2] = double_data[10];
2744
                    }
2745
                    else
2746
                    {
2747
                        if( double_data[11] == double_data[13] ){ /* horizontal line */
2748
                            double_data[1] = double_data[11];
2749
                            double_data[3] = double_data[11];
2750
                            double_data[0] = ymin;
2751
                            double_data[2] = xmax;
2752
                        }
2753
                        else
2754
                        {
2755
                        /* m */
2756
                        double_data[5] = (double_data[13] - double_data[11]) /(double_data[12] - double_data[10]);
2757
                        /* q */
2758
                        double_data[6] = double_data[11] - ((double_data[13] - double_data[11]) /(double_data[12] - double_data[10]))*double_data[10];
2759
 
2760
                        /*xmin,m*xmin+q,xmax,m*xmax+q*/
2761
 
2762
                            double_data[1] = (double_data[5])*(xmin)+(double_data[6]);
2763
                            double_data[3] = (double_data[5])*(xmax)+(double_data[6]);
2764
                            double_data[0] = xmin;
2765
                            double_data[2] = xmax;
2766
                        }
2767
                    }
15111 schaersvoo 2768
                    if(use_rotate == TRUE ){rotate(4,angle,rotationcenter,2);}
2769
                    if(use_affine == TRUE ){ transform(4,2);}
2770
                    if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
2771
 
11806 schaersvoo 2772
                    decimals = find_number_of_digits(precision);
15111 schaersvoo 2773
                    string_length = 1 + snprintf(NULL,0,"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[0],decimals,double_data[2],decimals,double_data[1],decimals,double_data[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);
2774
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
2775
                    snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[30,30],[30,30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[2],decimals,double_data[1],decimals,double_data[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);
2776
                    add_to_buffer(tmp_buffer);
2777
                    if(onclick != 0){object_cnt++;}
2778
                    /* object_cnt++;*/
11806 schaersvoo 2779
                    reset();
2780
                    break;
7614 schaersvoo 2781
                }
2782
            }
15111 schaersvoo 2783
            dragstuff[4] = 1;
2784
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
7614 schaersvoo 2785
            break;
8386 schaersvoo 2786
 
11806 schaersvoo 2787
        case LINES:
8370 schaersvoo 2788
        /*
11806 schaersvoo 2789
        @ lines color,x1,y1,x2,y2...x_n-1,y_n-1,x_n,y_n
15111 schaersvoo 2790
        @ draw multiple lines through points (x1:y1)--(x2:y2) ...(x_n-1:y_n-1)--(x_n:y_n) in color 'color'
2791
        @ or use multiple commands ''curve color,formula`` or ''jscurve color,formule`` to draw the line <br />(uses more points to draw the line; is however better draggable)
11806 schaersvoo 2792
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
14071 bpr 2793
        @ <b>attention</b>: the flydraw command ''lines`` is equivalent to canvasdraw command <a href="#polyline">polyline</a>
12107 schaersvoo 2794
        @%lines%size 400,400%xrange -10,10%yrange -10,10%lines green,0,1,1,3,0,0,1,3,0,0,-2,1
8370 schaersvoo 2795
        */
2796
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
2797
            fill_color = stroke_color;
2798
            i=0;
2799
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 2800
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
8370 schaersvoo 2801
                if(i%2 == 0 ){
2802
                    double_data[i] = get_real(infile,0); /* x */
2803
                }
2804
                else
2805
                {
2806
                    double_data[i] = get_real(infile,1); /* y */
2807
                }
2808
                i++;
2809
            }
2810
            decimals = find_number_of_digits(precision);
15111 schaersvoo 2811
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
8370 schaersvoo 2812
            for(c = 0 ; c < i-1 ; c = c+4){
11806 schaersvoo 2813
                if( double_data[c] == double_data[c+2] ){ /* vertical line*/
2814
                    double_data[c+1] = xmin;
2815
                    double_data[c+3] = ymax;
2816
                    double_data[c+2] = double_data[c];
2817
                }
2818
                else
2819
                {
2820
                    if( double_data[c+1] == double_data[c+3] ){ /* horizontal line */
2821
                        double_data[c+3] = double_data[c+1];
2822
                        double_data[c] = ymin;
2823
                        double_data[c+2] = xmax;
2824
                    }
2825
                    else
2826
                    {
2827
                        /* m */
2828
                        double m = (double_data[c+3] - double_data[c+1]) /(double_data[c+2] - double_data[c]);
2829
                        /* q */
2830
                        double q = double_data[c+1] - ((double_data[c+3] - double_data[c+1]) /(double_data[c+2] - double_data[c]))*double_data[c];
2831
                        /*xmin,m*xmin+q,xmax,m*xmax+q*/
2832
                        double_data[c+1] = (m)*(xmin)+(q);
2833
                        double_data[c+3] = (m)*(xmax)+(q);
2834
                        double_data[c] = xmin;
2835
                        double_data[c+2] = xmax;
2836
                    }
2837
                }
15111 schaersvoo 2838
                if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
2839
                if(use_affine == TRUE ){ transform(i-1,2);}
2840
 
2841
                string_length = 1 + snprintf(NULL,0,"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);
2842
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
2843
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[30,30],[30,30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+1],decimals,double_data[c+3],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
2844
                add_to_buffer(tmp_buffer);
2845
                if(onclick != 0){object_cnt++;}
2846
                /* object_cnt++; */
8370 schaersvoo 2847
            }
15111 schaersvoo 2848
            dragstuff[4] = 1;
2849
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
8370 schaersvoo 2850
            reset();
2851
            break;
8386 schaersvoo 2852
 
11806 schaersvoo 2853
 
2854
        case LINEWIDTH:
7614 schaersvoo 2855
        /*
11806 schaersvoo 2856
        @ linewidth int
2857
        @ default 1
12107 schaersvoo 2858
        @%linewidth%size 400,400%xrange -10,10%yrange -10,10%linewidth 1%line -5,-5,-5,5,red%linewidth 2%line -4,-5,-4,5,green%linewidth 3%line -3,-5,-3,5,blue%linewidth 4%line -2,-5,-2,5,orange%linewidth 1%line -1,-5,-1,5,brown%linewidth 5%line 1,-5,1,5,cyan%linewidth 6%line 3,-5,3,5,purple%linewidth 7%line 5,-5,5,5,black
7614 schaersvoo 2859
        */
11806 schaersvoo 2860
            line_width = (int) (get_real(infile,1));
2861
            break;
2862
 
2863
        case LEVELCURVE:
8363 schaersvoo 2864
        /*
11806 schaersvoo 2865
        @ levelcurve color,expression in x/y,l1,l2,...
15111 schaersvoo 2866
        @ draws very primitive level curves for expression, with levels l1,l2,l3,...,l_n
2867
        @ the quality is <b>not to be compared</b> with the Flydraw levelcurve. <br />(choose flydraw if you want quality...)
2868
        @ every individual level curve may be set 'onclick / drag xy' <br />e.g. every single level curve (l1,l2,l3...l_n) has a unique identifier
2869
        @ note: the arrays for holding the javascript data are limited in size
2870
        @ note: reduce image size if javascript data arrays get overloaded<br />(command 'plotsteps int' will not control the data size of the plot...)
12107 schaersvoo 2871
        @%levelcurve%size 400,400%xrange -10,10%yrange -10,10%levelcurve red,x*y,1,2,3,4
8363 schaersvoo 2872
        */
11806 schaersvoo 2873
            fill_color = get_color(infile,0);
2874
            char *fun1 = get_string_argument(infile,0);
2875
            if( strlen(fun1) == 0 ){canvas_error("function is NOT OK !");}
2876
            i = 0;
2877
            done = FALSE;
2878
            while( !done ){
2879
             double_data[i] = get_real(infile,1);
2880
             i++;
2881
            }
15111 schaersvoo 2882
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
2883
 
11806 schaersvoo 2884
            for(c = 0 ; c < i; c++){
15111 schaersvoo 2885
             string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,16,%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_levelcurve(xsize,ysize,fun1,xmin,xmax,ymin,ymax,plot_steps,precision,double_data[c]),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);
2886
             check_string_length(string_length);tmp_buffer = my_newmem(string_length);
2887
             snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,16,%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_levelcurve(xsize,ysize,fun1,xmin,xmax,ymin,ymax,plot_steps,precision,double_data[c]),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);
2888
             add_to_buffer(tmp_buffer);
2889
             if(onclick != 0){object_cnt++;}
2890
             /* object_cnt++; */
11806 schaersvoo 2891
            }
15111 schaersvoo 2892
            dragstuff[16] = 1;
2893
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 2894
            reset();
2895
            break;
8386 schaersvoo 2896
 
11806 schaersvoo 2897
        case LEGEND:
2898
        /*
2899
        @ legend string1:string2:string3....string_n
2900
        @ will be used to create a legend for a graph
14066 bpr 2901
        @ also see command <a href='#piechart'>piechart</a>
14071 bpr 2902
        @ will use the same colors per default as used in the graphs; use command <a href='#legendcolors'>legendcolors</a> to override the default
15111 schaersvoo 2903
        @ use command <a href="#fontsize">fontsize</a> to adjust. (command ''fontfamily`` is not active for command ''legend``)
14066 bpr 2904
        @%legend%size 400,400%xrange -10,10%yrange -10,10%bgcolor white%fontsize 16%legend legend 1:legend 2:legend 3:legend 4:this is legend 5:legend 6:another legend abc%legendcolors red:green:blue%grid 1,1,white%# note: command "grid" is mandatory%# just set grid invisible if not wanted
11806 schaersvoo 2905
        */
2906
            temp = get_string(infile,1);
2907
            if( strstr( temp,":") != 0 ){ temp = str_replace(temp,":","\",\""); }
14066 bpr 2908
            legend_cnt++; /* attention: starts with -1: it will be used in piechart etc */
11806 schaersvoo 2909
            fprintf(js_include_file,"var legend%d = [\"%s\"];",legend_cnt,temp);
2910
            break;
2911
 
2912
        case LEGENDCOLORS:
2913
        /*
2914
        @ legendcolors color1:color2:color3:...:color_n
14379 bpr 2915
        @ will be used to color a legend: use this command after the legend command ! e.g. <code>legend test1:test2:test3<br />legendcolors blue:red:orange</code>.
2916
        @ make sure the number of colors match the number of legend items
15111 schaersvoo 2917
        @ command ''legend`` in case of ''piechart`` and ''barchart`` will use these colours per default (no need to specify ''legendcolors``)
13960 bpr 2918
        @%legendcolors%size 400,400%xrange -10,10%yrange -10,10%fontsize 18%legend legend 1:legend 2:legend 3%legendcolors red:green:blue%grid 1,1,grey
11806 schaersvoo 2919
        */
2920
            if(legend_cnt == -1){canvas_error("use command \"legend\" before command \"legendcolors\" ! ");}
2921
            temp = get_string(infile,1);
2922
            if( strstr( temp,":") != 0 ){ temp = str_replace(temp,":","\",\""); }
2923
            fprintf(js_include_file,"var legendcolors%d = [\"%s\"];",legend_cnt,temp);
2924
            break;
2925
 
14078 bpr 2926
        case LINEGRAPH: /* scheme: var linegraph_0 = [ 'stroke_color','line_width','use_dashed', 'dashtype0','dashtype1','x1','y1',...,'x_n','y_n'];*/
11806 schaersvoo 2927
        /*
2928
        @ linegraph x1:y1:x2:y2...x_n:y_n
2929
        @ will plot your data in a graph
14066 bpr 2930
        @ may <b>only</b> to be used together with command <a href='#grid'>grid</a>
2931
        @ can be used together with freestyle x-axis/y-axis texts: see commands <a href='#xaxis'>xaxis</a>,<a href='#xaxisup'>xaxisup</a> and <a href='#yaxis'>yaxis</a>
2932
        @ use command <a href='#legend'>legend</a> to provide an optional legend in right-top-corner
2933
        @ also see command <a href='#piechart'>piechart</a>
11806 schaersvoo 2934
        @ multiple linegraphs may be used in a single plot
14066 bpr 2935
        @ note: your arguments are not checked by canvasdraw: use your javascript console in case of trouble...
14379 bpr 2936
        @ <ul><li>use command <a href='#strokecolor'>strokecolor</a> before a command ''linegraph`` to set the color of this graph</li><li>use command <a href='#linewidth'>linewidth</a> before command ''linegraph`` to set linewidth of this graph</li><li>use keyword <a href='#dashed'>dashed</a> before command ''linegraph`` to set dashing of the graph</li><li>if dashing is set, use command <a href='#dashtype'>dashtype</a> before command ''linegraph`` to set the type of dashing of the (individual) graph</li></ul>
12107 schaersvoo 2937
        @%linegraph%size 400,400%xrange -10,10%yrange -10,10%strokecolor red%linegraph -10:1:-5:-1:3:3:10:-5%strokecolor blue%linegraph -10:-1:-5:1:3:-3:10:5%dashed%strokecolor green%linegraph -10:2:-5:-2:3:4:10:2%grid 1,1,grey
11806 schaersvoo 2938
        */
2939
            temp = get_string(infile,1);
2940
            if( strstr( temp,":") != 0 ){ temp = str_replace(temp,":","\",\""); }
2941
            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);
2942
            linegraph_cnt++;
2943
            reset();
2944
            break;
2945
 
2946
        case MATHML:
2947
        /*
15111 schaersvoo 2948
        @ mathml x1,y1,mathml_string
14230 schaersvoo 2949
        @ this command is special for GECKO browsers, and it makes use of Native Mathml
15313 schaersvoo 2950
        @ For general use with all browsers, use command <a href='#latex'>latex</a>
2951
        @ can be set <a href='onclick'>onclick</a>  and <a href='drag'>drag&amp;drop</a> <br />Note: dragging is fairly primitive dragging of the div-element, and is not done using the <em>dragstuff library</em>
15111 schaersvoo 2952
        @ command <a href='#affine'>affine</a> will produce CSS3 matrix transformations
2953
        @ command <a href='#rotate'>rotate</a> will rotate the object
15315 bpr 2954
        @ the mathml object is centered at (x1:y1)
14379 bpr 2955
        @ the ''mathml_string`` can be produced using WIMS commands like ''texmath`` followed by ''mathmlmath``... or write correct TeX and use only ''mathmlmath``
15313 schaersvoo 2956
        @ mathml will be displayed in a rectangle left top (x1:y1)
14247 bpr 2957
        @ can be set onclick <code>javascript:read_dragdrop();</code> will return click numbers of mathml-objects; if 4 clickable object are drawn, the reply could be 1,0,1,0 ... meaning clicked on the first and third object
14379 bpr 2958
        @ can be set draggable: <code>javascript:read_dragdrop()</code> will return all coordinates in same order as the canvas script: unmoved objects will have their original coordinates...
14247 bpr 2959
        @ snaptogrid is supported...snaptopoints will work, but use with care... due to the primitive dragging. Technically: the dragstuff library is not used... the mathml is embedded in a new div element and not in the html5-canvas.
2960
        @ when clicked, the mathml object will be drawn in red color; the div background color will be determined by the <a href="#fillcolor">fillcolor</a> and <a href="#opacity">opacity</a> settings.
15111 schaersvoo 2961
        @ userdraw may be combined with 'mathml' ; the read_canvas() will contain the drawing.
2962
        @ draggable or onclick 'external images' from command <a href='#copyresized'>copy or copyresized</a> can be combined with drag and/or onclick mathml
14078 bpr 2963
        @ other drag objects (circles/rects etc) are supported, but read_dragdrop() will probably be difficult to interpret...
14066 bpr 2964
        @ 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 /><b>attention</b>: if after this mathml-input object other user-interactions are included, these will read mathml too using "read_canvas();"
11806 schaersvoo 2965
        @ 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....
14038 schaersvoo 2966
        @ use keyword <a href='#centered'>centered</a> to center the mathml/xml object on (x1:y1)
15313 schaersvoo 2967
        @%mathml_onclick%size 400,400%xrange -10,10%yrange -10,10%onclick%strokecolor red%mathml -5,5,<span style="font-size:1em;"><math xmlns="http://www.w3.org/1998/Math/MathML" display="inline"><mstyle id="wims_mathml366290"><mrow><mo stretchy="true">[</mo><mtable rowspacing="0.5ex" columnalign=" left " columnlines=" none " rowlines=" none " ><mtr><mtd><mi>f</mi><mo stretchy="false">(</mo><mi>x</mi><mo stretchy="false">)</mo><mo>=</mo><mstyle displaystyle="true"><mfrac><mn>1</mn><mn>2</mn></mfrac></mstyle><mo>&sdot;</mo><msup><mi>x</mi> <mn>2</mn></msup></mtd></mtr> <mtr><mtd><mi>g</mi><mo stretchy="false">(</mo><mi>x</mi><mo stretchy="false">)</mo><mo>=</mo><msqrt><mstyle displaystyle="true"><mfrac><mn>1</mn><mrow><msup><mi>x</mi> <mn>2</mn></msup></mrow></mfrac></mstyle></msqrt></mtd></mtr></mtable><mo stretchy="true">]</mo></mrow></mstyle></math></span>%onclick%strokecolor blue%mathml 5,5,<span style="font-size:1em;"><math xmlns="http://www.w3.org/1998/Math/MathML" display="inline"><mstyle id="wims_mathml580175" ><mrow><mo stretchy="true">[</mo><mtable rowspacing="0.5ex" columnalign=" left " columnlines=" none " rowlines="none"><mtr><mtd><mi>f</mi><mo stretchy="false">(</mo><mi>x</mi><mo stretchy="false">)</mo><mo>=</mo><mstyle displaystyle="true"><mfrac><mn>1</mn><mrow><mi>sin</mi><mrow><mo stretchy="true">(</mo><msup><mi>x</mi> <mn>2</mn></msup><mo stretchy="true">)</mo></mrow></mrow></mfrac></mstyle></mtd></mtr> <mtr><mtd><mi>g</mi><mo stretchy="false">(</mo><mi>x</mi><mo stretchy="false">)</mo><mo>=</mo><msqrt><mrow><mi>sin</mi><mrow><mo stretchy="true">(</mo><msup><mi>x</mi> <mn>2</mn></msup><mo stretchy="true">)</mo></mrow></mrow></msqrt></mtd></mtr></mtable><mo stretchy="true">]</mo></mrow></mstyle></math></span>
2968
        @%mathml_drag%size 400,400%xrange -10,10%yrange -10,10%drag xy%strokecolor red%mathml -5,5,<span style="font-size:1em;"><math xmlns="http://www.w3.org/1998/Math/MathML" display="inline"><mstyle id="wims_mathml366290"><mrow><mo stretchy="true">[</mo><mtable rowspacing="0.5ex" columnalign=" left " columnlines=" none " rowlines=" none "><mtr><mtd><mi>f</mi><mo stretchy="false">(</mo><mi>x</mi><mo stretchy="false">)</mo><mo>=</mo><mstyle displaystyle="true"><mfrac><mn>1</mn><mn>2</mn></mfrac></mstyle><mo>&sdot;</mo><msup><mi>x</mi> <mn>2</mn></msup></mtd></mtr> <mtr><mtd><mi>g</mi><mo stretchy="false">(</mo><mi>x</mi><mo stretchy="false">)</mo><mo>=</mo><msqrt><mstyle displaystyle="true"><mfrac><mn>1</mn><mrow><msup><mi>x</mi> <mn>2</mn></msup></mrow></mfrac></mstyle></msqrt></mtd></mtr></mtable><mo stretchy="true">]</mo></mrow></mstyle></math></span>%drag xy%strokecolor blue%mathml 5,5,<span style="font-size:1em;"><math xmlns="http://www.w3.org/1998/Math/MathML" display="inline"><mstyle id="wims_mathml580175" ><mrow><mo stretchy="true">[</mo><mtable rowspacing="0.5ex" columnalign=" left " columnlines=" none " rowlines=" none "><mtr><mtd><mi>f</mi><mo stretchy="false">(</mo><mi>x</mi><mo stretchy="false">)</mo><mo>=</mo><mstyle displaystyle="true"><mfrac><mn>1</mn><mrow><mi>sin</mi><mrow><mo stretchy="true">(</mo><msup><mi>x</mi> <mn>2</mn></msup><mo stretchy="true">)</mo></mrow></mrow></mfrac></mstyle></mtd></mtr> <mtr><mtd><mi>g</mi><mo stretchy="false">(</mo><mi>x</mi><mo stretchy="false">)</mo><mo>=</mo><msqrt><mrow><mi>sin</mi><mrow><mo stretchy="true">(</mo><msup><mi>x</mi> <mn>2</mn></msup><mo stretchy="true">)</mo></mrow></mrow></msqrt></mtd></mtr></mtable><mo stretchy="true">]</mo></mrow></mstyle></math></span>%#click left top corner...then drag...
11806 schaersvoo 2969
        */
15111 schaersvoo 2970
            js_function[DRAW_XML] = 1;
2971
            for(i=0;i<3;i++){
11806 schaersvoo 2972
                switch(i){
15111 schaersvoo 2973
                    case 0: double_data[0]=get_real(infile,0);break; /* x in x/y-range coord system -> pixel width */
2974
                    case 1: double_data[1]=get_real(infile,0);break; /* y in x/y-range coord system  -> pixel height */
2975
                    case 2: decimals = find_number_of_digits(precision);
2976
 
2977
                            if(use_affine == TRUE ){ transform(2,2);}/* needs double_data[] */
2978
                            if( use_offset != 0 || drag_type != -1 ){int_data[2] = 1;}else{int_data[2] = 0;} /* only centered or not-centered */
2979
                            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
2980
                            int_data[0] = x2px(double_data[0]);/* needs px */
2981
                            int_data[1] = y2px(double_data[1]);
2982
                            if( use_slider != -1 && onclick == 0 ){ onclick = 3;}/* no drag&onclick but slideable */
15116 bpr 2983
                            if( use_slider != -1 && drag_type != -1){ onclick = 5; }
11806 schaersvoo 2984
                            temp = get_string(infile,1);
2985
                            if( strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\"","'"); }
15111 schaersvoo 2986
                            string_length = 1 + snprintf(NULL,0,"var draw_xml%d = {id:%d,type:'mathml',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%d,rotation_center:%s,once:true};draw_xml(draw_xml%d);slidergroup[%d] = null;\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,use_slider,rotation_center,drawxml_cnt,object_cnt);
14208 schaersvoo 2987
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15111 schaersvoo 2988
                            snprintf(tmp_buffer,string_length,  "var draw_xml%d = {id:%d,type:'mathml',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%d,rotation_center:%s,once:true};draw_xml(draw_xml%d);slidergroup[%d] = null;\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,use_slider,rotation_center,drawxml_cnt,object_cnt);
11806 schaersvoo 2989
                            add_to_buffer(tmp_buffer);
15111 schaersvoo 2990
                            if(onclick != 0 ){object_cnt++;}
2991
                            drawxml_cnt++;/* keeps track on imported img,div,p,span,mathml,svg */
11806 schaersvoo 2992
                            /*
15111 schaersvoo 2993
                                in case inputs are present, trigger adding the read_mathml()
2994
                                if no other reply_format is defined
2995
                                note: all other reply types will include a reading of elements with id='mathml'+p)
2996
                            */
2997
                            if(strstr(temp,"mathml0") != NULL){ if(reply_format == 0 ){reply_format = 16;}} /* no other reply type is defined */
11806 schaersvoo 2998
                            break;
15116 bpr 2999
                    default:break;
11806 schaersvoo 3000
                }
3001
            }
15111 schaersvoo 3002
            reset();
11806 schaersvoo 3003
            break;
3004
 
3005
        case MOUSE:
3006
        /*
3007
         @ mouse color,fontsize
15313 schaersvoo 3008
         @ will display the cursor (x:y) coordinates in ''color`` and ''fontsize`` using default fontfamily Arial
14379 bpr 3009
         @ note: use command ''mouse`` at the end of your script code (the same is true for command ''zoom``)
12107 schaersvoo 3010
         @%mouse%size 400,400%xrange -10,10%yrange -10,10%mouse red,22
11806 schaersvoo 3011
        */
3012
            stroke_color = get_color(infile,0);
3013
            font_size = (int) (get_real(infile,1));
3014
            tmp_buffer = my_newmem(26);
13371 schaersvoo 3015
            snprintf(tmp_buffer,26,"use_mouse_coordinates();\n");add_to_buffer(tmp_buffer);
15111 schaersvoo 3016
            add_js_mouse(MOUSE_CANVAS,precision,stroke_color,font_size,stroke_opacity,2);
3017
            js_function[INTERACTIVE] = 1;
11806 schaersvoo 3018
            break;
3019
 
3020
 
3021
        case MOUSE_DEGREE:
3022
        /*
3023
         @ mouse_degree color,fontsize
15313 schaersvoo 3024
         @ will display the angle in degrees between x-axis, (0:0) and the cursor (x:y) in 'color' and 'font size'<br /> using a fontfamily Arial
11806 schaersvoo 3025
         @ The angle is positive in QI and QIII and the angle value is negative in QII and QIV
15111 schaersvoo 3026
         @ note: use command 'mouse' at the end of your script code (the same is true for command 'zoom')
12107 schaersvoo 3027
         @%mouse_degree%size 400,400%xrange -10,10%yrange -10,10%userdraw arc,blue%precision 100000%mouse_degree red,22
11806 schaersvoo 3028
        */
3029
            stroke_color = get_color(infile,0);
3030
            font_size = (int) (get_real(infile,1));
3031
            tmp_buffer = my_newmem(26);
13371 schaersvoo 3032
            snprintf(tmp_buffer,26,"use_mouse_coordinates();\n");add_to_buffer(tmp_buffer);
15111 schaersvoo 3033
            add_js_mouse(MOUSE_CANVAS,precision,stroke_color,font_size,stroke_opacity,3);
11806 schaersvoo 3034
            js_function[JS_FIND_ANGLE] = 1;
15111 schaersvoo 3035
            js_function[INTERACTIVE] = 1;
11806 schaersvoo 3036
            break;
3037
        case MOUSE_DISPLAY:
3038
        /*
3039
         @ display TYPE,color,fontsize
15111 schaersvoo 3040
         @ TYPE may be x | y | xy | degree | radian | radius
3041
         @ will display the mouse cursor coordinates as x-only,y-only,(x:y), the radius of a circle (this only in case 'userdraw circle(s),color') or the angle in degrees or radians for commands <code>userdraw arc,color</code> or protractor, ruler (if set dynamic).
15650 reyssat 3042
         @ use commands ''xunit`` and / or ''yunit`` to add the units to the mouse values. The ''degree | radian`` will always have the appropriate symbol).
14077 bpr 3043
         @ just like commands ''mouse``, ''mousex``, ''mousey``, ''mouse_degree``... only other name
12111 schaersvoo 3044
         @%display_x%size 400,400%xrange -10,10%yrange -10,10%xunit \\u212B%display x,red,22
12107 schaersvoo 3045
         @%display_y%size 400,400%xrange -10,10%yrange -10,10%yunit seconds%display y,red,22
13936 bpr 3046
         @%display_xy%size 400,400%xrange -10,10%yrange -10,10%xunit centimetre%yunit seconds%display xy,red,22%userdraw segments,blue
12107 schaersvoo 3047
         @%display_deg%size 400,400%xrange -10,10%yrange -10,10%display degree,red,22%fillcolor orange%opacity 200,50%userdraw arc,blue
3048
         @%display_rad%size 400,400%xrange -10,10%yrange -10,10%display radian,red,22%fillcolor orange%opacity 200,50%userdraw arc,blue
12111 schaersvoo 3049
         @%display_radius%size 400,400%xrange -10,10%yrange -10,10%xunit cm%xunit \\u212b%display radius,red,22%userdraw circle,blue
11806 schaersvoo 3050
        */
3051
        temp = get_string_argument(infile,0);
3052
        if( strstr(temp,"xy") != NULL ){
3053
            int_data[0] = 2;
3054
        }else{
3055
            if( strstr(temp,"y") != NULL ){
3056
                int_data[0] = 1;
3057
            }else{
3058
                if( strstr(temp,"x") != NULL ){
3059
                    int_data[0] = 0;
3060
                }else{
3061
                    if(strstr(temp,"degree") != NULL){
3062
                        int_data[0] = 3;
3063
                        js_function[JS_FIND_ANGLE] = 1;
3064
                    }else{
3065
                        if(strstr(temp,"radian") != NULL){
3066
                            int_data[0] = 4;
3067
                            js_function[JS_FIND_ANGLE] = 1;
3068
                        }else{
3069
                            if(strstr(temp,"radius") != NULL){
3070
                                int_data[0] = 5;
3071
                            }else{
3072
                                int_data[0] = 2;
3073
                            }
3074
                        }
3075
                    }
3076
                }
3077
            }
3078
        }
3079
        stroke_color = get_color(infile,0);
3080
        font_size = (int) (get_real(infile,1));
3081
        tmp_buffer = my_newmem(26);
13371 schaersvoo 3082
        snprintf(tmp_buffer,26,"use_mouse_coordinates();\n");add_to_buffer(tmp_buffer);
15111 schaersvoo 3083
        add_js_mouse(MOUSE_CANVAS,precision,stroke_color,font_size,stroke_opacity,int_data[0]);
3084
        js_function[INTERACTIVE] = 1;
11806 schaersvoo 3085
        break;
3086
 
3087
        case MOUSE_PRECISION:
3088
        /*
3089
            @ precision int
3090
            @ 1 = no decimals ; 10 = 1 decimal ; 100 = 2 decimals etc
3091
            @ may be used / changed before every object
15111 schaersvoo 3092
            @ In case of user interaction (like ''userdraw`` or ''multidraw``), this value will be used to determine the amount of decimals in the reply / answer
13936 bpr 3093
            @%precision%size 400,400%xrange -10,10%yrange -10,10%precision 1%userdraw segment,red
11806 schaersvoo 3094
        */
3095
            precision = (int) (get_real(infile,1));
3096
            if(precision < 1 ){precision = 1;};
3097
            break;
3098
 
3099
        case MOUSEX:
3100
        /*
3101
         @ mousex color,fontsize
15313 schaersvoo 3102
         @ will display the cursor x-coordinate in ''color`` and ''font size`` using the fontfamily Arial.
14247 bpr 3103
         @ note: use command ''mouse`` at the end of your script code (the same is true for command ''zoom``).
11806 schaersvoo 3104
 
3105
        */
3106
            stroke_color = get_color(infile,0);
3107
            font_size = (int) (get_real(infile,1));
3108
            tmp_buffer = my_newmem(26);
13371 schaersvoo 3109
            snprintf(tmp_buffer,26,"use_mouse_coordinates();\n");add_to_buffer(tmp_buffer);
15111 schaersvoo 3110
            add_js_mouse(MOUSE_CANVAS,precision,stroke_color,font_size,stroke_opacity,0);
3111
            js_function[INTERACTIVE] = 1;
11806 schaersvoo 3112
            break;
3113
        case MOUSEY:
3114
        /*
3115
         @ mousey color,fontsize
15313 schaersvoo 3116
         @ will display the cursor y-coordinate in ''color`` and ''font size`` using default fontfamily Arial.
14247 bpr 3117
         @ note: use command ''mouse`` at the end of your script code (the same is true for command ''zoom``).
11806 schaersvoo 3118
 
3119
        */
3120
            stroke_color = get_color(infile,0);
3121
            font_size = (int) (get_real(infile,1));
3122
            tmp_buffer = my_newmem(26);
13371 schaersvoo 3123
            snprintf(tmp_buffer,26,"use_mouse_coordinates();\n");add_to_buffer(tmp_buffer);
15111 schaersvoo 3124
            add_js_mouse(MOUSE_CANVAS,precision,stroke_color,font_size,stroke_opacity,1);
3125
            js_function[INTERACTIVE] = 1;
11806 schaersvoo 3126
            break;
3127
 
3128
        case MULTIDASH:
3129
        /*
3130
         @ multidash 0,1,1
14071 bpr 3131
         @ meaning draw objects no. 2 (circle) and 3 (segments), in the list of command like <code>multifill points,circle,segments</code>, are dashed
14066 bpr 3132
         @ use before command <a href='#multidraw'>multidraw</a>
14247 bpr 3133
         @ if not set all objects will be set ''not dashed``... unless a generic keyword ''dashed`` was given before command ''multidraw``
15111 schaersvoo 3134
         @ the dash-type is not -yet- adjustable <br />(e.g. command <code>dashtype line_px,space_px</code> will give no control over multidraw objects)
11806 schaersvoo 3135
         @ wims will <b>not</b> check if the number of 0 or 1's matches the amount of draw primitives...
14077 bpr 3136
         @ always use the same sequence as is used for ''multidraw``
11806 schaersvoo 3137
        */
3138
            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
3139
            temp = get_string(infile,1);
3140
            temp = str_replace(temp,",","\",\"");
3141
            fprintf(js_include_file,"var multidash = [\"%s\"];",temp);
3142
            reset();/* if command 'dashed' was given...reset to not-dashed */
3143
            break;
3144
 
3145
        case MULTIDRAW:
3146
        /*
3147
         @ multidraw obj_type_1,obj_type_2...obj_type_11
14066 bpr 3148
         @ for simple single object user drawings you could also use command <a href="#userdraw">userdraw</a>
16828 schaersvoo 3149
         @ implemented obj_types:<ul><li>point | points</li><li>circle | circles</li><li>line | lines</li><li>segment | segments</li><li>arrow | arrows (use command 'arrowhead int' for size (default value 8 pixels))</li><li>curvedarrow | curvedarrows</li><li>rect | rects</li><li>closedpoly<br /><b>only one</b> closedpolygon may be drawn.The number of ''corner points`` is not preset (e.g. not limited, freestyle), the polygon is closed when clicking on the first point again..(+/- 10px)</li><li>triangle | triangles</li><li>parallelogram | parallelograms</li><li>poly[3-9] | polys[3-9] draw 3...9 point polygone(s): polys3 is of course triangles</li><li>images</li><li>crosshair | crosshairs</li><li>function <br/>for more function user input fields, use it multiple times<br />for 4 inputfields use : multidraw function,function,function,function</li></ul>
15111 schaersvoo 3150
         @ additionally objects may be user labelled, using obj_type ''text``...<br />in this case allways a text input field and if <a href='#multiuserinput'> multiuserinput=1 </a> also (x:y) inputfields will be added to the page.<br />use commands ''fontfamily`` and ''fontcolor`` to adjust (command ''multistrokeopacity`` may be set to adjust text opacity)<br />note: text is always centered on the mouse-click or user-input coordinates !<br />note: no keyboard listeners are used
3151
         @ it makes no sense using something like ''multidraw point,points`` ... <br />something like "multidraw polys4,polys7" will only result in drawing a ''4 point polygone`` and not a ''7 point polygone``: this is a design flaw and not a feature...
3152
         @ note: mouselisteners are only active if "&#36;status != done " (eg only drawing in an active/non-finished exercise) <br /> to overrule use command/keyword "status" (no arguments required)
3153
         @ buttons for changing the obj_type (and in case of ''multiuserinput``, some inputfields and buttons) <br />will be present in the reserved div ''tooltip_div`` and can be styled using command 'css some_css'
3154
         @ the button label will be default the ''object primitive name`` (like ''point``, ''circles``).<br />If you want a different label (e.g. an other language), use command ''multilabel``<br />for example in dutch: <br /><code>multilabel cirkel,lijnstuk,punten,STOP<br />multidraw circle,segment,points</code><br />(see command <a href='#multilabel'>multilabel</a> for more details)
14063 schaersvoo 3155
         @ a right mouse button click will remove the last drawn object of the selected drawing type. All other type of objects are not removed
15111 schaersvoo 3156
         @ multidraw is incompatible with command ''tooltip`` (the reserved div_area is used for the multidraw control buttons)
3157
         @ all ''multidraw`` drawings will scale on zooming.<br />this in contrast to the command <a href="#userdraw">userdraw</a>.
3158
         @ wims will <b>not</b> check the amount or validity of your command arguments ! <br />( use javascript console to debug any typo's )
16844 bpr 3159
         @ a local function <code>read_canvas%d</code> will read all userbased drawings.<br />The output is always a 16 lines string with fixed sequence.<br/>line 1 = points_x+";"+points_y+"\\n"<br/>line 2 = circles_x+";"+circles_y+";"+multi_radius+"\\n"<br/>line 3 = segments_x+";"+segments_y+"\\n"<br/>line 4 = arrows_x+";"+arrows_y+"\\n"<br/>line 5 = lines_x+";"+lines_y+"\\n"<br/>line 6 = triangles_x+";"+triangles_y+"\\n"<br/>line 7 = polys[3-9]_x+";"+polys[3-9]_y+"\\n"<br/>line 8 = rects_x +";"+rects_y+"\\n"<br />line 9 = closedpoly_x+";"+closedpoly_y+"\\n"<br/>line 10 = parallelogram_x+";"+parallelogram_y"\\n"<br/>line 11 = text_x+";"+text_y+";"+text"\\n"<br />line 12 = image_x+";"+image_y+";"+image_id<br />line 13 = curvedarrows_x +";"+ curvedarrows_y +"\\n"<br />line 14 = curvedarrows2_x +";"+ curvedarrows2_y +"\\n"<br />line 15 = crosshairs_x +";"+ crosshairs_y +"\\n"<br />line 16 = userdraw_x +";"+userdraw_y + "\\n" note: this is for single ''userdraw object,color`` and ''replyformat 29``<br/>line 17 = userdraw_x +";"+userdraw_y +";"+userdraw_radius + "\\n" note: this is for single ''userdraw object,color`` and ''replyformat 29``<br/>The x/y-data are in x/y-coordinate system and display precision may be set by a previous command ''precision 0 | 10 | 100 | 1000...``<br />In case of circles the radius is -for the time being- rounded to pixels<br /><b>use the wims "direct exec" tool to see the format of the reply</b>
15111 schaersvoo 3160
         @ It is best to prepare / format the student reply in clientside javascript.<br />However in ''wims`` language you could use something like this<br />for example you are interested in the polys5 drawings of a pupil (the pupil may draw multiple poly5 objects...)<br />note: the reply for 2 poly5's is: x11,x12,x13,x14,x15,x21,x22,x23,x24,x25 ; y11,y12,y13,y14,y15,y21,y22,y23,y24,y25<br />rep = !line 7 of reply <br />rep = !translate ';' to '\\n' in &#36;rep <br />pts = 5 # 5 points for polygon <br />x_rep = !line 1 of &#36;rep <br />y_rep = !line 2 of &#36;rep <br />tot = !itemcnt &#36;x_rep <br />num_poly = &#36;[&#36;tot/&#36;pts] <br />idx = 0 <br />!for p=1 to &#36;num_poly <br />&nbsp;!for s=1 to &#36;pts <br />&nbsp;&nbsp;!increase idx <br />&nbsp;&nbsp;X = !item &#36;idx of &#36;x_rep <br />&nbsp;&nbsp;Y = !item &#36;idx of &#36;y_rep <br />&nbsp;&nbsp;# do some checking <br />&nbsp;!next s <br />!next p <br />
14379 bpr 3161
         @ <b>attention</b>: for command argument ''closedpoly``, only one polygone can be drawn. The last point (e.g. the point clicked near the first point) of the array is removed.
15111 schaersvoo 3162
         @ technical: all 10 ''draw primitives`` + ''text`` will have their own -transparent- PNG bitmap canvas. <br />So for example there can be a points_canvas entirely separated from a line_canvas.<br />This to avoid the need for a complete redraw when something is drawn to the canvas...(eg only the object_type_canvas is redrawn), this in contrast too many very slow do-it-all HTML5 canvas javascript libraries.<br />The mouselisteners are attached to the canvas-div element.
3163
         @ a special object type is ''images``.<br />if used together with <a href='#imagepalette'>imagepalette</a> a image table will be integrated in the 'control section' of multidraw (set <code>multiuserinput 1</code> for ''images``) if not used with <a href='#imagepalette'>imagepalette</a>, provide the images or div's (&lt;img&gt; tag with bitmap or SVG or anything in a div element) somewhere on the html exercise page, with an onclick handler like:<br /><code>&lt;img src='gifs/images/dog.svg' onclick='javascript:place_image_on_canvas(this.id);' id="ext_image_1" /&gt;<br />&lt;img src='gifs/fish.png' onclick='javascript:place_image_on_canvas(this.id);' id="another" /&gt;</code><br />etc ... when activating the multidraw ''image`` button, the images can be selected<br /> (left mouse button/onclick) and placed on the canvas...left mouse click.<br />using div's will enable you -amongst other content- to add math typesetting from the exercise page onto the canvas.
3164
         @ When you are not content with the default ''multidraw control panel``, you can create your own interface, using a few javascript functions to call the drawprimitives, delete things and ''stop drawing`` in case you also want to drag&drop stuff...</br>To activate this feature, use <a href='#multilabel'>multilabel NOCONTROLS</a><br />The object types are internally represented by the following numbers (making typos will render your exercise null and void)<br/>point = 0<br />points =1<br />circle = 2<br />circles = 3<br />line = 4<br />lines = 5<br />segment = 6<br />segments = 7<br />arrow = 8<br />arrows = 9<br />triangle = 10<br />triangles = 11<br />closedspoly = 12<br />text = 13<br />rect = 14<br />rects = 15<br />poly[3-9] = 16<br />polys[3-9] = 17<br />parallelogram = 18<br />parallelograms = 19<br />images       = 20<br />curvedarrow = 21<br />curvedarrows = 22<br />curvedarrow2 = 23<br />curvedarrows2 = 24<br />crosshair = 25<br />crosshairs = 26 <br />controls for example:<br /><code>&lt;input type='button' onclick='javascript:userdraw_primitive=null' value='STOP DRAWING' /&gt;<br />&lt;input type='button' onclick='javascript:userdraw_primitive=24;multidraw_object_cnt = 0;' value='start drawing curvedarrows2' /&gt; <br />&lt;input type='button' onclick='javascript:var fun=eval("clear_draw_area"+canvas_scripts[0]);fun(24,0);' value='REMOVE LAST CURVEDARROW ' /&gt; </code><br/> If using multiple canvas scripts in a single page, loop through the canvas_scripts[n] <br />note: if using NOCONTROLS and just a single draw primitive (for example, just: 'multidraw circles'), the object may be drawn directly. (analogue to 'userdraw circles,color')<br />And since a right mouse button click will always remove the last drawn object of the current object type, there is no need for a special "remove button"
16828 schaersvoo 3165
         @%multidraw_function%size 400,400%xrange -10,10%yrange -10,10%fontfamily Italic 22px Helvetica%axis%axisnumbering%precision 0%grid 2,2,grey,1,1,5,black%multicolors red,green,blue%fontcolor orange%multilinewidth 1,2,3%multidraw text,function,function,function,line
12107 schaersvoo 3166
         @%multidraw%size 400,400%xrange -10,10%yrange -10,10%multidash 1,0%multilinewidth 1,2%multistrokecolors red,blue%multisnaptogrid 1,1%multilabel LINES,CIRCLES,STOP DRAWING%multidraw lines,circles
15313 schaersvoo 3167
         @%multidraw_images%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%drag xy%# use special function to read the drag coordinates%copy 0,0,-1,-1,-1,-1,gifs/images/skull_and_crossbones50.png%fontcolor green%fontfamily Bold 42pt Arial%imagepalette gifs/ca.gif,gifs/en.gif,gifs/nl.gif,gifs/fr.gif,gifs/cn.gif,gifs/de.gif,gifs/kh.gif,gifs/it.gif%multiuserinput 0,0,1%css color:blue;%multisnaptogrid 1,1,1%multilinewidth 0,4,0%# attention: use unicode text input without the slash %# \u222D ---> u222D at least will sometimes work%# otherwise cut&past unicode symbols into inputfield...%multilabel TEXT,REACTION ARROW,FLAGS,STOP DRAWING%multidraw text,arrow,images
3168
         @%multidraw_demo%size 800,800%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%css color:blue;%fontfamily Italic 42pt Arial%precision 1%opacity 200,50%snaptogrid%linewidth 3%filled%multistrokecolors red,green,blue,orange,yellow,purple,black,cyan,red,green,blue,orange,green,purple,black,cyan%multifillcolors red,green,blue,orange,yellow,purple,black,cyan,red,green,blue,orange,brown,purple%imagepalette gifs/ca.gif,gifs/en.gif,gifs/nl.gif,gifs/fr.gif,gifs/cn.gif,gifs/de.gif,gifs/kh.gif,gifs/it.gif%multidraw closedpoly,segments,rect,parallelogram,triangles,poly5,points,lines,arrows,circles,text,curvedarrows,curvedarrows2,images
16827 schaersvoo 3169
         @%multidraw_NOCONTROLS%size 400,400%xrange -10,10%yrange -10,10%grid 2,2,grey%linewidth 3%strokecolor green%fillcolor blue%filled%opacity 255,60%multilabel NOCONTROLS%multidraw circles%# RIGHT MOUSE CLICK REMOVES LAST OBJECT
11806 schaersvoo 3170
        */
15111 schaersvoo 3171
            js_function[INTERACTIVE] = 1;
15633 bpr 3172
            if(js_function[JS_ZOOM] == 1){use_zoom = 1;} /* use noisy zoom_code, when command zoom is given before command 'multidraw' */
14038 schaersvoo 3173
            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
15111 schaersvoo 3174
            if( use_userdraw == 1 ){canvas_error("Only one userdraw primitive may be used in command 'userdraw' use command 'multidraw' for this...");}
3175
            use_userdraw = 2;
11806 schaersvoo 3176
            temp = get_string(infile,1);
3177
            fprintf(js_include_file,"\
15111 schaersvoo 3178
            var MMP = %d;\
3179
            if( typeof(multisnaptogrid) == 'undefined' && multisnaptogrid == null){var multisnaptogrid = new Array(MMP);for(var i=0;i<MMP;i++){multisnaptogrid[i] = %d;};};\
3180
            if( typeof(multistrokecolors) === 'undefined' && multistrokecolors == null){ var multistrokecolors = new Array(MMP);for(var i=0;i<MMP;i++){multistrokecolors[i] = '%s';};};\
3181
            if( typeof(multifillcolors) === 'undefined' && multifillcolors == null ){var multifillcolors = new Array(MMP);for(var i=0;i<MMP;i++){multifillcolors[i] = '%s';};};\
3182
            if( typeof(multistrokeopacity) === 'undefined' && multistrokeopacity == null){var multistrokeopacity = new Array(MMP);for(var i=0;i<MMP;i++){multistrokeopacity[i] = %.2f;};};\
3183
            if( typeof(multifillopacity) === 'undefined' &&  multifillopacity == null){var multifillopacity = new Array(MMP);for(var i=0;i<MMP;i++){multifillopacity[i] = %.2f;};};\
3184
            if( typeof(multilinewidth) === 'undefined' && multilinewidth == null){var multilinewidth = new Array(MMP);for(var i=0;i<MMP;i++){multilinewidth[i] = %d;};};\
3185
            if( typeof(multifill) === 'undefined' && multifill == null){var multifill = new Array(MMP);for(var i=0;i<MMP;i++){multifill[i] = %d;};};\
3186
            if( typeof(multidash) === 'undefined' && multidash == null){var multidash = new Array(MMP);for(var i=0;i<MMP;i++){multidash[i] = %d;};};\
3187
            if( typeof(multilabel) === 'undefined' && multilabel == null){var multilabel = [\"%s\",\"stop drawing\"];};\
3188
            if( typeof(multiuserinput) === 'undefined' && multiuserinput == null){var multiuserinput = new Array(MMP);for(var i=0;i<MMP;i++){multiuserinput[i] = '0';};};\
3189
            var arrow_head = %d;var multifont_color = '%s';var multifont_family = '%s';var forbidden_zone = [xsize+2,ysize+2];",
3190
            MAX_MULTI_PRIMITIVES,
3191
            use_snap,
3192
            stroke_color,
3193
            fill_color,
3194
            stroke_opacity,
3195
            fill_opacity,
3196
            line_width,
3197
            use_filled,
3198
            use_dashed,
3199
            str_replace(temp,",","\",\""),
3200
            arrow_head,font_color,font_family);
16827 schaersvoo 3201
            add_js_multidraw(temp,css_class,use_offset,int_data[MAX_MULTI_PRIMITIVES+1],crosshair_size,use_zoom);
3202
            /* no_controls == int_data[MAX_MULTI_PRIMITIVES+1] */
3203
            reply_precision = precision;
11806 schaersvoo 3204
            if(strstr(temp,"text") != NULL){
15111 schaersvoo 3205
             js_function[JS_SAFE_EVAL] = 1;
16722 schaersvoo 3206
             js_function[DRAW_SUBSUP] = 1;
11806 schaersvoo 3207
            }
16827 schaersvoo 3208
            if(strstr(temp,"function") != NULL){
16832 bpr 3209
            int pp, funs = count_substring(temp, "function");
16827 schaersvoo 3210
             js_function[JS_SAFE_EVAL] = 1;
3211
             js_function[JS_RAWMATH] = 1;
3212
             js_function[DRAW_JSFUNCTION] = 1;
3213
             js_function[JS_MATH] = 1;
3214
             js_function[JS_PLOT] = 1;
16832 bpr 3215
             for(pp = 0 ; pp< funs ;pp++){
16827 schaersvoo 3216
             add_input_jsfunction(css_class,function_label,input_cnt,stroke_color,stroke_opacity,line_width,use_dashed,dashtype[0],dashtype[1],font_size);
3217
             input_cnt++;
3218
             jsplot_cnt++;
3219
             }
3220
             fprintf(js_include_file,"if(typeof(all_jsplots) !== 'number'){var all_jsplots;};all_jsplots = %d;function redraw_userdraw(){redraw_jsplot();return;};",jsplot_cnt);
3221
            }
11806 schaersvoo 3222
            /* the canvasses range from 1000 ... 1008 */
3223
            if( reply_format == 0){reply_format = 29;}
3224
            reset();/* if command 'filled' / 'dashed' was given...reset all */
3225
            break;
3226
        case MULTILABEL:
3227
        /*
3228
         @ multilabel button_label_1,button_label_2,...,button_label_8,'stop drawing text'
14066 bpr 3229
         @ use before command <a href='#multidraw'>multidraw</a>
15111 schaersvoo 3230
         @ if not set all labels (e.g. the value of input type 'button') will be set by the english names for the draw_primitives (like 'point','circle'...)
14071 bpr 3231
         @ the ''stop drawing`` button text <b>must</b> be the last item on the ''multilabel`` -list <br />for example:<br /><code>multilabel punten,lijnen,Stop met Tekenen<br />multidraw points,lines</code>
15111 schaersvoo 3232
         @ all buttons can be ''styled`` by using command <code>css</code><br /><b>note:</b>If you want to add some CSS style to the buttons...<br />the id's of the ''draw buttons`` are their english command argument<br />(e.g. id="canvasdraw_points" for the draw points button).<br />the id of the ''stop drawing`` button is "canvasdraw_stop_drawing".<br />the id of the "OK" button is ''canvasdraw_ok_button``
3233
         @ wims will not check the amount or validity of your input
3234
         @ always use the same sequence as is used for ''multidraw``
3235
         @ if you don't want the controls, and want to write your own interface, set <code>multilabel NOCONTROLS</code>
11806 schaersvoo 3236
        */
3237
            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
3238
            temp = get_string(infile,1);
15116 bpr 3239
            if( strcasestr(temp,"NOCONTROLS") ){
15111 schaersvoo 3240
             int_data[MAX_MULTI_PRIMITIVES+1] = 1; /*int_data[25] = 1 --> 'no_controls = 1' in canvasmacro.c */
3241
             fprintf(js_include_file,"var multilabel = null;");
3242
            }
3243
            else
3244
            {
3245
             int_data[MAX_MULTI_PRIMITIVES+1] = 0; /* so DO use control buttons etc */
3246
             temp = str_replace(temp,",","\",\"");
3247
             fprintf(js_include_file,"var multilabel = [\"%s\"];",temp);
3248
            }
11806 schaersvoo 3249
            break;
3250
        case MULTILINEWIDTH:
3251
        /*
3252
         @ multilinewidth linewidth_1,linewidth_2,...,linewidth_8
14066 bpr 3253
         @ use before command <a href='#multidraw'>multidraw</a>
14071 bpr 3254
         @ if not set all line widths will be set by a previous command ''linewidth int``
3255
         @ use these up to 7 different line widths for the draw primitives used by command <code>multidraw obj_type_1,obj_type_2...obj_type_7</code>
11806 schaersvoo 3256
         @ wims will <b>not</b> check if the number of 0 or 1's matches the amount of draw primitives...
14071 bpr 3257
         @ always use the same sequence as is used for ''multidraw``
11806 schaersvoo 3258
        */
3259
            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
3260
            temp = get_string(infile,1);
3261
            temp = str_replace(temp,",","\",\"");
3262
            fprintf(js_include_file,"var multilinewidth = [\"%s\"];",temp);
3263
            break;
3264
        case MULTIFILL:
3265
        /*
3266
         @ multifill 0,0,1,0,1,0,0
14071 bpr 3267
         @ meaning draw objects no. 3 and 5, in the list of command ''multifill``, are filled (if the object is fillable...and not a line,segment,arrow or point...)
15111 schaersvoo 3268
         @ using a fillpattern: multifill 0,1,2,5,3,4<br />meaning: first object is not filled...second object is solid color filled...2=grid | 3=hatch | 4=diamond | 5=dot
14066 bpr 3269
         @ use before command <a href='#multidraw'>multidraw</a>
14246 bpr 3270
         @ if not set all objects -except point|points- will be set ''not filled``... unless a command <code>filled</code> was given before command <code>multifill</code>
15651 reyssat 3271
         @ only suitable for draw_primitives like ''circle | circles``, ''triangle | triangles``, ''rect | rects``, ''poly[3-9] | polys[3-9]`` and ''polygon``
11806 schaersvoo 3272
         @ wims will <b>not</b> check if the number of 0 or 1's matches the amount of draw primitives...
14071 bpr 3273
         @ always use the same sequence as is used for ''multidraw``
11806 schaersvoo 3274
        */
3275
            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
15111 schaersvoo 3276
            i=0;
3277
            while( ! done ){     /* get next item until EOL*/
3278
                if(i > MAX_MULTI_PRIMITIVES){canvas_error("too many multidraw primitives...read the documentation...");}
3279
                int_data[i] = (int)(get_real(infile,1)); /* 0,1,2,3,4,5 */
3280
                if(int_data[i] < 0 || int_data[i] > 5 ){canvas_error("the only possible multifill arguments are: 0,1,2,3,4,5 ");}
3281
                if(int_data[i] > 1 ){use_filled = 2;js_function[DRAW_FILL_PATTERN] = 1;}/* switch to trigger pattern filling */
15116 bpr 3282
                i++;
15111 schaersvoo 3283
            }
3284
            fprintf(js_include_file,"var multifill = %s ;",data2js_array(int_data,i-1));
11806 schaersvoo 3285
            break;
3286
 
3287
        case MULTIFILLCOLORS:
3288
        /*
3289
         @ multifillcolors color_name_1,color_name_2,...,color_name_8
14066 bpr 3290
         @ use before command <a href='#multidraw'>multidraw</a>
14078 bpr 3291
         @ if not set all fillcolors (for circle | triangle | poly[3-9] | closedpoly ) will be ''stroke_color``, ''fill_opacity``
14071 bpr 3292
         @ use these up to 6 colors for the draw primitives used by command <code>multidraw obj_type_1,obj_type_2...obj_type_n</code>
11806 schaersvoo 3293
         @ wims will <b>not</b> check if the number of colours matches the amount of draw primitives...
14379 bpr 3294
         @ always use the same sequence as is used for ''multidraw``
15111 schaersvoo 3295
         @ can also be used with command <a href='#userdraw'>userdraw clickfill,color</a> when more than one fillcolor is wanted.<br />in that case use for example <a href='#replyformat'>replyformat 10</a> ... reply=x1:y1:color1,x2:y2:color2...<br />the colors will restart at the first color, when there are more fill-clicks than multi-fill-colors<br />if more control over the used colours is wanted, see command <a href='#colorpalette'>colorpalette color1,color2...</a>
11806 schaersvoo 3296
        */
3297
            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
3298
            fprintf(js_include_file,"var multifillcolors = [");
3299
            while( ! done ){
3300
                temp = get_color(infile,1);
3301
                fprintf(js_include_file,"\"%s\",",temp);
3302
            }
3303
            fprintf(js_include_file,"\"0,0,0\"];");/* add black to avoid trouble with dangling comma... */
3304
            break;
3305
 
3306
        case MULTIFILLOPACITY:
3307
        /*
3308
         @ multifillopacity fill_opacity_1,fill_opacity_2,...,fill_opacity_8
3309
         @ float values 0 - 1 or integer values 0 - 255
14066 bpr 3310
         @ use before command <a href='#multidraw'>multidraw</a>
14071 bpr 3311
         @ if not set all fill opacity_ will be set by previous command <code>opacity int,int</code> and keyword ''filled``
3312
         @ use these up to 7 different stroke opacities for the draw primitives used by command <code>multidraw obj_type_1,obj_type_2...obj_type_y</code>
11806 schaersvoo 3313
         @ wims will not check the amount or validity of your input
14071 bpr 3314
         @ always use the same sequence as is used for ''multidraw``
11806 schaersvoo 3315
        */
3316
            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
3317
            temp = get_string(infile,1);
3318
            temp = str_replace(temp,",","\",\"");
3319
            fprintf(js_include_file,"var multifillopacity = [\"%s\"];",temp);
3320
            break;
3321
        case MULTISNAPTOGRID:
3322
        /*
3323
         @ multisnaptogrid 0,1,1
15715 schaersvoo 3324
         @ alternative: multisnap
14071 bpr 3325
         @ meaning draw objects no. 2 (circle) and 3 (segments), in the list of command like <code>multifill points,circle,segments</code>, will snap to the xy-grid (default 1 in x/y-coordinate system: see command <a href='#snaptogrid'>snaptogrid</a>)
3326
         @ freehand drawing...specify precision for reply: all objects snap to grid <code>multisnaptogrid 1,1,1,...</code>
14246 bpr 3327
         @ only the xy-values snap_to_grid: all objects snap to grid <code>multisnaptogrid 1,1,1,...</code>
14071 bpr 3328
         @ only the x-values snap_to_grid: all objects snap to x-grid <code>multisnaptogrid 2,2,2,...</code>
3329
         @ only the y-values snap_to_grid: all objects snap to y-grid <code>multisnaptogrid 3,3,3,...</code>
3330
         @ if <a href='#snaptopoints'>snaptopoints</a> is defined: all objects snap to points <code>multisnaptogrid 4,4,4,...</code> <br /><b>make sure to define the points to snap on...</b> use command <a href='#snaptopoints'>snaptopoints</a>
3331
         @ <code>multisnaptogrid 0,1,2,3,4<br />multidraw text,arrow,line,circle,image</code><br />''text`` is free hand, ''arrow`` is snap to grid, ''line`` is snap to x-grid, ''circle`` is snap to y-grid, ''image`` is snap to points defined by command <a href='#snaptopoints'>snaptopoints</a>
15111 schaersvoo 3332
         @ use before command <a href='#multidraw'>multidraw</a>
3333
         @ attention: if not set all objects will be set ''no snap``... unless a generic command ''snaptogrid`` was given before command ''multidraw``
3334
         @ commands <a href='#xsnaptogrid'>xsnaptogrid</a>, <a href='#ysnaptogrid'>ysnaptogrid</a>, <a href='#snaptofunction'>snaptofunction</a> are <b>not</b> supported amd only functional for command <a href='#userdraw'>userdraw</a>
14071 bpr 3335
         @ always use the same sequence as is used for ''multidraw``
11806 schaersvoo 3336
         @ wims will <b>not</b> check if the number of 0 or 1's matches the amount of draw primitives...
3337
        */
3338
            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
3339
            temp = get_string(infile,1);
14038 schaersvoo 3340
            fprintf(js_include_file,"var multisnaptogrid = [%s];",temp);
15111 schaersvoo 3341
            reset();/* if command 'dashed' was given...reset to not-dashed */
11806 schaersvoo 3342
            break;
3343
        case MULTISTROKECOLORS:
3344
        /*
3345
         @ multistrokecolors color_name_1,color_name_2,...,color_name_8
14066 bpr 3346
         @ use before command <a href='#multidraw'>multidraw</a>
14071 bpr 3347
         @ if not set all colors will be ''stroke_color``, ''stroke_opacity``
3348
         @ use these up to 6 colors for the draw primitives used by command <code>multidraw obj_type_1,obj_type_2...obj_type_7</code>
11806 schaersvoo 3349
         @ wims will <b>not</b> check if the number of colours matches the amount of draw primitives...
14071 bpr 3350
         @ always use the same sequence as is used for ''multidraw``
11806 schaersvoo 3351
        */
3352
            if( use_tooltip == 1 ){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
3353
            fprintf(js_include_file,"var multistrokecolors = [");
3354
            while( ! done ){
3355
                temp = get_color(infile,1);
3356
                fprintf(js_include_file,"\"%s\",",temp);
3357
            }
3358
            fprintf(js_include_file,"\"0,0,0\"];");/* add black to avoid trouble with dangling comma... */
3359
            break;
3360
        case MULTISTROKEOPACITY:
3361
        /*
3362
         @ multistrokeopacity stroke_opacity_1,stroke_opacity_2,...,stroke_opacity_7
3363
         @ float values 0 - 1 or integer values 0 - 255
14066 bpr 3364
         @ use before command <a href='#multidraw'>multidraw</a>
14071 bpr 3365
         @ if not set all stroke opacity_ will be set by previous command <code>opacity int,int</code>
15111 schaersvoo 3366
         @ use these up to 7 different stroke opacities for the draw primitives used by command <code>multidraw obj_type_1,obj_type_2...obj_type_7</code>
11806 schaersvoo 3367
         @ wims will not check the amount or validity of your input
14071 bpr 3368
         @ always use the same sequence as is used for ''multidraw``
11806 schaersvoo 3369
        */
3370
            if( use_tooltip == 1){canvas_error("command 'multidraw' is incompatible with command 'intooltip tip_text'");}
3371
            temp = get_string(infile,1);
3372
            temp = str_replace(temp,",","\",\"");
3373
            fprintf(js_include_file,"var multistrokeopacity = [\"%s\"];",temp);
3374
            break;
3375
 
3376
        case MULTIUSERINPUT:
3377
        /*
3378
        @ multiuserinput 0,1,1,0
15715 schaersvoo 3379
        @ alternative: multiinput
15111 schaersvoo 3380
        @ meaning, when the command ''multidraw`` is used <code>multidraw circles,points,lines,triangles</code><br />objects ''points`` and ''lines`` may additionally be ''drawn`` by direct input (inputfields)<br/>all other objects must be drawn with a mouse
3381
        @ in case of circle | circles a third inputfield for Radius (R) is added. The radius must be in the x/y coordinate system (x-range) and <b>not</b> in pixels...students don't think in pixels.<br />note: R-values will not snap-to-grid
15651 reyssat 3382
        @ in case of line(s) | segment(s) | arrow(s) the user should write <b>x1:y1</b> in the first inputfield and <b>x2:y2</b> in the second.<br />These ''hints`` are pre-filled into the input field.<br />Other coordinate delimiters are '';`` and '',`` e.g. <b>x1;y1</b> or <b>x1,y1</b>.<br />An error message (alert box) will popup when things are not correctly...
15111 schaersvoo 3383
        @ in case of a triangle | poly3, three inputfields are provided.
15651 reyssat 3384
        @ in case of ''text`` and ''multiuserinput=1, 3`` inputfields will be shown: ''x,y,text``
3385
        @ in case of ''text`` and ''multiuserinput=0, 1`` inputfield will be shown: text ... a mouse click will place the text on the canvas.
15111 schaersvoo 3386
        @ may be styled using command <a href="#css">css</a>
3387
        @ an additional button ''stop drawing`` may be used to combine userbased drawings with ''drag&and;drop`` or ''onclick`` elements
3388
        @ when exercise if finished (status=done) the buttons will not be shown.<br />To override this default behaviour use command / keyword ''status``
3389
        @ use before command <a href='#multidraw'>multidraw</a>
3390
        @ always use the same sequence as is used for ''multidraw``
11806 schaersvoo 3391
        */
3392
            /* simple rawmath and input check */
15111 schaersvoo 3393
            js_function[JS_SAFE_EVAL] = 1;
11806 schaersvoo 3394
            temp = get_string(infile,1);
3395
            temp = str_replace(temp,",","\",\"");
3396
            fprintf(js_include_file,"var multiuserinput = [\"%s\"];",temp);
3397
            break;
15111 schaersvoo 3398
        case NORESET:
3399
        /*
15715 schaersvoo 3400
        @ noreset
3401
        @ alternative: killreset
15111 schaersvoo 3402
        @ keyword
3403
        @ may come in handy if canvas script code is generated using loops
3404
        @ if used the following properties will remain to be valid<br /><ul><li>filled</li><li>dash settings</li><li>onclick or drag settings</li><li>centering or offset</li></ul>
3405
        @ if used again, these properies will be reset to the default values and normal behaviour is continued (e.g. the above properties will be reset after 'use' on a canvas object)
3406
        @ etc etc
15633 bpr 3407
        @ commands <a href='#slider'>slider</a>, <a href='#linear'>linear</a>, <a href='#rotate'>rotate</a>, <a href='#translate'>translate</a>, <a href='#affine'>affine</a> are always active until the 'kill' commands are given: <br /><a href='#killlinear'>killlinear</a>, <a href='#killrotate'>killrotate</a>, <a href='#killtranslate'>killtranslate</a> and <a href='#killaffine'>killaffine</a>
3408
        @ commands like 'opacity', 'linewidth', 'fontsize', 'fontfamily' are only changed when redefined again
15111 schaersvoo 3409
        @%noreset%size 400,400%xrange -10,10%yrange -10,10%noreset%drag xy%linewidth 4%filled%rect -4,4,-2,2,blue%triangle -3,-3,0,0,1,-5,green%circle 0,0,50,orange%noreset%rect 2,4,4,2,blue
15758 schaersvoo 3410
        @%noreset_oefgraduation%size 800,100%xrange 0,11%yrange -1,1%hline 0,0,black%parallel 0,0,0,0.5,1,0,11,blue%noreset%onclick%centered%text black,1,0.6,large,20%text black,2,0.6,large,30%text black,3,0.6,large,40%text black,4,0.6,large,50%text black,5,0.6,large,60%text black,6,0.6,large,70%text black,7,0.6,large,80%text black,8,0.6,large,90%text black,9,0.6,large,100%text black,10,0.6,large,110
15111 schaersvoo 3411
        */
3412
            if(no_reset == FALSE){no_reset = TRUE;}else{no_reset = FALSE;reset();}
3413
            break;
11806 schaersvoo 3414
        case NOXAXIS:
3415
        /*
14252 bpr 3416
        @ noxaxis
11806 schaersvoo 3417
        @ keyword
3418
        @ if set, the automatic x-axis numbering will be ignored
14252 bpr 3419
        @ use command <a href="#axis">axis</a> to have a visual x/y-axis lines (see command <a href="#grid">grid</a>)
11806 schaersvoo 3420
        @ to be used before command grid (see <a href="#grid">command grid</a>)
3421
        */
11891 schaersvoo 3422
            fprintf(js_include_file,"x_strings = {};x_strings_up = [];\n");
3423
            use_axis_numbering = -1;
11806 schaersvoo 3424
            break;
3425
        case NOYAXIS:
3426
        /*
14251 bpr 3427
        @ noyaxis
11806 schaersvoo 3428
        @ keyword
3429
        @ if set, the automatic y-axis numbering will be ignored
14252 bpr 3430
        @ use command <a href="#axis">axis</a> to have a visual x/y-axis lines (see command <a href="#grid">grid</a>)
11806 schaersvoo 3431
        @ to be used before command grid (see <a href="#grid">command grid</a>)
3432
        */
11891 schaersvoo 3433
            fprintf(js_include_file,"y_strings = {};\n");
11806 schaersvoo 3434
            break;
11890 schaersvoo 3435
        case NUMBERLINE:
3436
        /*
3437
        @ numberline x0,x1,xmajor,xminor,y0,y1
3438
        @ numberline is using xrange/yrange system for all dimensions
11996 schaersvoo 3439
        @ multiple numberlines are allowed ; combinations with command <a href='#grid'>grid</a> is allowed; multiple commands <a href='#xaxis'>xaxis numbering</a> are allowed
11890 schaersvoo 3440
        @ x0 is start x-value in xrange
3441
        @ x1 is end x-value in xrange
3442
        @ xmajor is step for major division
14071 bpr 3443
        @ xminor is divisor of xmajor; using small (30% of major tick) tick marks: this behaviour is ''hardcoded``
3444
        @ is xminor is an even divisor, an extra tickmark (60% of major tick) is added to the numberline: this behaviour is ''hardcoded``
11890 schaersvoo 3445
        @ y0 is bottom of numberline; y1 endpoint of major tics
13829 bpr 3446
        @ use command <a href="#linewidth">linewidth</a> to control appearance
11890 schaersvoo 3447
        @ use <a href="#strokecolor">strokecolor</a> and <a href="#opacity">opacity</a> to controle measure line
3448
        @ for all ticks linewidth and color / opacity are identical.
3449
        @ if command <a href="#xaxis">xaxis</a> or <a href="#xaxisup">xaxisup</a> is not defined, the labeling will be on major ticks: x0...x1
13829 bpr 3450
        @ use <a href="#fontfamily">fontfamily</a> and <a href="#fontcolor">fontcolor</a> to control fonts settings
14078 bpr 3451
        @ may be used together with <a href="#userdraw">userdraw</a>, <a href="#multidraw">multidraw</a> and <a href="#drag">user drag</a> command family for the extra object drawn onto the numberline
11890 schaersvoo 3452
        @ <a href="#snaptogrid">snaptogrid, snaptopoints etc</a> and <a href="#zoom">zooming and panning</a> is supported
3453
        @ onclick and dragging of the numberline are not -yet- supported
14071 bpr 3454
        @ note: in case of multiple numberlines, make sure the numberline without special x-axis numbering (e.g. ranging from xmin to xmax) comes first !
13829 bpr 3455
        @%numberline%size 400,400%xrange -10,10%yrange -10,10%precision 1%strokecolor black%numberline -8,8,1,6,-4,-3.5%strokecolor red%xaxis -4:AA:-2:BB:2:CC:4:DD%numberline -8,8,1,2,4,4.5%strokecolor green%xaxisup -4:AAA:-2:BBB:2:CCC:4:DDD%numberline -8,8,1,3,2,2.5%strokecolor blue%xaxis -4:AAAA:-2:BBBB:2:CCCC:4:DDDD%numberline -8,8,1,4,0,0.5%strokecolor brown%xaxis -4:AAAAA:-2:BBBBB:2:CCCCC:4:DDDDD%numberline -8,8,1,5,-2,-1.5%zoom red
11890 schaersvoo 3456
        */
15111 schaersvoo 3457
            js_function[DRAW_NUMBERLINE] = 1;
11890 schaersvoo 3458
            for(i=0;i<6;i++){
3459
                switch(i){
3460
                    case 0: double_data[0] = get_real(infile,0);break;/* xmin */
3461
                    case 1: double_data[1] = get_real(infile,0);break;/* xmax */
3462
                    case 2: double_data[2] = get_real(infile,0);break;/* xmajor */
3463
                    case 3: double_data[3] = get_real(infile,0);break;/* xminor */
3464
                    case 4: double_data[4] = get_real(infile,0);break;/* ymin */
3465
                    case 5: double_data[5] = get_real(infile,1);/* ymax */
3466
                            /*
3467
                            var draw_numberline%d = function(canvas_type,xmin,xmax,xmajor,xminor,ymin,ymax,linewidth,strokecolor,strokeopacity,fontfamily,fontcolor);
3468
                            */
3469
                            fprintf(js_include_file,"snap_x = %f;snap_y = %f;",double_data[2] / double_data[3],double_data[5] - double_data[4] );
14208 schaersvoo 3470
                            string_length = 1 + snprintf(NULL,0,"\ndraw_numberline(%d,%d,%f,%f,%f,%f,%f,%f,%d,\"%s\",%f,\"%s\",\"%s\",%d);   ",NUMBERLINE_CANVAS+numberline_cnt,use_axis_numbering,double_data[0],double_data[1],double_data[2],double_data[3],double_data[4],double_data[5],line_width,stroke_color,stroke_opacity,font_family,font_color,precision);
3471
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11996 schaersvoo 3472
                            snprintf(tmp_buffer,string_length,"\ndraw_numberline(%d,%d,%f,%f,%f,%f,%f,%f,%d,\"%s\",%f,\"%s\",\"%s\",%d);  ",NUMBERLINE_CANVAS+numberline_cnt,use_axis_numbering,double_data[0],double_data[1],double_data[2],double_data[3],double_data[4],double_data[5],line_width,stroke_color,stroke_opacity,font_family,font_color,precision);
11890 schaersvoo 3473
                            add_to_buffer(tmp_buffer);
3474
                            numberline_cnt++;
3475
                            break;
3476
                    default:break;
3477
                }
3478
            }
3479
            reset();
3480
            break;
3481
 
15541 schaersvoo 3482
        case OBABEL:
3483
 
3484
        /*
3485
        @ obabel x,y,type input,molecule smiles-code or file location, extra arguments,extra arguments,...
15633 bpr 3486
        @ will call the ''obabel`` program, if installed.
15541 schaersvoo 3487
        @ output will be an svg file
15686 reyssat 3488
        @ see documentation of obabel for special keys
15541 schaersvoo 3489
        @ command <a href='#affine'>affine</a> will produce CSS3 matrix transformations
3490
        @ command <a href='#rotate'>rotate</a> will rotate the object
3491
        @ can be set onclick: <code>javascript:read_dragdrop();</code> will return click numbers of mathml-objects<br />if 4 clickable object are drawn, the reply could be 1,0,1,0 ... meaning clicked on the first and third object
3492
        @ can be set draggable: <code>javascript:read_dragdrop();</code> will return all coordinates in the same order as the canvas script: unmoved object will have their original coordinates...
3493
        @ snaptogrid is supported...snaptopoints will work, but use with care...due to the primitive dragging<br />technically: the dragstuff library is not used...the mathml is embedded in a new div element and not in the html5-canvas
3494
        @ external files may be loaded if they are present on the server or in the modules <br />for example:<br /> obabel 0,0,mol,&#36;module_dir/caffeine.mol,-P100,-xb none
3495
        @%obabel_smi%size 400,400%xrange -10,10%yrange -10,10%fillcolor green%drag xy%centered%obabel 0,0,smi,-:c1cFccc1cc,-xb none,-xB blue,-xi,-xt,-xa,-xX,-xP180,-h
3496
        */
3497
            js_function[DRAW_XML] = 1;
3498
            for(i=0;i<4;i++){
3499
                switch(i){
3500
                    case 0: double_data[0]=get_real(infile,0);break; /* x in x/y-range coord system -> pixel width */
3501
                    case 1: double_data[1]=get_real(infile,0);break; /* y in x/y-range coord system  -> pixel height */
3502
                    case 2: URL = get_string_argument(infile,0);break;
3503
                    case 3:
3504
                    if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
3505
                    temp = getSVGMOL(URL,get_string(infile,1));
3506
                    decimals = find_number_of_digits(precision);
3507
                    if(use_affine == TRUE ){ transform(2,2);}
3508
                    if( use_offset != 0 || drag_type != -1 ){int_data[2] = 1;}else{int_data[2] = 0;} /* only centered or not-centered */
3509
                    int_data[0] = x2px(double_data[0]);
3510
                    int_data[1] = y2px(double_data[1]);
3511
                    if( use_slider != -1 && onclick == 0 ){ onclick = 3;}/* no drag&onclick but slideable */
3512
                    if( use_slider != -1 && drag_type > 0 ){ onclick = 5;}/* slider+drag*/
3513
                    if( strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\"","'"); }
3514
                    string_length = 1 + snprintf(NULL,0,"var draw_xml%d = {id:%d,type:'svg',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%s,rotation_center:%s,once:true};slidergroup[%d] = null;draw_xml(draw_xml%d);\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,my_sliders,rotation_center,object_cnt,drawxml_cnt);
3515
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
3516
                    snprintf(tmp_buffer,string_length,  "var draw_xml%d = {id:%d,type:'svg',x:[%d],y:[%d],mathml:\"%s\",drag_type:%d,onclick:%d,object_cnt:%d,stroke_color:\"%s\",stroke_opacity:%.2f,fill_color:\"%s\",fill_opacity:%.2f,use_center:%d,use_snap:%d,angle:%f,fontfamily:\"%s\",transform:%s,use_affine:%d,offset:[0,0],use_slider:%s,rotation_center:%s,once:true};slidergroup[%d] = null;draw_xml(draw_xml%d);\n",drawxml_cnt,drawxml_cnt,int_data[0],int_data[1],temp,drag_type,onclick,object_cnt,stroke_color,stroke_opacity,fill_color,fill_opacity,int_data[2],use_snap,angle,font_family,doubledata2js_array(affine_matrix,6,decimals),use_affine,my_sliders,rotation_center,object_cnt,drawxml_cnt);
3517
                    add_to_buffer(tmp_buffer);
3518
                    if(onclick != 0 ){object_cnt++;}
3519
                    drawxml_cnt++;/* keeps track on imported img,div,p,span,mathml,svg */
3520
                    break;
3521
                    default:break;
3522
                }
3523
            }
3524
            reset();
3525
        break;
3526
 
11806 schaersvoo 3527
        case OPACITY:
3528
        /*
13951 schaersvoo 3529
        @ opacity [0-255],[0-255]
3530
        @ opacity [0.0 - 1.0],[0.0 - 1.0]
15715 schaersvoo 3531
        @ alternative: transparent
11806 schaersvoo 3532
        @ first item is stroke opacity, second is fill opacity
13951 schaersvoo 3533
        @%opacity%size 400,400%xrange -10,10%yrange -10,10%opacity 255,0%fcircle -10,0,100,blue%opacity 250,50%fcircle -5,0,100,blue%opacity 200,100%fcircle 0,0,100,blue%opacity 150,150%fcircle 5,0,100,blue%opacity 100,200%fcircle 10,0,100,blue
11806 schaersvoo 3534
        */
3535
            for(i = 0 ; i<2;i++){
3536
                switch(i){
3537
                    case 0: double_data[0]= get_real(infile,0);break;
3538
                    case 1: double_data[1]= get_real(infile,1);break;
3539
                    default: break;
3540
                }
3541
            }
15633 bpr 3542
            if( double_data[0] > 255 ||  double_data[1] > 255  || double_data[0] < 0 || double_data[1] < 0 ){ canvas_error("opacity [0 - 255], [0 - 255] ");}/* typo or non-RGB ? */
11997 schaersvoo 3543
            if( double_data[0] > 1 ){ stroke_opacity = (double) (0.0039215*double_data[0]); }else{ stroke_opacity = 0.0;} /* 0.0 - 1.0 */
3544
            if( double_data[1] > 1 ){ fill_opacity = (double) (0.0039215*double_data[1]); }else{ fill_opacity = 0.0;} /* 0.0 - 1.0 */
11806 schaersvoo 3545
            break;
3546
 
3547
        case ONCLICK:
3548
        /*
3549
         @ onclick
3550
         @ keyword (no arguments required)
15111 schaersvoo 3551
         @ if the next object is clicked, its ''object onclick_or_drag sequence number`` in fly script is returned by <code>javascript:read_canvas();</code>
14086 bpr 3552
         @ onclick seqeuence numbering starts at ''0``, e.g. if there are 6 objects set onclick, the first onclick object will have id-number ''0``, the last id-number ''5``
15111 schaersvoo 3553
         @ line based objects will show an increase in line width<br />font based objects will show the text in ''bold`` when clicked.
14562 bpr 3554
         @ the click zone (accuracy) is determined by 2&times; the line width of the object
14071 bpr 3555
         @ onclick and <a href="#drag">drag x|y|xy</a> may be combined in a single flyscript (although a single object can <b>not</b> be onclick and draggable at the same time...)
11806 schaersvoo 3556
         @ note: not all objects may be set onclick
12107 schaersvoo 3557
         @%onclick%size 400,400%xrange -10,10%yrange -10,10%opacity 255,60%linewidth 3%onclick%fcircles blue,-3,3,1,1,2,2,3,1,1%onclick%ftriangles red,-4,-4,-4,0,-3,-2,0,0,4,0,2,-4%onclick%frects green,-4,4,-2,2,1,-1,3,-4
11806 schaersvoo 3558
        */
15111 schaersvoo 3559
            fprintf(js_include_file,"use_dragdrop_reply = true;");
11806 schaersvoo 3560
            onclick = 1;
15111 schaersvoo 3561
            use_dragstuff=2;
3562
            js_function[INTERACTIVE] = 1;
11806 schaersvoo 3563
 
3564
            break;
3565
 
3566
        case PARALLEL:
3567
        /*
3568
         @ parallel x1,y1,x2,y2,dx,dy,n,[colorname or #hexcolor]
15611 schaersvoo 3569
         @ affine transformations should be identical to flydraw
15613 schaersvoo 3570
         @ in case of <a href='#rotate'>rotation</a>  or <a href='#affine'>affine transformation </a>, command parallel will produce <em>n</em> individual segments, and these may be set ''onclick`` or ''drag xy`` individually.
3571
         @ in case of <em>no rotation or transformations</em> the lines can not be set ''onclick`` or ''drag xy``.
15629 bpr 3572
         @ note: a large number of parallel lines (large <em>n</em>) may result in a canvasdraw error (...simplify your script...it produces too many lines...)
15611 schaersvoo 3573
         @%parallel_click%size 400,400%xrange -10,10%yrange -10,10%parallel -5,5,-4,-5,0.25,0,40,red%rotate 45%onclick%parallel -5,5,-4,-5,0.25,0,40,blue
3574
         @%parallel%size 400,400%xrange -10,10%yrange -10,10%parallel -5,5,-4,-5,0.25,0,40,red
3575
        */
15613 schaersvoo 3576
            decimals = find_number_of_digits(precision);
15611 schaersvoo 3577
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
3578
 
15613 schaersvoo 3579
            if( use_rotate == TRUE || use_affine == TRUE ){
3580
                for( i = 0;i < 8; i++ ){
3581
                    switch(i){
3582
                        case 0: double_data[0] = get_real(infile,0);break; /* x1-values */
3583
                        case 1: double_data[1] = get_real(infile,0);break; /* y1-values */
3584
                        case 2: double_data[2] = get_real(infile,0);break; /* x2-values */
3585
                        case 3: double_data[3] = get_real(infile,0);break; /* y2-values */
3586
                        case 4: double_data[4] = get_real(infile,0);break; /* xv  */
3587
                        case 5: double_data[5] = get_real(infile,0);break; /* yv  */
3588
                        case 6: int_data[0] = (int) (get_real(infile,0));break; /* n  */
3589
                        case 7: stroke_color=get_color(infile,1);break;/* name or hex color */
3590
                        default: break;
3591
                    }
11806 schaersvoo 3592
                }
15613 schaersvoo 3593
                double_data[6] = double_data[0]; /* x1 */
15629 bpr 3594
                double_data[7] = double_data[1]; /* y1 */
15613 schaersvoo 3595
                double_data[8] = double_data[2]; /* x2 */
15629 bpr 3596
                double_data[9] = double_data[3]; /* y2 */
15613 schaersvoo 3597
                for(i = 0 ; i < int_data[0] ; i++){
15629 bpr 3598
                    double_data[0] = double_data[6] + i*double_data[4];
3599
                    double_data[1] = double_data[7] + i*double_data[5];
3600
                    double_data[2] = double_data[8] + i*double_data[4];
3601
                    double_data[3] = double_data[9] + i*double_data[5];
15613 schaersvoo 3602
                    if(use_rotate == TRUE ){ rotate(4,angle,rotationcenter,2);}
3603
                    if(use_affine == TRUE ){ transform(4,2);}
3604
                    string_length = 1 + snprintf(NULL,0,"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[0],decimals,double_data[2],decimals,double_data[1],decimals,double_data[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);
3605
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
3606
                    snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[30,30],[30,30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[2],decimals,double_data[1],decimals,double_data[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);
3607
                    add_to_buffer(tmp_buffer);
3608
                    if(onclick != 0){object_cnt++;}
3609
                }
3610
                dragstuff[4] = 1;
11806 schaersvoo 3611
            }
15613 schaersvoo 3612
            else  /* use the old parallel version: calculations in javascript */
3613
            {
3614
                for( i = 0;i < 8; i++ ){
3615
                    switch(i){
3616
                        case 0: double_data[0] = get_real(infile,0);break; /* x1-values */
3617
                        case 1: double_data[1] = get_real(infile,0);break; /* y1-values */
3618
                        case 2: double_data[2] = get_real(infile,0);break; /* x2-values */
3619
                        case 3: double_data[3] = get_real(infile,0);break; /* y2-values */
3620
                        case 4: double_data[4] = xmin + get_real(infile,0);break; /* xv  */
3621
                        case 5: double_data[5] = ymax + get_real(infile,0);break; /* yv  */
3622
                        case 6: int_data[0] = (int) (get_real(infile,0));break; /* n  */
3623
                        case 7: stroke_color=get_color(infile,1);/* name or hex color */
3624
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,11,[%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f],[%d,%d,%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[4],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],int_data[0],int_data[0],int_data[0],int_data[0],int_data[0],int_data[0],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);
3625
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
3626
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,11,[%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f],[%d,%d,%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[4],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],int_data[0],int_data[0],int_data[0],int_data[0],int_data[0],int_data[0],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);
3627
                        add_to_buffer(tmp_buffer);
3628
                        if(onclick != 0){object_cnt++;}
3629
                        break;
3630
                        default: break;
3631
                    }
3632
                    dragstuff[11] = 1;
3633
                }
3634
            }
15111 schaersvoo 3635
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
15613 schaersvoo 3636
            reset();
11806 schaersvoo 3637
            break;
15629 bpr 3638
 
11806 schaersvoo 3639
        case PLOTSTEPS:
3640
            /*
3641
             @ plotsteps a_number
3642
             @ default 150
14066 bpr 3643
             @ only used for commands <a href="#curve">curve / plot</a> and <a href="#levelcurve">levelcurve</a>
11806 schaersvoo 3644
             @ use with care !
3645
            */
3646
            plot_steps = (int) (get_real(infile,1));
3647
            break;
13829 bpr 3648
 
11806 schaersvoo 3649
        case POINT:
3650
        /*
3651
        @ point x,y,color
15111 schaersvoo 3652
        @ draw a single point at (x;y) in color 'color'
14246 bpr 3653
        @ use command <code>linewidth int</code> to adjust size
11806 schaersvoo 3654
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
14071 bpr 3655
        @ will not resize on zooming (command <code>circle x,y,r,color</code> will resize on zooming)
14066 bpr 3656
        @ attention: in case of command <a href="#rotate">rotate angle</a> a point has rotation center (0:0) in x/y-range
12107 schaersvoo 3657
        @%point%size 400,400%xrange -10,10%yrange -10,10%opacity 255,255%linewidth 1%onclick%point 0,0,red%linewidth 2%onclick%point 1,1,blue%linewidth 3%onclick%point 3,3,green%linewidth 4%point 4,4,orange
11806 schaersvoo 3658
        */
3659
            for(i=0;i<3;i++){
3660
                switch(i){
3661
                    case 0: double_data[0] = get_real(infile,0);break; /* x */
3662
                    case 1: double_data[1] = get_real(infile,0);break; /* y */
3663
                    case 2: stroke_color = get_color(infile,1);/* name or hex color */
15111 schaersvoo 3664
                    if(use_rotate == TRUE ){rotate(2,angle,rotationcenter,2);}
3665
                    if(use_affine == TRUE ){ transform(2,2);}
3666
                    if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
3667
 
11806 schaersvoo 3668
                    decimals = find_number_of_digits(precision);
15111 schaersvoo 3669
                    string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,2,[%.*f],[%.*f],[%.2f],[%d],%.2f,\"%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[1],1.5*line_width,line_width,1.5*line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,1,0,0,0,use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
3670
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
3671
                    snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,2,[%.*f],[%.*f],[%.2f],[%d],%.2f,\"%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[1],1.5*line_width,line_width,1.5*line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,1,0,0,0,use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
3672
                    add_to_buffer(tmp_buffer);
3673
                    /* object_cnt++; */
3674
                    if(onclick != 0){object_cnt++;}
11806 schaersvoo 3675
                    break;
3676
                    default: break;
3677
                }
3678
            }
15111 schaersvoo 3679
            dragstuff[2] = 1;
3680
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 3681
            reset();
3682
            break;
3683
 
3684
        case POINTS:
3685
        /*
3686
        @ points color,x1,y1,x2,y2,...,x_n,y_n
15111 schaersvoo 3687
        @ draw multiple points at given coordinates in color 'color'
14246 bpr 3688
        @ use command <code>linewidth int</code> to adjust size
11806 schaersvoo 3689
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually (!)
14066 bpr 3690
        @ attention: in case of command <a href="#rotate">rotate angle</a> the points have rotation center (0:0) in x/y-range
12107 schaersvoo 3691
        @%points_1%size 400,400%xrange -10,10%yrange -10,10%opacity 255,255%snaptogrid%linewidth 1%drag xy%points red,0,0,1,1,2,2,3,3%drag x%points blue,0,1,1,2,2,3,3,4
3692
        @%points_2%size 400,400%xrange -10,10%yrange -10,10%opacity 255,255%linewidth 1%onclick%points red,0,0,1,1,2,2,3,3%onclick%points blue,0,1,1,2,2,3,3,4
11806 schaersvoo 3693
        */
8363 schaersvoo 3694
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
3695
            fill_color = stroke_color;
3696
            i=0;
3697
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 3698
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
8363 schaersvoo 3699
                if(i%2 == 0 ){
3700
                    double_data[i] = get_real(infile,0); /* x */
3701
                }
3702
                else
3703
                {
3704
                    double_data[i] = get_real(infile,1); /* y */
3705
                }
3706
                i++;
3707
            }
15111 schaersvoo 3708
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
3709
            if(use_affine == TRUE ){ transform(i-1,2);}
3710
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
8363 schaersvoo 3711
            decimals = find_number_of_digits(precision);
11806 schaersvoo 3712
            for(c = 0 ; c < i-1 ; c = c+2){
15111 schaersvoo 3713
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,2,[%.*f],[%.*f],[%.2f],[%d],%.2f,\"%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+1],1.5*line_width,line_width,1.5*line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,1,0,0,0,use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
3714
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
3715
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,2,[%.*f],[%.*f],[%.2f],[%d],%.2f,\"%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+1],1.5*line_width,line_width,1.5*line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,1,0,0,0,use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
3716
                add_to_buffer(tmp_buffer);
3717
                /* object_cnt++; */
3718
                if(onclick != 0){object_cnt++;}
8363 schaersvoo 3719
            }
15111 schaersvoo 3720
            dragstuff[2] = 1;
3721
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
8363 schaersvoo 3722
            reset();
3723
            break;
11806 schaersvoo 3724
 
3725
        case POLY:
3726
        /*
3727
        @ poly color,x1,y1,x2,y2...x_n,y_n
3728
        @ polygon color,x1,y1,x2,y2...x_n,y_n
3729
        @ draw closed polygon
14071 bpr 3730
        @ use command ''fpoly`` to fill it or use keyword <a href='#filled'>filled</a>
11806 schaersvoo 3731
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
12107 schaersvoo 3732
        @%polygon_1%size 400,400%xrange -10,10%yrange -10,10%opacity 255,25%fillcolor orange%filled%linewidth 2%drag xy%snaptogrid%poly blue,0,0,1,3,3,1,2,4,-1,3
3733
        @%polygon_2%size 400,400%xrange -10,10%yrange -10,10%opacity 255,25%fillcolor orange%filled%linewidth 1%onclick%poly green,0,0,1,3,3,1,2,4,-1,3
11806 schaersvoo 3734
        */
3735
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
3736
            i=0;
3737
            c=0;
3738
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 3739
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
11806 schaersvoo 3740
                for( c = 0 ; c < 2; c++){
3741
                    if(c == 0 ){
3742
                        double_data[i] = get_real(infile,0);
3743
                        i++;
3744
                    }
3745
                    else
3746
                    {
3747
                        double_data[i] = get_real(infile,1);
3748
                        i++;
3749
                    }
3750
                }
3751
            }
15111 schaersvoo 3752
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
3753
            if(use_affine == TRUE ){ transform(i-1,2);}
3754
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
3755
 
14066 bpr 3756
            /* draw path:  closed & optional filled */
15111 schaersvoo 3757
            decimals = find_number_of_digits(precision);
3758
            string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,%s,[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,double_xy2js_array(double_data,i,decimals),line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
3759
            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
3760
            snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,%s,[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,double_xy2js_array(double_data,i,decimals),line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
3761
            add_to_buffer(tmp_buffer);
3762
            if(onclick != 0){object_cnt++;}
3763
            reset();
3764
            dragstuff[5] = 1;
3765
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 3766
            break;
3767
 
7614 schaersvoo 3768
        case POLYLINE:
3769
        /*
3770
        @ polyline color,x1,y1,x2,y2...x_n,y_n
10975 schaersvoo 3771
        @ brokenline color,x1,y1,x2,y2...x_n,y_n
3772
        @ path color,x1,y1,x2,y2...x_n,y_n
14086 bpr 3773
        @ remark: there is <b>no</b> command polylines | brokenlines | paths ... just use multiple commands <code>polyline, x1,y1,x2,y2...x_n,y_n</code>
3774
        @ remark: there are commands <code>userdraw path(s),color</code> and <code>userdraw polyline,color</code>... these are two entirely different things ! the path(s) userdraw commands may be used for freehand drawing(s)<br />the polyline userdraw command is analogue to this polyline|brokenline command
10975 schaersvoo 3775
        @ the command interconnects the points in the given order with a line (canvasdraw will not close the drawing: use command <a href="#poly">polygon</a> for this)
14071 bpr 3776
        @ use command <a href='#segments'>segments</a> for a series of segments. These may be clicked/dragged individually
9406 schaersvoo 3777
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
12107 schaersvoo 3778
        @%polyline_1%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%drag xy%snaptogrid%polyline blue,0,0,1,3,3,1,2,4,-1,3
3779
        @%polyline_2%size 400,400%xrange -10,10%yrange -10,10%linewidth 1%onclick%polyline green,0,0,1,3,3,1,2,4,-1,3
7614 schaersvoo 3780
        */
13829 bpr 3781
 
7614 schaersvoo 3782
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
3783
            i=0;
3784
            c=0;
3785
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 3786
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
7614 schaersvoo 3787
                for( c = 0 ; c < 2; c++){
3788
                    if(c == 0 ){
3789
                        double_data[i] = get_real(infile,0);
3790
                        i++;
3791
                    }
3792
                    else
3793
                    {
3794
                        double_data[i] = get_real(infile,1);
3795
                        i++;
3796
                    }
3797
                }
3798
            }
15111 schaersvoo 3799
 
3800
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
3801
            if(use_affine == TRUE ){ transform(i-1,2);}
3802
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
3803
 
14066 bpr 3804
            /* draw path: not closed & not filled */
7614 schaersvoo 3805
            decimals = find_number_of_digits(precision);
15111 schaersvoo 3806
            string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,%s,[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,double_xy2js_array(double_data,i,decimals),line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
3807
            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
3808
            snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,%s,[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,double_xy2js_array(double_data,i,decimals),line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
3809
            add_to_buffer(tmp_buffer);
3810
            if(onclick != 0){object_cnt++;}
3811
            /* object_cnt++;*/
8379 schaersvoo 3812
            reset();
15111 schaersvoo 3813
            dragstuff[4] = 1;
3814
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
7614 schaersvoo 3815
            break;
11806 schaersvoo 3816
 
3817
        case POPUP:
3818
            /*
3819
            @ popup
3820
            @ keyword (no arguments)
14086 bpr 3821
            @ if fly-script starts with keyword ''popup``, the canvas image will be exclusively in a popup window (xsize px &times; ysize px)
14071 bpr 3822
            @ if keyword ''popup`` is used after command <code>size xsize,ysize</code> the canvas will also be displayed in a popup window with size ''xsize &times; ysize``
15309 schaersvoo 3823
            @ the popup window will be embedded into the page as a normal image, when ''status=done``; override with keyword <a href="#status">nostatus</a>
16844 bpr 3824
            @ to access the read_canvas and read_dragdrop functions in a popup window, use:<br /> <code> function read_all(){<br /> if( typeof popup !== 'undefined' ){<br /> var fun1 = popup['read_dragdrop'+canvas_scripts[0]];<br />var fun2 = popup['read_canvas'+canvas_scripts[0]];<br /> popup.close();<br /> return "dragdrop="+fun1()+"\\ncanvas="+fun2();<br /> };</code>
14071 bpr 3825
            @ to set a canvasdraw produced <a href="#clock">clock</a> or multiple clocks...use something like: <code>popup.set_clock(clock_id,type,diff);</code> as js-function for a button (or something else) in your document page.<br />where in <b>clock_id</b> starts with 0 for the first clock<br /><b>type</b> is 1 for Hours,2 for Minutes and 3 for Seconds<br /><b>diff</b> is the increment (positive or negative) per click
15313 schaersvoo 3826
            @%popup%popup%size 400,400%xrange -2*pi,2*pi%yrange -5,5%precision 0%axis%axisnumbering%opacity 100,190%grid 1,1,grey,2,2,5,black%linewidth 4%fillcolor blue%trange -pi,pi%animate%linewidth 1%precision 1000%jsplot red,4*cos(2*x),2*sin(3*x-pi/6)%strokecolor green%functionlabel H(x)=%userinput function
11806 schaersvoo 3827
            */
3828
            use_tooltip = 2;
3829
            break;
3830
 
3831
        case PROTRACTOR:
7614 schaersvoo 3832
        /*
11806 schaersvoo 3833
         @ protractor x,y,x_width,type,mode,use_a_scale
3834
         @ x,y are the initial location
14066 bpr 3835
         @ x_width: give the width in x-coordinate system (e.g. not in pixels !)
14246 bpr 3836
         @ type = 1: a triangle range 0 - 180<br />type = 2: a circle shape 0 - 360
14066 bpr 3837
         @ mode: use -1 to set the protractor interactive (mouse movement of protractor)<br />use mode = '0&deg; - 360&deg;' to set the protractor with a static angle of some value
11806 schaersvoo 3838
         @ if the value of the user_rotation angle is to be shown...use command <a href='#display'>display degree,color,fontsize</a><a href='#display'>display radian,color,fontsize</a>
14066 bpr 3839
         @ use_scale = 1: the protractor will have some scale values printed; use_scale=0 to disable
11806 schaersvoo 3840
         @ the rotating direction of the mouse around the protractor determines the clockwise/ counter clockwise rotation of the protractor...
14071 bpr 3841
         @ commands ''stroke_color | fill_color | linewidth | opacity | font_family`` will determine the looks of the protractor.
3842
         @ default replyformat: reply[0] = x;reply[1] = y;reply[2] = angle_in_radians<br />use command ''precision`` to set the reply precision.
11806 schaersvoo 3843
         @ if combined with a ruler, use replyformat = 32
14071 bpr 3844
         @ command <code>snap_to_grid</code> may be used to assist the pupil at placing the protractor
3845
         @ when using command ''zoom``, pay <b>attention</b> to the size and symmetry of your canvas<br />...to avoid a partial image, locate the start position near the center of the visual canvas<br />technical: the actual ''protractor`` is just a static generated image in a new canvas-memory<br />This image is only generated once, and a copy of its bitmap is translated & rotated onto the visible canvas.<br />That is the reason for the ''high-speed dragging and rotating``.<br />I've limited its size to xsize &times; ysize e.g. the same size as the visual canvas...
11806 schaersvoo 3846
         @ only one protractor allowed (for the time being)
15111 schaersvoo 3847
         @ usage: first left click on the protractor will activate dragging;<br />a second left click will activate rotating (just move mouse around)<br />a third click will freeze this position and the x/y-coordinate and angle in radians will be stored in reply(3)<br />a next click will restart this sequence...
15313 schaersvoo 3848
         @%protractor%size 400,400%xrange -5,10%yrange -5,10%hline 0,0,black%vline 0,0,black%fillcolor orange%opacity 255,40%protractor 2,-2,6,0,-1,1,1%mouse red,22
7614 schaersvoo 3849
        */
11806 schaersvoo 3850
            for( i = 0;i < 6; i++ ){
3851
                switch(i){
3852
                    case 0: double_data[0] = get_real(infile,0);break; /* x-center */
3853
                    case 1: double_data[1] = get_real(infile,0);break; /* y-center */
3854
                    case 2: double_data[2] = get_real(infile,0);break; /* x-width */
3855
                    case 3: int_data[0] = (int)(get_real(infile,0));break; /* type: 1==triangle 2 == circle */
3856
                    case 4: int_data[1] = (int)(get_real(infile,0));break; /* passive mode == 0; active mode == -1 */
3857
                    case 5: int_data[2] = (int)(get_real(infile,1)); /* use scale */
3858
                    decimals = find_number_of_digits(precision);
11821 schaersvoo 3859
                    if( int_data[1] < 0 ){ js_function[JS_FIND_ANGLE] = 1;}
15111 schaersvoo 3860
                    add_js_protractor(int_data[0],double_data[0],double_data[1],double_data[2],font_family,stroke_color,stroke_opacity,fill_color,fill_opacity,line_width,int_data[2],int_data[1],use_snap);
11806 schaersvoo 3861
 
14208 schaersvoo 3862
                    string_length = 1 + snprintf(NULL,0,";protractor%d(); ",canvas_root_id);
3863
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11806 schaersvoo 3864
                    snprintf(tmp_buffer,string_length,";protractor%d(); ",canvas_root_id);
3865
                    add_to_buffer(tmp_buffer);
3866
                    reply_precision = precision;
3867
                    /* no reply from protractor if non-interactive */
3868
                    if( reply_format == 0 && int_data[1] == -1 ){reply_format = 30;}
15111 schaersvoo 3869
                    js_function[INTERACTIVE] = 1;
11806 schaersvoo 3870
                    break;
3871
                    default: break;
3872
                }
3873
            }
3874
            break;
3875
 
3876
        case PIXELS:
3877
        /*
3878
        @ pixels color,x1,y1,x2,y2,x3,y3...
3879
        @ draw rectangular "points" with diameter 1 pixel
3880
        @ pixels can <b>not</b> be dragged or clicked
14086 bpr 3881
        @ "pixelsize = 1" may be changed by command <code>pixelsize int</code>
12111 schaersvoo 3882
        @%pixels%size 400,400%opacity 255,255%pixelsize 5%pixels red,1,1,2,2,3,3,4,4,5,5,10,10,20,20,30,30,40,40,50,50,60,60,70,70,80,80,90,90,100,100,120,120,140,140,160,160,180,180,200,200,240,240,280,280,320,320,360,360,400,400%#NOTE pixelsize=5...otherwise you will not see them clearly...
11806 schaersvoo 3883
        */
15111 schaersvoo 3884
            js_function[DRAW_PIXELS] = 1;
11806 schaersvoo 3885
            stroke_color=get_color(infile,0);
7614 schaersvoo 3886
            i=0;
3887
            c=0;
3888
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 3889
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
7614 schaersvoo 3890
                for( c = 0 ; c < 2; c++){
3891
                    if(c == 0 ){
3892
                        double_data[i] = get_real(infile,0);
3893
                        i++;
3894
                    }
3895
                    else
3896
                    {
3897
                        double_data[i] = get_real(infile,1);
3898
                    }
3899
                }
3900
            }
15111 schaersvoo 3901
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
3902
            if(use_affine == TRUE ){ transform(i-1,2);}
11806 schaersvoo 3903
            decimals = find_number_of_digits(precision);
3904
            /*  *double_xy2js_array(double xy[],int len,int decimals) */
14208 schaersvoo 3905
            string_length = 1 + snprintf(NULL,0,  "draw_setpixel(%s,\"%s\",%.2f,%d);\n",double_xy2js_array(double_data,i,decimals),stroke_color,stroke_opacity,pixelsize);
3906
            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11806 schaersvoo 3907
            snprintf(tmp_buffer,string_length,"draw_setpixel(%s,\"%s\",%.2f,%d);\n",double_xy2js_array(double_data,i,decimals),stroke_color,stroke_opacity,pixelsize);
3908
            add_to_buffer(tmp_buffer);
3909
            reset();
7614 schaersvoo 3910
            break;
11806 schaersvoo 3911
 
3912
        case PIXELSIZE:
7614 schaersvoo 3913
        /*
11806 schaersvoo 3914
        @ pixelsize int
3915
        @ in case you want to deviate from default pixelsize = 1(...)
12111 schaersvoo 3916
        @ pixelsize 100 is of course a filled rectangle 100px &times; 100px
7614 schaersvoo 3917
        */
11806 schaersvoo 3918
            pixelsize = (int) get_real(infile,1);
3919
        break;
8105 schaersvoo 3920
 
11806 schaersvoo 3921
        case PIECHART:
7614 schaersvoo 3922
        /*
11806 schaersvoo 3923
        @ piechart xc,yc,radius,'data+colorlist'
14066 bpr 3924
        @ (xc: yc) center of circle diagram in xrange/yrange
11806 schaersvoo 3925
        @ radius in pixels
3926
        @ 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
14066 bpr 3927
        @ example data+colorlist: 32:red:65:green:23:black:43:orange:43:yellow:14:white
11806 schaersvoo 3928
        @ the number of colors must match the number of data.
14066 bpr 3929
        @ if defined <a href='#fillpattern'>fillpattern some_pattern</a> then the pie pieces will be filled with the respective color and a fill pattern...<br />the pattern is cycled from the 4 pattern primitives: grid,hatch,diamond,dot,grid,hatch,diamond,dot,...
14086 bpr 3930
        @ use command <a href='#opacity'>opacity</a> to adjust fill_opacity of colours
3931
        @ use command <a href='#legend'>legend</a> to automatically create a legend using the same colours as pie segments; unicode allowed in legend; expect javascript trouble if the amount of ''pie-slices``, ''pie-colors``, ''pie-legend-titles`` do not match, a javascript console is your best friend...<br />use command ''fontfamily`` to set the font of the legend.
14066 bpr 3932
        @ use command <a href='centered'>centered</a> to place <a href='#legend'>legend</a> text inside the piechart. The text is using the same color as the pie segment: use (fill) opacity to enhance visibility.
12538 schaersvoo 3933
        @%piechart_1%size 300,200%xrange -10,10%yrange -10,10%legend cars:motorcycles:bicycles:trikes%opacity 255,120%piechart -5,0,75,22:red:8:blue:63:green:7:purple%
15313 schaersvoo 3934
        @%piechart_2%size 200,200%xrange -10,10%yrange -10,10%fontfamily 16px Arial%centered%legend cars:motorcycles:bicycles:trikes%opacity 255,60%piechart 0,0,100,22:red:8:blue:63:green:7:purple
7614 schaersvoo 3935
        */
15111 schaersvoo 3936
            js_function[DRAW_PIECHART] = 1;
7614 schaersvoo 3937
            for(i=0;i<5;i++){
3938
                switch(i){
11806 schaersvoo 3939
                    case 0: int_data[0] = x2px(get_real(infile,0)); break; /* x */
14032 schaersvoo 3940
                    case 1: int_data[1] = y2px(get_real(infile,0)); break; /* y  */
11806 schaersvoo 3941
                    case 2: int_data[2] = (int)(get_real(infile,1));break;/* radius*/
3942
                    case 3: temp = get_string(infile,1);
3943
                            if( strstr( temp, ":" ) != 0 ){ temp = str_replace(temp,":","\",\"");}
14208 schaersvoo 3944
                            string_length = 1 + snprintf(NULL,0,"draw_piechart(%d,%d,%d,%d,[\"%s\"],%.2f,%d,\"%s\",%d,%d);\n",PIECHART,int_data[0],int_data[1],int_data[2],temp,fill_opacity,legend_cnt,font_family,use_filled,use_offset);
3945
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
12538 schaersvoo 3946
                            snprintf(tmp_buffer,string_length,"draw_piechart(%d,%d,%d,%d,[\"%s\"],%.2f,%d,\"%s\",%d,%d);\n",PIECHART,int_data[0],int_data[1],int_data[2],temp,fill_opacity,legend_cnt,font_family,use_filled,use_offset);
11806 schaersvoo 3947
                            add_to_buffer(tmp_buffer);
3948
                           break;
3949
                    default:break;
7614 schaersvoo 3950
                }
3951
            }
11806 schaersvoo 3952
            reset();
7614 schaersvoo 3953
        break;
16832 bpr 3954
 
15773 schaersvoo 3955
        case RANGE:
3956
        /*
3957
        @ range xmin,xmax,ymin,ymax
3958
        @ if not given: 0,xsize,0,ysize (eg in pixels)
3959
        */
3960
            for(i = 0 ; i<4; i++){
3961
                switch(i){
3962
                    case 0: xmin = get_real(infile,0);break;
3963
                    case 1: xmax = get_real(infile,1);break;
3964
                    case 2: ymin = get_real(infile,0);break;
3965
                    case 3: ymax = get_real(infile,1);break;
3966
                    default: break;
3967
                }
3968
            }
3969
            if(xmin >= xmax){canvas_error(" xrange is not OK: xmin &lt; xmax !");}
3970
            if(ymin >= ymax){canvas_error(" yrange is not OK: ymin &lt; ymax !");}
3971
            fprintf(js_include_file,"var xmin = %f;var xmax = %f;var ymin = %f;var ymax = %f;",xmin,xmax,ymin,ymax);
3972
            found_size_command = found_size_command+2;
3973
            break;
8304 schaersvoo 3974
 
15773 schaersvoo 3975
 
7614 schaersvoo 3976
        case RAYS:
3977
        /*
3978
         @ rays color,xc,yc,x1,y1,x2,y2,x3,y3...x_n,y_n
15111 schaersvoo 3979
         @ draw rays in color 'color' and center (xc:yc)
7786 schaersvoo 3980
         @ may be set draggable or onclick (every individual ray)
12111 schaersvoo 3981
         @%rays_onclick%size 400,400%xrange -10,10%yrange -10,10%onclick%rays blue,0,0,3,9,-3,5,-4,0,4,-9,7,9,-8,1,-1,-9
3982
         @%rays_drag_xy%size 400,400%xrange -10,10%yrange -10,10%drag xy%rays blue,0,0,3,9,-3,5,-4,0,4,-9,7,9,-8,1,-1,-9
7614 schaersvoo 3983
        */
3984
            stroke_color=get_color(infile,0);
7786 schaersvoo 3985
            fill_color = stroke_color;
3986
            double_data[0] = get_real(infile,0);/* xc */
3987
            double_data[1] = get_real(infile,0);/* yc */
3988
            i=2;
3989
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 3990
                if(i > MAX_INT - 1){canvas_error("in command rays too many points / rays in argument: repeat command multiple times to fit");}
7786 schaersvoo 3991
                if(i%2 == 0 ){
3992
                    double_data[i] = get_real(infile,0); /* x */
7614 schaersvoo 3993
                }
7786 schaersvoo 3994
                else
3995
                {
3996
                    double_data[i] = get_real(infile,1); /* y */
7614 schaersvoo 3997
                }
7786 schaersvoo 3998
            fprintf(js_include_file,"/* double_data[%d] = %f */\n",i,double_data[i]);
3999
                i++;
7614 schaersvoo 4000
            }
15111 schaersvoo 4001
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
4002
            if(use_affine == TRUE ){ transform(i-1,2);}
8224 bpr 4003
            if( i%2 != 0 ){canvas_error("in command rays: unpaired x or y value");}
4004
            decimals = find_number_of_digits(precision);
15111 schaersvoo 4005
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
7786 schaersvoo 4006
            for(c=2; c<i;c = c+2){
15111 schaersvoo 4007
                string_length = 1 + snprintf(NULL,0,"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[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,my_sliders,rotation_center,use_offset);
4008
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4009
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[30,30],[30,30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[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,my_sliders,rotation_center,use_offset);
4010
                add_to_buffer(tmp_buffer);
4011
                /* object_cnt++; */
4012
                if(onclick != 0){object_cnt++;}
7614 schaersvoo 4013
            }
4014
            reset();
15111 schaersvoo 4015
            dragstuff[4] = 1;
4016
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
7614 schaersvoo 4017
            break;
8304 schaersvoo 4018
 
11806 schaersvoo 4019
        case RECT:
8386 schaersvoo 4020
        /*
11806 schaersvoo 4021
        @ rect x1,y1,x2,y2,color
14071 bpr 4022
        @ use command <code>frect x1,y1,x2,y2,color</code> for a filled rectangle
14246 bpr 4023
        @ use command/keyword <a href='#filled'>filled</a> before command <code>rect x1,y1,x2,y2,color</code>
9406 schaersvoo 4024
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
15541 schaersvoo 4025
        @ note: internally a rect is defined with 4 points. So when performing some affine transformation, other than translation, it will result in some morphing of the rectangle !<br/>this is a deviation of flydraw's rect&amp;affine
12111 schaersvoo 4026
        @%rect%size 400,400%xrange -10,10%yrange -10,10%rect 0,0,4,-4,green%rect 0,5,4,1,red
8386 schaersvoo 4027
        */
11806 schaersvoo 4028
            for(i=0;i<5;i++){
4029
                switch(i){
4030
                    case 0:double_data[0] = get_real(infile,0);break; /* x-values */
4031
                    case 1:double_data[1] = get_real(infile,0);break; /* y-values */
15111 schaersvoo 4032
                    case 2:double_data[4] = get_real(infile,0);break; /* x-values */
4033
                    case 3:double_data[5] = get_real(infile,0);break; /* y-values */
11806 schaersvoo 4034
                    case 4:stroke_color = get_color(infile,1);/* name or hex color */
8386 schaersvoo 4035
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 4036
                        double_data[2] = double_data[4];
4037
                        double_data[3] = double_data[1];
4038
                        double_data[6] = double_data[0];
4039
                        double_data[7] = double_data[5];
4040
                        /* using closed PATH (type=5) in stead of ctx.rect (type=1)!!!
4041
                            0,1         2,3
4042
                            6,7         4,5
4043
                            x = [0,2,4,6]
4044
                            y = [1,3,5,7]
4045
                        */
4046
                        if(use_rotate == TRUE ){rotate(8,angle,rotationcenter,2);}
4047
                        if(use_affine == TRUE ){ transform(8,2);}
4048
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
4049
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,[%.*f,%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f,%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[2],decimals,double_data[4],decimals,double_data[6],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],decimals,double_data[7],line_width,line_width,line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
4050
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4051
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,[%.*f,%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f,%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[2],decimals,double_data[4],decimals,double_data[6],decimals,double_data[1],decimals,double_data[3],decimals,double_data[5],decimals,double_data[7],line_width,line_width,line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
4052
                        add_to_buffer(tmp_buffer);
4053
                        if(onclick != 0){object_cnt++;}
4054
                        /* object_cnt++; */
8386 schaersvoo 4055
                        reset();
4056
                        break;
11806 schaersvoo 4057
                }
4058
            }
15111 schaersvoo 4059
            dragstuff[5] = 1;
4060
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 4061
            break;
8386 schaersvoo 4062
 
11806 schaersvoo 4063
        case RECTS:
8304 schaersvoo 4064
        /*
11806 schaersvoo 4065
        @ rects color,x1,y1,x2,y2,.....
14071 bpr 4066
        @ use command <code>frect color,x1,y1,x2,y2,.....</code> for a filled rectangle
14246 bpr 4067
        @ use command/keyword <a href='#filled'>filled</a> before command <code>rects color,x1,y1,x2,y2,....</code>
14071 bpr 4068
        @ use command <code>fillcolor color</code> before ''frects`` to set the fill colour.
9406 schaersvoo 4069
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually
12111 schaersvoo 4070
        @%rects%size 400,400%xrange -10,10%yrange -10,10%rects red,0,0,4,-4,0,5,4,1
8304 schaersvoo 4071
        */
15111 schaersvoo 4072
        /* using closed PATH (type=5) in stead of ctx.rect (type=1)!!!
4073
        0,1     2,3 .....8,9    10,11.....
4074
        6,7     4,5 .....14,15  12,13.....
4075
        x = [0,2,4,6,8,10,12,14...]
4076
        y = [1,3,5,7,9,11,13,15...]
4077
        */
8304 schaersvoo 4078
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
4079
            fill_color = stroke_color;
4080
            i=0;
4081
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 4082
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
8304 schaersvoo 4083
                if(i%2 == 0 ){
4084
                    double_data[i] = get_real(infile,0); /* x */
4085
                }
4086
                else
4087
                {
4088
                    double_data[i] = get_real(infile,1); /* y */
4089
                }
4090
                i++;
4091
            }
15111 schaersvoo 4092
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
4093
            if(use_affine == TRUE ){ transform(i-1,2);}
4094
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
15116 bpr 4095
 
8304 schaersvoo 4096
            decimals = find_number_of_digits(precision);
4097
            for(c = 0 ; c < i-1 ; c = c+4){
15111 schaersvoo 4098
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,[%.*f,%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f,%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+2],decimals,double_data[c],decimals,double_data[c+1],decimals,double_data[c+1],decimals,double_data[c+3],decimals,double_data[c+3],line_width,line_width,line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
4099
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4100
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,[%.*f,%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f,%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+2],decimals,double_data[c],decimals,double_data[c+1],decimals,double_data[c+1],decimals,double_data[c+3],decimals,double_data[c+3],line_width,line_width,line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
4101
                add_to_buffer(tmp_buffer);
4102
                if(onclick != 0){object_cnt++;}
4103
                /* object_cnt++; */
8304 schaersvoo 4104
            }
15111 schaersvoo 4105
            dragstuff[5] = 1;
4106
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
4107
            if(use_rotate == TRUE ){
4108
             rotate(i-1,angle,rotationcenter,2);
4109
            }
8304 schaersvoo 4110
            reset();
4111
            break;
8386 schaersvoo 4112
 
11806 schaersvoo 4113
        case REPLYFORMAT:
7614 schaersvoo 4114
        /*
11806 schaersvoo 4115
        @ replyformat number
4116
        @ use number=-1 to deactivate the js-functions read_canvas() and read_dragdrop()
4117
        @ default values should be fine !
14071 bpr 4118
        @ use command <code>precision [0,1,10,100,1000,10000...]</code> before command ''replyformat`` to set the desired number of decimals in the student reply / drawing
14246 bpr 4119
        @ the last value for ''precision int`` will be used to calculate the reply coordinates, if needed (read_canvas();)
15651 reyssat 4120
        @ choose<ul><li>replyformat 1: <code>x1,x2,x3,x4....x_n<br />y1,y2,y3,y4....y_n</code> x/y in pixels</li><li>replyformat 2: <code> x1,x2,x3,x4....x_n<br /> y1,y2,y3,y4....y_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 3: <code> x1,x2,x3,x4....x_n<br /> y1,y2,y3,y4....y_n<br /> r1,r2,r3,r4....r_n</code> x/y in pixels, r in pixels</li><li>replyformat 4: <code> x1,x2,x3,x4....x_n<br /> y1,y2,y3,y4....y_n<br /> r1,r2,r3,r4....r_n</code> x/y in xrange / yrange coordinate system, r in pixels</li><li>replyformat 5: <code> Ax1,Ax2,Ax3,Ax4....Ax_n<br /> Ay1,Ay2,Ay3,Ay4....Ay_n<br /> Bx1,Bx2,Bx3,Bx4....Bx_n<br /> By1,By2,By3,By4....By_n<br /> Cx1,Cx2,Cx3,Cx4....Cx_n<br />  Cy1,Cy2,Cy3,Cy4....Cy_n<br />  ....<br />  Zx1,Zx2,Zx3,Zx4....Zx_n<br /> Zy1,Zy2,Zy3,Zy4....Zy_n</code> x/y in pixels</li><li>replyformat 6: <code> Ax1,Ax2,Ax3,Ax4....Ax_n<br /> Ay1,Ay2,Ay3,Ay4....Ay_n<br /> Bx1,Bx2,Bx3,Bx4....Bx_n<br /> By1,By2,By3,By4....By_n<br /> Cx1,Cx2,Cx3,Cx4....Cx_n<br /> Cy1,Cy2,Cy3,Cy4....Cy_n<br /> ....<br /> Zx1,Zx2,Zx3,Zx4....Zx_n<br /> Zy1,Zy2,Zy3,Zy4....Zy_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 7: <code> x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n</code> x/y in pixels</li><li>replyformat 8: <code> x1:y1,x2:y2,x3:y3,x4:y4...x_n:y_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 9: <code> x1:y1:r1,x2:y2:r2,x3:y3:r3,x4:y4:r3...x_n:y_n:r_n</code> x/y in pixels</li><li>replyformat 10: <code> x1:y1:r1,x2:y2:r2,x3:y3:r3,x4:y4:r3...x_n:y_n:r_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 11: <code> Ax1,Ay1,Ax2,Ay2<br />Bx1,By1,Bx2,By2<br /> Cx1,Cy1,Cx2,Cy2<br /> Dx1,Dy1,Dx2,Dy2<br /> ......<br /> Zx1,Zy1,Zx2,Zy2</code> x/y in xrange / yrange coordinate system</li><li>replyformat 12: <code> Ax1,Ay1,Ax2,Ay2<br /> Bx1,By1,Bx2,By2<br />Cx1,Cy1,Cx2,Cy2<br /> Dx1,Dy1,Dx2,Dy2<br /> ......<br /> Zx1,Zy1,Zx2,Zy2</code> x/y in pixels</li><li>replyformat 13: <code> Ax1:Ay1:Ax2:Ay2,Bx1:By1:Bx2:By2,Cx1:Cy1:Cx2:Cy2,Dx1:Dy1:Dx2:Dy2, ... ,Zx1:Zy1:Zx2:Zy2</code> x/y in xrange / yrange coordinate system</li><li>replyformat 14: <code> Ax1:Ay1:Ax2:Ay2,Bx1:By1:Bx2:By2....Zx1:Zy1:Zx2:Zy2</code> x/y in pixels</li><li>replyformat 15: reply from inputfields,textareas <code>reply1,reply2,reply3,...,reply_n</code></li><li>replyformat 16: mathml input fields</li><li>replyformat 17: read ''userdraw text,color`` only <code>x1,y1,text1 \\n x2,y2,text2...\\n...x_n,y_n,text_n </code> x/y-values are in xrange/yrange</li><li>replyformat 18: read_canvas() will read all interactive clocks in <code>H1:M1:S1,H2:M2:S2...Hn:Mn:Sn</code></li><li>replyformat 19: read_canvas() will return the object number of marked / clicked object (clock), analogue to (shape library) onclick command</li><li>replyformat 20: read_canvas() will reply "object_number:x:y" of external images: object_number of the first draggable external image in the fly-script starts with 0, e.g. expect something like 0:-5:4,1:6:2,2:-2:-5, the first image position is (-5:4), the second image position is (6:2) and the third image position is (-2:-5)         <li>replyformat 21: <code> (x1:y1) (x2:y2) ... (x_n:y_n)</code> verbatim coordinate return</li><li>replyformat 22: returns an array .... <code>reply[0]=x1 reply[1]=y1 reply[2]=x2 reply[3]=y2 ... reply[n-1]=x_n reply[n]=y_n</code> x/y in xrange / yrange coordinate system</li><li>replyformat 23: can only be used for drawtype ''polyline``. A typical click sequence in drawtype polyline is x1,y1,x2,y2,x2,y2,x3,y3,x3,y3.....,x(n-1),y(n-1),x(n-1),y(n-1),xn,yn --replyformat 23 gives <code>x1,y1,x2,y2,x3,y3,.....x(n-1),y(n-1),xn,yn</code>; multiple occurences will be filtered out. The reply will be in x-y-range (xreply \\n yreply)</li><li>replyformat 24: read all inputfield values: even those set ''readonly``</li><li>replyformat 25: <code> angle1,angle2;...;angle_n</code> will return the radius (one or many) of the user drawn circle segment in degrees</li><li>replyformat 26: <code> rad1,rad2,...rad_n</code> will return the radius (one or many) of the user drawn circle segment in radians</li><li>replyformat 27: return (only) userdraw inputfields <code>x1,y1,text1<br /> x2,y2,text2...<br />...x_n,y_n,textn</code></li><li>replyformat 28: <code> x1,y1,r1,x2,y2,r2...x_n,y_n,r_n</code> x / y / r in xrange / yrange coordinate system: may be used to reinput into command <code>circles color,x1,y1,r1,x2,y2,r2...x_n,y_n,r_n</code> will not return anything else (e.g. no inputfields, text etc)</li><li>replyformat 34: a special for OEF and dragging external images -included via commands <a href='#copy'>copy</a> or <a href='#copyresized'>copyresized</a> there will be an extra function <code>read_canvas_images()</code> for reading the coordinates of the images.<br />for now this is a unique function, e.g. there is no ''canvas id`` linked to it. (TO DO !!! 18/5/2019)</li></ul>
16718 schaersvoo 4121
        @ special replyformat = 100 ; will access to the raw javascript object data...use: read_dragdrop([property,property,...])<br />for example  properies like 'clicked','text', 'angle' , 'x'
11806 schaersvoo 4122
        */
4123
         reply_format = (int) get_real(infile,1);
4124
         reply_precision = precision;
4125
        break;
4126
 
4127
        case ROUNDRECT:
4128
        /*
4129
        @ roundrect x1,y1,x2,y2,radius in px,color
14071 bpr 4130
        @ use command <code>froundrect x1,y1,x2,y2,radius,color</code> for a filled rectangle
4131
        @ use command/keyword <a href='#filled'>filled</a> before command <code>roundrect x1,y1,x2,y2,radius,color</code>
4132
        @ fillcolor will be identical to ''color``
9406 schaersvoo 4133
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
12111 schaersvoo 4134
        @%roundrect%size 400,400%xrange -10,10%yrange -10,10%roundrect 0,0,4,-4,20,green%roundrect 0,5,4,1,10,red
7614 schaersvoo 4135
        */
11806 schaersvoo 4136
            for(i=0;i<6;i++){
4137
                switch(i){
4138
                    case 0:double_data[0] = get_real(infile,0);break; /* x-values */
4139
                    case 1:double_data[1] = get_real(infile,0);break; /* y-values */
4140
                    case 2:double_data[2] = get_real(infile,0);break; /* x-values */
4141
                    case 3:double_data[3] = get_real(infile,0);break; /* y-values */
4142
                    case 4:int_data[0] = (int) (get_real(infile,0));break; /* radius value in pixels */
4143
                    case 5:stroke_color = get_color(infile,1);/* name or hex color */
15111 schaersvoo 4144
                        if(use_rotate == TRUE ){rotate(4,angle,rotationcenter,2);}
4145
                        if(use_affine == TRUE ){ transform(2,4);}
4146
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
11806 schaersvoo 4147
                        /* ensure no inverted roundrect is produced... */
4148
                        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];}
4149
                        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];}
7614 schaersvoo 4150
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 4151
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%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\",%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],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,my_sliders,rotation_center,use_offset);
4152
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4153
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%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\",%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],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,my_sliders,rotation_center,use_offset);
4154
                        add_to_buffer(tmp_buffer);
4155
                        if(onclick != 0){object_cnt++;}
4156
                        /* object_cnt++;*/
8379 schaersvoo 4157
                        reset();
11806 schaersvoo 4158
                    break;
4159
                }
4160
            }
15111 schaersvoo 4161
            dragstuff[6] = 1;
4162
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 4163
            break;
8386 schaersvoo 4164
 
11806 schaersvoo 4165
        case ROUNDRECTS:
8347 schaersvoo 4166
        /*
11806 schaersvoo 4167
        @ roundrects color,radius in px,x1,y1,x2,y2,x3,y3,x4,y4,....
14066 bpr 4168
        @ for filled roundrects use command/keyword <a href='#filled'>filled</a> before command
9406 schaersvoo 4169
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually
13935 bpr 4170
        @%roundrects%size 400,400%xrange -10,10%yrange -10,10%roundrects blue,5,0,0,4,-4,5,4,1,2
8347 schaersvoo 4171
        */
11806 schaersvoo 4172
 
8347 schaersvoo 4173
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
11806 schaersvoo 4174
            int_data[0] = (int) (get_real(infile,0)); /* radius value in pixels */
8347 schaersvoo 4175
            fill_color = stroke_color;
4176
            i=0;
4177
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 4178
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
8347 schaersvoo 4179
                if(i%2 == 0 ){
4180
                    double_data[i] = get_real(infile,0); /* x */
4181
                }
4182
                else
4183
                {
4184
                    double_data[i] = get_real(infile,1); /* y */
4185
                }
4186
                i++;
4187
            }
15111 schaersvoo 4188
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
4189
            if(use_affine == TRUE ){ transform(i-1,2);}
4190
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
8347 schaersvoo 4191
            decimals = find_number_of_digits(precision);
4192
            for(c = 0 ; c < i-1 ; c = c+4){
11806 schaersvoo 4193
                /* ensure no inverted roundrect is produced... */
4194
                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];}
4195
                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];}
15111 schaersvoo 4196
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%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\",%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],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,my_sliders,rotation_center,use_offset);
4197
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4198
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%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\",%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],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,my_sliders,rotation_center,use_offset);
4199
                add_to_buffer(tmp_buffer);
4200
                if(onclick != 0){object_cnt++;}
4201
                /* object_cnt++; */
8347 schaersvoo 4202
            }
15111 schaersvoo 4203
            dragstuff[6] = 1;
4204
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
8347 schaersvoo 4205
            reset();
4206
            break;
8386 schaersvoo 4207
 
11806 schaersvoo 4208
        case RULER:
7614 schaersvoo 4209
        /*
14078 bpr 4210
        @ ruler x,y,x-width,y-height,mode
11806 schaersvoo 4211
        @ x,y are the initial location
14078 bpr 4212
        @ x-width, y-height are the ruler dimensions width &amp; height in xy-coordinate system
14071 bpr 4213
        @ the ruler scale is by definition the x-scale, set by command ''xrange``. For example: a ruler x-width of 6 will have a scale ranging from 0 to 6
14066 bpr 4214
        @ mode: use -1 to set the ruler interactive (eg mouse movement of ruler; drag &amp; rotate)<br />use mode = '0&deg; - 360&deg;' to set the ruler with a static angle of some value
11806 schaersvoo 4215
        @ if combined with a protractor, use replyformat = 32
4216
        @ only one ruler allowed (for the time being)
15651 reyssat 4217
        @ when using command ''zoom``, pay <b>attention</b> to the size and symmetry of your canvas to avoid a partial image, locate the start position near the center of the visual canvas; technical: the actual ''ruler`` is just a static generated image in a new canvas-memory. This image is only generated once, and a copy of its bitmap is translated & rotated onto the visible canvas. That is the reason for the ''high-speed dragging and rotating``. I have limited its size to xsize &times; ysize e.g. the same size as the visual canvas...
14247 bpr 4218
        @ usage: first left click on the ruler will activate dragging; a second left click will activate rotating (just move mouse around), a third click will freeze this position and the x/y-coordinate and angle in radians will be stored in reply(3), a next click will restart this sequence...
15313 schaersvoo 4219
        @%ruler_interactive%size 800,400%xrange -10,10%yrange -10,10%strokecolor blue%opacity 200,50%filled%fillcolor lightgrey%ruler -9,0,10,2,-1%display degree,blue,22
4220
        @%ruler_set_degree_45%size 800,400%xrange -10,10%yrange -10,10%strokecolor blue%opacity 200,50%filled%fillcolor lightgrey%ruler 0,0,10,2,45
4221
        @%ruler_set_degree_125%size 800,400%xrange -10,10%yrange -10,10%strokecolor blue%opacity 200,50%filled%fillcolor lightgrey%ruler 0,0,10,2,125
7614 schaersvoo 4222
        */
11806 schaersvoo 4223
            for( i = 0;i < 5; i++ ){
7614 schaersvoo 4224
                switch(i){
11806 schaersvoo 4225
                    case 0: double_data[0] = get_real(infile,0);break; /* x-center */
4226
                    case 1: double_data[1] = get_real(infile,0);break; /* y-center */
4227
                    case 2: double_data[2] = get_real(infile,0);break; /* x-width */
4228
                    case 3: double_data[3] = get_real(infile,0);break; /* y-width */
4229
                    case 4: int_data[0] = (int)(get_real(infile,1)); /* passive mode */
4230
                    decimals = find_number_of_digits(precision);
4231
                    if( int_data[0] < 0 ){
15116 bpr 4232
                      js_function[JS_FIND_ANGLE] = 1;
11806 schaersvoo 4233
                    }
15111 schaersvoo 4234
                    add_js_ruler(double_data[0],double_data[1],double_data[2],double_data[3],font_family,stroke_color,stroke_opacity,fill_color,fill_opacity,line_width,int_data[0],use_snap);
14208 schaersvoo 4235
                    string_length = 1 + snprintf(NULL,0,";ruler%d(); ",canvas_root_id);
4236
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11806 schaersvoo 4237
                    snprintf(tmp_buffer,string_length,";ruler%d(); ",canvas_root_id);
4238
                    add_to_buffer(tmp_buffer);
4239
                    reply_precision = precision;
4240
                    /* no reply from ruler if non-interactive */
4241
                    if( reply_format == 0 && int_data[0] == -1 ){reply_format = 31;}
7614 schaersvoo 4242
                    break;
4243
                    default: break;
4244
                }
4245
            }
4246
            break;
8386 schaersvoo 4247
 
15111 schaersvoo 4248
        case RESETOFFSET:
4249
        /*
4250
         @ resetoffset
4251
         @ keyword ; use to restore text placement on the canvas to the real (x;y) coordinates of the left bottom corner of the text
4252
         @ may be active for commands <a href="#text">text</a> and <a href="#string">string</a> (e.g. objects in the drag/drop/onclick-librariy
4253
        */
4254
         use_offset = 0;
4255
         break;
11806 schaersvoo 4256
 
15111 schaersvoo 4257
        case ROTATE:
4258
        /*
4259
         @ rotate rotation_angle
4260
         @ angle in degrees
4261
         @ (only) the next object will be rotated is given angle
4262
         @ positive values rotate counter clockwise
4263
         @ attention: all objects will be rotated around their first point...<br /><code>rotate 45<br />triangle 1,1,5,1,3,4,red</code><br />will rotate 45 degrees around point (1:1)
4264
         @ if another rotation center is needed, use command <a href="#rotationcenter">rotationcenter xc,yc</a>.<br />to reset this rotationcenter, use keyword <a href="#killrotate">killrotate</a>
4265
         @ attention: rotate will mess up the interactivity of the rotated object <br />e.g. if combined with command <a href="#drag">drag xy</a> or keyword <a href="#onclick">onclick</a>: the mouse recognises the original -unrotated- coordinates of the object
4266
         @%rotate_1%size 400,400%xrange -10,10%yrange -10,10%fpoly yellow,0,0,4,3,2,5%rotate 45%fpoly violet,0,0,4,3,2,5%killrotate%rotate 90%fpoly violet,0,0,4,3,2,5%
4267
        */
4268
            use_rotate = TRUE;
4269
            angle = -1*(get_real(infile,1));/* -1: to be compatible with Flydraw... */
4270
            break;
4271
        case ROTATION_CENTER:
4272
        /*
4273
        @ rotationcenter x_center,y_center
4274
        @ define an rotation center in your x/y-coordinate system
4275
        @ wims will not check the validity of your input; use javascript console to debug any erors
4276
        @ if not defined a rotation will be around the first point of an object
4277
        @ to be used before command <a href="#rotate">rotate</a>
4278
        @ use <a href="#killrotate">killrotate</a> to reset to 'null' <br/>(eg. the rotationcenter of the next object(s) will be the first (x;y) coordinate of the object(s))
4279
        @ all other commands will use this rotation center, unless a <a href="#killrotation">killrotation</a> is given
4280
        @%rotationcenter%size 400,400%xrange -5,10%yrange -5,10%circles green,3,3,4.25%rotationcenter 3,3%opacity 255,80%fpoly yellow,0,0,4,3,2,5%rotate 45%fpoly violet,0,0,4,3,2,5%rotate 90%fpoly lightblue,0,0,4,3,2,5%rotate 135%fpoly blue,0,0,4,3,2,5%rotate 180%fpoly orange,0,0,4,3,2,5%rotate 225%fpoly green,0,0,4,3,2,5%rotate 270%fpoly cyan,0,0,4,3,2,5%rotate 315%fpoly purple,0,0,4,3,2,5%linewidth 3%point 3,3,red%mouse red,22
15633 bpr 4281
        @%rotationcenter_slider%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%fillcolor black%strokecolor yellow%rotationcenter 0,0%fontsize 28%slider 0,2*pi,400,30,angle degrees active, rotate...%plot red,5*sin(x)%filled%linewidth 1%opacity 150,50%fillcolor orange%angle 0,0,pi,0,0,blue
15111 schaersvoo 4282
        */
4283
            for( i = 0;i < 2; i++ ){
4284
                switch(i){
4285
                    case 0: rotationcenter[0] = get_real(infile,0);break; /* x-center */
4286
                    case 1: rotationcenter[1] = get_real(infile,1);break; /* y-center */
4287
                }
4288
                string_length = 1 + snprintf(NULL,0,"[%f,%f ]",rotationcenter[0],rotationcenter[1]);
4289
                check_string_length(string_length);
4290
                rotation_center = my_newmem(string_length);
4291
                snprintf(rotation_center,string_length,"[%f,%f]",rotationcenter[0],rotationcenter[1]);
4292
            }
4293
            break;
11806 schaersvoo 4294
 
4295
        case SIZE:
4296
            /*
4297
            @ size width,height
4298
            @ set canvas size in pixels
14066 bpr 4299
            @ mandatory first command (can only be preceded by keyword <a href="#popup">popup</a>)
14162 bpr 4300
            @ if xrange and/or yrange is not given the range will be set to pixels:<br />xrange 0,xsize yrange 0,ysize<br />note: lower left corner is origin (0:0) !!! this in contrast to flydraw
11806 schaersvoo 4301
            */
4302
            found_size_command = 1;
14066 bpr 4303
            /* using fabs: however "xsize == int": so "xsize = abs( (int) get_real(infile,0))" would be the idea... */
11806 schaersvoo 4304
            xsize = (int)(fabs(round(get_real(infile,0)))); /* just to be sure that sizes > 0 */
4305
            ysize = (int)(fabs(round(get_real(infile,1))));
4306
            /* sometimes we want xrange / yrange to be in pixels...without telling x/y-range */
4307
            xmin = 0;xmax = xsize;
4308
            ymin = 0;ymax = ysize;
4309
 
4310
/*
4311
 The sequence in which stuff is finally printed is important !!
4312
*/
4313
fprintf(stdout,"\n\
13970 obado 4314
<script>\n\
11806 schaersvoo 4315
/*<![CDATA[*/\n\
4316
if( typeof(wims_status) === 'undefined' ){ var wims_status = \"$status\";};\
4317
if( typeof(use_dragdrop_reply) === 'undefined' ){ var use_dragdrop_reply = false;};\
4318
if( typeof(canvas_scripts) === 'undefined' ){ var canvas_scripts = new Array();};\
4319
canvas_scripts.push(\"%d\");\n/*]]>*/\n</script>\n\
4320
",canvas_root_id);
4321
 
4322
/* style=\"display:block;position:relative;margin-left:auto;margin-right:auto;margin-bottom:4px;\" */
4323
if( use_tooltip != 2){
16844 bpr 4324
 fprintf(stdout,"<!-- canvasdraw div -->\n\
16845 bpr 4325
 <div tabindex=\"0\" id=\"canvas_div%d\" style=\"max-width:%dpx;width:%dpx;height:%dpx\" class=\"canvas_wrapper\" oncontextmenu=\"return false;\">\
4326
  <canvas class=\"canvas_placeholder\" width=\"%d\" height=\"%d\"></canvas>\
4327
 </div>\n\
4328
 <!-- tooltip and input placeholder -->\n\
4329
 <div id=\"tooltip_placeholder_div%d\" style=\"text-align:center\">\
4330
  <span id=\"tooltip_placeholder%d\" class=\"tooltip_placeholder\"></span></div>\
4331
 <!-- include actual object code via include file -->\n\
4332
 <script id=\"canvas_script%d\" src=\"%s\" defer></script>\n",canvas_root_id,xsize,xsize,ysize,xsize,ysize,canvas_root_id,canvas_root_id,canvas_root_id,getfile_cmd);
4333
} else {
11806 schaersvoo 4334
/*
14066 bpr 4335
set canvas_div invisible and do not include placeholder in main html page:
15111 schaersvoo 4336
the js-include will also be in a popup window...to be shown when wims &#36;status = done
11806 schaersvoo 4337
*/
16844 bpr 4338
 fprintf(stdout,"<!-- canvasdraw div invisible -->\n\
16845 bpr 4339
 <div tabindex=\"0\" id=\"canvas_div%d\" class=\"canvas_wrapper\" style=\"display:none;max-width:%dpx;width:%dpx;height:%dpx;\">\
4340
  <canvas class=\"canvas_placeholder\" width=\"%d\" height=\"%d\"></canvas>\
4341
 </div>\n\
4342
 <div id=\"tooltip_placeholder_div%d\" style=\"display:none;position:relative;margin-left:auto;margin-right:auto;margin-bottom:4px;\">\
4343
  <span id=\"tooltip_placeholder%d\" class=\"tooltip_placeholder\"></span></div>\
4344
 <!-- include actual object code via include file -->\n\
4345
 <script id=\"canvas_script%d\" src=\"%s\"></script>\n",canvas_root_id,xsize,xsize,ysize,xsize,ysize,canvas_root_id,canvas_root_id,canvas_root_id,getfile_cmd);
11806 schaersvoo 4346
}
4347
 
14071 bpr 4348
/* these must be global...it is all really very poor javascript:( */
15734 schaersvoo 4349
fprintf(js_include_file,"\n/* begin generated javascript include for canvasdraw version %s */\n\
11806 schaersvoo 4350
\"use strict\";\n\
15111 schaersvoo 4351
/* these variables and functions must be global */\
11806 schaersvoo 4352
var read_dragdrop%d;\
14038 schaersvoo 4353
var read_canvas_images;\
11806 schaersvoo 4354
var read_canvas%d;\
4355
var set_clock;\
4356
var clear_draw_area%d;\
4357
var update_draw_area%d;\
14038 schaersvoo 4358
var place_image_on_canvas;\
11806 schaersvoo 4359
var draw_boxplot;\
4360
var redraw_all%d;\
15111 schaersvoo 4361
var userdraw_primitive;\
4362
var wims_canvas_function%d = function(){\n/* common used stuff */\
4363
var userdraw_x = [];var userdraw_y = [];var userdraw_radius = [];\
11806 schaersvoo 4364
var xsize = %d;\
4365
var ysize = %d;\
4366
var precision = 100;\
4367
var canvas_div = document.getElementById(\"canvas_div%d\");\
4368
var create_canvas%d = function(canvas_type,size_x,size_y){var cnv;if(document.getElementById(\"wims_canvas%d\"+canvas_type)){ cnv = document.getElementById(\"wims_canvas%d\"+canvas_type);}else{try{ cnv = document.createElement(\"canvas\"); }catch(e){alert(\"Your browser does not support HTML5 CANVAS:GET FIREFOX !\");return;};canvas_div.appendChild(cnv);};cnv.width = size_x;cnv.height = size_y;cnv.style.top = 0;cnv.style.left = 0;cnv.style.position = \"absolute\";cnv.id = \"wims_canvas%d\"+canvas_type;return cnv;};\
4369
function findPosX(i){ var obj = i;var curleft = 0;if(obj.offsetParent){while(1){curleft += obj.offsetLeft;if(!obj.offsetParent){break;};obj = obj.offsetParent;};}else{if(obj.x){curleft += obj.x;};};return curleft;};function findPosY(i){var obj = i;var curtop = 0;if(obj.offsetParent){while(1){curtop += obj.offsetTop;if(!obj.offsetParent){break;};obj = obj.offsetParent;};}else{if(obj.y){curtop += obj.y;};};return curtop;};\
15111 schaersvoo 4370
function x2px(x){if(use_xlogscale == 0 ){return parseFloat((x)*xsize/(xmax - xmin) - xsize*xmin/(xmax - xmin));}else{var x_max = Math.log(xmax)/Math.log(xlogbase);var x_min = Math.log(xmin)/Math.log(xlogbase);var x_in = Math.log(x)/Math.log(xlogbase);return x_in*xsize/(x_max - x_min) - xsize*x_min/(x_max - x_min);};};\
11806 schaersvoo 4371
function px2x(px){if(use_xlogscale == 0 ){return parseFloat(px*(xmax - xmin)/xsize + xmin);}else{var x_max = Math.log(xmax)/Math.log(xlogbase);var x_min = Math.log(xmin)/Math.log(xlogbase);var x_out = x_min +px*(x_max - x_min)/(xsize);return Math.pow(xlogbase,x_out);};};\
4372
function px2y(py){if(use_ylogscale == 0 ){return parseFloat(ymax - py*(ymax - ymin)/ysize);}else{var y_max = Math.log(ymax)/Math.log(ylogbase);var y_min = Math.log(ymin)/Math.log(ylogbase);var y_out = y_max +py*(y_min - y_max)/(ysize);return Math.pow(ylogbase,y_out);};};\
15111 schaersvoo 4373
function y2px(y){if(use_ylogscale == 0){return parseFloat(-1*(y)*ysize/(ymax - ymin) + ymax*ysize/(ymax - ymin));}else{var y_max = Math.log(ymax)/Math.log(ylogbase);var y_min = Math.log(ymin)/Math.log(ylogbase);var y_in = Math.log(y)/Math.log(ylogbase);return (y_max - y_in)*ysize/(y_max - y_min);};};\
11806 schaersvoo 4374
function scale_x_radius(rx){return rx*xsize/(xmax - xmin);};\
4375
function scale_y_radius(ry){return ry*ysize/(ymax - ymin);};\
4376
function distance(x1,y1,x2,y2){return Math.sqrt( (x1-x2)*(x1-x2) + (y1-y2)*(y1-y2) );};\
4377
function distance_to_line (r,q,x,y){var c = (y) - (-1/r)*(x);var xs = r*(c - q)/(r*r+1);var ys = (r)*(xs)+(q);return parseInt(Math.sqrt( (xs-x)*(xs-x) + (ys-y)*(ys-y) ));};\
4378
function move(obj,dx,dy){for(var p = 0 ; p < obj.x.length; p++){obj.x[p] = obj.x[p] + dx;obj.y[p] = obj.y[p] + dy;};return obj;};\
15111 schaersvoo 4379
var snap_x = 1;var snap_y = 1;\
11806 schaersvoo 4380
function snap_to_x(x){return x2px(snap_x*(Math.round((px2x(x))/snap_x)));};\
11890 schaersvoo 4381
function snap_to_y(y){return y2px(snap_y*(Math.round((px2y(y))/snap_y)));};\
15111 schaersvoo 4382
function multisnap_check(x,y,snap){switch(snap){case 1:return [snap_to_x(x),snap_to_y(y)];break;case 2:return [snap_to_x(x),y];break;case 3:return [x,snap_to_y(y)];break;case 4:return snap_to_points(x,y);break;case 5: return snap_to_fun(x,y);break;default: return [x,y];break;};};\
11806 schaersvoo 4383
var xlogbase = 10;\
4384
var ylogbase = 10;\
4385
var use_xlogscale = 0;\
4386
var use_ylogscale = 0;\
11891 schaersvoo 4387
var x_strings = {};var x_strings_up = [];\
11806 schaersvoo 4388
var y_strings = null;\
4389
var use_jsmath = 0;\
4390
var xstart = 0;\
4391
var ystart = 0;\
4392
var unit_x=\" \";\
4393
var unit_y=\" \";\
15111 schaersvoo 4394
var dragdrop_reply = [];\
15734 schaersvoo 4395
var external_canvas = create_canvas%d(%d,xsize,ysize);",VERSION,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,xsize,ysize,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,canvas_root_id,EXTERNAL_IMAGE_CANVAS);
15111 schaersvoo 4396
/* var xstart,ystart are normally 0 : in case of sgraph they have the 'jump' in the graph */
11806 schaersvoo 4397
            break;
4398
 
4399
 
4400
        case SEGMENT:
7614 schaersvoo 4401
        /*
11806 schaersvoo 4402
        @ segment x1,y1,x2,y2,color
15715 schaersvoo 4403
        @ alternative: seg
14071 bpr 4404
        @ draw a line segment between points (x1:y1)--(x2:y2) in color ''color``
11806 schaersvoo 4405
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
14061 schaersvoo 4406
        @%segment_onclick%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%onclick%segment 1,1,-9,3,green
4407
        @%segment_drag_y%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%drag y%segment 1,1,-9,3,green
7614 schaersvoo 4408
        */
11806 schaersvoo 4409
            for(i=0;i<5;i++) {
7614 schaersvoo 4410
                switch(i){
11806 schaersvoo 4411
                    case 0: double_data[0]= get_real(infile,0);break; /* x1-values */
4412
                    case 1: double_data[1]= get_real(infile,0);break; /* y1-values */
4413
                    case 2: double_data[2]= get_real(infile,0);break; /* x2-values */
4414
                    case 3: double_data[3]= get_real(infile,0);break; /* y2-values */
4415
                    case 4: stroke_color=get_color(infile,1);/* name or hex color */
15111 schaersvoo 4416
                        if(use_rotate == TRUE ){rotate(4,angle,rotationcenter,2);}
4417
                        if(use_affine == TRUE ){ transform(4,2);}
4418
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
11806 schaersvoo 4419
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 4420
                        string_length = 1 + snprintf(NULL,0,"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[0],decimals,double_data[2],decimals,double_data[1],decimals,double_data[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);
4421
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4422
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[30,30],[30,30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[2],decimals,double_data[1],decimals,double_data[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);
4423
                        add_to_buffer(tmp_buffer);
4424
                        if(onclick != 0){object_cnt++;}
4425
                        /* object_cnt++; */
11806 schaersvoo 4426
                        reset();
4427
                        break;
4428
                    default: break;
7614 schaersvoo 4429
                }
4430
            }
15111 schaersvoo 4431
            dragstuff[4] = 1;
4432
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
7614 schaersvoo 4433
            break;
10953 bpr 4434
 
11806 schaersvoo 4435
        case SEGMENTS:
9213 schaersvoo 4436
        /*
11806 schaersvoo 4437
        @ segments color,x1,y1,x2,y2,...,x_n,y_n
15715 schaersvoo 4438
        @ alternative: segs
14071 bpr 4439
        @ draw multiple segments between points (x1:y1)--(x2:y2).....and... (x_n-1:y_n-1)--(x_n:y_n) in color ''color``
15318 bpr 4440
        @ use command ''linewidth int`` to adjust size
11806 schaersvoo 4441
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually (!)
12111 schaersvoo 4442
        @%segments_onclick%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%onclick%segments green,1,1,3,3,0,0,-3,3,1,1,4,-1,-5,5,-3,-1
4443
        @%segments_drag_y%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%drag y%segments green,1,1,3,3,0,0,-3,3,1,1,4,-1,-5,5,-3,-1
9213 schaersvoo 4444
        */
11806 schaersvoo 4445
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
4446
            fill_color = stroke_color;
4447
            i=0;
4448
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 4449
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
11806 schaersvoo 4450
                if(i%2 == 0 ){
4451
                    double_data[i] = get_real(infile,0); /* x */
4452
                }
4453
                else
4454
                {
4455
                    double_data[i] = get_real(infile,1); /* y */
4456
                }
4457
                i++;
4458
            }
15111 schaersvoo 4459
            if(use_rotate == TRUE ){rotate(i-1,angle,rotationcenter,2);}
4460
            if(use_affine == TRUE ){ transform(i-1,2);}
4461
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
11806 schaersvoo 4462
            decimals = find_number_of_digits(precision);
4463
            for(c = 0 ; c < i-1 ; c = c+4){
15111 schaersvoo 4464
                string_length = 1 + snprintf(NULL,0,"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);
4465
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4466
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[30,30],[30,30],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c+2],decimals,double_data[c+1],decimals,double_data[c+3],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
4467
                add_to_buffer(tmp_buffer);
4468
                if(onclick != 0){object_cnt++;}
4469
                /* object_cnt++;*/
11806 schaersvoo 4470
            }
4471
            reset();
15111 schaersvoo 4472
            dragstuff[4] = 1;
4473
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
9213 schaersvoo 4474
            break;
11806 schaersvoo 4475
 
4476
        case SETLIMITS:
9213 schaersvoo 4477
        /*
11806 schaersvoo 4478
            @ setlimits
14071 bpr 4479
            @ keyword: if set, it will produce 4 inputfields for ''xmin,xmax,ymin,ymax`` and an ''ok`` button
11806 schaersvoo 4480
            @ may be used for inputfield based zooming / panning
15111 schaersvoo 4481
            @ may be styled using command <a href="#css">css</a>
14071 bpr 4482
            @ use commands <a href="#xlabel">xlabel / ylabel</a> to change text from xmin to ''xlabel`` etc
14247 bpr 4483
            @ note: the input value will not be checked on validity
12107 schaersvoo 4484
            @%setlimits%size 400,400%xrange -10,10%yrange -10,10%precision 1%xlabel T%ylabel H%axis%axisnumbering%grid 2,2,grey,2,2,5,grey%precision 100%multistrokecolors red,green,blue,orange%multilinewidth 1,1,2,2%multistrokeopacity 0.6,0.7,0.8,0.9%jsplot red,1/x,-1,x,1/(x-3),1/(x+3)%setlimits
9213 schaersvoo 4485
        */
15111 schaersvoo 4486
            js_function[JS_SAFE_EVAL] = 1;
4487
            js_function[JSPLOT_AND_ZOOM] = 1;
4488
            add_setlimits(font_size,css_class);
11806 schaersvoo 4489
            done = TRUE;
9213 schaersvoo 4490
            break;
11806 schaersvoo 4491
 
4492
        case SETPIXEL:
9213 schaersvoo 4493
        /*
11806 schaersvoo 4494
        @ setpixel x,y,color
4495
        @ A rectangular "point" with diameter 1 pixel centered at (x:y) in xrange / yrange
4496
        @ pixels can <b>not</b> be dragged or clicked
14086 bpr 4497
        @ "pixelsize = 1" may be changed by command <code>pixelsize int</code>
12107 schaersvoo 4498
        @%setpixel%size 400,400%xrange -10,10%yrange -10,10%setpixel 1,1,red%pixelsize 2%setpixel 2,2,green%pixelsize 3%setpixel 3,3,blue%
9213 schaersvoo 4499
        */
15111 schaersvoo 4500
            js_function[DRAW_PIXELS] = 1;
11806 schaersvoo 4501
            for(i=0;i<3;i++){
4502
                switch(i){
4503
                    case 0: double_data[0] = get_real(infile,0); break; /* x */
14162 bpr 4504
                    case 1: double_data[1] = get_real(infile,0); break; /* y */
11806 schaersvoo 4505
                    case 2: stroke_color = get_color(infile,1);
14208 schaersvoo 4506
                           string_length = 1 + snprintf(NULL,0,"draw_setpixel([%f],[%f],\"%s\",%.2f,%d);\n",double_data[0],double_data[1],stroke_color,stroke_opacity,pixelsize);
4507
                           check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11806 schaersvoo 4508
                           snprintf(tmp_buffer,string_length,"draw_setpixel([%f],[%f],\"%s\",%.2f,%d);\n",double_data[0],double_data[1],stroke_color,stroke_opacity,pixelsize);
4509
                           add_to_buffer(tmp_buffer);
4510
                           break;
4511
                    default:break;
4512
                }
4513
            }
4514
            reset();
4515
        break;
4516
        case SLIDER:
9213 schaersvoo 4517
        /*
14071 bpr 4518
        @ slider start_value,end_value,width px,height px,type,label
15655 schaersvoo 4519
        @ type may be: ''x,y,angle``
4520
        @ if a slider value display is desired, use for argument ''type``: ''x display``, ''y display``, ''angle radian``, ''angle degree``
15651 reyssat 4521
        @ is the slider is used for animation, add keyword ''anim`` or ''animate`` to ''type``; for now only one animated slider may be used...
4522
        @ default behaviour is: click on an object to use its slider(s)<br/>to use sliders without clicking on an object, use for ''type`` keyword ''active``<br />eg: <code>slider -2*pi,2*pi,300,30,angle degree active,Rotate</code>
14071 bpr 4523
        @ if a unit (or something like that...) for x/y-value display is needed, use commands ''xunit`` and / or ''yunit``
15655 schaersvoo 4524
        @ if the translation should be performed using a function, use for type: ''x function``, ''y function``<br />use commands ''sliderfunction_x`` and/or ''sliderfunction_y`` before the slider command to define the functions. Example:<code>sliderfunction_x x^2<br />sliderfunction_y y^2<br />slider -5,5,100,100,xy function,Some_Text<br />...some stuff to slide<br />killslider<br />sliderfunction_x x^2-2<br />slider -15,15,100,10,x function,Some_Other_Text<br />...more stuff to slide<br />killslider... etc</code>
14071 bpr 4525
        @ use command ''slider`` before draggable/clickable objects.
15633 bpr 4526
        @ drag and drop may be combined with rotation slider<br />for example an arrow rotated by a slider may be placed anywhere (drag&drop)<br /><code>size 300,300<br />xrange -5,5<br />yrange -5,5<br />grid 1,1,grey<br />linewidth 3<br />drag xy<br />fillcolor orange<br />strokecolor blue<br />slider 0,2*pi,250,30,angle degrees,Rotate arrow<br />arrow 2,2,5,5,8,red</code><br />note: except a combination 'drag' and 'slider' for command 'latex, katex, mathml, html, obabel'
14071 bpr 4527
        @ no slider for a math function, these can be traced using command ''trace_jscurve some_function_in_x``
4528
        @ a slider will affect all draggable objects after the ''slider`` command...<br />and can be used to group translate / rotate several objects...<br />until a next ''slider`` or keyword ''killslider``
11806 schaersvoo 4529
        @ amount of sliders is not limited.
14208 schaersvoo 4530
        @ a slider can not be set ''snaptogrid`` or other ''snapto*`` : you may always use 'drag xy' in combination with the slider objects
14071 bpr 4531
        @ <code>javascript:read_dragdrop();</code> will return an array with ''object_number:slider_value``
11806 schaersvoo 4532
        @ every draggable object may have its own slider (no limit in amount of sliders)
15657 schaersvoo 4533
        @ label: some slider text. <br />Note: on <a target='new' href='https://katex.org'>KaTeX</a> enabled wims, TeX produced by wims command ''mathmlmath``, is allowed.
15111 schaersvoo 4534
        @ use fillcolor for slider controlkey
11806 schaersvoo 4535
        @ use strokecolor for slider bar
4536
        @ use fontfamily / fontcolor to set used fonts
4537
        @ use opacity (only fill opacity will be used) to set transparency
14071 bpr 4538
        @ the slider canvas will be added to the ''tooltip div``: so incompatible with command tooltip ; setlimits etc
15655 schaersvoo 4539
        @%slider_x_y_angle%%size 300,300%xrange -5,5%yrange -5,5%grid 1,1,grey%linewidth 3%fillcolor orange%strokecolor blue%slider 0,2*pi,300,30,angle active degrees,Rotate arrow%arrow 0,0,4.5,0,8,red%killslider%opacity 200,100%slider -2,2,300,30,x active,move blue rectangle%frect -4,4,1,-1,blue%killslider%linewidth 2%slider -2,2,300,30,y,move green rectangle%frect -4,4,1,-1,green
15633 bpr 4540
        @%slider_click%%size 300,300%xrange -6,6%yrange -6,6%grid 1,1,grey%linewidth 2%slider 0,2*pi,300,28,angle degree, name%fillcolor lightgreen%#CLICK ON THE OBJECTS TO ACTIVATE%opacity 255,30%ftriangle 2,2,-2,2,0,0,red%ftriangle -2,2,-2,-2,0,0,blue%ftriangle -2,-2,2,-2,0,0,green%ftriangle 2,-2,2,2,0,0,orange%rotationcenter 0,0%frect -2,2,2,-2,black
4541
        @%slider_active%%size 300,300%xrange -6,6%yrange -6,6%grid 1,1,grey%linewidth 1%slider 0,2*pi,300,28,angle degree active, name%fillcolor lightgreen%opacity 255,30%ftriangle 2,2,-2,2,0,0,red%ftriangle -2,2,-2,-2,0,0,blue%ftriangle -2,-2,2,-2,0,0,green%ftriangle 2,-2,2,2,0,0,orange%rotationcenter 0,0%frect -2,2,2,-2,black
4542
        @%slider_animate%%size 300,300%xrange -6,6%yrange -6,6%grid 1,1,grey%linewidth 1%slider 0,2*pi,300,28,angle anim active, name%fillcolor lightgreen%opacity 255,30%ftriangle 2,2,-2,2,0,0,red%ftriangle -2,2,-2,-2,0,0,blue%ftriangle -2,-2,2,-2,0,0,green%ftriangle 2,-2,2,2,0,0,orange%rotationcenter 0,0%frect -2,2,2,-2,black
15654 bpr 4543
        @%slider_html_image%%size 400,400%xrange -6,6%yrange -6,6%bgcolor white%grid 1,1,grey%linewidth 1%slider 0,2*pi,300,28,angle active degree,%centered%html 0,0,<img src="gifs/domains/sciences/flasks.svg" width="100px" height="100px" />
9213 schaersvoo 4544
        */
16832 bpr 4545
            js_function[INTERACTIVE] = 1;
14208 schaersvoo 4546
            int_data[2] = 0; /* --> show_display = 0; */
11806 schaersvoo 4547
            for(i=0; i<6 ; i++){
4548
                switch(i){
4549
                    case 0: double_data[0] = get_real(infile,0);break; /* start value */
4550
                    case 1: double_data[1] = get_real(infile,0);break; /* end value */
4551
                    case 2: int_data[0] = (int)(get_real(infile,0));break; /* width */
4552
                    case 3: int_data[1] = (int)(get_real(infile,0));break; /* height */
15655 schaersvoo 4553
                    case 4: temp = get_string_argument(infile,0); /* type: x,y,angle */
15111 schaersvoo 4554
                            if( strstr(temp,"displ")!=0 ||  strstr(temp,"deg")!=0 ||  strstr(temp,"rad")!=0 ){int_data[5] = 1; }else{int_data[5] = 0;}
4555
                            if(strstr(temp,"anim")!= 0){int_data[3] = 1;}else{int_data[3] = 0;}
4556
                            if(strstr(temp,"active")!= 0){onclick = 4;}else{onclick=0;}
14208 schaersvoo 4557
                            if(strstr(temp,"angle")!= 0){slider_type="R";if( strstr(temp,"rad")!= 0){int_data[2] = 3;}if( strstr(temp,"deg")!= 0){int_data[2] = 4;}}
11806 schaersvoo 4558
                            else
14208 schaersvoo 4559
                            if(strstr(temp,"xy") != 0){slider_type = "XY";if( strstr(temp,"disp")!= 0){int_data[2] = 5;}}
11806 schaersvoo 4560
                            else
14208 schaersvoo 4561
                            if(strstr(temp,"x") != 0){slider_type = "X";if( strstr(temp,"disp")!= 0){int_data[2] = 1;}}
4562
                            else
4563
                            if(strstr(temp,"y") != 0){slider_type = "Y";if( strstr(temp,"disp")!= 0){int_data[2] = 2;}}
4564
                            else
15655 schaersvoo 4565
                            canvas_error("slider can be of type: x,y,angle,fun_x:fun_y");
14208 schaersvoo 4566
                            break;
15655 schaersvoo 4567
                    case 5: temp = get_string_argument(infile,1); if( strstr(temp,"\"") != 0 ){ temp = str_replace(temp,"\""," ");}
16832 bpr 4568
                    /* slider label : in case of latex/mathmlmath we need to remove the extra " */
15655 schaersvoo 4569
                    break;
11806 schaersvoo 4570
                }
4571
             }
15111 schaersvoo 4572
 
4573
            if(use_slider == -1 ){ /* add once */
4574
             add_slider(int_data[3]);
4575
             if(int_data[5] == 1 ){add_slider_display(precision,font_size,font_color,stroke_opacity);}
14208 schaersvoo 4576
            }
15111 schaersvoo 4577
            use_slider++;
4578
            if(int_data[3] == 0){\
4579
             string_length = 1 + snprintf(NULL,0,"slider%d = new slider(\"%s\",\"%s\",%d,%d,%d,%d,\"%s\",\"%s\",[%f,%f],%f,%f,'%s',%d);\n",use_slider,slider_type,temp,use_slider,int_data[0],int_data[1],line_width,fill_color,stroke_color,fill_opacity,stroke_opacity,double_data[0],double_data[1],font_family,int_data[2]);
4580
             check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4581
             snprintf(tmp_buffer,string_length  ,"slider%d = new slider(\"%s\",\"%s\",%d,%d,%d,%d,\"%s\",\"%s\",[%f,%f],%f,%f,'%s',%d);\n",use_slider,slider_type,temp,use_slider,int_data[0],int_data[1],line_width,fill_color,stroke_color,fill_opacity,stroke_opacity,double_data[0],double_data[1],font_family,int_data[2]);
4582
            }else{
4583
             string_length = 1 + snprintf(NULL,0,"slider%d = new animslider(\"%s\",\"%s\",%d,%d,%d,%d,\"%s\",\"%s\",[%f,%f],%f,%f,'%s',%d);\n",use_slider,slider_type,temp,use_slider,int_data[0],int_data[1],line_width,fill_color,stroke_color,fill_opacity,stroke_opacity,double_data[0],double_data[1],font_family,int_data[2]);
4584
             add_slider(int_data[3]);/* use only once !! */
4585
             check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4586
             snprintf(tmp_buffer,string_length  ,"slider%d = new animslider(\"%s\",\"%s\",%d,%d,%d,%d,\"%s\",\"%s\",[%f,%f],%f,%f,'%s',%d);\n",use_slider,slider_type,temp,use_slider,int_data[0],int_data[1],line_width,fill_color,stroke_color,fill_opacity,stroke_opacity,double_data[0],double_data[1],font_family,int_data[2]);
4587
            }
14208 schaersvoo 4588
            add_to_buffer(tmp_buffer);
15111 schaersvoo 4589
            fprintf(js_include_file,"var slider%d;",use_slider);
4590
            use_dragstuff = 2;
4591
//          dragstuff[22] = 1; /* dragstuff switch no 22 is a slider...*/
4592
            if(onclick != 4 ){ js_function[INTERACTIVE] = 1; }/* no need to click on object to use slider... */
4593
            //js_function[JS_ROTATE_MOUSE] = 1;
4594
            c = 0;
4595
            for(i=last_slider;i<=use_slider;i++){
4596
             int_data[c] = i; c++;
4597
            }
4598
            my_sliders = data2js_array(int_data,use_slider - last_slider+1);
14208 schaersvoo 4599
        break;
4600
 
11806 schaersvoo 4601
        case SGRAPH:
4602
        /*
4603
         @ sgraph xstart,ystart,xmajor,ymajor,xminor,yminor,majorgrid_color,minorgrid_color
14071 bpr 4604
         @ primitive implementation of a ''broken scale`` graph...
4605
         @ 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 />
12111 schaersvoo 4606
         @%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
11806 schaersvoo 4607
        */
15111 schaersvoo 4608
            js_function[DRAW_SGRAPH] = 1;
11806 schaersvoo 4609
            for(i = 0 ; i < 8 ;i++){
4610
                switch(i){
4611
                    case 0:double_data[0] = get_real(infile,0);break;
4612
                    case 1:double_data[1] = get_real(infile,0);break;
4613
                    case 2:double_data[2] = get_real(infile,0);break;
4614
                    case 3:double_data[3] = get_real(infile,0);break;
4615
                    case 4:int_data[0] = (int)(get_real(infile,0));break;
4616
                    case 5:int_data[1] = (int)(get_real(infile,0));break;
4617
                    case 6:stroke_color = get_color(infile,0);break;
4618
                    case 7:font_color = get_color(infile,1);
14208 schaersvoo 4619
                    string_length = 1 + snprintf(NULL,0,"xstart = %f;\nystart = %f;\ndraw_sgraph(%d,%d,%f,%f,%d,%d,\"%s\",\"%s\",\"%s\",%f,%d);\n",double_data[0],double_data[1],GRID_CANVAS,precision,double_data[2],double_data[3],int_data[0],int_data[1],stroke_color,font_color,font_family,stroke_opacity,font_size);
4620
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11806 schaersvoo 4621
                    snprintf(tmp_buffer,string_length,"xstart = %f;\nystart = %f;\ndraw_sgraph(%d,%d,%f,%f,%d,%d,\"%s\",\"%s\",\"%s\",%f,%d);\n",double_data[0],double_data[1],GRID_CANVAS,precision,double_data[2],double_data[3],int_data[0],int_data[1],stroke_color,font_color,font_family,stroke_opacity,font_size);
4622
                    add_to_buffer(tmp_buffer);
4623
                    break;
4624
                    default:break;
4625
                }
4626
            }
4627
            /* sgraph(canvas_type,precision,xmajor,ymajor,xminor,yminor,majorcolor,minorcolor,fontfamily,opacity)*/
9213 schaersvoo 4628
            break;
11806 schaersvoo 4629
        case SNAPTOFUNCTION:
9213 schaersvoo 4630
        /*
11806 schaersvoo 4631
        @ snaptofunction some_function_in_x,some_funtion_in_y
15715 schaersvoo 4632
        @ alternative: snaptofun
11806 schaersvoo 4633
        @ the next object will snap to the calculated values
14071 bpr 4634
        @ note: snaptofun is probably not really useful feature...
14066 bpr 4635
        @ if you want only modification of y-values,just use: <code>snaptofunction x,5*sin(1/y)</code>
4636
        @ if you want only modification of x-values,just use: <code>snaptofunction 5*sin(1/x),y</code>
14071 bpr 4637
        @ for now only one instance of ''snaptofunction`` is allowed
11806 schaersvoo 4638
        @ use rawmath on your functions: no validity checking is done by wims !
14071 bpr 4639
        @ note: switching x and y coordinates? <code>snaptofunction y,x</code>
13960 bpr 4640
        @%snaptofunction_1%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%precision 100%snaptofunction x,5*sin(x)%linewidth 3%crosshairsize 6%userdraw crosshairs,red%linewidth 2%curve blue,5*sin(x)%xunit = x-value%display x,blue,22
4641
        @%snaptofunction_2%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%precision 100%snaptofunction y^2-9,y%#snaptofunction y^2-9,abs(y)%linewidth 3%crosshairsize 6%userdraw crosshairs,red%linewidth 2%curve blue,sqrt(x+9)%curve blue,-1*sqrt(x+9)%yunit = y-value%display y,blue,22
9213 schaersvoo 4642
        */
11806 schaersvoo 4643
        temp = get_string_argument(infile,0);
14038 schaersvoo 4644
        use_snap = 2;
15111 schaersvoo 4645
            use_snap = 5;
4646
        js_function[JS_MATH] = 1;
11806 schaersvoo 4647
        fprintf(js_include_file,"var snap_fun = {x:to_js_math('%s'),y:to_js_math('%s')};function snap_to_fun(px,py){ var x = px2x(px); var y = px2y(py); return [ x2px(eval(snap_fun.x)) , y2px(eval(snap_fun.y)) ];};",temp,get_string(infile,1));
4648
        break;
4649
        case SNAPTOPOINTS:
4650
        /*
4651
        @ snaptopoints x1,y1,x2,y2,x3,y3....
4652
        @ a userdraw object will snap to these points.
14071 bpr 4653
        @ the array size (e.g. the number of points) of command ''snaptopoints`` is limited by constant MAX_INT (canvasdraw.h)
14162 bpr 4654
        @ a draggable object (use command ''drag x|y|xy``) will snap to the closed of these points when dragged (mouseup)
14078 bpr 4655
        @ other options: use keyword ''snaptogrid``, ''xsnaptogrid`` or ''ysnaptogrid``
13950 schaersvoo 4656
        @%snaptopoints%size 400,400%xrange -5,5%yrange -5,5%snaptopoints -1,-3,-1,-2,-1,0,-1,1,-1,2,-1,3,1,-3,1,-2,1,-1,1,0,1,1,1,2,1,3%linewidth 2%points red,-1,-3,-1,-2,-1,0,-1,1,-1,2,-1,3,1,-3,1,-2,1,-1,1,0,1,1,1,2,1,3%userdraw arrows,red
16872 schaersvoo 4657
        @%snaptopoints%size 400,400%xrange -5,5%yrange -5,5%snaptopoints -1,-3,-1,-2,-1,0,-1,1,-1,2,-1,3,1,-3,1,-2,1,-1,1,0,1,1,1,2,1,3%linewidth 3%%points blue,-1,-3,-1,-2,-1,0,-1,1,-1,2,-1,3,1,-3,1,-2,1,-1,1,0,1,1,1,2,1,3%drag xy%ftriangle -4,0,-2,3,0,0,red
11806 schaersvoo 4658
        */
4659
            i = 0;
14038 schaersvoo 4660
            use_snap = 4;
11806 schaersvoo 4661
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 4662
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
11806 schaersvoo 4663
                if(i%2 == 0 ){
4664
                    double_data[i] = get_real(infile,0); /* x */
4665
                }
4666
                else
4667
                {
4668
                    double_data[i] = get_real(infile,1); /* y */
4669
                }
4670
                i++;
4671
            }
4672
            decimals = find_number_of_digits(precision);
14044 schaersvoo 4673
            fprintf(js_include_file,"function find_min_diff(x,y,X,Y){var diff = 100000000;var chk;var idx = 0;for(var p = 0 ; p < %d ; p++){chk = distance(x,y,X[p],Y[p]);if( chk  < diff ){ diff = chk; idx = p;};};return idx;};function snap_to_points(x,y){x = px2x(x); y = px2y(y);var points = [%s];var xpoints = points[0];var ypoints = points[1];var idx = find_min_diff(x,y,xpoints,ypoints);x = xpoints[idx];y = ypoints[idx];return [x2px(x),y2px(y)];};",(int) (0.5*i),double_xy2js_array(double_data,i,decimals));
11806 schaersvoo 4674
        break;
4675
 
4676
        case SNAPTOGRID:
4677
        /*
4678
         @ snaptogrid
4679
         @ keyword (no arguments required)
14162 bpr 4680
         @ a draggable object (use command ''drag x|y|xy``) will snap to the given grid when dragged (mouseup)
11806 schaersvoo 4681
         @ in case of userdraw the drawn points will snap to xmajor / ymajor grid
14078 bpr 4682
         @ if no grid is defined, points will snap to every integer xrange/yrange value. (eg snap_x=1,snap_y=1)
14071 bpr 4683
         @ if you do not want a visible grid, but you only want a ''snaptogrid`` with some value...define this grid with opacity 0.
14162 bpr 4684
         @ if xminor / yminor is defined,(use keyword ''axis`` to activate the minor steps) the drawing will snap to xminor and yminor<br />use only even dividers in x/y-minor...for example <code>snaptogrid<br />axis<br />grid 2,1,grey,4,4,7,red</code> will snap on x=0, x=0.5, x=1, x=1.5 .... will snap on y=0, y=0.25 y=0.5 y=0.75 ...
12311 schaersvoo 4685
         @%snaptogrid_1%size 400,400%xrange -5,5%yrange -5,5%axis%axisnumbering%precision 1%grid 1,1,grey,2,2,6,grey%linewidth 2%snaptogrid%userdraw crosshairs,blue%mouse red,22
4686
         @%snaptogrid_2%size 400,400%xrange -5,5%yrange -5,5%axis%axisnumbering%precision 1%grid 1,1,grey,4,1,6,grey%linewidth 1%snaptogrid%userdraw crosshairs,blue%mouse red,22
11806 schaersvoo 4687
        */
14038 schaersvoo 4688
        use_snap = 1;
11806 schaersvoo 4689
        break;
4690
 
4691
        case SQUARE:
4692
        /*
14078 bpr 4693
        @ square x,y,side (px),color
15111 schaersvoo 4694
        @ draw a square with left top corner (x:y) with side ''side`` in color 'color'
14071 bpr 4695
        @ use command <code>fsquare x,y,side,color</code> for a filled square
14162 bpr 4696
        @ use command/keyword <a href='#filled'>filled</a> before command <code>square x,y,side,color</code>
11806 schaersvoo 4697
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
12107 schaersvoo 4698
        @%square%size 400,400%xrange -10,10%yrange -10,10%linewidth 3%filled%fillcolor blue%square 0,0,120,green
11806 schaersvoo 4699
        */
11991 schaersvoo 4700
            for(i=0;i<4;i++){
11806 schaersvoo 4701
                switch(i){
4702
                    case 0:double_data[0] = get_real(infile,0);break; /* x1-values */
4703
                    case 1:double_data[1] = get_real(infile,0);break; /* y1-values */
11991 schaersvoo 4704
                    case 2:double_data[2] = get_real(infile,0);break; /* width in px */
4705
                    case 3:stroke_color = get_color(infile,1);/* name or hex color */
4706
                           decimals = find_number_of_digits(precision);
4707
                           double_data[3] = double_data[0] + (xmax - xmin)*double_data[2]/xsize;
4708
                           double_data[4] = double_data[1] + -1*(ymax - ymin)*double_data[2]/ysize;
15111 schaersvoo 4709
                           if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
4710
                           string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,1,[%.*f,%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f,%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[3],decimals,double_data[3],decimals,double_data[0],decimals,double_data[1],decimals,double_data[1],decimals,double_data[4],decimals,double_data[4],line_width,line_width,line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
4711
                           check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4712
                           snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,1,[%.*f,%.*f,%.*f,%.*f],[%.*f,%.*f,%.*f,%.*f],[%d],[%d],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[3],decimals,double_data[3],decimals,double_data[0],decimals,double_data[1],decimals,double_data[1],decimals,double_data[4],decimals,double_data[4],line_width,line_width,line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
4713
                           add_to_buffer(tmp_buffer);
4714
                           if(onclick != 0){object_cnt++;}/* object_cnt++; */
11991 schaersvoo 4715
                           reset();break;
4716
                    default: break;
11806 schaersvoo 4717
                }
4718
            }
15111 schaersvoo 4719
            dragstuff[1] = 1;
4720
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
9213 schaersvoo 4721
            break;
13829 bpr 4722
 
11806 schaersvoo 4723
        case STATUS:
9213 schaersvoo 4724
        /*
11806 schaersvoo 4725
        @ status
4726
        @ keyword
14066 bpr 4727
        @ alernative: nostatus
14078 bpr 4728
        @ used to override the effects of ''status=done`` in wims (answer.phtml)
14071 bpr 4729
        @ affects ''readonly`` in inputfields / textareas in canvasimage and all userdraw based commands
4730
        @ e.g.: if keyword ''status`` is set, the pupil will be able to modify the canvas when the ''wims &#36;status variable`` is set to ''done``
9213 schaersvoo 4731
        */
11806 schaersvoo 4732
 
4733
            fprintf(js_include_file,"\nwims_status=\"waiting\";\n");
9213 schaersvoo 4734
            break;
11806 schaersvoo 4735
 
4736
        case STRING:
9213 schaersvoo 4737
        /*
11806 schaersvoo 4738
         @ string color,x,y,the text string
15111 schaersvoo 4739
         @ may be set ''onclick`` or ''drag xy``
15633 bpr 4740
         @ note: when set ''onclick``, use an extra command ''fontsize`` (default: fontsize=12) to adjust the size of the clicked text-string<br />note: a clicked text string will be hardcoded : fontsize+10 in the font family courier
16706 schaersvoo 4741
         @ unicode supported: <code>string red,0,0,\\u2232</code><br/> See <a target='new' href='https://en.wikipedia.org/wiki/Mathematical_operators_and_symbols_in_Unicode'>https://en.wikipedia.org/wiki/Mathematical_operators_and_symbols_in_Unicode</a><br/> See <a  target='new' href='https://en.wikipedia.org/wiki/Greek_script_in_Unicode'>https://en.wikipedia.org/wiki/Greek_script_in_Unicode</a>
15313 schaersvoo 4742
         @ use a command like <code>fontfamily italic 24px Arial</code> to set fonts on browser that support font change
16713 schaersvoo 4743
         @ super / sub script is supported, using '<b>_</b>' and '<b>^</b>' <br />The font family for the sub/sup string will be Helvetica e.g. your font family settings will be ignored <br />to end the subscript/supscript, use an extra space...see example:
16705 schaersvoo 4744
         @%string_sup_sub%size 400,400%xrange -6,6%yrange -6,6%fontfamily 22px Arial%# use single space for separation in formula...%# use double space to create new word%string red,-5,0,H_3 O^+ + OH^\\u2212  \\u2192 2H_2 O%
15313 schaersvoo 4745
         @%string%size 400,400%xrange -10,10%yrange -10,10%fontfamily 14px Arial%crosshair -3,-3,red%crosshair 3,3,blue%string red,-3,-3,Hello World%fontfamily Italic 18px Arial%string red,3,3,Hello World%fontfamily 22pt STIX%string black,-10,8,\\u03B1 \\u03B2 \\u03B3 \\u03B4 \\u03B5 \\u03B6 \\u03B7 \\u03B8 \\u03B9 \\u03BA \\u03BB \\u03BC \\u03BD \\u03BE \\u03BF
9213 schaersvoo 4746
        */
15111 schaersvoo 4747
            if( use_rotate == TRUE  ){js_function[JS_ROTATE_MOUSE] = 1; }
4748
            dragstuff[14] = 1;
4749
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 4750
            for(i=0;i<5;i++){
4751
                switch(i){
4752
                    case 0: stroke_color = get_color(infile,0);break;/* name or hex color */
4753
                    case 1: double_data[0] = get_real(infile,0);break; /* x in xrange*/
4754
                    case 2: double_data[1] = get_real(infile,0);break; /* y in yrange*/
4755
                    case 3: decimals = find_number_of_digits(precision);
15111 schaersvoo 4756
                    if(use_affine == TRUE ){ transform(2,2);}
4757
                    /* rotate is done by HTML5/CANVAS context rotation */
11806 schaersvoo 4758
                        temp = get_string_argument(infile,1);
16700 schaersvoo 4759
                        if(strstr(temp,"_") != NULL || strstr(temp,"^") != NULL){js_function[DRAW_SUBSUP] = 1;}
11806 schaersvoo 4760
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 4761
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
4762
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,14,[%.*f],[%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,0,0,0,use_rotate,angle,temp,font_size,font_family,my_sliders,rotation_center,use_offset);
4763
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4764
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,14,[%.*f],[%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,0,0,0,use_rotate,angle,temp,font_size,font_family,my_sliders,rotation_center,use_offset);
4765
                        add_to_buffer(tmp_buffer);
4766
                        if(onclick != 0){object_cnt++;}
15758 schaersvoo 4767
                        //onclick = 0;
4768
                        //use_offset = 0;
15111 schaersvoo 4769
                        reset();
11806 schaersvoo 4770
                        break;
4771
                    default:break;
4772
                }
9213 schaersvoo 4773
            }
4774
            break;
11806 schaersvoo 4775
 
4776
        case STRINGUP:
9213 schaersvoo 4777
        /*
11806 schaersvoo 4778
         @ stringup color,x,y,rotation_degrees,the text string
15111 schaersvoo 4779
         @ may be set ''onclick`` or ''drag xy``
15633 bpr 4780
         @ note: when set ''onclick``, use an extra command ''fontsize`` (default: fontsize=12) to adjust the size of the clicked text-string<br />note: a clicked text string will be hardcoded : fontsize+10 in the font family courier
15111 schaersvoo 4781
         @ unicode supported: <code>stringup red,0,0,45,\\u2232</code>
4782
         @ use a command like <code>fontfamily bold 34px Courier</code> to set fonts on browser that support font change
4783
         @ you could use keyword <a href='#yoffset'>yoffset</a> to -sometimes- do a small correction of text placement under/above a point (e.g. text &amp; point have thesame coordinates)
14634 bpr 4784
         @ note: no need to ''killrotate`` after ''stringup``<br /><code>onclick<br />rotate 45<br />string red,0,0,AAAAAA<br/>killrotate<br />string red,4,4,BBBBBB</code><br />is identical with:<br /><code>onclick<br />stringup red,0,0,45,AAAAAA<br />string red,4,4,BBBBBB</code>
16706 schaersvoo 4785
         @ super / sub script is supported, using '<b>_</b>' and '<b>^</b>' <br />to end the subscript/supscript, use an extra space...see example:
16705 schaersvoo 4786
         @%stringup_sub_sup%size 400,400%xrange -6,6%yrange -6,6%fontfamily 22px Arial%# use single space for separation in formula...%# use double space to create new word%stringup red,-5,0,45,H_3 O^+ + OH^\\u2212  \\u2192 2H_2 O%
15313 schaersvoo 4787
         @%stringup%size 400,400%xrange -10,10%yrange -10,10%fontsize 24%fontfamily 14px Arial%crosshair -3,0,red%crosshair 3,0,blue%onclick%stringup red,-3,0,-90,Hello World%drag xy%stringup red,-3,0,-45,Hello World%stringup red,-3,0,45,Hello World%stringup red,-3,0,90,Hello World%stringup blue,3,0,-90,Hello World%stringup blue,3,0,-45,Hello World%stringup blue,3,0,45,Hello World%stringup blue,3,0,90,Hello World
11806 schaersvoo 4788
 
14634 bpr 4789
        */
15111 schaersvoo 4790
            /* html5 canvas rotation is only used for text objects  */
4791
            use_rotate = TRUE ;
4792
            dragstuff[14] = 1;
4793
            js_function[JS_ROTATE_MOUSE] = 1;
4794
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
15116 bpr 4795
 
15111 schaersvoo 4796
            for(i=0;i<6;i++){
11806 schaersvoo 4797
                switch(i){
14596 schaersvoo 4798
                    case 0: stroke_color = get_color(infile,0);break;/* name or hex color */
4799
                    case 1: double_data[0] = get_real(infile,0);break; /* x */
4800
                    case 2: double_data[1] = get_real(infile,0);break; /* y */
15111 schaersvoo 4801
                    case 3: angle = get_real(infile,0);break;/* rotation */
11806 schaersvoo 4802
                    case 4: decimals = find_number_of_digits(precision);
14596 schaersvoo 4803
                        temp = get_string_argument(infile,1);
16700 schaersvoo 4804
                        if(strstr(temp,"_") != NULL || strstr(temp,"^") != NULL){js_function[DRAW_SUBSUP] = 1;}
14596 schaersvoo 4805
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 4806
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
4807
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,14,[%.*f],[%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,0,0,0,use_rotate,angle,temp,font_size,font_family,my_sliders,rotation_center,use_offset);
4808
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4809
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,14,[%.*f],[%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,0,0,0,use_rotate,angle,temp,font_size,font_family,my_sliders,rotation_center,use_offset);
4810
                        add_to_buffer(tmp_buffer);
4811
                        if(onclick != 0){object_cnt++;}
15758 schaersvoo 4812
                        //onclick = 0;
4813
                        //use_offset = 0;
14596 schaersvoo 4814
                        reset();
4815
                        break;
11806 schaersvoo 4816
                    default:break;
4817
                }
9213 schaersvoo 4818
            }
14596 schaersvoo 4819
            use_rotate = FALSE;
9213 schaersvoo 4820
            break;
11767 schaersvoo 4821
 
11806 schaersvoo 4822
        case STYLE:
11767 schaersvoo 4823
        /*
11806 schaersvoo 4824
         @ highlight color,opacity,linewidth
4825
         @ NOT IMPLEMENTED
14071 bpr 4826
         @ use command ''onclick``: when the object receives a userclick it will increase its linewidth
11767 schaersvoo 4827
        */
4828
            break;
11806 schaersvoo 4829
 
4830
 
4831
        case STROKECOLOR:
9213 schaersvoo 4832
        /*
11806 schaersvoo 4833
        @ strokecolor colorname or #hex
14071 bpr 4834
        @ to be used for commands that do not supply a color argument (like command ''linegraph``)
9213 schaersvoo 4835
        */
11806 schaersvoo 4836
            stroke_color = get_color(infile,1);
9213 schaersvoo 4837
            break;
11806 schaersvoo 4838
 
4839
        case FLY_TEXT:
9213 schaersvoo 4840
        /*
11806 schaersvoo 4841
        @ text fontcolor,x,y,font,text_string
14066 bpr 4842
        @ font may be described by keywords: giant,huge,normal,small,tiny
15111 schaersvoo 4843
        @ use command ''fontsize`` to increase base fontsize for these keywords
4844
        @ may be set ''onclick`` or ''drag xy``
11806 schaersvoo 4845
        @ backwards compatible with flydraw
4846
        @ unicode supported: text red,0,0,huge,\\u2232
16700 schaersvoo 4847
        @ special: use '_' and '^' to imitate html sup/sub, like H_3O^+ + OH^\\u22i2  \\u2192 2H_2 O
16706 schaersvoo 4848
        @ much better to use command <a href='#string'>string</a> combined with <a href='#fontfamily'>fontfamily</a> for a more fine grained control over html5 canvas text element
4849
        @ super / sub script is supported, using '<b>_</b>' and '<b>^</b>' <br />to end the subscript/supscript, use an extra space...see <a href='#string'>string </a> command
15313 schaersvoo 4850
        @ Avoid mixing old flydraw commands ''text``, ''textup`` with new canvasdraw commands ''string``, ''stringup``. If the fontfamily was set completely like <code>fontfamily italic 24px Arial</code>. In that case reset ''fontfamily`` to something lke ''fontfamily Arial`` before the old flydraw commands.
12311 schaersvoo 4851
        @%text%size 400,400%xrange -10,10%yrange -10,10%fontsize 14%onclick%drag xy%text green,-4,-4,small,Hello World%drag xy%text red,-4,-2,large,Hello World%drag xy%text blue,-4,0,huge,Hello World%drag xy%text green,-4,3,giant,Hello World%drag xy
9213 schaersvoo 4852
        */
11806 schaersvoo 4853
            for(i = 0; i < 5 ;i++){
4854
                switch(i){
4855
                    case 0: stroke_color = get_color(infile,0);break;/* font_color == stroke_color name or hex color */
4856
                    case 1: double_data[0] = get_real(infile,0);break; /* x */
4857
                    case 2: double_data[1] = get_real(infile,0);break; /* y */
4858
                    case 3: fly_font = get_string_argument(infile,0);
4859
                            if(strcmp(fly_font,"giant") == 0){
4860
                                fly_font_size = (int)(font_size + 24);
4861
                            }
4862
                            else
4863
                            {
4864
                                if(strcmp(fly_font,"huge") == 0){
4865
                                    fly_font_size = (int)(font_size + 14);
4866
                                }
4867
                                else
4868
                                {
4869
                                    if(strcmp(fly_font,"large") == 0){
4870
                                        fly_font_size = (int)(font_size + 6);
4871
                                        }
4872
                                        else
4873
                                        {
4874
                                            if(strcmp(fly_font,"small") == 0){
4875
                                                fly_font_size = (int)(font_size - 4);
4876
                                                if(fly_font_size<0){fly_font_size = 8;}
4877
                                        }
4878
                                    }
4879
                                }
4880
                            }
4881
                            break;
4882
                    case 4:
4883
                        temp = get_string_argument(infile,1);
16700 schaersvoo 4884
                        if(strstr(temp,"_") != NULL || strstr(temp,"^") != NULL){js_function[DRAW_SUBSUP] = 1;}
11806 schaersvoo 4885
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 4886
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
15646 schaersvoo 4887
                        if(use_affine == TRUE ){ transform(2,2);}
15111 schaersvoo 4888
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,14,[%.*f],[%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%f,\"%s\",%d,%s,%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,0,0,0,use_rotate,angle,temp,fly_font_size,"null",my_sliders,rotation_center,use_offset);
4889
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
4890
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,14,[%.*f],[%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%f,\"%s\",%d,%s,%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,0,0,0,0,use_rotate,angle,temp,fly_font_size,"null",my_sliders,rotation_center,use_offset);
4891
                        add_to_buffer(tmp_buffer);
4892
                        if(onclick != 0){object_cnt++;}
11806 schaersvoo 4893
                        reset();
4894
                        break;
4895
                    default:break;
4896
                }
10953 bpr 4897
            }
15111 schaersvoo 4898
            dragstuff[14] = 1;
4899
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
9213 schaersvoo 4900
            break;
11806 schaersvoo 4901
        case TEXTAREA:
9289 schaersvoo 4902
        /*
11806 schaersvoo 4903
         @ textarea x,y,cols,rows,readonly,value
15111 schaersvoo 4904
         @ may be further controlled by <a href="#css">css</a>
14162 bpr 4905
         @ if ''&#36;status=done`` (e.g. in answer.phtml) the inputfield will be cleared and set readonly. Override this by keyword <a href="#status">status</a>.
14066 bpr 4906
         @ if mathml inputfields are present and / or some userdraw is performed, these data will <b>not</b> be send as well (<code>javascript:read_canvas();</code>)
14071 bpr 4907
         @ keyword ''xoffset | centered`` is not active for command ''textarea``
15111 schaersvoo 4908
         @%textarea%size 400,400%xrange -10,10%yrange -10,10%css color:red;background-color:lightblue;font-size:14px;text-align:center%textarea -3,-2,6,3,1,?%css color:blue;background-color:yellow;font-size:14px;text-align:center%textarea 0,-2,8,2,1,?
9289 schaersvoo 4909
        */
15111 schaersvoo 4910
            js_function[DRAW_TEXTAREAS] = 1;
11806 schaersvoo 4911
            for(i = 0 ; i<6;i++){
9289 schaersvoo 4912
                switch(i){
11806 schaersvoo 4913
                    case 0: int_data[0]=x2px(get_real(infile,0));break; /* x in px */
4914
                    case 1: int_data[1]=y2px(get_real(infile,0));break; /* y in px */
4915
                    case 2: int_data[2]=abs( (int)(get_real(infile,0)));break;/* cols */
4916
                    case 3: int_data[3]=abs( (int)(get_real(infile,0)));break;/* rows */
4917
                    case 4: if( get_real(infile,1) >0){int_data[4] = 1;}else{int_data[3] = 0;};break; /* readonly */
4918
                    case 5: temp = get_string_argument(infile,1);
15111 schaersvoo 4919
                            string_length = 1 + snprintf(NULL,0,  "draw_textareas(%d,%d,%d,%d,%d,%d,%d,\"%s\",\"%s\");\n",canvas_root_id,input_cnt,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],css_class,temp);
14208 schaersvoo 4920
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15111 schaersvoo 4921
                            snprintf(tmp_buffer,string_length,"draw_textareas(%d,%d,%d,%d,%d,%d,%d,\"%s\",\"%s\");\n",canvas_root_id,input_cnt,int_data[0],int_data[1],int_data[2],int_data[3],int_data[4],css_class,temp);
11806 schaersvoo 4922
                            add_to_buffer(tmp_buffer);
4923
                            input_cnt++;break;
9289 schaersvoo 4924
                    default: break;
4925
                }
4926
            }
11806 schaersvoo 4927
            if(reply_format == 0 ){reply_format = 15;}
4928
            reset();
9289 schaersvoo 4929
            break;
11806 schaersvoo 4930
 
11830 schaersvoo 4931
        case TEXTFILL:
4932
        /*
4933
        @ textfill x0,y0,color,some_text
4934
        @ x0,y0 in xrange / yrange
4935
        @ color will be used for the font color
4936
        @ use command <a href="#fontfamily">fontfamily</a> to set font type and size
13829 bpr 4937
        @ there is also a command <a href="#userdraw">userdraw textfill,color,some_text</a>
15313 schaersvoo 4938
        @%textfill%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%fontfamily 24pt Arial%circles red,0,0,3,3,3,6%textfill 4,4,blue,HELLO WORLD
11830 schaersvoo 4939
        */
4940
 
4941
            js_function[DRAW_TEXTFILL] = 1;
4942
            if(js_function[DRAW_FILLTOBORDER] != 1 ){/* use only once */
4943
             js_function[DRAW_FILLTOBORDER] = 1;
15111 schaersvoo 4944
             add_js_filltoborder(canvas_type);
11830 schaersvoo 4945
            }
4946
            decimals = find_number_of_digits(precision);
4947
            for(i=0;i<4;i++){
4948
                switch(i){
4949
                    case 0: double_data[0] = get_real(infile,0); break; /* x in px */
4950
                    case 1: double_data[1] = get_real(infile,0); break; /* y in py */
13829 bpr 4951
                    case 2: font_color = get_color(infile,0); break;
11830 schaersvoo 4952
                    case 3: temp = get_string(infile,1);
14208 schaersvoo 4953
                    string_length = 1 + snprintf(NULL,0,"draw_textfill(%d,%*.f,%*.f,'%s','%s',%d,%d,'%s',false); ",FILL_CANVAS+fill_cnt,decimals,double_data[0],decimals,double_data[1],font_color,font_family,xsize,ysize,temp);
4954
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11830 schaersvoo 4955
                    snprintf(tmp_buffer,string_length,"draw_textfill(%d,%*.f,%*.f,'%s','%s',%d,%d,'%s',false); ",FILL_CANVAS+fill_cnt,decimals,double_data[0],decimals,double_data[1],font_color,font_family,xsize,ysize,temp);
4956
                    add_to_buffer(tmp_buffer);
4957
                    fill_cnt++;
4958
                    break;
4959
                    default:break;
4960
                }
4961
            }
4962
            reset();
4963
        break;
4964
 
4965
 
11806 schaersvoo 4966
        case FLY_TEXTUP:
9289 schaersvoo 4967
        /*
11806 schaersvoo 4968
         @ textup fontcolor,x,y,font,text_string
14078 bpr 4969
         @ can <b>not</b> be set ''onclick`` or ''drag xy`` (because of translaton matrix...mouse incompatible)
14066 bpr 4970
         @ font may be described by keywords: giant,huge,normal,small,tiny
14071 bpr 4971
         @ use command ''fontsize`` to increase base fontsize for the keywords
11806 schaersvoo 4972
         @ backwards compatible with flydraw
4973
         @ unicode supported: textup red,0,0,huge,\\u2232
14071 bpr 4974
         @ use command ''stringup`` and ''fontfamily`` for a more fine grained control over html5 canvas text element
15313 schaersvoo 4975
         @ Avoid mixing old flydraw commands ''text``, ''textup`` with new canvasdraw commands ''string``; ''stringup``. If the fontfamily was set completely like <code>fontfamily italic 24px Arial</code>. In that case reset ''fontfamily`` to something like ''fontfamily Arial`` before the old flydraw commands.
9289 schaersvoo 4976
        */
15111 schaersvoo 4977
            js_function[DRAW_TEXTS] = 1;
11806 schaersvoo 4978
            for(i = 0; i<5 ;i++){
9289 schaersvoo 4979
                switch(i){
11806 schaersvoo 4980
                    case 0: font_color = get_color(infile,0);break;/* name or hex color */
4981
                    case 1: int_data[0] = x2px(get_real(infile,0));break; /* x */
4982
                    case 2: int_data[1] = y2px(get_real(infile,0));break; /* y */
4983
                    case 3: fly_font = get_string_argument(infile,0);
4984
                            if(strcmp(fly_font,"giant") == 0){
4985
                                fly_font_size = (int)(font_size + 24);
4986
                            }
4987
                            else
4988
                            {
4989
                                if(strcmp(fly_font,"huge") == 0){
4990
                                    fly_font_size = (int)(font_size + 14);
4991
                                }
4992
                                else
4993
                                {
4994
                                    if(strcmp(fly_font,"large") == 0){
4995
                                        fly_font_size = (int)(font_size + 6);
4996
                                        }
4997
                                        else
4998
                                        {
4999
                                            if(strcmp(fly_font,"small") == 0){
5000
                                                fly_font_size = (int)(font_size - 4);
5001
                                                if(fly_font_size<0){fly_font_size = 8;}
5002
                                        }
5003
                                    }
5004
                                }
5005
                            }
5006
                            break;
5007
                    case 4:
9289 schaersvoo 5008
                    decimals = find_number_of_digits(precision);
11806 schaersvoo 5009
                    temp = get_string_argument(infile,1);
15111 schaersvoo 5010
                    if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
5011
                    string_length = 1 + snprintf(NULL,0,"draw_text(%d,%d,%d,%d,\"%s\",\"%s\",%.2f,90,\"%s\",%d,%.2f,%d);\n",STATIC_CANVAS,int_data[0],int_data[1],fly_font_size,"null",font_color,stroke_opacity,temp,use_rotate,angle,use_offset);
14208 schaersvoo 5012
                    check_string_length(string_length);tmp_buffer = my_newmem(string_length);
15111 schaersvoo 5013
                    snprintf(tmp_buffer,string_length,"draw_text(%d,%d,%d,%d,\"%s\",\"%s\",%.2f,90,\"%s\",%d,%.2f,%d);\n",STATIC_CANVAS,int_data[0],int_data[1],fly_font_size,"null",font_color,stroke_opacity,temp,use_rotate,angle,use_offset);
9289 schaersvoo 5014
                    add_to_buffer(tmp_buffer);
15758 schaersvoo 5015
                    reset();
5016
                    //use_offset = 0;
9289 schaersvoo 5017
                    break;
11806 schaersvoo 5018
                    default:break;
5019
                }
5020
            }
5021
            break;
5022
 
5023
 
5024
        case TRACE_JSCURVE:
5025
        /*
5026
         @ trace_jscurve some_math_function
5027
         @ will use a crosshair to trace the jsmath curve
5028
         @ two inputfields will display the current x/y-values (numerical evaluation by javascript)
14071 bpr 5029
         @ default labels ''x`` and ''y``; use commands ''xlabel some_x_axis_name`` and ''ylabel some_y_axis_name`` to customize the labels for the input fields
15111 schaersvoo 5030
         @ use commands fontsize and css to format the fonts for labels and inputfields.
14071 bpr 5031
         @ use commands ''linewidth, strokecolor, crosshairsize`` to adjust the corsshair.
5032
         @ the client browser will convert your math function to javascript math.<br />use parenthesis and rawmath: use 2*x instead of 2x etc etc no check is done on the validity of your function and/or syntax (use error console to debug any errors...)
5033
         @ be aware that the formulas of the plotted function(s) can be found in the page javascript source
15111 schaersvoo 5034
         @%trace_jscurve%size 400,400%xrange -10,10%yrange -10,10%precision 0%axis%axisnumbering%grid 2,2,grey,2,2,5,gray%recision 100%css color:blue;%linewidth 4%crosshairsize 8%trace_jscurve 5*sin(0.1*x^2)%linewidth 1%jsplot red,5*sin(0.1*x^2)%#only one curve can be traced
11806 schaersvoo 5035
        */
15111 schaersvoo 5036
            js_function[INTERACTIVE] = 1;
5037
            js_function[DRAW_CROSSHAIRS] = 1;
5038
            js_function[DRAW_LINES] = 1;
5039
            js_function[JS_MATH] = 1;
5040
            add_trace_js_mouse(TRACE_CANVAS,stroke_color,get_string(infile,1),font_size,stroke_opacity,line_width,crosshair_size,css_class);
11806 schaersvoo 5041
            break;
5042
 
5043
 
5044
        case TRANGE:
5045
        /*
5046
        @ trange tmin,tmax
15715 schaersvoo 5047
        @ alternative: ranget
11806 schaersvoo 5048
        @ default -2,2
5049
        */
5050
            use_parametric = TRUE;
5051
            for(i = 0 ; i<2; i++){
5052
                switch(i){
5053
                    case 0: tmin = get_real(infile,0);break;
5054
                    case 1: tmax = get_real(infile,1);break;
9289 schaersvoo 5055
                    default: break;
5056
                }
5057
            }
14066 bpr 5058
            if(tmin >= tmax ){canvas_error(" trange is not OK: tmin &lt; tmax!\n");}
9289 schaersvoo 5059
            break;
11806 schaersvoo 5060
        case TRANSLATION:
5061
        /*
5062
         @ translation tx,ty
15715 schaersvoo 5063
         @ alternative: translate
11806 schaersvoo 5064
         @ will translate the next objects tx in xrange and ty in yrange
14071 bpr 5065
         @ use command ''killtranstation`` to end the command
13958 schaersvoo 5066
         @%translation%size 400,400%xrange -10,10%yrange -10,10%linewidth 1%fillpattern grid%ftriangle -6,6,8,6,5,1,blue%translation 2,2%ftriangle -6,6,8,6,5,1,red
11806 schaersvoo 5067
        */
5068
            for(i = 0 ; i<2;i++){
5069
                switch(i){
15111 schaersvoo 5070
                    case 0: affine_matrix[4] = get_real(infile,0);break;
5071
                    case 1: affine_matrix[5] = get_real(infile,1);
11806 schaersvoo 5072
                        use_affine = TRUE;
15111 schaersvoo 5073
                        /* the other values affine_matrix[0..3] remain untouched*/
11806 schaersvoo 5074
                        break;
5075
                    default: break;
5076
                }
5077
            }
5078
        break;
5079
 
5080
        case TRIANGLE:
5081
        /*
5082
         @ triangle x1,y1,x2,y2,x3,y3,color
14066 bpr 5083
         @ use ftriangle or keyword <a href='#filled'>filled</a> for a solid triangle
11806 schaersvoo 5084
         @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
13948 schaersvoo 5085
         @%triangle%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%opacity 250,150%drag xy%triangle 0,0,-4,4,6,8,red%drag xy%ftriangle 0,0,-4,-4,6,-8,red%fillpattern grid%drag xy%ftriangle -6,6,8,6,5,1,blue
11806 schaersvoo 5086
        */
5087
            for(i=0;i<7;i++){
5088
                switch(i){
5089
                    case 0: double_data[0] = get_real(infile,0);break; /* x */
5090
                    case 1: double_data[1] = get_real(infile,0);break; /* y */
5091
                    case 2: double_data[2] = get_real(infile,0);break; /* x */
5092
                    case 3: double_data[3] = get_real(infile,0);break; /* y */
5093
                    case 4: double_data[4] = get_real(infile,0);break; /* x */
5094
                    case 5: double_data[5] = get_real(infile,0);break; /* y */
5095
                    case 6: stroke_color = get_color(infile,1);/* name or hex color */
5096
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 5097
                        if( use_rotate == TRUE ){ rotate(6,angle,rotationcenter,2);}
5098
                        if( use_affine == TRUE ){ transform(6,2);}
5099
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
5100
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,%s,[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,double_xy2js_array(double_data,6,decimals),line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
5101
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
5102
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,%s,[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,double_xy2js_array(double_data,6,decimals),line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
5103
                        add_to_buffer(tmp_buffer);
5104
                        if(onclick != 0){object_cnt++;}
5105
                        /* object_cnt++;*/
11806 schaersvoo 5106
                        reset();
5107
                        break;
5108
                    default: break;
5109
                }
5110
            }
15111 schaersvoo 5111
            dragstuff[5] = 1;
5112
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 5113
            break;
5114
        case TRIANGLES:
5115
        /*
5116
         @ triangles color,x1,y1,x2,y2,x3,y3,...
14066 bpr 5117
         @ use ftriangles or keyword <a href='#filled'>filled</a> for solid triangles
11806 schaersvoo 5118
         @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually (!)
13948 schaersvoo 5119
         @%triangles%size 400,400%xrange -10,10%yrange -10,10%linewidth 3%onclick%triangles red,0,0,-4,4,6,8,0,0,-4,-4,6,-8,-6,6,8,6,5,1%# the same as 3 calls to command triangle
11806 schaersvoo 5120
        */
5121
            stroke_color = get_color(infile,0);/* name or hex color */
5122
            i = 0;
5123
            decimals = find_number_of_digits(precision);
15111 schaersvoo 5124
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
15116 bpr 5125
 
11806 schaersvoo 5126
            while( ! done ){
11997 schaersvoo 5127
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
11806 schaersvoo 5128
                double_data[0] = get_real(infile,0); /* x1 */
5129
                double_data[1] = get_real(infile,0); /* y1 */
5130
                double_data[2] = get_real(infile,0); /* x2 */
5131
                double_data[3] = get_real(infile,0); /* y2 */
5132
                double_data[4] = get_real(infile,0); /* x3 */
5133
                double_data[5] = get_real(infile,1); /* y3 */
15111 schaersvoo 5134
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,%s,[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,double_xy2js_array(double_data,6,decimals),line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
5135
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
5136
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,5,%s,[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,double_xy2js_array(double_data,6,decimals),line_width,stroke_color,stroke_opacity,stroke_color,fill_opacity,use_filled,use_dashed,dashtype[0],dashtype[1],use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
5137
                add_to_buffer(tmp_buffer);
5138
                if(onclick != 0){object_cnt++;}
11806 schaersvoo 5139
                i = i + 6;
5140
            }
5141
            reset();
15111 schaersvoo 5142
            dragstuff[5] = 1;
5143
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
11806 schaersvoo 5144
            break;
5145
        case USERBOXPLOT:
5146
        /*
5147
         @ userboxplot
5148
         @ keyword, no arguments
14066 bpr 5149
         @ use before command <a href="#boxplot">boxplot x_or_y,box-height_or_box-width,x_or_y-position</a>
14071 bpr 5150
         @ if set, the student will have to calculate "min,Q1,median,Q3,max" and feed these data into the ''draw_boxplot`` function
5151
         @ for example: put the canvas-script into a html element with id='boxplot' and set style='display:none'<br />define a variable called ''student_boxplot`` and fill it with the 5 student-data (from inputfields or something)<br /><code>var student_boxplot = new Array(5)<br />function show_boxplot(){<br />student_boxplot[0] = min;<br />student_boxplot[1] = Q1;<br />student_boxplot[2] = median;<br />student_boxplot[3] = Q3;<br />student_boxplot[4] = max;<br />document.getElementById('boxplot').style.display = "block";<br />draw_boxplot(12345,1,2.00,5.00,[0,0,0,0,0],4,"0,0,255",0.78,"255,165,0",0.60,1,0,1,1);<br />};</code><br />In the canvas-script the function draw_boxplot has the following arguments:<br />draw_boxplot=function(canvas_type,xy,hw,cxy,data,line_width,stroke_color,stroke_opacity,fill_color,fill_opacity,use_filled,use_dashed,dashtype0,dashtype1)
11806 schaersvoo 5152
        */
15111 schaersvoo 5153
            js_function[DRAW_BOXPLOT] = 1;
11806 schaersvoo 5154
            fprintf(js_include_file,"var boxplot_source = 3;\n");
5155
            js_function[DRAW_JSBOXPLOT] = 2;
5156
        break;
5157
 
5158
        case USERBOXPLOTDATA:
5159
        /*
5160
         @ userboxplotdata
5161
         @ keyword, no arguments
14066 bpr 5162
         @ use before command <a href="#boxplot">boxplot x_or_y,box-height_or_box-width,x_or_y-position</a>
14071 bpr 5163
         @ if set, the student will have to generate some statistical data. These data should be put in a named array ''student_boxplot_data``
15111 schaersvoo 5164
         @ ''min,Q1,median,Q3,max`` are calculated by a js-function and the 'draw_boxplot' function will draw a boxplot.
14066 bpr 5165
         @ see command <a href="#userboxplot">userboxplot</a> for calling 'draw_boxplot()'
11806 schaersvoo 5166
        */
15111 schaersvoo 5167
            js_function[DRAW_BOXPLOT] = 1;
11806 schaersvoo 5168
            fprintf(js_include_file,"var boxplot_source = 2;\n");
5169
            js_function[DRAW_JSBOXPLOT] = 1;
5170
 
5171
        break;
5172
 
7614 schaersvoo 5173
        case USERDRAW:
5174
        /*
5175
        @ userdraw object_type,color
9213 schaersvoo 5176
        @ only a single object_type is allowed.
15111 schaersvoo 5177
        @ right mouse click will remove last drawn object.
5178
        @ for multiple different 'userdraw' objects in an exercise, use command <a href="#multidraw">multidraw</a>
5179
        @ 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>demiline</li><li>demilines</li><li>segment</li><li>segments</li><li>polyline | brokenline</li><li>circle</li><li>circles</li><li>arrow</li><li>arrow2 (double arrow)</li><li>arrows</li><li>arrows2 (double arrows)</li><li>curvedarrow</li><li>curvedarrows</li><li>curvedarrow2</li><li>curvedarrows2</li><li>triangle</li><li>polygon</li><li>poly[3-9] (e.g poly3 ... poly7...poly9</li><li>rect</li><li>roundrect</li><li>rects</li><li>roundrects</li><li>freehandline | path</li><li>freehandlines | paths</li><li>clickfill: fill the clicked area with color<br />multiple areas may be selected <br />multiple colors may be provided using commands <a href='#colorpalette'>colorpalette color1,color2,color3,...</a> use <a href='#replyformat'>replyformat 10</a> for checking the user click color ... reply=x1:y1:color1,x2:y2:color2...<br/>attention: this will <b>not</b> work for pattern filling, because the pattern image is only generated once and after creation can not be changed !<br />the opacity of this image on a separate canvas is set to 0.01 and not 0 (!!)...in the ''fill algorithm`` the opacity of the matching pixels is set to 1</li><li>dotfill: fill the clicked area with a dot pattern; use command linewidth to change dot size</li><li>diamondfill: fill the clicked area with a diamond pattern</li><li>hatchfill: fill the clicked area with a hatch pattern</li><li>gridfill: fill the clicked area with a grid pattern</li><li>textfill: fill the clicked area with a repeating string<br />userdraw textfill,blue,some_text<br />use command <a href="#fontfamily">fontfamily</a> to adjust text style and size</li><li>''clickfill | pattern filling`` in general:<br />the clicks may be set <a href="#snaptogrid">snaptogrid</a><br />can be used together with command <a href="#floodfill">floodfill or fill</a><br /><b>always</b> use together with command <a href="#clearbutton">clearbutton some_text</a> for removal of all click_colored areas<br />the function read_canvas() will return the click coordinates in the sequence of the user clicks<br />use command <a href="#canvastype">canvastype</a> to fill another canvas (default should be fine: DRAG_CANVAS = 5)</li><li>text <br />an inputfield is provided, unicode allowed. The text is drawn a the mouse click, or if used with command ''userinput inputfield`` also at the given x/y-coordonates</li><li>arc</li><li>arcs</li><li>image<br/>only a single "image" of every supported type(*) may be added to canvas window from the surrounding html page.<br />the image should have an 'id' and an onclick handler.<br />(*) supported types are ''svg``,''bitmap``,''p-element``,''div-element`` and ''mathml/tex-code`` with ''\\mmlid{int}``.</li><li>images</li><li>input<br/>place a single inputfield on ''canvas`` <br />use commands 'css' 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><li>function : identical to <a href="#userinput">userinput function</a></li></ul>
14078 bpr 5180
        @ note: mouselisteners are only active if ''&#36;status != done`` (eg only drawing in an active/non-finished exercise) <br /> to overrule use command/keyword ''status`` (no arguments required)
15111 schaersvoo 5181
        @ note: object_type text: Any string or multiple strings may be placed anywhere on the canvas.<br />Use command ''fontfamily`` to set font
11088 schaersvoo 5182
        @ note: object_type polygone: Will be finished (the object is closed) when clicked on the first point of the polygone again.
15111 schaersvoo 5183
        @ note: all objects will be removed -after a javascript confirm box- when clicked on an object point with middle or right mouse button (e.g. event.button != 1: all buttons but left)
5184
        @ use a prefix <a href='#filled'>filled</a> or ''f`` to set fillable objects filled. (fcircles,filledcircles etc)<br/> in case of ''fillpattern`` do not use the ''f`` prefix !
11839 schaersvoo 5185
        @ for non solid filling, use command <a href="#fillpattern">fillpattern grid,hatch,diamond,dot</a>
14071 bpr 5186
        @ use <a href='#opacity'>opacity int,int</a> and <a href='#fillcolor'>fillcolor color</a> to trigger coloured filling of fillable objects
14078 bpr 5187
        @ use command ''dashed`` and/or ''dashtype int,int`` to trigger dashing
5188
        @ use command ''replyformat int`` to control / adjust output formatting of javascript function read_canvas(); (the defaults should be fine...)
14071 bpr 5189
        @ may be combined with onclick or drag xy of other components of flyscript objects (although not very useful...)
14066 bpr 5190
        @ may be combined with keyword <a href='#userinput_xy'>userinput_xy</a>
5191
        @ may be combined width the <a href='#snaptogrid'>snaptogrid snaptopoints </a> etc, to simplify the checking of the student reply
13956 schaersvoo 5192
        @ the cursor may be appropriately styled using command <a href='cursor'>cursor</a>
15111 schaersvoo 5193
        @ 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.!<br />use command <a href="#multidraw">multidraw</a> is this is a problem for you...
14247 bpr 5194
        @ note: the default replyformat for ''userdraw input(s),color`` used format x1;y1;text1 \n x2;y2;test2 \n x_n;y_n;text_n (e.g. it is not a comma separated array...use ''direct exec`` to test)
15111 schaersvoo 5195
        @ note: a special case is ''userdraw image,boguscolor``. Images (bitmap or svg or div) present in the exercise page and the img/svg/div-tag with an unique 'id' and <code>onclick='javascript:place_image_on_canvas(this.id)'</code> can be placed onto the canvas.<br />The ''id`` and (x;y) coordinates will be returned using read_canvas();<br /> native MathML, MathJax or KaTeX typesetting may be included in div's.(experiments; wims_modules svn version only!)
15527 bpr 5196
        @ note: command <br /><code>userdraw function,color</code> is identical to acombination of <code>strokecolor color</code> and <code>userinput function</code><br />
15313 schaersvoo 5197
        @ note: commands :<br /><code>multicolors red,green,blue<br />multilabel f(x)=:g(x)=:h(x)=<br />userdraw functions3,color</code><br />is identical to commands :<br /><code>functionlabel f(x)=:p(x)=:w(x)=<br/>strokecolor red<br />userinput function <br />strokecolor green<br />userinput function <br />strokecolor blue<br />userinput function</code>
16613 schaersvoo 5198
        @%userdraw_canvastype_a%size 400,400%xrange -10,10%yrange -10,10%linewidth 3%grid 2,2,grey%replyformat 10%colorpalette orange,yellow,red,green,lightgreen,blue,lightblue,cyan%canvastype 4%userdraw clickfill,blue%clearbutton REMOVE LAST RECTANGLE
12107 schaersvoo 5199
        @%userdraw_canvastype_b%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%canvastype 4%snaptogrid%replyformat 10%userdraw dotfill,blue%clearbutton REMOVE LAST RECTANGLE
5200
        @%userdraw_rect%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw rect,green
5201
        @%userdraw_rects%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw rects,green
5202
        @%userdraw_frect%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw frect,green
5203
        @%userdraw_frects%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw frects,green
5204
        @%userdraw_roundrect%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw roundrect,green
5205
        @%userdraw_roundrects%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw roundrects,green
5206
        @%userdraw_froundrect%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw froundrect,green
5207
        @%userdraw_froundrects%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw froundrects,green
5208
        @%userdraw_line%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw line,green
5209
        @%userdraw_lines%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw lines,green
5210
        @%userdraw_vline%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw vline,green
5211
        @%userdraw_vlines%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw vlines,green
5212
        @%userdraw_hline%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw hline,green
5213
        @%userdraw_hlines%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw hlines,green
5214
        @%userdraw_demiline%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw demiline,green
5215
        @%userdraw_demilines%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw demilines,green
5216
        @%userdraw_arc%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw arc,green
5217
        @%userdraw_arcs%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw arcs,green
5218
        @%userdraw_point%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw point,green
5219
        @%userdraw_points%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw points,green
5220
        @%userdraw_arrow%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw arrow,green
5221
        @%userdraw_arrows%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw arrows,green
5222
        @%userdraw_arrow2%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw arrow2,green
5223
        @%userdraw_arrows2%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw arrows2,green
14025 schaersvoo 5224
        @%userdraw_curvedarrow%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%precision 1%linewidth 3%userdraw curvedarrow,red%clearbutton REMOVE ALL ARROWS
5225
        @%userdraw_curvedarrows%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%precision 1%linewidth 3%userdraw curvedarrows,red%clearbutton REMOVE ALL ARROWS
14270 schaersvoo 5226
        @%userdraw_curvedarrow2%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%precision 1%linewidth 3%userdraw curvedarrow2,red%clearbutton REMOVE ALL ARROWS
5227
        @%userdraw_curvedarrows2%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%precision 1%linewidth 3%userdraw curvedarrows2,red%clearbutton REMOVE ALL ARROWS
12107 schaersvoo 5228
        @%userdraw_crosshair%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw crosshair,green
5229
        @%userdraw_crosshairs%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw crosshairs,green
5230
        @%userdraw_circle%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw circle,green
5231
        @%userdraw_circles%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw circles,green
5232
        @%userdraw_segment%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw segment,green
5233
        @%userdraw_segments%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw segments,green
5234
        @%userdraw_line%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw line,green
5235
        @%userdraw_lines%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw lines,green
5236
        @%userdraw_triangle%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw triangle,green
5237
        @%userdraw_poly5%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw poly5,green
5238
        @%userdraw_filled_poly5%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%filled%userdraw poly5,green
5239
        @%userdraw_poly7%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw poly7,green
5240
        @%userdraw_filled_poly7%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%filled%userdraw poly7,green
5241
        @%userdraw_polyline%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%userdraw polyline,green
5242
        @%userdraw_freehandline%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw freehandline,green
5243
        @%userdraw_filled_freehandline%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%fillcolor orange%opacity 200,50%filled%userdraw freehandline,green
5244
        @%userdraw_freehandlines%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%opacity 200,50%userdraw freehandlines,green
5245
        @%userdraw_input%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%userdraw input,green
5246
        @%userdraw_inputs%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%userdraw inputs,green
5247
        @%userdraw_text%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%fontfamily 42px Courier%userdraw text,green
15111 schaersvoo 5248
        @%userdraw_function%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 1%grid 2,2,grey,2,2,5,grey%multicolors orange,red,green,blue,cyan%precision 1000%userdraw functions3,red%jscurve blue,x^2,-x^2,5*cos(x)%precision 1%mouse red,22
14044 schaersvoo 5249
        @%userdraw_clickfill_colorpalette%size 400,400%xrange -10,10%yrange -10,10%linewidth 3%circles blue,0,0,4,1,1,6,3,3,3,-3,-3,5%opacity 255,120%colorpalette red,green,yellow,blue%userdraw clickfill,green
13948 schaersvoo 5250
        @%userdraw_clickfill_1%size 400,400%xrange -10,10%yrange -10,10%linewidth 3%circles blue,0,0,4,1,1,6,3,3,3,-3,-3,5%opacity 255,120%userdraw clickfill,green
5251
        @%userdraw_clickfill_2%size 400,400%xrange -10,10%yrange -10,10%linewidth 1%circles blue,0,0,2,1,1,5,5,5,4,-5,5,6,5,-5,6%userdraw hatchfill,red%#userdraw dotfill,red%#userdraw diamonefill,red%#userdraw gridfill,red
14071 bpr 5252
        @%userdraw_clickfill_2%size 400,400%xrange -10,10%yrange -10,10%bgcolor white%# to get nice click coordinates take invisible ''grid`` and use ''snaptogrid`` %grid 1,1,white%snaptogrid%circles blue,0,0,2,1,1,5,5,5,4,-5,5,6,5,-5,6%userdraw gridfill,red
7614 schaersvoo 5253
        */
15111 schaersvoo 5254
            if( use_userdraw != 0 ){ /* only one object type may be drawn*/
14038 schaersvoo 5255
                canvas_error("Only one userdraw primitive may be used in command 'userdraw' use command 'multidraw' for this...");
7614 schaersvoo 5256
            }
15111 schaersvoo 5257
            js_function[INTERACTIVE] = 1;
7614 schaersvoo 5258
            draw_type = get_string_argument(infile,0);
15111 schaersvoo 5259
            if( strcmp(draw_type,"textfill") == 0){
5260
             fprintf(js_include_file,"var userdraw_text_string = \"%s\";", get_string(infile,1));
7614 schaersvoo 5261
            }
5262
            else
15111 schaersvoo 5263
            {
5264
             if( strcmp(draw_type,"imagefill") == 0){
5265
              fprintf(js_include_file,"var userdraw_image_url = \"%s\";", get_string(infile,1));
5266
             }
5267
             else
5268
             {
5269
              stroke_color = get_color(infile,1);
5270
             }
7614 schaersvoo 5271
            }
15116 bpr 5272
 
15111 schaersvoo 5273
            if( strcmp(draw_type,"clickfill") == 0){use_filled = 1;fill_color = stroke_color;}
5274
            reply_precision = precision;
5275
            use_userdraw = 1;
5276
            fprintf(js_include_file,"\n\
5277
/* begin userdraw */\
5278
userdraw_x = new Array();userdraw_y = new Array();userdraw_radius = new Array();\
5279
var forbidden_zone=[xsize+1,ysize+1];var xy_cnt = 0;\
5280
var canvas_userdraw = create_canvas%d(%d,xsize,ysize);\
5281
var context_userdraw = canvas_userdraw.getContext(\"2d\");\
5282
var use_dashed = %d;\
5283
var use_snap = %d;if(use_dashed == 1){if( context_userdraw.setLineDash ){context_userdraw.setLineDash([%d,%d]);}else{if(context_userdraw.mozDash){context_userdraw.mozDash = [%d,%d];};};};\
5284
context_userdraw.lineWidth = %d;var use_filled = %d;\
5285
context_userdraw.strokeStyle =  \"rgba(%s,%.2f)\";\
5286
context_userdraw.font = \"%s\";\
15128 schaersvoo 5287
var user_is_dragging = false;\
15111 schaersvoo 5288
if(wims_status != \"done\"){\
5289
canvas_div.addEventListener(\"mousedown\" ,user_draw,false);\
5290
canvas_div.addEventListener(\"mousemove\" ,user_drag,false);\
5291
canvas_div.addEventListener(\"touchstart\",function(e){ e.preventDefault();user_draw(e.changedTouches[0]);},false);\
5292
canvas_div.addEventListener(\"touchmove\" ,function(e){ e.preventDefault();user_drag(e.changedTouches[0]);},false);\
15128 schaersvoo 5293
canvas_div.addEventListener(\"touchend\" ,function(e){ e.preventDefault();user_drawstop(e.changedTouches[0]);},false);\
15111 schaersvoo 5294
};",canvas_root_id,DRAW_CANVAS,use_dashed,use_snap,dashtype[0],dashtype[1],dashtype[0],dashtype[1],line_width,use_filled,stroke_color,stroke_opacity,font_family);
5295
 
5296
            if( use_filled == 0 ){
5297
             fprintf(js_include_file,"context_userdraw.fillStyle = \"rgba(255,255,255.0)\";");
7614 schaersvoo 5298
            }
5299
            else
5300
            {
15111 schaersvoo 5301
             if( use_filled == 1 ){
5302
              fprintf(js_include_file,"context_userdraw.fillStyle = \"rgba(%s,%.2f)\";",fill_color,fill_opacity);
5303
             }
5304
             else
5305
             {
5306
              js_function[DRAW_FILL_PATTERN] = 1;
5307
              fprintf(js_include_file,"context_userdraw.fillStyle = create_Pattern(0,0,%d,[%s]);\n",use_filled,fill_color);
5308
             }
7614 schaersvoo 5309
            }
15111 schaersvoo 5310
            add_js_userdraw(draw_type,stroke_color,stroke_opacity,crosshair_size,arrow_head,use_offset,css_class,use_snap,canvas_type,use_filled,fill_color,fill_opacity,line_width,font_family);
7614 schaersvoo 5311
            reset();
5312
        break;
8386 schaersvoo 5313
 
5314
        case USERINPUT:
5315
        /*
13955 schaersvoo 5316
         @ userinput function inputfield
15715 schaersvoo 5317
         @ alternative: userinput_function
5318
         @ alternative: userinput_xy
15111 schaersvoo 5319
         @ ''inputfield`` is only usable in combination with some ''userdraw draw_type``
5320
         @ note: the input fields are not cleared after the object is drawn...be aware of multiple idential drawings (many clicks on the ''ok`` button)
5321
         @ ''userinput function`` may be used any time (e.g. without userdraw)
14071 bpr 5322
         @ multiple ''userinput function`` commands may be used.
5323
         @ use command <code>functionlabel some_string</code> to define the inputfield text: default value "f(x)="
5324
         @ use command <code>strokecolor some_color</code> to adjust the plot / functionlabel color
15111 schaersvoo 5325
         @ use command <code>css some_css</code> to adjust the inputfields
14071 bpr 5326
         @ use command <code>fontsize int</code> to adjust the label fonts. (default 12px)
5327
         @ the user input for the function will be corrected by a simple ''rawmath`` implementation...<br />an error message will be shown if javascript can not interpret the user input
15111 schaersvoo 5328
         @%userinput_function%size 400,400%xrange -10,10%yrange -10,10%functionlabel your function g(x)=%axis%axisnumbering%xlabel x-axis%ylabel y-axis%grid 2,2,grey,3,3,5,grey%css color:blue;text-align:center%userinput function%# note: number of function inputs not limited
13955 schaersvoo 5329
         @%userinput_points%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%# adding 2 inputfields for x and y%userinput inputfield%userdraw points,blue
5330
         @%userinput_arrows%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%#adding 4 inputfields for (x1;y1)---(x2;y2)%userinput inputfieldd%userdraw arrows,blue
15111 schaersvoo 5331
         @%userinput_combined%size 400,400%xrange -10,10%yrange -10,10%functionlabel your function g(x)=%axis%axisnumbering%xlabel x-axis%ylabel y-axis%precision 0%grid 2,2,grey,3,3,5,grey%css color:blue;text-align:center%precision 1000%strokecolor red%opacity 255,255%userinput function%# note: number of function inputs not limited%userdraw line,blue
8386 schaersvoo 5332
        */
5333
            temp = get_string_argument(infile,1);
5334
            if(strstr(temp,"function") != 0  || strstr(temp,"curve") != 0  || strstr(temp,"plot") != 0 ){
5335
             if( js_function[DRAW_JSFUNCTION] != 1 ){
15111 schaersvoo 5336
              js_function[JS_RAWMATH] = 1;
8386 schaersvoo 5337
              js_function[DRAW_JSFUNCTION] = 1;
5338
              if(reply_format == 0){reply_format = 24;}/* read canvas_input values */
15111 schaersvoo 5339
              add_input_jsfunction(css_class,function_label,input_cnt,stroke_color,stroke_opacity,line_width,use_dashed,dashtype[0],dashtype[1],font_size);
8386 schaersvoo 5340
              input_cnt++;
5341
             }
10953 bpr 5342
             else
8386 schaersvoo 5343
             {
14078 bpr 5344
              /* no need to add DRAW_JSFUNCTION, just call it with the parameters */
15111 schaersvoo 5345
              fprintf(js_include_file,"add_input_jsfunction(%d,\"%s\",%s,%d,\"%s\",\"%.2f\",%d,%d,%d,%d);\n",input_cnt,css_class,function_label,line_width,stroke_color,stroke_opacity,use_dashed,dashtype[0],dashtype[1],font_size);
8386 schaersvoo 5346
              input_cnt++;
5347
             }
15111 schaersvoo 5348
             js_function[JS_MATH] = 1;
5349
             js_function[JS_PLOT] = 1;
8386 schaersvoo 5350
            }
5351
            else
5352
            {
5353
             if(strstr(temp,"inputfield") != 0 ){
15111 schaersvoo 5354
              js_function[JS_SAFE_EVAL] = 1;
5355
              js_function[ADD_USER_INPUTS] = 1;
8386 schaersvoo 5356
             }
5357
             else
5358
             {
15111 schaersvoo 5359
              canvas_error("userinput argument may be \"function\" or \"inputfield\"");
8386 schaersvoo 5360
             }
5361
            }
5362
            break;
5363
        case USERINPUT_XY:
5364
        /*
5365
        @ userinput_xy
9372 schaersvoo 5366
        @ keyword (no arguments required)
8386 schaersvoo 5367
        @ to be used in combination with command "userdraw object_type,color"
14078 bpr 5368
        @ 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)
8386 schaersvoo 5369
        @ the student may use this as correction for (x:y) on a drawing (or to draw without mouse, using just the coordinates)
14071 bpr 5370
        @ 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.
14086 bpr 5371
        @ can <b>not</b> be combined with command ''intooltip tiptext`` <br />note: the ''tooltip div element`` is used for placing inputfields
8386 schaersvoo 5372
        @ user drawings will not zoom on zooming (or pan on panning)
15651 reyssat 5373
        @ use command ''css some_css`` to adjust the inputarea.
14071 bpr 5374
        @ use command ''fontsize int`` to adjust the text labels (if needed)
13950 schaersvoo 5375
        @%userinput_xy%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%precision 0%grid 2,2,grey,3,3,6,black%# provides inputfields for (x1:y1)---(x2:y2)%userinput_xy%linewidth 2%precision 1000%userdraw lines,blue
8386 schaersvoo 5376
        */
5377
            /* add simple eval check to avoid code injection with unprotected eval(string) */
15111 schaersvoo 5378
            js_function[JS_SAFE_EVAL] = 1;
5379
            js_function[ADD_USER_INPUTS] = 1;
8386 schaersvoo 5380
            break;
5381
 
5382
        case USERINPUT_FUNCTION:
5383
        /*
5384
        @ userinput_function
15715 schaersvoo 5385
        @ alternative: userinput
9372 schaersvoo 5386
        @ keyword (no arguments required)
14078 bpr 5387
        @ if set, a inputfield will be added to the page
8386 schaersvoo 5388
        @ repeat keyword for more function input fields
5389
        @ the userinput value will be plotted in the canvas
14071 bpr 5390
        @ this value may be read with <code>read_canvas()</code>. <br />for do it yourself js-scripters: If this is the first inputfield in the script, its id is canvas_input0
15111 schaersvoo 5391
        @ use before this command ''userinput_function``,<br />commands like ''css some_css``, ''xlabel some_description``, ''opacity int,int``, ''linewidth int``, ''dashed`` and ''dashtype int,int`` to modify
14071 bpr 5392
        @ fontsize can be set using command ''fontsize int``
5393
        @ incompatible with command ''intooltip link_text_or_image``: it uses the tooltip div for adding the inputfield
15313 schaersvoo 5394
        @%userinput_function%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%xlabel x-axis%ylabel y-axis%precision 0%grid 2,2,grey,2,2,5,grey%precision 1000%linewidth 2%# first inputfield%css color:blue;text-align:center;font-family:Italic;%strokecolor blue%functionlabel g(x)=:p(x)=:k(x)=%userinput function%# second inputfield%css color:green;text-align:center;font-family:Italic;%strokecolor green%userinput function%# third inputfield%css color:purple;text-align:center;font-family:Italic;%strokecolor purple%userinput function%# no limit in number of function inputfields
8386 schaersvoo 5395
        */
5396
            if( js_function[DRAW_JSFUNCTION] != 1 ){
5397
             js_function[DRAW_JSFUNCTION] = 1;
15111 schaersvoo 5398
             js_function[JS_RAWMATH] = 1;
8386 schaersvoo 5399
             if(reply_format == 0){reply_format = 24;}/* read canvas_input values */
15111 schaersvoo 5400
             add_input_jsfunction(css_class,function_label,input_cnt,stroke_color,stroke_opacity,line_width,use_dashed,dashtype[0],dashtype[1],font_size);
8386 schaersvoo 5401
             input_cnt++;
5402
            }
10953 bpr 5403
            else
8386 schaersvoo 5404
            {
14078 bpr 5405
              /* no need to add DRAW_JSFUNCTION, just call it with the parameters */
15111 schaersvoo 5406
             fprintf(js_include_file,"add_input_jsfunction(%d,\"%s\",%s,%d,\"%s\",\"%.2f\",%d,%d,%d,%d);\n",input_cnt,css_class,function_label,line_width,stroke_color,stroke_opacity,use_dashed,dashtype[0],dashtype[1],font_size);
8386 schaersvoo 5407
             input_cnt++;
5408
            }
15111 schaersvoo 5409
            js_function[JS_MATH] = 1;
5410
            js_function[JS_PLOT] = 1;
8386 schaersvoo 5411
            break;
5412
 
11806 schaersvoo 5413
        case VLINE:
8386 schaersvoo 5414
        /*
11806 schaersvoo 5415
        @ vline x,y,color
15715 schaersvoo 5416
        @ alternative: verticalline
15111 schaersvoo 5417
        @ draw a vertical line through point (x:y) in color 'color'
11806 schaersvoo 5418
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a>
12107 schaersvoo 5419
        @%vline%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%onclick%vline 0,0,red%onclick%vline 1,0,orange%onclick%vline 2,0,blue%onclick%vline 3,0,green
8386 schaersvoo 5420
        */
11806 schaersvoo 5421
            for(i=0;i<3;i++) {
7614 schaersvoo 5422
                switch(i){
11806 schaersvoo 5423
                    case 0: double_data[0] = get_real(infile,0);break; /* x-values */
5424
                    case 1: double_data[1] = get_real(infile,0);break; /* y-values */
5425
                    case 2: stroke_color=get_color(infile,1);/* name or hex color */
5426
                        double_data[2] = double_data[0];
7614 schaersvoo 5427
                        decimals = find_number_of_digits(precision);
15111 schaersvoo 5428
                        if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
5429
                        string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[2],decimals,100*ymin,decimals,100*ymax,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);
5430
                        check_string_length(string_length);tmp_buffer = my_newmem(string_length);
5431
                        snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[0],decimals,double_data[2],decimals,100*ymin,decimals,100*ymax,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);
5432
                        add_to_buffer(tmp_buffer);
5433
                        if(onclick != 0){object_cnt++;}
5434
                        /* object_cnt++; */
8379 schaersvoo 5435
                        reset();
7614 schaersvoo 5436
                    break;
5437
                }
5438
            }
15111 schaersvoo 5439
            dragstuff[4] = 1;
5440
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
7614 schaersvoo 5441
            break;
5442
 
11806 schaersvoo 5443
        case VLINES:
11802 schaersvoo 5444
        /*
11806 schaersvoo 5445
        @ vlines color,x1,y1,x2,y2....
15715 schaersvoo 5446
        @ alternative: verticallines
15111 schaersvoo 5447
        @ draw vertical lines through points (x1:y1),(x2:y2)... in color 'color'
11806 schaersvoo 5448
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually
13939 bpr 5449
        @%vlines%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%onclick%vlines red,1,0,2,0,3,0,4,0
11802 schaersvoo 5450
        */
11806 schaersvoo 5451
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
5452
            fill_color = stroke_color;
5453
            i=0;
5454
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 5455
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
11806 schaersvoo 5456
                if(i%2 == 0 ){
5457
                    double_data[i] = get_real(infile,0); /* x */
7614 schaersvoo 5458
                }
11806 schaersvoo 5459
                else
5460
                {
5461
                    double_data[i] = get_real(infile,1); /* y */
7983 schaersvoo 5462
                }
11806 schaersvoo 5463
                i++;
7983 schaersvoo 5464
            }
11806 schaersvoo 5465
            decimals = find_number_of_digits(precision);
15111 schaersvoo 5466
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
11806 schaersvoo 5467
            for(c = 0 ; c < i-1 ; c = c+2){
15111 schaersvoo 5468
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c],decimals,ymin,decimals,ymax,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);
5469
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
5470
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,4,[%.*f,%.*f],[%.*f,%.*f],[0],[0],%d,\"%s\",%.2f,\"%s\",%.2f,%d,%d,%d,%d,%d,%.1f,\"%s\",%d,\"%s\",%s,%s,%d));\n",drag_type,object_cnt,onclick,use_snap,decimals,double_data[c],decimals,double_data[c],decimals,ymin,decimals,ymax,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);
5471
                add_to_buffer(tmp_buffer);
5472
                if(onclick != 0){object_cnt++;}
5473
                /* object_cnt++; */
11806 schaersvoo 5474
            }
5475
            reset();
15111 schaersvoo 5476
            dragstuff[4] = 1;
5477
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
7983 schaersvoo 5478
            break;
11806 schaersvoo 5479
 
5480
        case VIDEO:
7614 schaersvoo 5481
        /*
11806 schaersvoo 5482
        @ video x,y,w,h,videofile location
14066 bpr 5483
        @ x,y: left top corner of audio element (in xrange / yrange)
5484
        @ w,y: width and height in pixels
5485
        @ video format may be in *.mp4 (todo: other formats)
13950 schaersvoo 5486
        @%video%size 400,400%xrange -10,10%yrange -10,10%opacity 200,100%frect -9,9,6,-6,green%video -5,5,200,200,http://techslides.com/demos/sample-videos/small.mp4
7614 schaersvoo 5487
        */
15111 schaersvoo 5488
            js_function[DRAW_VIDEO] = 1;
7614 schaersvoo 5489
            for(i=0;i<5;i++){
5490
                switch(i){
11806 schaersvoo 5491
                    case 0: int_data[0] = x2px(get_real(infile,0)); break; /* x in x/y-range coord system -> pixel */
14162 bpr 5492
                    case 1: int_data[1] = y2px(get_real(infile,0)); break; /* y in x/y-range coord system -> pixel */
11806 schaersvoo 5493
                    case 2: int_data[2] = (int) (get_real(infile,0)); break; /* pixel width */
5494
                    case 3: int_data[3] = (int) (get_real(infile,0)); break; /* height pixel height */
5495
                    case 4: temp = get_string(infile,1);
14208 schaersvoo 5496
                            string_length = 1 + snprintf(NULL,0,  "draw_video(%d,%d,%d,%d,%d,\"%s\");\n",canvas_root_id,int_data[0],int_data[1],int_data[2],int_data[3],temp);
5497
                            check_string_length(string_length);tmp_buffer = my_newmem(string_length);
11806 schaersvoo 5498
                            snprintf(tmp_buffer,string_length,"draw_video(%d,%d,%d,%d,%d,\"%s\");\n",canvas_root_id,int_data[0],int_data[1],int_data[2],int_data[3],temp);
7614 schaersvoo 5499
                            add_to_buffer(tmp_buffer);
5500
                            break;
5501
                    default:break;
5502
                }
5503
            }
5504
            reset();
5505
            break;
11806 schaersvoo 5506
 
7614 schaersvoo 5507
        case X_AXIS_STRINGS:
5508
        /*
5509
         @ xaxis num1:string1:num2:string2:num3:string3:num4:string4:....num_n:string_n
16832 bpr 5510
         @ alternative: xaxistext
13936 bpr 5511
         @ usable for commands <a href="#numberline">numberline</a> and <a href="#grid">grid</a> or combinations thereof
9346 schaersvoo 5512
         @ use these x-axis num1...num_n values instead of default xmin...xmax
14071 bpr 5513
         @ in case of command ''grid``. there is no need to use keyword <a href="#axisnumbering">axisnumbering</a>
13936 bpr 5514
         @ use command <a href="#axis">axis</a> to have visual x/y-axis lines (see command <a href="#grid">grid</a>
15313 schaersvoo 5515
         @ use command ''fontcolor``, ''fontfamily`` to adjust font <br />defaults: black,12,Arial<br />note: command ''fontsize`` is not active for this command.(''fontsize`` can be used for the <a href="#legend">legend</a> in a <a href="#grid">grid</a>)
9346 schaersvoo 5516
         @ a javascript error message will flag non-matching value:name pairs
14071 bpr 5517
         @ if the ''x-axis words`` are too big and will overlap, a simple alternating offset will be applied
11044 schaersvoo 5518
         @ to be used before command grid (see <a href="#grid">command grid</a>)
14078 bpr 5519
         @ ''xmajor`` steps should be synchronised with numbers eg. ''1`` in the next example <code>grid 1,100,grey,1,4,6,grey</code>
13937 schaersvoo 5520
         @%xaxistext%size 800,200%xrange -1,13%yrange -5,10%axis%xaxistext 1:january:2:february:3:march:4:april:5:may:6:june:7:july:8:august:9:september:10:october:11:november:12:december%grid 1,4,grey,1,2,10,red
7614 schaersvoo 5521
        */
11891 schaersvoo 5522
            use_axis_numbering++;
7614 schaersvoo 5523
            temp = get_string(infile,1);
5524
            if( strstr(temp,":") != 0 ){ temp = str_replace(temp,":","\",\"");}
5525
            if( strstr(temp,"pi") != 0 ){ temp = str_replace(temp,"pi","(3.1415927)");}/* we need to replace pi for javascript y-value*/
11891 schaersvoo 5526
            fprintf(js_include_file,"x_strings[%d] = [\"%s\"];x_strings_up[%d] = null;",use_axis_numbering,temp,use_axis_numbering);
7614 schaersvoo 5527
            break;
9341 schaersvoo 5528
        case X_AXIS_STRINGS_UP:
5529
        /*
5530
         @ xaxisup num1:string1:num2:string2:num3:string3:num4:string4:....num_n:string_n
15715 schaersvoo 5531
         @ alternative: xaxistextup
9341 schaersvoo 5532
         @ the text will be rotated 90&deg; up
11044 schaersvoo 5533
         @ no need to use keyword <a href="#axisnumbering">axisnumbering</a>
13936 bpr 5534
         @ use command <a href="#axis">axis</a> to have visual x/y-axis lines (see command <a href="#grid">grid</a>
9346 schaersvoo 5535
         @ use these x-axis num1...num_n values instead of default xmin...xmax
15313 schaersvoo 5536
         @ use command ''fontcolor``, <a href="#fontfamily">fontfamily</a> to adjust font <br />defaults: black,12,Arial<br />note: command ''fontsize`` is not active for this command.(''fontsize`` can be used for the <a href="#legend">legend</a> in a <a href="#grid">grid</a>)
9346 schaersvoo 5537
         @ a javascript error message will flag non-matching value:name pairs
14071 bpr 5538
         @ if the ''x-axis words`` are too big, they will overlap the graph<br /> (in this case the text will start from ysize upwards)
11044 schaersvoo 5539
         @ to be used before command grid (see <a href="#grid">command grid</a>)
14086 bpr 5540
         @''xmajor`` steps should be synchronised with numbers eg. "1" in the next example <code>grid 1,100,grey,1,4,6,grey</code>
13937 schaersvoo 5541
         @%xaxistextup%size 800,300%xrange -1,13%yrange -10,10%fontfamily Italic 18pt Courier%axis%xaxistextup 1:january:2:february:3:march:4:april:5:may:6:june:7:july:8:august:9:september:10:october:11:november:12:december%grid 1,4,grey,1,2,10,red
9341 schaersvoo 5542
        */
11891 schaersvoo 5543
            use_axis_numbering++;
9341 schaersvoo 5544
            temp = get_string(infile,1);
5545
            if( strstr(temp,":") != 0 ){ temp = str_replace(temp,":","\",\"");}
5546
            if( strstr(temp,"pi") != 0 ){ temp = str_replace(temp,"pi","(3.1415927)");}/* we need to replace pi for javascript y-value*/
11891 schaersvoo 5547
            fprintf(js_include_file,"x_strings_up[%d] = 1;x_strings[%d] = [\"%s\"];",use_axis_numbering,use_axis_numbering,temp);
9341 schaersvoo 5548
            break;
8224 bpr 5549
 
11806 schaersvoo 5550
        case XERRORBARS:
7614 schaersvoo 5551
        /*
11806 schaersvoo 5552
        @ xerrorbars color,E1,E2,x1,y1,x2,y2,...,x_n,y_n
15111 schaersvoo 5553
        @ draw multiple points with x-errorbars E1 (error value left from point) and E2 (error value right from point) at given coordinates in color 'color'
11806 schaersvoo 5554
        @ the errors E1 and E2 values are in xrange.
14071 bpr 5555
        @ use command ''linewidth int`` to adust size
11806 schaersvoo 5556
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually (!)
12107 schaersvoo 5557
        @%xerrorbars%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%drag xy%xerrorbars red,0.8,1.3,0,0,1,1,2,3,3,2,4,5,5,2,6,1,-1,-2,-2,0,-3,2,-4,4,-5,-1
12006 schaersvoo 5558
 
7614 schaersvoo 5559
        */
11806 schaersvoo 5560
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
5561
            fill_color = stroke_color;
5562
            i=0;
5563
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 5564
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
11806 schaersvoo 5565
                if(i%2 == 0 ){
5566
                    double_data[i] = get_real(infile,0); /* x */
8071 schaersvoo 5567
                }
11806 schaersvoo 5568
                else
5569
                {
5570
                    double_data[i] = get_real(infile,1); /* y */
7614 schaersvoo 5571
                }
11806 schaersvoo 5572
                i++;
7614 schaersvoo 5573
            }
11806 schaersvoo 5574
            decimals = find_number_of_digits(precision);
15111 schaersvoo 5575
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
11806 schaersvoo 5576
            for(c = 2 ; c < i-1 ; c = c+2){
15111 schaersvoo 5577
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,20,[%.*f],[%.*f],[%.2f],[%.2f],%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+1],double_data[0],double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,1,0,0,0,use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
5578
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
5579
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,20,[%.*f],[%.*f],[%.2f],[%.2f],%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+1],double_data[0],double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,1,0,0,0,use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
5580
                add_to_buffer(tmp_buffer);
5581
                /* object_cnt++; */
5582
                if(onclick != 0){object_cnt++;}
11806 schaersvoo 5583
            }
7614 schaersvoo 5584
            reset();
15111 schaersvoo 5585
            dragstuff[20] = 1;
5586
            if(use_dragstuff == 0 ){ use_dragstuff = 1; }
7614 schaersvoo 5587
            break;
11806 schaersvoo 5588
 
5589
        case XRANGE:
7614 schaersvoo 5590
        /*
11806 schaersvoo 5591
        @ xrange xmin,xmax
15715 schaersvoo 5592
        @ alternative: rangex
11806 schaersvoo 5593
        @ if not given: 0,xsize (eg in pixels)
7614 schaersvoo 5594
        */
11806 schaersvoo 5595
            for(i = 0 ; i<2; i++){
7614 schaersvoo 5596
                switch(i){
11806 schaersvoo 5597
                    case 0: xmin = get_real(infile,0);break;
5598
                    case 1: xmax = get_real(infile,1);break;
7614 schaersvoo 5599
                    default: break;
5600
                }
5601
            }
15111 schaersvoo 5602
            if(xmin >= xmax){canvas_error(" xrange is not OK: xmin &lt; xmax !");}
5603
            fprintf(js_include_file,"var xmin = %f;var xmax = %f;",xmin,xmax);
11806 schaersvoo 5604
            found_size_command++;
7614 schaersvoo 5605
            break;
8386 schaersvoo 5606
 
11806 schaersvoo 5607
        case XSNAPTOGRID:
7614 schaersvoo 5608
        /*
11806 schaersvoo 5609
         @ xsnaptogrid
5610
         @ keyword (no arguments required)
15111 schaersvoo 5611
         @ a draggable object (use command ''drag x|y|xy``) will snap to the given x-grid values when dragged (mouseup)
5612
         @ in case of userdraw the drawn points will snap to xmajor grid
14078 bpr 5613
         @ if no grid is defined, points will snap to every integer xrange value. (eg snap_x=1)
14071 bpr 5614
         @ if you do not want a visible grid, but you only want a ''snaptogrid`` with some value...define this grid with opacity 0.
15111 schaersvoo 5615
         @ if xminor is defined (use keyword ''axis`` to activate xminor), the drawing will snap to xminor <br />use only even dividers in x-minor...for example<br /><code>xsnaptogrid<br />axis<br />grid 2,1,grey,4,4,7,red</code><br /> will snap on x=0, x=0.5, x=1, x=1.5 ....<br /> will snap on y=0, y=0.25 y=0.5 y=0.75 ...<br />
13939 bpr 5616
         @%xsnaptogrid_1%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 2%xsnaptogrid%userdraw segments,red%precision 1%display x,red,12
5617
         @%xsnaptogrid_2%size 400,400%xrange -10,10%yrange -10,10%grid 1,1,grey%linewidth 3%drag x%points red,0,0,0,0,0,0,0,0,0,0
12007 schaersvoo 5618
 
7614 schaersvoo 5619
        */
14038 schaersvoo 5620
        use_snap = 2;
11806 schaersvoo 5621
        break;
8386 schaersvoo 5622
 
11806 schaersvoo 5623
        case XOFFSET:
7614 schaersvoo 5624
        /*
12063 schaersvoo 5625
         @ xoffset
13829 bpr 5626
         @ keyword ; to place the text centered above the text coordinates(x:y) ...
5627
         @ may be used for points or other things requiring centered labels
12063 schaersvoo 5628
         @ use <a href="#fontfamily">fontfamily</a> for setting the font
11811 schaersvoo 5629
         @ may be active for commands <a href="#text">text</a> and <a href="#string">string</a> (e.g. objects in the drag/drop/onclick-library)
15313 schaersvoo 5630
        @%xoffset%size 400,400%xrange -10,10%yrange -10,10%fontfamily 12pt Arial%string blue,-9,-9,no offset%point -9,-9,red%centered%string blue,-6,-6,centered%point -6,-6,red%xoffset%string blue,-3,-3,xoffset%point -3,-3,red%yoffset%string blue,0,0,yoffset%point 0,0,red%xyoffset%string blue,3,3,xyoffset%point 3,3,red%resetoffset%string blue,6,6,resetoffset%point 6,6,red
7614 schaersvoo 5631
        */
12063 schaersvoo 5632
         use_offset = 2;
11806 schaersvoo 5633
         break;
8386 schaersvoo 5634
 
11806 schaersvoo 5635
        case XYOFFSET:
7614 schaersvoo 5636
        /*
11806 schaersvoo 5637
         @ xyoffset
5638
         @ keyword ; to place the text (x:y) to (x+dx:y+dy)... dx/dy are dependent on fontsize/fontfamily
13829 bpr 5639
         @ may be used for points or other things requiring labels
12063 schaersvoo 5640
         @ use <a href="#fontfamily">fontfamily</a> for setting the font
11806 schaersvoo 5641
         @ only active for commands <a href="#text">text</a> and <a href="#string">string</a> (e.g. objects in the drag/drop/onclick-librariy
15651 reyssat 5642
         @ in case of inputfields the inputfield will be centered x and y on its coordinates.<br />for example:<br />inputs 1,1,10,? <br />point 1,1,red <br /> the point will be completely invisible<br />note: keyword ''xyoffset`` will also provide centering if used with <a href='#userdraw'>input(s),color</a>
15313 schaersvoo 5643
         @%xyoffset%size 400,400%xrange -10,10%yrange -10,10%fontfamily 12pt Arial%string blue,-9,-9,no offset%point -9,-9,red%centered%string blue,-6,-6,centered%point -6,-6,red%xoffset%string blue,-3,-3,xoffset%point -3,-3,red%yoffset%string blue,0,0,yoffset%point 0,0,red%xyoffset%string blue,3,3,xyoffset%point 3,3,red%resetoffset%string blue,6,6,resetoffset%point 6,6,red
7614 schaersvoo 5644
        */
12063 schaersvoo 5645
         use_offset = 3;
11806 schaersvoo 5646
         break;
8386 schaersvoo 5647
 
7996 schaersvoo 5648
        case XUNIT:
5649
        /*
5650
         @ xunit some_unit_for_x-values
5651
         @ unicode allowed (no html code)
15309 schaersvoo 5652
         @ use together with command <a href="#display">display or mouse</a>
14071 bpr 5653
         @ will display the cursor x-coordinate in ''unit``
12107 schaersvoo 5654
         @%xunit%size 400,400%xrange -10,10%yrange -10,10%xunit cm \\u00B2%grid 2,2,grey%linewidth 2%userdraw segments,blue%display x,blue,18
7996 schaersvoo 5655
        */
5656
            fprintf(js_include_file,"unit_x = \"%s\";",get_string(infile,1));
5657
            break;
11806 schaersvoo 5658
 
5659
        case XLABEL:
7996 schaersvoo 5660
        /*
11806 schaersvoo 5661
        @ xlabel some_string
15111 schaersvoo 5662
        @ will be used to create a label for the x-axis (label is in quadrant I)
5663
        @ can only be used together with command ''grid``<br />not depending on keywords ''axis`` and ''axisnumbering``
5664
        @ font setting: italic Courier, fontsize will be slightly larger (fontsize + 4)<br />use command ''fontsize`` to adjust.<br />(command ''fontfamily`` is not active for this command)
15309 schaersvoo 5665
        @ use <a href="#ylabel">ylabel</a>
5666
        @%xlabel%size 400,400%xrange -10,10%yrange -10,10%axis%axisnumbering%xlabel cm\\u00B2 %ylabel v\\u00B2 %precision 1%grid 2,2,grey,2,2,5,grey
7996 schaersvoo 5667
        */
11806 schaersvoo 5668
            temp = get_string(infile,1);
5669
            fprintf(js_include_file,"var xaxislabel = \"%s\";",temp);
7996 schaersvoo 5670
            break;
8071 schaersvoo 5671
 
11806 schaersvoo 5672
        case XLOGBASE:
7991 schaersvoo 5673
        /*
11806 schaersvoo 5674
        @ xlogbase number
5675
        @ sets the logbase number for the x-axis
5676
        @ default value 10
5677
        @ use together with commands xlogscale / xylogscale
7991 schaersvoo 5678
        */
11806 schaersvoo 5679
            fprintf(js_include_file,"xlogbase=%d;",(int)(get_real(infile,1)));
7991 schaersvoo 5680
            break;
5681
 
11806 schaersvoo 5682
        case XLOGSCALE:
7614 schaersvoo 5683
        /*
11806 schaersvoo 5684
         @ xlogscale ymajor,yminor,majorcolor,minorcolor
14071 bpr 5685
         @ the x/y-range are set using commands <code>xrange xmin,xmax</code> and <code>yrange ymin,ymax</code>
11806 schaersvoo 5686
         @ ymajor is the major step on the y-axis; yminor is the divisor for the y-step
14071 bpr 5687
         @ the linewidth is set using command ''linewidth int``
14066 bpr 5688
         @ the opacity of major / minor grid lines is set by command <a href='#opacity'>opacity</a>
14379 bpr 5689
         @ default logbase number = 10 ... when needed, set the logbase number with command ''xlogbase number``
14071 bpr 5690
         @ 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>
5691
         @ note: the complete canvas will be used for the ''log paper``
11806 schaersvoo 5692
         @ note: userdrawings are done in the log paper, e.g. javascript:read_canvas() will return the real values
14071 bpr 5693
         @ note: command ''mouse color,fontsize`` will show the real values in the logpaper.<br />\
5694
         @ note: when using something like ''xrange 0.0001,0.01``...combined with commands <a href='#mouse'>mouse</a> and/or <a href='#userdraw'>userdraw</a>...<br /> make sure the <a href='#precision'>precision</a> is set accordingly
14078 bpr 5695
         @ note: in case of userdraw, the use of keyword <a href='#userinput_xy'>userinput_xy</a> may be handy !
14071 bpr 5696
         @ <b>attention</b>: keyword ''snaptogrid`` may not lead to the desired result...
15111 schaersvoo 5697
         @ <b>attention</b>: do not use command ''zoom``
12107 schaersvoo 5698
         @%xlogscale%size 400,400%xrange 10,50000%yrange -5,5%xlabel x-axis%ylabel y-axis%xlogscale 10,1,black,grey%display x,red,22
7614 schaersvoo 5699
        */
11972 schaersvoo 5700
            use_axis_numbering++;if(use_axis_numbering > 1){use_axis_numbering = 1;}
11806 schaersvoo 5701
            if( js_function[DRAW_GRID] == 1 ){canvas_error("only one type of grid is allowed...");}
15111 schaersvoo 5702
            js_function[DRAW_XLOGSCALE] = 1;
11806 schaersvoo 5703
            for(i=0;i<4;i++){
7614 schaersvoo 5704
                switch(i){
11806 schaersvoo 5705
                    case 0: double_data[0] = get_real(infile,0);break; /* xmajor */
5706
                    case 1: int_data[0] = (int) (get_real(infile,0));break; /* xminor */
5707
                    case 2: stroke_color = get_color(infile,0); break;
5708
                    case 3: fill_color = get_color(infile,1);
14208 schaersvoo 5709
                        string_length = 1 + 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);
5710
                        tmp_buffer = my_newmem(string_length);
11806 schaersvoo 5711
                        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);
5712
                        fprintf(js_include_file,"use_xlogscale=1;snap_y = %f;snap_x = xlogbase;",double_data[0]/int_data[0]);
5713
                        add_to_buffer(tmp_buffer);
5714
                        break;
7614 schaersvoo 5715
                    default:break;
5716
                }
5717
            }
5718
            break;
11806 schaersvoo 5719
 
5720
        case XYLOGSCALE:
7614 schaersvoo 5721
        /*
11806 schaersvoo 5722
         @ xylogscale majorcolor,minorcolor
14071 bpr 5723
         @ the x/y-range are set using commands ''xrange xmin,xmax`` and ''yrange ymin,ymax``
5724
         @ the linewidth is set using command ''linewidth int``
5725
         @ the opacity of major / minor grid lines is set by command ''opacity [0-255],[0-255]``
14078 bpr 5726
         @ default logbase number = 10 ... when needed, set the logbase number with command ''xlogbase number`` and/or ''ylogbase number``
14071 bpr 5727
         @ 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>
5728
         @ note: the complete canvas will be used for the ''log paper``
11806 schaersvoo 5729
         @ note: userdrawings are done in the log paper, e.g. javascript:read_canvas() will return the real values
14071 bpr 5730
         @ note: command ''mouse color,fontsize`` will show the real values in the logpaper.<br />\
5731
         @ 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``)
14078 bpr 5732
         @ note: in case of userdraw, the use of keyword ''userinput_xy`` may be handy !
14071 bpr 5733
         @ <b>attention</b>: keyword ''snaptogrid`` may not lead to the desired result...
15111 schaersvoo 5734
         @ <b>attention</b>: do not use command ''zoom``
13829 bpr 5735
         @%xylogscale%size 400,400%xrange 10,50000%yrange 10,50000%xlabel x-axis%ylabel y-axis%xylogscale black,grey%display xy,red,22
7614 schaersvoo 5736
        */
11972 schaersvoo 5737
            use_axis_numbering++;if(use_axis_numbering > 1){use_axis_numbering = 1;}
11806 schaersvoo 5738
            if( js_function[DRAW_GRID] == 1 ){canvas_error("only one type of grid is allowed...");}
15111 schaersvoo 5739
            js_function[DRAW_XYLOGSCALE] = 1;
11806 schaersvoo 5740
            for(i=0;i<2;i++){
7614 schaersvoo 5741
                switch(i){
11806 schaersvoo 5742
                    case 0: stroke_color = get_color(infile,0); break;
5743
                    case 1: fill_color = get_color(infile,1);
14208 schaersvoo 5744
                        string_length = 1 + 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);
5745
                        tmp_buffer = my_newmem(string_length);
11806 schaersvoo 5746
                        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);
5747
                        fprintf(js_include_file,"use_xlogscale=1;use_ylogscale=1;snap_x = xlogbase;snap_y = ylogbase;");
5748
                        add_to_buffer(tmp_buffer);
5749
                        break;
7614 schaersvoo 5750
                    default:break;
5751
                }
5752
            }
5753
        break;
11806 schaersvoo 5754
 
5755
 
5756
        case Y_AXIS_STRINGS:
7647 schaersvoo 5757
        /*
11806 schaersvoo 5758
         @ yaxis num1:string1:num2:string2:num3:string3:num4:string4:....num_n:string_n
15715 schaersvoo 5759
         @ alternative: yaxistext
15313 schaersvoo 5760
         @ use command ''fontcolor``, ''fontfamily`` to adjust font <br />defaults: black,12,Arial<br /> note: command ''fontsize`` is not active for this command.(''fontsize`` can be used for the <a href="#legend">legend</a> in a <a href="#grid">grid</a>)
11806 schaersvoo 5761
         @ no need to use keyword <a href="#axisnumbering">axisnumbering</a>
13936 bpr 5762
         @ use command <a href="#axis">axis</a> to have visual x/y-axis lines (see command <a href="#grid">grid</a>
14071 bpr 5763
         @ use these y-axis num1...num_n values instead of default ymin...ymax
11806 schaersvoo 5764
         @ a javascript error message will flag non-matching value:name pairs
5765
         @ to be used before command grid (see <a href="#grid">command grid</a>)
12107 schaersvoo 5766
         @%yaxistext%size 400,400%yrange 0,13%xrange -100,500%axis%yaxis 1:january:2:february:3:march:5:may:6:june:7:july:8:august:9:september:10:october:11:november:12:december%#'ymajor' steps should be synchronised with numbers eg. "1" in this example%grid 100,1,grey,4,1,6,grey
7647 schaersvoo 5767
        */
11806 schaersvoo 5768
            temp = get_string(infile,1);
5769
            if( strstr(temp,":") != 0 ){ temp = str_replace(temp,":","\",\"");}
5770
            if( strstr(temp,"pi") != 0 ){ temp = str_replace(temp,"pi","(3.1415927)");}/* we need to replace pi for javascript y-value*/
5771
            fprintf(js_include_file,"y_strings = [\"%s\"];\n ",temp);
11891 schaersvoo 5772
            use_axis_numbering++;
11806 schaersvoo 5773
            break;
5774
 
5775
 
5776
        case YERRORBARS:
7614 schaersvoo 5777
        /*
11806 schaersvoo 5778
        @ yerrorbars color,E1,E2,x1,y1,x2,y2,...,x_n,y_n
15111 schaersvoo 5779
        @ draw multiple points with y-errorbars E1 (error value under point) and E2 (error value above point) at given coordinates in color 'color'
11806 schaersvoo 5780
        @ the errors E1 and E2 values are in yrange.
14071 bpr 5781
        @ use command ''linewidth int`` to adust size
11806 schaersvoo 5782
        @ may be set <a href="#drag">draggable</a> / <a href="#onclick">onclick</a> individually (!)
12107 schaersvoo 5783
        @%yerrorbars%size 400,400%xrange -10,10%yrange -10,10%linewidth 2%onclick%yerrorbars red,0.8,1.3,0,0,1,1,2,3,3,2,4,5,5,2,6,1,-1,-2,-2,0,-3,2,-4,4,-5,-1
7614 schaersvoo 5784
        */
11806 schaersvoo 5785
            stroke_color=get_color(infile,0); /* how nice: now the color comes first...*/
5786
            fill_color = stroke_color;
11772 schaersvoo 5787
            i=0;
5788
            while( ! done ){     /* get next item until EOL*/
11997 schaersvoo 5789
                if(i > MAX_INT - 1){canvas_error("too many points in argument: repeat command multiple times to fit");}
11772 schaersvoo 5790
                if(i%2 == 0 ){
5791
                    double_data[i] = get_real(infile,0); /* x */
5792
                }
5793
                else
5794
                {
5795
                    double_data[i] = get_real(infile,1); /* y */
5796
                }
5797
                i++;
5798
            }
15111 schaersvoo 5799
            if( use_slider != -1 && onclick == 0){ onclick = 3; }/* no drag&onclick but slideable */
11806 schaersvoo 5800
            for(c = 2 ; c < i-1 ; c = c+2){
15111 schaersvoo 5801
                string_length = 1 + snprintf(NULL,0,"dragstuff.addShape(new Shape(%d,%d,%d,%d,19,[%.*f],[%.*f],[%.2f],[%.2f],%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+1],double_data[0],double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,1,0,0,0,use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
5802
                check_string_length(string_length);tmp_buffer = my_newmem(string_length);
5803
                snprintf(tmp_buffer,string_length,"dragstuff.addShape(new Shape(%d,%d,%d,%d,19,[%.*f],[%.*f],[%.2f],[%.2f],%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+1],double_data[0],double_data[1],line_width,stroke_color,stroke_opacity,stroke_color,stroke_opacity,1,0,0,0,use_rotate,angle,flytext,font_size,font_family,my_sliders,rotation_center,use_offset);
5804
                add_to_buffer(tmp_buffer);
5805
                /* object_cnt++; */
5806
                if(onclick != 0){object_cnt++;}
8083 schaersvoo 5807
            }
11806 schaersvoo 5808
            decimals = find_number_of_digits(precision);
8083 schaersvoo 5809
            reset();
15111 schaersvoo 5810
            dragstuff[19] = 1;
5811
            if(use_dragstuff == 0 ){ use_dragstuff = 1;}
11806 schaersvoo 5812
            break;
11811 schaersvoo 5813
        case YOFFSET:
5814
        /*
5815
         @ yoffset
14162 bpr 5816
         @ keyword; to place the text centered above the text coordinates(x:y) ...
13829 bpr 5817
         @ may be used for points or other things requiring centered labels
12063 schaersvoo 5818
         @ use <a href="#fontfamily">fontfamily</a> for setting the font
5819
         @ may be active for commands <a href="#text">text</a> and <a href="#string">string</a> (e.g. objects in the drag/drop/onclick-library)
15313 schaersvoo 5820
         @%yoffset%size 400,400%xrange -10,10%yrange -10,10%fontfamily 12pt Arial%string blue,-9,-9,no offset%point -9,-9,red%centered%string blue,-6,-6,centered%point -6,-6,red%xoffset%string blue,-3,-3,xoffset%point -3,-3,red%yoffset%string blue,0,0,yoffset%point 0,0,red%xyoffset%string blue,3,3,xyoffset%point 3,3,red%resetoffset%string blue,6,6,resetoffset%point 6,6,red
11811 schaersvoo 5821
        */
12063 schaersvoo 5822
         use_offset = 1;
11811 schaersvoo 5823
         break;
5824
 
11806 schaersvoo 5825
        case YRANGE:
7614 schaersvoo 5826
        /*
11806 schaersvoo 5827
        @ yrange ymin,ymax
15715 schaersvoo 5828
        @ alternative: rangey
11806 schaersvoo 5829
        @ if not given 0,ysize (eg in pixels)
7614 schaersvoo 5830
        */
11806 schaersvoo 5831
            for(i = 0 ; i<2; i++){
7614 schaersvoo 5832
                switch(i){
11806 schaersvoo 5833
                    case 0: ymin = get_real(infile,0);break;
5834
                    case 1: ymax = get_real(infile,1);break;
5835
                    default: break;
7614 schaersvoo 5836
                }
5837
            }
15111 schaersvoo 5838
            if(ymin >= ymax){canvas_error(" yrange is not OK: ymin &lt; ymax !<br />");}
5839
            fprintf(js_include_file,"var ymin = %f;var ymax = %f;",ymin,ymax);
11806 schaersvoo 5840
            found_size_command++;
5841
            break;
5842
 
5843
        case YSNAPTOGRID:
7614 schaersvoo 5844
        /*
11806 schaersvoo 5845
         @ ysnaptogrid
5846
         @ keyword (no arguments required)
14162 bpr 5847
         @ a draggable object (use command ''drag x|y|xy``) will snap to the given y-grid values when dragged (mouseup)
11806 schaersvoo 5848
         @ in case of userdraw the drawn points will snap to ymajor grid
14078 bpr 5849
         @ if no grid is defined, points will snap to every integer yrange value. (eg snap_y=1)
14071 bpr 5850
         @ if you do not want a visible grid, but you only want a ''snaptogrid`` with some value...define this grid with opacity 0.
5851
         @ if yminor is defined (use keyword ''axis`` to activate yminor), the drawing will snap to yminor <br />use only even dividers in y-minor...for example<br /><code>ysnaptogrid<br />axis<br />grid 2,1,grey,4,4,7,red</code><br /> will snap on x=0, x=0.5, x=1, x=1.5 ....<br /> will snap on y=0, y=0.25 y=0.5 y=0.75 ...<br />
15111 schaersvoo 5852
         @%ysnaptogrid_1%size 400,400%xrange -10,10%yrange -10,10%ysnaptogrid%grid 1,1,grey%linewidth 2%userdraw crosshairs,blue%css font-size:8px;color:blue%clearbutton delete all crosshairs
13959 bpr 5853
         @%ysnaptogrid_2%size 400,400%xrange -10,10%yrange -10,10%ysnaptogrid%grid 1,1,grey%linewidth 3%drag y%points red,0,0,0,0,0,0,0,0,0,0
7614 schaersvoo 5854
        */
14038 schaersvoo 5855
        use_snap = 3;
7614 schaersvoo 5856
        break;
11080 schaersvoo 5857
 
7614 schaersvoo 5858
        case YLABEL:
5859
        /*
5860
        @ ylabel some_string
8224 bpr 5861
        @ will be used to create a (vertical) label for the y-axis (label is in quadrant I)
14071 bpr 5862
        @ can only be used together with command <a href="#grid">grid</a><br />not depending on keywords ''axis`` and ''axisnumbering``
14086 bpr 5863
        @ font setting: italic Courier, fontsize will be slightly larger (fontsize + 4)<br />use command ''fontsize`` to adjust (command ''fontsize`` is not active for this command)
15309 schaersvoo 5864
        @ use <a href="#xlabel">xlabel</a>
12107 schaersvoo 5865
        @%ylabel%size 400,400%xrange -10,10%yrange -10,10%fontsize 8%axis%axisnumbering%precision 1%xlabel x-axis%ylabel y-axis%grid 1,1,grey,2,2,2,red
7614 schaersvoo 5866
        */
5867
            temp = get_string(infile,1);
7653 schaersvoo 5868
            fprintf(js_include_file,"var yaxislabel = \"%s\";",temp);
7614 schaersvoo 5869
            break;
7735 schaersvoo 5870
        case YLOGBASE:
5871
        /*
5872
        @ ylogbase number
5873
        @ sets the logbase number for the y-axis
5874
        @ default value 10
5875
        @ use together with commands ylogscale / xylogscale
5876
        */
5877
            fprintf(js_include_file,"ylogbase=%d;",(int)(get_real(infile,1)));
5878
            break;
7614 schaersvoo 5879
        case YLOGSCALE:
7729 schaersvoo 5880
        /*
5881
         @ ylogscale xmajor,xminor,majorcolor,minorcolor
14071 bpr 5882
         @ the x/y-range are set using commands ''xrange xmin,xmax`` and ''yrange ymin,ymax``
7729 schaersvoo 5883
         @ xmajor is the major step on the x-axis; xminor is the divisor for the x-step
14071 bpr 5884
         @ the linewidth is set using command ''linewidth int``
5885
         @ the opacity of major / minor grid lines is set by command ''opacity [0-255],[0-255]``
14078 bpr 5886
         @ default logbase number = 10 ... when needed, set the logbase number with command ''ylogbase number``
14071 bpr 5887
         @ 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 color</li></ul>
5888
         @ note: the complete canvas will be used for the ''log paper``
11088 schaersvoo 5889
         @ note: userdrawings are done in the log paper, e.g. javascript:read_canvas() will return the real values
14071 bpr 5890
         @ note: command ''mouse color,fontsize`` will show the real values in the logpaper.<br />\
5891
         @ 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``)
14078 bpr 5892
         @ note: in case of userdraw, the use of keyword ''userinput_xy`` may be handy !
15111 schaersvoo 5893
         @ <b>attention</b>: do not use command ''zoom``
14071 bpr 5894
         @ <b>attention</b>: keyword ''snaptogrid`` may not lead to the desired result...
7729 schaersvoo 5895
        */
11972 schaersvoo 5896
            use_axis_numbering++;if(use_axis_numbering > 1){use_axis_numbering = 1;}
7729 schaersvoo 5897
            if( js_function[DRAW_GRID] == 1 ){canvas_error("only one type of grid is allowed...");}
15111 schaersvoo 5898
            js_function[DRAW_YLOGSCALE] = 1;
7729 schaersvoo 5899
            for(i=0;i<4;i++){
5900
                switch(i){
5901
                    case 0: double_data[0] = get_real(infile,0);break; /* xmajor */
5902
                    case 1: int_data[0] = (int) (get_real(infile,0));break; /* xminor */
5903
                    case 2: stroke_color = get_color(infile,0); break;
8224 bpr 5904
                    case 3: fill_color = get_color(infile,1);
14208 schaersvoo 5905
                        string_length = 1 + 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);
5906
                        tmp_buffer = my_newmem(string_length);
7779 schaersvoo 5907
                        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);
7735 schaersvoo 5908
                        fprintf(js_include_file,"use_ylogscale=1;snap_x = %f;snap_y = ylogbase;",double_data[0]/int_data[0]);
7729 schaersvoo 5909
                        add_to_buffer(tmp_buffer);
5910
                        break;
5911
                    default:break;
5912
                }
5913
            }
7614 schaersvoo 5914
            break;
11806 schaersvoo 5915
 
5916
        case YUNIT:
7735 schaersvoo 5917
        /*
11806 schaersvoo 5918
         @ yunit some_unit_for_y-values
5919
         @ unicode allowed (no html code)
5920
         @ use together with command mousey
14071 bpr 5921
         @ will display the cursor y-coordinate in ''unit``
7735 schaersvoo 5922
        */
11806 schaersvoo 5923
            fprintf(js_include_file,"unit_y = \"%s\";",get_string(infile,1));
5924
            break;
5925
 
5926
        case ZOOM:
5927
        /*
5928
         @ zoom button_color
15313 schaersvoo 5929
         @ introduce a very small ''controlpanel`` at the lower right corner (font size of the panel is fixed to: 22px Arial)
15111 schaersvoo 5930
         @ giving six 15&times;15px ''active`` rectangle areas<br />(''&times;,&darr;,&uarr;,&larr;,&rarr;,&minus;,+``) for zooming and/or panning of the image
5931
         @ a mouse wheel is active for in/out zooming. Drag panning is not supported (this will conflict with many ''userdraw`` or ''multidraw`` primitives)
5932
         @ the ''controlpanel`` is not active for a ''userdraw`` mousedown (but it can interfere with some ''userdraw`` types)
5933
         @ the ''&times;`` symbol will reset to your original xmax/xmin ymax/ymin values.
5934
         @ choose an appropriate color, so the small ''&times;,&darr;,&uarr;,&larr;,&rarr;,&minus;,+`` are clearly visible
14071 bpr 5935
         @ command ''opacity`` may be used to set stroke_opacity of buttons
15111 schaersvoo 5936
         @ note: on zooming, text will not increase / decrease the font size (todo??)
15116 bpr 5937
         @ note: adding ''zooming`` will increase the size of the javascript include with approx. 11 kb
11806 schaersvoo 5938
        */
15111 schaersvoo 5939
            js_function[INTERACTIVE] = 1;
5940
            js_function[JS_ZOOM] = 1;
5941
            if( use_userdraw == 1 ){
5942
              js_function[USERDRAW_AND_ZOOM] = 1;
5943
              fprintf(js_include_file,"forbidden_zone = [%d,%d];",xsize-115,ysize - 20);
5944
            }
5945
            if(jsplot_cnt != -1){ js_function[JSPLOT_AND_ZOOM] = 1;}
11806 schaersvoo 5946
            stroke_color = get_color(infile,1);
5947
            /* we use BG_CANVAS (0) */
15111 schaersvoo 5948
            add_js_zoom_buttons(stroke_color,stroke_opacity);
11806 schaersvoo 5949
            done = TRUE;
5950
            break;
5951
 
5952
/* ready */
7614 schaersvoo 5953
        default:sync_input(infile);
5954
        break;
5955
    }
8224 bpr 5956
  }
7614 schaersvoo 5957
  /* we are done parsing script file */
15111 schaersvoo 5958
  if(use_dragstuff != 0){
5959
  /*  add the 20kb drag code: nearly always used ... use_dragstuff==1: no-mouse ! */
5960
     add_drag_code(DRAG_CANVAS,use_dragstuff,dragstuff,reply_format);
5961
     if(js_function[JS_ZOOM] == 1){
5962
        js_function[DRAG_AND_ZOOM] = 1;
5963
     }
5964
  }
15116 bpr 5965
 
14066 bpr 5966
  /* check if xrange / yrange was set explicit ... or use xmin=0 xmax=xsize ymin=0 ymax=ysize: Quadrant I */
7983 schaersvoo 5967
  if( found_size_command == 1 ){
5968
    fprintf(js_include_file,"var xmin = 0;var xmax = %d;var ymin = 0;var ymax = %d",xsize,ysize);
5969
  }
5970
  else
5971
  {
5972
    if( found_size_command != 3 ){
15111 schaersvoo 5973
     canvas_error("Please specify size first and then both xrange and yrange ...");
7983 schaersvoo 5974
    }
5975
  }
8257 schaersvoo 5976
 
14066 bpr 5977
  /* if needed, add generic draw functions (grid / xml etc) to buffer: these are no draggable/clickable shapes / objects  ! */
15111 schaersvoo 5978
  add_javascript_function();
7614 schaersvoo 5979
   /* add read_canvas() etc functions if needed */
15111 schaersvoo 5980
  if( reply_format > 0 ){ add_read_canvas(reply_format,reply_precision);}
7797 schaersvoo 5981
  /* no zoom, just add buffer */
15111 schaersvoo 5982
  fprintf(js_include_file,"\n/* add buffer */\n%s};\n/* end wims_canvas_function */\nwims_canvas_function%d();\n",buffer,canvas_root_id);
7614 schaersvoo 5983
/* done writing the javascript include file */
5984
fclose(js_include_file);
5985
}
5986
 
5987
/* if using a tooltip, this should always be printed to the *.phtml file, so stdout */
9329 schaersvoo 5988
 if( use_tooltip > 0 ){
5989
  if( use_tooltip == 1 ){
15111 schaersvoo 5990
   add_js_tooltip(tooltip_text,bgcolor);
9329 schaersvoo 5991
  }
5992
  else
5993
  {
5994
   if( use_tooltip == 2 ){
15111 schaersvoo 5995
    add_js_popup(getfile_cmd);
9329 schaersvoo 5996
   }
5997
  }
5998
 }
7614 schaersvoo 5999
exit(EXIT_SUCCESS);
6000
}
6001
/* end main() */
6002
 
15111 schaersvoo 6003
 
7614 schaersvoo 6004
/******************************************************************************
6005
**
6006
**  sync_input
6007
**
6008
**  synchronises input line - reads to end of line, leaving file pointer
6009
**  at first character of next line.
6010
**
6011
**  Used by:
6012
**  main program - error handling.
6013
**
6014
******************************************************************************/
6015
void sync_input(FILE *infile)
6016
{
6017
        int c = 0;
6018
 
7658 schaersvoo 6019
        if( c == '\n' || c == ';' ) return;
6020
        while( ( (c=getc(infile)) != EOF ) && (c != '\n') && (c != '\r') && (c != ';')) ;
7614 schaersvoo 6021
        if( c == EOF ) finished = 1;
7658 schaersvoo 6022
        if( c == '\n' || c == '\r' || c == ';') line_number++;
7614 schaersvoo 6023
        return;
6024
}
6025
 
6026
/******************************************************************************/
6027
 
15111 schaersvoo 6028
 
6029
void transform(int num,int incr){
6030
/*.
6031
only "double_data[]" is used for transformations !!
6032
*/
6033
 int i;int ii;double x,y;
6034
 for(i=0;i<num;i = i+incr){
6035
  ii = i+1;
6036
  x = double_data[i]*affine_matrix[0] + double_data[ii]*affine_matrix[1]+affine_matrix[4];
6037
  y = double_data[i]*affine_matrix[2] + double_data[ii]*affine_matrix[3]+affine_matrix[5];
15601 schaersvoo 6038
 /*
6039
  printf("(%f:%f) &rarr; (%f:%f)<br />",double_data[i],double_data[ii],x,y);
6040
 */
15111 schaersvoo 6041
  double_data[i] = x;
6042
  double_data[ii] = y;
6043
 }
6044
}
6045
 
6046
void rotate(int num,double angle,double center[],int incr){
6047
 int i;int ii;double rad = angle * 0.0174532925199;
6048
 double c = cos(rad);
6049
 double s = sin(rad);
6050
 double x,y;
6051
 for(i=0;i<num;i = i+incr){
6052
  ii = i+1;
6053
  x = c*(double_data[i]-center[0]) + s*(double_data[ii] - center[1] ) + center[0];
6054
  y = c*(double_data[ii]-center[1]) - s*(double_data[i] - center[0] ) + center[1];
6055
  double_data[i] = x;
6056
  double_data[ii] = y;
15116 bpr 6057
 // printf("(x:y) - (%f:%f)<br />",x,y);
15111 schaersvoo 6058
 }
6059
}
6060
/* not used: see transform()
6061
void translate(int num){
6062
 int i;int ii;
6063
 double x,y;
6064
 for(i=0;i<num;i = i+2){
6065
  ii = i+1;
6066
  x = double_data[i] + affine_matrix[4];
6067
  y = double_data[ii] + affine_matrix[5];
6068
  double_data[i] = x;
6069
  double_data[ii] = y;
6070
 }
6071
}
6072
*/
7614 schaersvoo 6073
char *str_replace(const char *str, const char *old, const char *new){
6074
    if(strlen(str) > MAX_BUFFER){canvas_error("string argument too big");}
6075
    char *ret, *r;
6076
    const char *p, *q;
6077
    size_t oldlen = strlen(old);
6078
    size_t count = 0;
6079
    size_t retlen = 0;
6080
    size_t newlen = strlen(new);
6081
    if (oldlen != newlen){
6082
        for (count = 0, p = str; (q = strstr(p, old)) != NULL; p = q + oldlen){
6083
            count++;
6084
            retlen = p - str + strlen(p) + count * (newlen - oldlen);
6085
        }
8224 bpr 6086
    }
7614 schaersvoo 6087
    else
6088
    {
6089
        retlen = strlen(str);
6090
    }
8224 bpr 6091
 
7614 schaersvoo 6092
    if ((ret = malloc(retlen + 1)) == NULL){
6093
        ret = NULL;
6094
        canvas_error("string argument is NULL");
6095
    }
6096
    else
6097
    {
6098
        for (r = ret, p = str; (q = strstr(p, old)) != NULL; p = q + oldlen) {
6099
            size_t l = q - p;
6100
            memcpy(r, p, l);
6101
            r += l;
6102
            memcpy(r, new, newlen);
6103
            r += newlen;
6104
        }
6105
        strcpy(r, p);
6106
    }
6107
    return ret;
6108
}
6109
 
6110
/******************************************************************************/
7848 bpr 6111
 
7614 schaersvoo 6112
char *get_color(FILE *infile , int last){
6113
    int c,i = 0,is_hex = 0;
6114
    char temp[MAX_COLOR_STRING], *string;
8305 schaersvoo 6115
    const char *not_allowed = "0123456789";
10891 schaersvoo 6116
    while(( (c=getc(infile)) != EOF ) && ( c != '\n') && ( c != ',' ) && ( c != ';' )  && ( c != '\t' ) ){
7614 schaersvoo 6117
        if( i > MAX_COLOR_STRING ){ canvas_error("colour string is too big ... ? ");}
6118
        if( c == '#' ){
6119
            is_hex = 1;
6120
        }
6121
        if( c != ' '){
8304 schaersvoo 6122
            if( is_hex == 0 ){if(strchr(not_allowed,c) != 0){canvas_error("found something like a number...but is should have been a colour or #hex color number...<br />Do not use R,G,B !!! ");}}
7614 schaersvoo 6123
            temp[i]=tolower(c);
6124
            i++;
6125
        }
6126
    }
10891 schaersvoo 6127
    if( ( c == '\n' || c == EOF || c == ';' || c == '\t' ) && last == 0){canvas_error("expecting more arguments in command");}
6128
    if( c == '\n' || c == ';'  || c == '\t' ){ done = TRUE; line_number++; }
7614 schaersvoo 6129
    if( c == EOF ){finished = 1;}
6130
    if( finished == 1 && last != 1 ){ canvas_error("expected more arguments");}
6131
    temp[i]='\0';
6132
    if( strlen(temp) == 0 ){ canvas_error("expected a colorname or hexnumber, but found nothing !!");}
6133
    if( is_hex == 1 ){
6134
        char red[3], green[3], blue[3];
6135
        red[0]   = toupper(temp[1]); red[1]   = toupper(temp[2]); red[2]   = '\0';
6136
        green[0] = toupper(temp[3]); green[1] = toupper(temp[4]); green[2] = '\0';
6137
        blue[0]  = toupper(temp[5]); blue[1]  = toupper(temp[6]); blue[2]  = '\0';
6138
        int r = (int) strtol(red,   NULL, 16);
6139
        int g = (int) strtol(green, NULL, 16);
6140
        int b = (int) strtol(blue,  NULL, 16);
14408 schaersvoo 6141
        int L0 = 1+snprintf(NULL,0,"%d,%d,%d",r,g,b);
6142
        string = my_newmem(L0);
6143
        snprintf(string,L0,"%d,%d,%d",r,g,b);
7614 schaersvoo 6144
        return string;
6145
    }
6146
    else
6147
    {
6148
        string = (char *)my_newmem(sizeof(temp));
6149
        snprintf(string,sizeof(temp),"%s",temp);
8304 schaersvoo 6150
        for( i = 0; i < NUMBER_OF_COLORNAMES ; i++ ){
7614 schaersvoo 6151
            if( strcmp( colors[i].name , string ) == 0 ){
6152
                return colors[i].rgb;
6153
            }
6154
        }
8304 schaersvoo 6155
        canvas_error("I was expecting a color name or hexnumber...but found nothing.");
7614 schaersvoo 6156
    }
8304 schaersvoo 6157
    return "0,0,255";
7614 schaersvoo 6158
}
6159
 
14066 bpr 6160
char *get_string(FILE *infile,int last){ /* last = 0: more arguments ; last=1 final argument */
7614 schaersvoo 6161
    int c,i=0;
6162
    char  temp[MAX_BUFFER], *string;
10891 schaersvoo 6163
    while(( (c=getc(infile)) != EOF ) && ( c != '\n') && ( c != '\t') ){
7614 schaersvoo 6164
        temp[i]=c;
6165
        i++;
6166
        if(i > MAX_BUFFER){ canvas_error("string size too big...repeat command to fit string");break;}
6167
    }
10891 schaersvoo 6168
    if( ( c == '\n' ||  c == '\t'  || c == EOF ) && last == 0){canvas_error("expecting more arguments in command");}
6169
    if( c == '\n' ||  c == '\t') { done = TRUE; line_number++; }
11022 schaersvoo 6170
    if( c == EOF ) {finished = 1;}
7614 schaersvoo 6171
    temp[i]='\0';
15722 obado 6172
    if( strlen(temp) == 0 && last != 3 ){ canvas_error("expected a word or string, but found nothing!");}
7614 schaersvoo 6173
    string=(char *)my_newmem(strlen(temp));
6174
    snprintf(string,sizeof(temp),"%s",temp);
6175
    return string;
6176
}
6177
 
14066 bpr 6178
char *get_string_argument(FILE *infile,int last){  /* last = 0: more arguments ; last=1 final argument */
7614 schaersvoo 6179
    int c,i=0;
6180
    char temp[MAX_BUFFER], *string;
10891 schaersvoo 6181
    while(( (c=getc(infile)) != EOF ) && ( c != '\n') && ( c != '\t') && ( c != ',')){
7614 schaersvoo 6182
        temp[i]=c;
6183
        i++;
6184
        if(i > MAX_BUFFER){ canvas_error("string size too big...will cut it off");break;}
6185
    }
8224 bpr 6186
    if( ( c == '\n' || c == EOF) && last == 0){canvas_error("expecting more arguments in command");}
10891 schaersvoo 6187
    if( c == '\n' || c == '\t' ) { line_number++; }
7614 schaersvoo 6188
    if( c == EOF ) {finished = 1;}
9478 schaersvoo 6189
    if( finished == 1 && last == 0 ){ canvas_error("expected more arguments");}
7614 schaersvoo 6190
    temp[i]='\0';
10953 bpr 6191
/*
8322 schaersvoo 6192
    17.10.2014 removed (question Perrin)
6193
    may cause some unwanted effects...
14078 bpr 6194
    if( strlen(temp) == 0 ){ canvas_error("expected a word or string (without comma), but found nothing !!");}
8322 schaersvoo 6195
*/
7614 schaersvoo 6196
    string=(char *)my_newmem(sizeof(temp));
6197
    snprintf(string,sizeof(temp),"%s",temp);
6198
    done = TRUE;
6199
    return string;
6200
}
6201
 
14066 bpr 6202
double get_real(FILE *infile, int last){ /* accept anything that looks like an number ?  last = 0: more arguments ; last=1 final argument */
7614 schaersvoo 6203
    int c,i=0,found_calc = 0;
6204
    double y;
6205
    char tmp[MAX_INT];
10953 bpr 6206
    /*
14066 bpr 6207
     these things are 'allowed functions': *,^,+,-,/,(,),e,arc,cos,tan,pi,log,ln,sqrt,abs
8383 schaersvoo 6208
     but there should be a better way to avoid segfaults !
8348 schaersvoo 6209
    */
6210
    const char *allowed = "earcostanpilogqb*+-/^()";/* assuming these are allowed stuff in a 'number'*/
6211
    const char *not_allowed = "#dfhjkmuvwxyz{}[]%&~!$";/* avoid segmentation faults in a "atof()" and "wims eval" */
10891 schaersvoo 6212
    while(( (c=getc(infile)) != EOF ) && ( c != ',') && (c != '\n') && (c != '\t') && ( c != ';')){
7614 schaersvoo 6213
     if( c != ' ' ){
8224 bpr 6214
      if( i == 0 &&  c == '+' ){
7614 schaersvoo 6215
       continue;
8224 bpr 6216
      }
7614 schaersvoo 6217
      else
6218
      {
8304 schaersvoo 6219
       c = tolower(c);
6220
       if( strchr(not_allowed,c) != 0 ){canvas_error("found a character not associated with a number...");}
6221
       if( strchr(allowed,c) != 0 ){found_calc = 1;}/* hand the string over to wims eval() */
7614 schaersvoo 6222
       tmp[i] = c;
6223
       i++;
6224
      }
6225
     }
6226
     if( i > MAX_INT - 1){canvas_error("number too large");}
6227
    }
10891 schaersvoo 6228
    if( ( c == '\n' || c == EOF || c == ';' || c == '\t' ) && last == 0){canvas_error("expecting more arguments in command");}
6229
    if( c == '\n' || c == ';' || c == '\t' ){ done = TRUE; line_number++; }
7614 schaersvoo 6230
    if( c == EOF ){done = TRUE ; finished = 1;}
6231
    tmp[i]='\0';
15633 bpr 6232
    if( strlen(tmp) == 0 ){canvas_error("expected a number, but found nothing !!");}
8304 schaersvoo 6233
    if( found_calc == 1 ){ /* use wims eval to calculate 2*pi/3 */
7848 bpr 6234
     void *f = eval_create(tmp);
7614 schaersvoo 6235
     assert(f);if( f == NULL ){canvas_error("I'm having trouble parsing your \"expression\" ") ;}
7848 bpr 6236
     y = eval_x(f, 1);
14066 bpr 6237
     /* if function is bogus; y = 1: so no core dumps */
7848 bpr 6238
     eval_destroy(f);
7614 schaersvoo 6239
    }
6240
    else
6241
    {
6242
     y = atof(tmp);
6243
    }
6244
    return y;
6245
}
8304 schaersvoo 6246
 
13829 bpr 6247
 
7614 schaersvoo 6248
void canvas_error(char *msg){
15722 obado 6249
    fprintf(stdout,"\n</script><hr /><span style=\"color:red\">FATAL syntax error: line %d: %s</span><hr />",line_number,msg);
7614 schaersvoo 6250
    finished = 1;
6251
    exit(EXIT_SUCCESS);
6252
}
6253
 
6254
 
6255
/* convert x/y coordinates to pixel */
6256
int x2px(double x){
6257
 return x*xsize/(xmax - xmin) -  xsize*xmin/(xmax - xmin);
6258
}
6259
 
6260
int y2px(double y){
6261
 return -1*y*ysize/(ymax - ymin) + ymax*ysize/(ymax - ymin);
6262
}
6263
 
6264
double px2x(int x){
6265
 return (x*(xmax - xmin)/xsize + xmin);
6266
}
6267
double px2y(int y){
6268
 return (y*(ymax - ymin)/ysize + ymin);
6269
}
6270
 
6271
void add_to_buffer(char *tmp){
15111 schaersvoo 6272
//fprintf(stdout,"tmp = %s<br />buffer = %s<br />",tmp,buffer);
7614 schaersvoo 6273
 if( tmp == NULL || tmp == 0 ){ canvas_error("nothing to add_to_buffer()...");}
6274
 /*  do we have enough space left in buffer[MAX_BUFFER] ? */
6275
 int space_left = (int) (sizeof(buffer) - strlen(buffer));
6276
 if( space_left > strlen(tmp)){
6277
  strncat(buffer,tmp,space_left - 1);/* add safely "tmp" to the string buffer */
6278
 }
6279
 else
6280
 {
15111 schaersvoo 6281
  canvas_error("your memory buffer is too big<br />simplify your script...it produces too many lines ");
7614 schaersvoo 6282
 }
6283
 tmp = NULL;free(tmp);
6284
 return;
6285
}
6286
 
6287
void reset(){
15111 schaersvoo 6288
 if(no_reset == FALSE){ /* 8/5/2020 */
6289
  use_filled = FALSE;
6290
  use_dashed = FALSE;
6291
  if(onclick != 4 ){onclick = 0;} /* slider param 'active'... onclick=4 */
6292
  drag_type = -1;
6293
  use_offset = 0;
15601 schaersvoo 6294
 }
7614 schaersvoo 6295
}
6296
 
15111 schaersvoo 6297
char *getMML(char *tex){
6298
 int my_pipe[2];pid_t pid;
6299
 if(pipe(my_pipe)){canvas_error("mathml(): pipe() failure.\n");}
6300
  pid = fork();
6301
  if (pid == (pid_t) 0){
6302
   char *argv[]={"wims_mathml","--use-zoom","0","--tex-size 100%","--max-mml-size","1024","--tex-string",tex,NULL};
6303
   close(my_pipe[0]);dup2(my_pipe[1], 1);dup2(my_pipe[1], 2);close(my_pipe[1]);
6304
   execv("../bin/wims_mathml",argv);canvas_error("could not execute wims_mathml\n");
6305
  }
6306
  else
15116 bpr 6307
  {
15111 schaersvoo 6308
  if (pid < (pid_t) 0){
15116 bpr 6309
   close(my_pipe[0]);close(my_pipe[1]);canvas_error("mathml(): fork() failure.\n");
15111 schaersvoo 6310
  }
6311
  int status;FILE *stream;close(my_pipe[1]);stream = fdopen (my_pipe[0], "r");
6312
  char buffer[MAX_BUFFER+1];memset(buffer,'\0',MAX_BUFFER);
6313
  fgets(buffer, MAX_BUFFER, stream);
6314
  int L0 = 1 + snprintf(NULL,0,"%s", buffer);
6315
  tex = my_newmem(L0);memset(tex,'\0',L0);
6316
  snprintf(tex,L0,"%s",buffer);
15116 bpr 6317
  fclose (stream);close(my_pipe[0]);waitpid(pid, &status, 0);
15111 schaersvoo 6318
 }
6319
 return tex;
6320
}
7614 schaersvoo 6321
 
15111 schaersvoo 6322
char *getSVGMOL(char *inputtype,char *keys){
6323
  int idx;
6324
  char *forbidden[] = {"-O","-H","-z","-L","-o","-m"};
6325
  char *argv[1+strlen(keys)];
6326
  argv[0] = "obabel"; argv[1] = "-i"; argv[2] = inputtype;
6327
  idx = 3;int i;
6328
  char *ptr = strtok(keys,",");
6329
  while(ptr != NULL ){
6330
    for(i = 0 ; i < 6; i++ ){if( strncmp(ptr,forbidden[i],2) == 0 ){return "NOT ALLOWED ARGUMENT";}}
6331
    argv[idx] = ptr; idx++;
6332
    if(idx > 18){canvas_error("too many arguments for obabel....see docs<br />");}
6333
    ptr = strtok(NULL,",");
6334
  }
6335
  /* last arguments; no 'javascript', only 'svg to STDOUT' and 'NULL' */
6336
  argv[idx] = "-xj";argv[idx+1] = "-o"; argv[idx+2] = "svg";argv[idx+3] = NULL;
6337
  int link[2];
6338
  pid_t pid;
6339
  char buffer[MAX_BUFFER+1];
6340
  memset(buffer,'\0',MAX_BUFFER);
6341
  if (pipe(link)==-1){canvas_error("pipe");}
6342
  if ((pid = fork()) == -1){canvas_error("fork");}
15116 bpr 6343
 
15111 schaersvoo 6344
  char *svgmol = "error";
6345
  int string_length = 0;
15116 bpr 6346
 
15111 schaersvoo 6347
  if(pid == 0) {
6348
    dup2 (link[1], STDOUT_FILENO);
6349
    dup2(link[0],  STDERR_FILENO);/* remove annoying messages '1 molecule converted' */
6350
    close(link[0]);
6351
    close(link[1]);
6352
    execvp("obabel",argv);
6353
  } else {
6354
    close(link[1]);
6355
    read(link[0],buffer, 1+sizeof(buffer));
6356
    close(link[0]);
6357
    /* need to remover newline from svg-string on freebsd */
6358
    char *pch = strstr(buffer, "\n");
6359
    while(pch != NULL){
6360
     strncpy(pch, " ", 1);
6361
     pch = strstr(buffer, "\n");
6362
    }
6363
    string_length = 1 + snprintf(NULL,0,"%s",buffer);
6364
    svgmol= my_newmem(string_length);
6365
    snprintf(svgmol,string_length,"%s",buffer);
6366
    wait(NULL);
6367
  }
6368
 return svgmol;
6369
}
7614 schaersvoo 6370
 
6371
 
15111 schaersvoo 6372
/* GNU libmatheval library for evaluating mathematical functions. */
15601 schaersvoo 6373
char *eval(int xsize,int ysize,char *fun,double xmin,double xmax,double ymin,double ymax,int plotsteps,int precision,double rotationcenter[]){
15111 schaersvoo 6374
    void *f;
6375
    double x;
6376
    double y;
15601 schaersvoo 6377
    double xorg;
15111 schaersvoo 6378
    int xv;
6379
    int i = 0;
6380
    int xstep =(int)(xsize/plotsteps);
6381
    if( xstep == 0 ){xstep = 1;}
6382
    double a = (xmax - xmin)/xsize;
6383
    f = eval_create(fun);
6384
    assert (f);
6385
    if( f == NULL ){canvas_error("I'm having trouble parsing your \"expression\" ") ;}
6386
    /* we supply the true x/y values...draw_curve() will convert these (x:y) to pixels : used for pan/scale */
6387
    double xydata[MAX_BUFFER+1];/* hmmm */
6388
    int lim_ymin =(int)( ymin - 4*fabs(ymin));/* 19-4-2015 replacing "abs" by "fabs"*/
6389
    int lim_ymax =(int)( ymax + 4*fabs(ymax));/* 19-4-2015 replacing "abs" by "fabs"*/
15669 schaersvoo 6390
    double c = 1.0;double s = 1.0;
15601 schaersvoo 6391
    if( use_rotate == TRUE ){s = sin(angle*0.0174533);c = cos(angle*0.0174533);}
15111 schaersvoo 6392
    for ( xv = 0 ;xv < xsize ; xv = xv+xstep ){
6393
        x = (double) (xv*a + xmin);
15601 schaersvoo 6394
        xorg = x;
15111 schaersvoo 6395
        if( i < MAX_BUFFER - 2){
6396
            y = eval_x(f, x);
6397
            if(y < lim_ymax && y > lim_ymin ){
15540 schaersvoo 6398
                if( use_affine == TRUE ){
6399
                    x = x*affine_matrix[0] + y*affine_matrix[1]+affine_matrix[4];
15601 schaersvoo 6400
                    y = xorg*affine_matrix[2] + y*affine_matrix[3]+affine_matrix[5];
15540 schaersvoo 6401
                }
15601 schaersvoo 6402
                if( use_rotate == TRUE){
6403
                  x = (c * (x - rotationcenter[0])) + (s * (y - rotationcenter[1])) + rotationcenter[0];
6404
                  y = (c * (y - rotationcenter[1])) - (s * (xorg - rotationcenter[0])) + rotationcenter[1];
6405
                }
15111 schaersvoo 6406
                xydata[i++] = x;
6407
                xydata[i++] = y;
6408
            }
6409
        }
6410
        else
6411
        {
6412
            canvas_error("\nYour curve plotting produces too many data \n Use less plotsteps or some other means to reduce the amount of data... ");
6413
        }
6414
    }
6415
    eval_destroy(f);
6416
    return double_xy2js_array(xydata,i,find_number_of_digits(precision));
6417
}
6418
/* plot a very primitive (!) levelcurve : not to be compared with "flydraw levelcurve" */
6419
char *eval_levelcurve(int xsize,int ysize,char *fun,double xmin,double xmax,double ymin,double ymax,int plotsteps,int precision,double level){
6420
    void *f = eval_create(fun);
6421
    assert (f);
6422
    if( f == NULL ){canvas_error("I'm having trouble parsing your \"expression\" ") ;}
6423
    double a = (double)((xmax - xmin)/plotsteps);
6424
    double b = (double)((ymax - ymin)/plotsteps);
15669 schaersvoo 6425
    double x;double y;double diff;
15111 schaersvoo 6426
    double xydata[MAX_BUFFER+1];
6427
    int i = 0;
6428
    ymin = ymin - 1;
6429
    xmin = xmin - 1;
6430
    ymax = ymax + 1;
6431
    xmax = xmax + 1;
6432
    for( x = xmin ;x < xmax ; x = x + a ){
6433
        for ( y = ymin ;y < ymax ; y = y + b ){
6434
            if( i < MAX_BUFFER - 2){
6435
                diff = level - eval_x_y(f, x,y);
6436
                if(diff < 0.1 && diff > -0.1){
6437
                    xydata[i++] = x;
6438
                    xydata[i++] = y;
6439
                }
6440
            }
6441
            else
6442
            {
6443
                canvas_error("\nYour curve plotting produces too many data \n Use less plotsteps, decrease image size...\nor some other means to reduce the amount of data... ");
6444
            }
6445
        }
6446
    }
6447
    eval_destroy(f);
6448
    return double_xy2js_array(xydata,i,find_number_of_digits(precision));
6449
}
7614 schaersvoo 6450
 
15111 schaersvoo 6451
/* plot parametric function */
6452
char *eval_parametric(int xsize,int ysize,char *fun1,char* fun2,double xmin,double xmax,double ymin,double ymax,
15601 schaersvoo 6453
 double tmin,double tmax,int plotsteps,int precision,double rotationcenter[]){
15111 schaersvoo 6454
    void *fx;
6455
    void *fy;
6456
    double t;
6457
    int i = 0;
6458
    double tstep = (tmax-tmin)/plotsteps;
6459
    if( tstep == 0 ){canvas_error("zero step for t variable : reduce plotsteps or inrease trange");}
6460
    fx = eval_create(fun1);
6461
    fy = eval_create(fun2);
6462
    assert(fx);
6463
    assert(fy);
6464
    if( fx == NULL || fy == NULL ){canvas_error("I'm having trouble parsing your \"expression\" ") ;}
6465
    /* we supply the true x/y values...draw_curve() will convert these (x:y) to pixels : used for pan/scale */
6466
    double xydata[MAX_BUFFER+1];/* hmmm */
6467
    double x; /* real x-values */
6468
    double y; /* real y-values */
15601 schaersvoo 6469
    double xorg;
15623 schaersvoo 6470
    /*
6471
    29/12/2020
15633 bpr 6472
    disabled to try and synchronise curve+affine behaviour in complex scripts produced by "elec, tool circuit" (BPR)
15623 schaersvoo 6473
    int lim_ymin =(int)( ymin - 4*fabs(ymin));
6474
    int lim_ymax =(int)( ymax + 4*fabs(ymax));
6475
    */
15669 schaersvoo 6476
    double c = 1.0;double s = 1.0;if( use_rotate == TRUE ){s = sin(angle*0.0174533);c = cos(angle*0.0174533);}
15111 schaersvoo 6477
    for( t = tmin ;t <= tmax ; t = t + tstep ){
6478
        if( i < MAX_BUFFER - 2 ){
6479
            y = eval_t(fy, t);
15623 schaersvoo 6480
        /*    if(y > lim_ymin && y < lim_ymax){*/
15111 schaersvoo 6481
                x = eval_t(fx, t);
15628 schaersvoo 6482
                if( x == x){ /* no NaN */
6483
                 xorg = x;
6484
                 if( use_affine == TRUE ){
6485
                  x = x*affine_matrix[0] + y*affine_matrix[1]+affine_matrix[4];
6486
                  y = xorg*affine_matrix[2] + y*affine_matrix[3]+affine_matrix[5];
6487
                 }
6488
                 if( use_rotate == TRUE){
6489
                   x = (c * (x - rotationcenter[0])) + (s * (y - rotationcenter[1])) + rotationcenter[0];
6490
                   y = (c * (y - rotationcenter[1])) - (s * (xorg - rotationcenter[0])) + rotationcenter[1];
6491
                 }
6492
                 xydata[i++] = x;
6493
                 xydata[i++] = y;
15540 schaersvoo 6494
                }
15629 bpr 6495
 
15623 schaersvoo 6496
        /*    } */
15111 schaersvoo 6497
        }
6498
        else
6499
        {
6500
            canvas_error("\nYour curve plotting produces too many data \n Use less plotsteps or some other means to reduce the amount of data... ");
6501
        }
6502
    }
6503
    eval_destroy(fx);
6504
    eval_destroy(fy);
6505
    return double_xy2js_array(xydata,i,find_number_of_digits(precision));
6506
}
7614 schaersvoo 6507
 
15111 schaersvoo 6508
char *double_xy2js_array(double xy[],int len,int decimals){
6509
 /*
6510
    1,2,3,4,5,6,7,8 --> [1,3,5,7],[2,4,6,8]
6511
    int xy[] is already checked for errors or overflow in "get_real()"
6512
    just to be sure we double check the size of "temp"
7614 schaersvoo 6513
*/
15111 schaersvoo 6514
    char temp[2*MAX_BUFFER], *string;
6515
    char *tmp = my_newmem(16);/* <= 9999999999999999  */
6516
    memset(temp,'\0',2*MAX_BUFFER);/* clear memory */
6517
    int i;int space_left;
6518
    temp[0] = '[';/* start js-array */
6519
    for(i = 0; i < len;i = i + 2){ /*  x_points[] */
6520
        if(i == len - 2){sprintf(tmp, "%.*f",decimals, xy[i]);}else{sprintf(tmp, "%.*f,",decimals,xy[i]);}
6521
        space_left = (int) (sizeof(temp) - strlen(temp) - strlen(tmp) - 1);
6522
        if( space_left > 0 ){ strncat(temp,tmp,space_left - 1);}else{canvas_error("can not parse integer to js-array:\nYour curve plotting produces too many data \nreduce your image size or plotsteps ");}
6523
    }
6524
    strncat(temp,"],[",4); /* close js x_values array and start new */
6525
    for(i = 1; i < len;i = i + 2){ /* y_points */
6526
        if(i == len - 1){ sprintf(tmp, "%.*f",decimals,xy[i]);}else{sprintf(tmp, "%.*f,",decimals,xy[i]);}
6527
        space_left = (int) (sizeof(temp) - strlen(temp) - strlen(tmp) - 1);
6528
        if( space_left > 0 ){ strncat(temp,tmp,space_left - 1);}else{canvas_error("can not parse integer to js-array:\nYour curve plotting produces too many data \nreduce your image size or plotsteps");}
6529
    }
6530
    strncat(temp,"]",2);
6531
    string=(char *)my_newmem(sizeof(temp));
6532
    snprintf(string,sizeof(temp),"%s",temp);
6533
    return string;
6534
}
7614 schaersvoo 6535
 
15111 schaersvoo 6536
char *list2js_array(char *list, char *s){/* abc:defg:hjiuy:qwer --> ["abc","defg","hjiuy","qwer"] */
6537
#define MAX_ARG 128
15116 bpr 6538
 if( strlen(list)> MAX_ARG - 1){canvas_error("argument is too large (&gt; 128)");}
15111 schaersvoo 6539
 char tmp[MAX_ARG];
6540
 size_t p = 0;
6541
 tmp[0] = '[';
6542
 tmp[1] = '\"';
6543
 size_t t = 2;
6544
 while(list[p] != '\0'){
6545
  if( list[p] == s[0] ){
6546
   tmp[t++]='\"';tmp[t++]=',';tmp[t++]='\"';
6547
  }
6548
  else
6549
  {
6550
   tmp[t++] = list[p];
6551
  }
6552
  p++;
6553
 }
6554
 tmp[t++]='\"';tmp[t++]=']';tmp[t++]= '\0';
6555
 char *js_array = (char *)my_newmem(sizeof(tmp));
6556
 snprintf(js_array,sizeof(tmp),"%s",tmp);
6557
 return js_array;
6558
}
7963 schaersvoo 6559
 
15111 schaersvoo 6560
char *xy2js_array(int xy[],int len){
6561
 /*
6562
    1,2,3,4,5,6,7,8 --> [1,3,5,7],[2,4,6,8]
6563
    int xy[] is already checked for errors or overflow in "get_real()"
6564
    just to be sure we double check the size of "temp"
7614 schaersvoo 6565
*/
15111 schaersvoo 6566
    char temp[MAX_BUFFER], *string;
6567
    char *tmp = my_newmem(16);/* <= 9999999999999999  */
6568
    memset(temp,'\0',MAX_BUFFER);/* clear memory */
6569
    int i;int space_left;
6570
    temp[0] = '[';/* start js-array */
6571
    for(i = 0; i < len;i = i + 2){ /*  x_points[] */
6572
        if(i == len - 2){sprintf(tmp, "%d", xy[i]);}else{sprintf(tmp, "%d,", xy[i]);}
6573
        space_left = (int) (sizeof(temp) - strlen(temp) - strlen(tmp) - 1);
6574
        if( space_left > 0 ){ strncat(temp,tmp,space_left - 1);}else{canvas_error("can not parse integer to js-array:\nYour curve plotting produces too many data \nreduce image size or plotsteps ");}
6575
    }
6576
    strncat(temp,"],[",4); /* close js x_values array and start new */
6577
    for(i = 1; i < len;i = i + 2){ /* y_points */
6578
        if(i == len - 1){ sprintf(tmp, "%d", xy[i]);}else{sprintf(tmp, "%d,", xy[i]);}
6579
        space_left = (int) (sizeof(temp) - strlen(temp) - strlen(tmp) - 1);
6580
        if( space_left > 0 ){ strncat(temp,tmp,space_left - 1);}else{canvas_error("can not parse integer to js-array:\nYour curve plotting produces too many data\nreduce image size or plotsteps \n");}
6581
    }
6582
    strncat(temp,"]",2);
6583
    string=(char *)my_newmem(sizeof(temp));
6584
    snprintf(string,sizeof(temp),"%s",temp);
6585
    return string;
7614 schaersvoo 6586
}
6587
 
15111 schaersvoo 6588
char *data2js_array(int data[],int len){
6589
 /*
6590
    1,2,3,4,5,6,7,8 --> [1,2,3,4,5,6,7,8]
6591
    int data[] is already checked for errors or overflow in "get_real()"
6592
    just to be sure we double check the size of "temp"
7614 schaersvoo 6593
*/
15111 schaersvoo 6594
    char temp[MAX_BUFFER], *string;
6595
    char *tmp = my_newmem(16);/* <= 9999999999999999  */
6596
    memset(temp,'\0',MAX_BUFFER);/* clear memory */
6597
    int i;int space_left;
6598
    temp[0] = '[';/* start js-array */
6599
    for(i = 0; i < len; i++){
6600
        if(i == len - 1){sprintf(tmp, "%d", data[i]);}else{sprintf(tmp, "%d,", data[i]);}
6601
        space_left = (int) (sizeof(temp) - strlen(temp) - strlen(tmp) - 1);
6602
        if( space_left > 0 ){ strncat(temp,tmp,space_left - 1);}else{canvas_error("can not parse integer to js-array:\nYour curve plotting produces too many data \nreduce image size or plotsteps ");}
6603
    }
6604
    strncat(temp,"]",2);
6605
    string=(char *)my_newmem(sizeof(temp));
6606
    snprintf(string,sizeof(temp),"%s",temp);
6607
    return string;
6608
}
7614 schaersvoo 6609
 
15111 schaersvoo 6610
char *doubledata2js_array(double data[],int len, int decimals){
6611
 /*
15116 bpr 6612
    1.4355,2.345353,3.3455 --> [1.44,2.35,3.35]
15111 schaersvoo 6613
    double data[] is already checked for errors or overflow in "get_real()"
6614
    just to be sure we double check the size of "temp"
8448 schaersvoo 6615
*/
15111 schaersvoo 6616
    char temp[MAX_BUFFER], *string;
6617
    char *tmp = my_newmem(16);/* <= 9999999999999999  */
6618
    memset(temp,'\0',MAX_BUFFER);/* clear memory */
6619
    int i;int space_left;
6620
    temp[0] = '[';/* start js-array */
6621
    for(i = 0; i < len; i++){
6622
        if(i == len - 1){sprintf(tmp, "%.*f",decimals,data[i]);}else{sprintf(tmp, "%.*f,",decimals,data[i]);}
6623
        space_left = (int) (sizeof(temp) - strlen(temp) - strlen(tmp) - 1);
6624
        if( space_left > 0 ){ strncat(temp,tmp,space_left - 1);}else{canvas_error("can not parse integer to js-array:\nYour curve plotting produces too many data \nreduce image size or plotsteps ");}
6625
    }
6626
    strncat(temp,"]",2);
6627
    string=(char *)my_newmem(sizeof(temp));
6628
    snprintf(string,sizeof(temp),"%s",temp);
6629
    return string;
6630
}
13829 bpr 6631
 
8224 bpr 6632
 
15111 schaersvoo 6633
void *my_newmem(size_t size){
6634
 void   *p;
6635
 if((p = malloc(size +1)) == NULL){canvas_error("canvasdraw: ran out of memory\n");}
6636
 return p;
6637
}
8224 bpr 6638
 
15111 schaersvoo 6639
int find_number_of_digits(int i){
6640
 if(i < 0 ){ i = -1*i;}
6641
 int digits = 0;
6642
 while ( i > 0){
6643
  digits++;
6644
  i = i/10;
6645
 }
6646
 return digits;
6647
}
7645 schaersvoo 6648
 
16828 schaersvoo 6649
int count_substring(char* string, char* substring) {
6650
  int i, j, l1, l2;
6651
  int count = 0;
6652
  l1 = strlen(string);
6653
  l2 = strlen(substring);
6654
  for(i = 0; i < l1 - l2 + 1; i++) {
6655
    if(strstr(string + i, substring) == string + i) {
6656
      count++;
6657
      i = i + l2 -1;
6658
    }
6659
  }
6660
  return count;
6661
}
11830 schaersvoo 6662
 
8224 bpr 6663
 
6664
 
7614 schaersvoo 6665
void check_string_length(int L){
9466 schaersvoo 6666
 if( L > MAX_BUFFER-1){
7614 schaersvoo 6667
  canvas_error("problem with your arguments to command...");
6668
 }
6669
 return;
6670
}
6671
 
6672
int get_token(FILE *infile){
6673
        int     c,i=0;
6674
        char    temp[MAX_INT], *input_type;
6675
        char    *line="line",
6676
        *audio="audio",
6677
        *blink="blink",
6678
        *arrowhead="arrowhead",
6679
        *crosshairsize="crosshairsize",
6680
        *crosshair="crosshair",
6681
        *crosshairs="crosshairs",
6682
        *audioobject="audioobject",
6683
        *style="style",
6684
        *mouse="mouse",
7991 schaersvoo 6685
        *mousex="mousex",
6686
        *mousey="mousey",
8071 schaersvoo 6687
        *mouse_display="display",
6688
        *mouse_degree="mouse_degree",
7614 schaersvoo 6689
        *userdraw="userdraw",
6690
        *highlight="highlight",
6691
        *http="http",
6692
        *rays="rays",
6693
        *dashtype="dashtype",
6694
        *dashed="dashed",
6695
        *filled="filled",
6696
        *lattice="lattice",
6697
        *parallel="parallel",
6698
        *segment="segment",
8299 schaersvoo 6699
        *segments="segments",
7614 schaersvoo 6700
        *dsegment="dsegment",
9374 schaersvoo 6701
        *dsegments="dsegments",
7614 schaersvoo 6702
        *seg="seg",
9383 schaersvoo 6703
        *segs="segs",
7614 schaersvoo 6704
        *bgimage="bgimage",
6705
        *bgcolor="bgcolor",
6706
        *strokecolor="strokecolor",
6707
        *backgroundimage="backgroundimage",
6708
        *text="text",
6709
        *textup="textup",
6710
        *mouseprecision="mouseprecision",
6711
        *precision="precision",
6712
        *plotsteps="plotsteps",
6713
        *plotstep="plotstep",
6714
        *tsteps="tsteps",
6715
        *curve="curve",
6716
        *dcurve="dcurve",
14038 schaersvoo 6717
        *curvedarrow="curvedarrow",
6718
        *curvedarrows="curvedarrows",
6719
        *curvedarrow2="curvedarrow2",
6720
        *curvedarrows2="curvedarrows2",
7614 schaersvoo 6721
        *plot="plot",
6722
        *dplot="dplot",
7788 schaersvoo 6723
        *levelcurve="levelcurve",
7614 schaersvoo 6724
        *fontsize="fontsize",
6725
        *fontcolor="fontcolor",
6726
        *axis="axis",
6727
        *axisnumbering="axisnumbering",
6728
        *axisnumbers="axisnumbers",
6729
        *arrow="arrow",
9382 schaersvoo 6730
        *vector="vector",
6731
        *vectors="vectors",
7614 schaersvoo 6732
        *darrow="darrow",
6733
        *arrow2="arrow2",
6734
        *darrow2="darrow2",
8304 schaersvoo 6735
        *arrows="arrows",
8347 schaersvoo 6736
        *arrows2="arrows2",
7614 schaersvoo 6737
        *zoom="zoom",
6738
        *grid="grid",
6739
        *hline="hline",
7786 schaersvoo 6740
        *dhline="dhline",
7614 schaersvoo 6741
        *drag="drag",
6742
        *horizontalline="horizontalline",
9383 schaersvoo 6743
        *horizontallines="horizontallines",
7614 schaersvoo 6744
        *vline="vline",
7786 schaersvoo 6745
        *dvline="dvline",
7614 schaersvoo 6746
        *verticalline="verticalline",
9383 schaersvoo 6747
        *verticallines="verticallines",
7614 schaersvoo 6748
        *triangle="triangle",
9306 schaersvoo 6749
        *triangles="triangles",
7614 schaersvoo 6750
        *ftriangle="ftriangle",
9374 schaersvoo 6751
        *ftriangles="ftriangles",
7614 schaersvoo 6752
        *mathml="mathml",
6753
        *html="html",
6754
        *input="input",
8146 schaersvoo 6755
        *clearbutton="clearbutton",
9386 schaersvoo 6756
        *erase="erase",
6757
        *delete="delete",
15111 schaersvoo 6758
        *css="css",
7614 schaersvoo 6759
        *textarea="textarea",
15773 schaersvoo 6760
        *range="range",
7614 schaersvoo 6761
        *trange="trange",
6762
        *ranget="ranget",
6763
        *xrange="xrange",
6764
        *yrange="yrange",
6765
        *rangex="rangex",
6766
        *rangey="rangey",
8370 schaersvoo 6767
        *path="path",
7614 schaersvoo 6768
        *polyline="polyline",
8351 schaersvoo 6769
        *brokenline="brokenline",
7614 schaersvoo 6770
        *lines="lines",
6771
        *poly="poly",
6772
        *polygon="polygon",
6773
        *fpolygon="fpolygon",
6774
        *fpoly="fpoly",
6775
        *filledpoly="filledpoly",
6776
        *filledpolygon="filledpolygon",
6777
        *rect="rect",
6778
        *frect="frect",
6779
        *rectangle="rectangle",
6780
        *frectangle="frectangle",
6781
        *square="square",
6782
        *fsquare="fsquare",
9374 schaersvoo 6783
        *fsquares="fsquares",
8363 schaersvoo 6784
        *rects="rects",
6785
        *frects="frects",
7614 schaersvoo 6786
        *dline="dline",
6787
        *arc="arc",
6788
        *filledarc="filledarc",
9374 schaersvoo 6789
        *farc="farc",
7614 schaersvoo 6790
        *size="size",
6791
        *string="string",
6792
        *stringup="stringup",
6793
        *copy="copy",
6794
        *copyresized="copyresized",
6795
        *opacity="opacity",
6796
        *transparent="transparent",
6797
        *fill="fill",
6798
        *point="point",
6799
        *points="points",
6800
        *linewidth="linewidth",
6801
        *circle="circle",
8304 schaersvoo 6802
        *circles="circles",
7614 schaersvoo 6803
        *fcircle="fcircle",
9374 schaersvoo 6804
        *fcircles="fcircles",
7614 schaersvoo 6805
        *disk="disk",
9374 schaersvoo 6806
        *disks="disks",
7614 schaersvoo 6807
        *comment="#",
6808
        *end="end",
6809
        *ellipse="ellipse",
12110 schaersvoo 6810
        *ellipses="ellipses",
7614 schaersvoo 6811
        *fellipse="fellipse",
6812
        *rotate="rotate",
7785 schaersvoo 6813
        *affine="affine",
9907 schaersvoo 6814
        *rotationcenter="rotationcenter",
15716 schaersvoo 6815
        *kill="kill",
9907 schaersvoo 6816
        *killrotate="killrotate",
7785 schaersvoo 6817
        *killaffine="killaffine",
15111 schaersvoo 6818
        *killlinear="killlinear",
6819
        *killinear="killinear",
7614 schaersvoo 6820
        *fontfamily="fontfamily",
6821
        *fillcolor="fillcolor",
6822
        *clicktile="clicktile",
6823
        *clicktile_colors="clicktile_colors",
6824
        *translation="translation",
6825
        *translate="translate",
6826
        *killtranslation="killtranslation",
6827
        *killtranslate="killtranslate",
6828
        *onclick="onclick",
8370 schaersvoo 6829
        *roundrects="roundrects",
7614 schaersvoo 6830
        *roundrect="roundrect",
6831
        *froundrect="froundrect",
9374 schaersvoo 6832
        *froundrects="froundrects",
7614 schaersvoo 6833
        *roundrectangle="roundrectangle",
6834
        *patternfill="patternfill",
6835
        *hatchfill="hatchfill",
6836
        *diafill="diafill",
7647 schaersvoo 6837
        *diamondfill="diamondfill",
7614 schaersvoo 6838
        *dotfill="dotfill",
11830 schaersvoo 6839
        *textfill="textfill",
7614 schaersvoo 6840
        *gridfill="gridfill",
6841
        *imagefill="imagefill",
7735 schaersvoo 6842
        *xlogbase="xlogbase",
6843
        *ylogbase="ylogbase",
7614 schaersvoo 6844
        *xlogscale="xlogscale",
6845
        *ylogscale="ylogscale",
6846
        *xylogscale="xylogscale",
6847
        *intooltip="intooltip",
9329 schaersvoo 6848
        *popup="popup",
7614 schaersvoo 6849
        *replyformat="replyformat",
6850
        *floodfill="floodfill",
11772 schaersvoo 6851
        *fillall="fillall",
7614 schaersvoo 6852
        *filltoborder="filltoborder",
6853
        *setpixel="setpixel",
6854
        *pixels="pixels",
6855
        *pixelsize="pixelsize",
6856
        *xaxis="xaxis",
9341 schaersvoo 6857
        *xaxisup="xaxisup",
7614 schaersvoo 6858
        *yaxis="yaxis",
6859
        *xaxistext="xaxistext",
9341 schaersvoo 6860
        *xaxistextup="xaxistextup",
7614 schaersvoo 6861
        *yaxistext="yaxistext",
6862
        *piechart="piechart",
9433 schaersvoo 6863
        *boxplot="boxplot",
9465 schaersvoo 6864
        *boxplotdata="boxplotdata",
6865
        *userboxplot="userboxplot",
6866
        *userboxplotdata="userboxplotdata",
7614 schaersvoo 6867
        *legend="legend",
6868
        *legendcolors="legendcolors",
6869
        *xlabel="xlabel",
6870
        *ylabel="ylabel",
6871
        *barchart="barchart",
6872
        *linegraph="linegraph",
6873
        *clock="clock",
6874
        *animate="animate",
6875
        *video="video",
6876
        *status="status",
7877 schaersvoo 6877
        *nostatus="nostatus",
7652 schaersvoo 6878
        *snaptogrid="snaptogrid",
7784 schaersvoo 6879
        *xsnaptogrid="xsnaptogrid",
6880
        *ysnaptogrid="ysnaptogrid",
8379 schaersvoo 6881
        *snaptopoints="snaptopoints",
9213 schaersvoo 6882
        *snaptofunction="snaptofunction",
6883
        *snaptofun="snaptofun",
7654 schaersvoo 6884
        *userinput_xy="userinput_xy",
8193 schaersvoo 6885
        *userinput_function="userinput_function",
8222 schaersvoo 6886
        *userinput="userinput",
7823 schaersvoo 6887
        *jsmath="jsmath",
7858 schaersvoo 6888
        *trace_jscurve="trace_jscurve",
7838 schaersvoo 6889
        *setlimits="setlimits",
7858 schaersvoo 6890
        *jscurve="jscurve",
6891
        *jsplot="jsplot",
7983 schaersvoo 6892
        *sgraph="sgraph",
7984 schaersvoo 6893
        *title="title",
7996 schaersvoo 6894
        *centerstring="centerstring",
6895
        *xunit="xunit",
8071 schaersvoo 6896
        *yunit="yunit",
8101 schaersvoo 6897
        *slider="slider",
8105 schaersvoo 6898
        *killslider="killslider",
16872 schaersvoo 6899
        *killgroup="killgroup",
8244 schaersvoo 6900
        *angle="angle",
8365 schaersvoo 6901
        *halflines="halflines",
6902
        *demilines="demilines",
8244 schaersvoo 6903
        *halfline="halfline",
8297 schaersvoo 6904
        *demiline="demiline",
8366 schaersvoo 6905
        *hlines="hlines",
6906
        *vlines="vlines",
8370 schaersvoo 6907
        *bezier="bezier",
9213 schaersvoo 6908
        *functionlabel="functionlabel",
15313 schaersvoo 6909
        *functionlabels="functionlabels",
16872 schaersvoo 6910
        *group="group",
9213 schaersvoo 6911
        *multidraw="multidraw",
15111 schaersvoo 6912
        *multilinewidth="multilinewidth",
14622 schaersvoo 6913
        *linewidths="linewidths",
9213 schaersvoo 6914
        *multistrokecolors="multistrokecolors",
15111 schaersvoo 6915
        *multicolors="multicolors",
6916
        *strokecolors="strokecolors",
14622 schaersvoo 6917
        *colors="colors",
9213 schaersvoo 6918
        *multifillcolors="multifillcolors",
14622 schaersvoo 6919
        *fillcolors="fillcolors",
9213 schaersvoo 6920
        *multistrokeopacity="multistrokeopacity",
6921
        *multifillopacity="multifillopacity",
6922
        *multifill="multifill",
6923
        *multidash="multidash",
6924
        *multilabel="multilabel",
6925
        *multiuserinput="multiuserinput",
14038 schaersvoo 6926
        *multiinput="multiinput",
9289 schaersvoo 6927
        *multisnaptogrid="multisnaptogrid",
14038 schaersvoo 6928
        *multisnap="multisnap",
9289 schaersvoo 6929
        *protractor="protractor",
9386 schaersvoo 6930
        *ruler="ruler",
6931
        *cursor="cursor",
9427 schaersvoo 6932
        *pointer="pointer",
6933
        *yerrorbars="yerrorbars",
11006 schaersvoo 6934
        *xerrorbars="xerrorbars",
11044 schaersvoo 6935
        *noxaxis="noxaxis",
6936
        *noyaxis="noyaxis",
11767 schaersvoo 6937
        *colorpalette="colorpalette",
14038 schaersvoo 6938
        *imagepalette="imagepalette",
12063 schaersvoo 6939
        *yoffset="yoffset",
11802 schaersvoo 6940
        *xoffset="xoffset",
14225 schaersvoo 6941
        *latex="latex",
15111 schaersvoo 6942
        *katex="katex",
6943
        *math="math",
11802 schaersvoo 6944
        *centered="centered",
6945
        *xyoffset="xyoffset",
6946
        *resetoffset="resetoffset",
11837 schaersvoo 6947
        *fillpattern="fillpattern",
15601 schaersvoo 6948
        *settile="settile",
11890 schaersvoo 6949
        *numberline="numberline",
14393 schaersvoo 6950
        *duplicates="duplicates",
6951
        *allowdups="allowdups",
15111 schaersvoo 6952
        *linear="linear",
6953
        *obabel="obabel",
6954
        *chemtex="chemtex",
6955
        *noreset="noreset",
6956
        *killreset="killreset",
15690 schaersvoo 6957
        *arrowarc="arrowarc",
6958
        *arcarrow="arcarrow",
11006 schaersvoo 6959
        *canvastype="canvastype";
7614 schaersvoo 6960
 
10891 schaersvoo 6961
        while(((c = getc(infile)) != EOF)&&(c!='\n')&&(c!=',')&&(c!='=')&&(c!='\r')&&(c!='\t')){
6962
         if( i == 0 && (c == ' ') ){ continue; /* white spaces or tabs allowed before first command identifier */
6963
         }else{
6964
          if( c == ' ' ){
7614 schaersvoo 6965
            break;
10891 schaersvoo 6966
          }else{
6967
           temp[i] = c;
6968
           if(i > MAX_INT - 2){canvas_error("command string too long !");}
6969
           i++;
6970
          }
6971
         }
6972
         if(temp[0] == '#'){ break; }
7614 schaersvoo 6973
        }
10891 schaersvoo 6974
        if (c == '\n' || c == '\r' || c == '\t' ){  line_number++; }
6975
        if (c == EOF) {finished=1;return 0;}
7614 schaersvoo 6976
 
6977
        temp[i]='\0';
6978
        input_type=(char*)my_newmem(strlen(temp));
6979
        snprintf(input_type,sizeof(temp),"%s",temp);
10891 schaersvoo 6980
/* fprintf(stdout,"temp = %s <br/>",input_type); */
7614 schaersvoo 6981
        if( strcmp(input_type, size) == 0 ){
6982
        free(input_type);
6983
        return SIZE;
6984
        }
15773 schaersvoo 6985
        if( strcmp(input_type, range) == 0 ){
6986
        free(input_type);
6987
        return RANGE;
6988
        }
7614 schaersvoo 6989
        if( strcmp(input_type, xrange) == 0 ){
6990
        free(input_type);
6991
        return XRANGE;
6992
        }
6993
        if( strcmp(input_type, rangex) == 0 ){
6994
        free(input_type);
6995
        return XRANGE;
6996
        }
6997
        if( strcmp(input_type, trange) == 0 ){
6998
        free(input_type);
6999
        return TRANGE;
7000
        }
7001
        if( strcmp(input_type, ranget) == 0 ){
7002
        free(input_type);
7003
        return TRANGE;
7004
        }
7005
        if( strcmp(input_type, yrange) == 0 ){
7006
        free(input_type);
7007
        return YRANGE;
7008
        }
7009
        if( strcmp(input_type, rangey) == 0 ){
7010
        free(input_type);
7011
        return YRANGE;
7012
        }
7013
        if( strcmp(input_type, linewidth) == 0 ){
7014
        free(input_type);
7015
        return LINEWIDTH;
7016
        }
7017
        if( strcmp(input_type, dashed) == 0 ){
7018
        free(input_type);
7019
        return DASHED;
7020
        }
7021
        if( strcmp(input_type, dashtype) == 0 ){
7022
        free(input_type);
7023
        return DASHTYPE;
7024
        }
7025
        if( strcmp(input_type, axisnumbering) == 0 ){
7026
        free(input_type);
7027
        return AXIS_NUMBERING;
7028
        }
7029
        if( strcmp(input_type, axisnumbers) == 0 ){
7030
        free(input_type);
7031
        return AXIS_NUMBERING;
7032
        }
7033
        if( strcmp(input_type, axis) == 0 ){
7034
        free(input_type);
7035
        return AXIS;
7036
        }
7037
        if( strcmp(input_type, grid) == 0 ){
7038
        free(input_type);
7039
        return GRID;
7040
        }
9383 schaersvoo 7041
        if( strcmp(input_type, hlines) == 0 || strcmp(input_type, horizontallines) == 0 ){
8366 schaersvoo 7042
        free(input_type);
7043
        return HLINES;
7044
        }
9383 schaersvoo 7045
        if( strcmp(input_type, vlines) == 0 ||  strcmp(input_type, verticallines) == 0 ){
8366 schaersvoo 7046
        free(input_type);
7047
        return VLINES;
7048
        }
9383 schaersvoo 7049
        if( strcmp(input_type, hline) == 0 || strcmp(input_type, horizontalline) == 0 ){
7614 schaersvoo 7050
        free(input_type);
7051
        return HLINE;
7052
        }
7053
        if( strcmp(input_type, vline) == 0 ||  strcmp(input_type, verticalline) == 0 ){
7054
        free(input_type);
7055
        return VLINE;
7056
        }
7057
        if( strcmp(input_type, line) == 0 ){
7058
        free(input_type);
7059
        return LINE;
7060
        }
9383 schaersvoo 7061
        if( strcmp(input_type, segments) == 0 || strcmp(input_type, segs) == 0 ){
8299 schaersvoo 7062
        free(input_type);
7063
        return SEGMENTS;
7064
        }
7614 schaersvoo 7065
        if( strcmp(input_type, seg) == 0 ||  strcmp(input_type, segment) == 0 ){
7066
        free(input_type);
7067
        return SEGMENT;
7068
        }
9374 schaersvoo 7069
        if( strcmp(input_type, dsegments) == 0 ){
7070
        free(input_type);
7071
        use_dashed = TRUE;
7072
        return SEGMENTS;
7073
        }
7614 schaersvoo 7074
        if( strcmp(input_type, dsegment) == 0 ){
7075
        free(input_type);
7076
        use_dashed = TRUE;
7077
        return SEGMENT;
7078
        }
7079
        if( strcmp(input_type, crosshairsize) == 0 ){
7080
        free(input_type);
7081
        return CROSSHAIRSIZE;
7082
        }
7083
        if( strcmp(input_type, arrowhead) == 0 ){
7084
        free(input_type);
7085
        return ARROWHEAD;
7086
        }
7087
        if( strcmp(input_type, crosshairs) == 0 ){
7088
        free(input_type);
7089
        return CROSSHAIRS;
7090
        }
7091
        if( strcmp(input_type, crosshair) == 0 ){
7092
        free(input_type);
7093
        return CROSSHAIR;
7094
        }
7095
        if( strcmp(input_type, onclick) == 0 ){
7096
        free(input_type);
7097
        return ONCLICK;
7098
        }
7099
        if( strcmp(input_type, drag) == 0 ){
7100
        free(input_type);
7101
        return DRAG;
7102
        }
7103
        if( strcmp(input_type, userdraw) == 0 ){
7104
        free(input_type);
7105
        return USERDRAW;
7106
        }
7107
        if( strcmp(input_type, highlight) == 0 || strcmp(input_type, style) == 0 ){
7108
        free(input_type);
7109
        return STYLE;
7110
        }
7111
        if( strcmp(input_type, fillcolor) == 0 ){
7112
        free(input_type);
7113
        return FILLCOLOR;
7114
        }
7115
        if( strcmp(input_type, strokecolor) == 0 ){
7116
        free(input_type);
7117
        return STROKECOLOR;
7118
        }
15111 schaersvoo 7119
        if( strcmp(input_type, filled) == 0  ){
7614 schaersvoo 7120
        free(input_type);
7121
        return FILLED;
7122
        }
7123
        if( strcmp(input_type, http) == 0 ){
7124
        free(input_type);
7125
        return HTTP;
7126
        }
7127
        if( strcmp(input_type, rays) == 0 ){
7128
        free(input_type);
7129
        return RAYS;
7130
        }
7131
        if( strcmp(input_type, lattice) == 0 ){
7132
        free(input_type);
7133
        return LATTICE;
7134
        }
7135
        if( strcmp(input_type, bgimage) == 0 ){
7136
        free(input_type);
7137
        return BGIMAGE;
7138
        }
7139
        if( strcmp(input_type, bgcolor) == 0 ){
7140
        free(input_type);
7141
        return BGCOLOR;
7142
        }
7143
        if( strcmp(input_type, backgroundimage) == 0 ){
7144
        free(input_type);
7145
        return BGIMAGE;
7146
        }
7147
        if( strcmp(input_type, text) == 0 ){
7148
        free(input_type);
7149
        return FLY_TEXT;
7150
        }
7151
        if( strcmp(input_type, textup) == 0 ){
7152
        free(input_type);
7153
        return FLY_TEXTUP;
7154
        }
7155
        if( strcmp(input_type, mouse) == 0 ){
7156
        free(input_type);
7157
        return MOUSE;
7158
        }
7991 schaersvoo 7159
        if( strcmp(input_type, mousex) == 0 ){
7160
        free(input_type);
7161
        return MOUSEX;
7162
        }
7163
        if( strcmp(input_type, mousey) == 0 ){
7164
        free(input_type);
7165
        return MOUSEY;
7166
        }
8071 schaersvoo 7167
        if( strcmp(input_type, mouse_degree) == 0 ){
7168
        free(input_type);
7169
        return MOUSE_DEGREE;
7170
        }
7171
        if( strcmp(input_type, mouse_display) == 0 ){
7172
        free(input_type);
7173
        return MOUSE_DISPLAY;
7174
        }
7614 schaersvoo 7175
        if( strcmp(input_type, mouseprecision) == 0 ){
7176
        free(input_type);
7177
        return MOUSE_PRECISION;
7178
        }
7179
        if( strcmp(input_type, precision) == 0 ){
7180
        free(input_type);
7181
        return MOUSE_PRECISION;
7182
        }
7183
        if( strcmp(input_type, curve) == 0 ){
7184
        free(input_type);
7185
        return CURVE;
7186
        }
7187
        if( strcmp(input_type, dcurve) == 0 ){
7788 schaersvoo 7188
        use_dashed = TRUE;
7614 schaersvoo 7189
        free(input_type);
7190
        return CURVE;
7191
        }
7192
        if( strcmp(input_type, plot) == 0 ){
7193
        free(input_type);
7194
        return CURVE;
7195
        }
7196
        if( strcmp(input_type, dplot) == 0 ){
7788 schaersvoo 7197
        use_dashed = TRUE;
7614 schaersvoo 7198
        free(input_type);
7199
        return CURVE;
7200
        }
7788 schaersvoo 7201
        if( strcmp(input_type, levelcurve) == 0 ){
7202
        free(input_type);
7203
        return LEVELCURVE;
7204
        }
7614 schaersvoo 7205
        if( strcmp(input_type, plotsteps) == 0 ){
7206
        free(input_type);
7207
        return PLOTSTEPS;
7208
        }
7209
        if( strcmp(input_type, plotstep) == 0 ){
7210
        free(input_type);
7211
        return PLOTSTEPS;
7212
        }
7213
        if( strcmp(input_type, tsteps) == 0 ){
7214
        free(input_type);
7215
        return PLOTSTEPS;
7216
        }
7217
        if( strcmp(input_type, fontsize) == 0 ){
7218
        free(input_type);
7219
        return FONTSIZE;
7220
        }
7221
        if( strcmp(input_type, fontcolor) == 0 ){
7222
        free(input_type);
7223
        return FONTCOLOR;
7224
        }
7225
        if( strcmp(input_type, arrow2) == 0 ){
7226
        free(input_type);
7227
        return ARROW2;
7228
        }
7229
        if( strcmp(input_type, darrow) == 0 ){
7230
        free(input_type);
8071 schaersvoo 7231
        use_dashed = TRUE;
7614 schaersvoo 7232
        return ARROW;
7233
        }
7234
        if( strcmp(input_type, darrow2) == 0 ){
7235
        free(input_type);
7236
        use_dashed = TRUE;
7237
        return ARROW2;
7238
        }
8347 schaersvoo 7239
        if( strcmp(input_type, arrows2) == 0 ){
7240
        free(input_type);
7241
        return ARROWS2;
7242
        }
9382 schaersvoo 7243
        if( strcmp(input_type, arrows) == 0  || strcmp(input_type, vectors) == 0 ){
8304 schaersvoo 7244
        free(input_type);
7245
        return ARROWS;
7246
        }
9382 schaersvoo 7247
        if( strcmp(input_type, arrow) == 0 ||  strcmp(input_type, vector) == 0 ){
8304 schaersvoo 7248
        free(input_type);
7249
        return ARROW;
7250
        }
7614 schaersvoo 7251
        if( strcmp(input_type, zoom) == 0 ){
7252
        free(input_type);
7253
        return ZOOM;
7254
        }
7255
        if( strcmp(input_type, triangle) == 0 ){
7256
        free(input_type);
7257
        return TRIANGLE;
7258
        }
9306 schaersvoo 7259
        if( strcmp(input_type, triangles) == 0 ){
7260
        free(input_type);
7261
        return TRIANGLES;
7262
        }
9374 schaersvoo 7263
        if( strcmp(input_type, ftriangles) == 0 ){
7264
        free(input_type);
7265
        use_filled = TRUE;
7266
        return TRIANGLES;
7267
        }
7614 schaersvoo 7268
        if( strcmp(input_type, ftriangle) == 0 ){
7269
        free(input_type);
7270
        use_filled = TRUE;
7271
        return TRIANGLE;
7272
        }
7273
        if( strcmp(input_type, input) == 0 ){
7274
        free(input_type);
7275
        return INPUT;
7276
        }
15111 schaersvoo 7277
        if( strcmp(input_type, css) == 0 ){
7614 schaersvoo 7278
        free(input_type);
15111 schaersvoo 7279
        return CSS;
7614 schaersvoo 7280
        }
7281
        if( strcmp(input_type, textarea) == 0 ){
7282
        free(input_type);
7283
        return TEXTAREA;
7284
        }
7285
        if( strcmp(input_type, mathml) == 0 ){
7286
        free(input_type);
7287
        return MATHML;
7288
        }
7289
        if( strcmp(input_type, html) == 0 ){
7290
        free(input_type);
15111 schaersvoo 7291
        return HTML;
7614 schaersvoo 7292
        }
7293
        if( strcmp(input_type, fontfamily) == 0 ){
7294
        free(input_type);
7295
        return FONTFAMILY;
7296
        }
10975 schaersvoo 7297
        if( strcmp(input_type, polyline) == 0 ||  strcmp(input_type, path) == 0 || strcmp(input_type, brokenline) == 0 ){
7614 schaersvoo 7298
        free(input_type);
7299
        return POLYLINE;
7300
        }
8351 schaersvoo 7301
        if( strcmp(input_type, lines) == 0 ){
7302
        free(input_type);
7303
        return LINES;
7304
        }
9374 schaersvoo 7305
        if( strcmp(input_type, rects) == 0){
8363 schaersvoo 7306
        free(input_type);
7307
        return RECTS;
7308
        }
9383 schaersvoo 7309
        if( strcmp(input_type, frects) == 0 ){
8363 schaersvoo 7310
        free(input_type);
9374 schaersvoo 7311
        use_filled = TRUE;
8363 schaersvoo 7312
        return RECTS;
7313
        }
7614 schaersvoo 7314
        if( strcmp(input_type, rect) == 0  ||  strcmp(input_type, rectangle) == 0 ){
7315
        free(input_type);
7316
        return RECT;
7317
        }
9374 schaersvoo 7318
        if( strcmp(input_type, square) == 0 ){
7319
        free(input_type);
11991 schaersvoo 7320
        return SQUARE;
9374 schaersvoo 7321
        }
7322
        if( strcmp(input_type, fsquare) == 0 ){
7323
        free(input_type);
7324
        use_filled = TRUE;
7325
        return SQUARE;
7326
        }
7327
        if( strcmp(input_type, fsquares) == 0 ){
7328
        free(input_type);
7329
        use_filled = TRUE;
7330
        return RECTS;
7331
        }
8370 schaersvoo 7332
        if( strcmp(input_type, roundrects) == 0 ){
7333
        free(input_type);
7334
        return ROUNDRECTS;
7335
        }
7614 schaersvoo 7336
        if( strcmp(input_type, roundrect) == 0  ||  strcmp(input_type, roundrectangle) == 0 ){
7337
        free(input_type);
7338
        return ROUNDRECT;
7339
        }
9374 schaersvoo 7340
        if( strcmp(input_type, froundrects) == 0 ){
7614 schaersvoo 7341
        free(input_type);
7342
        use_filled = TRUE;
9374 schaersvoo 7343
        return ROUNDRECTS;
7614 schaersvoo 7344
        }
9374 schaersvoo 7345
        if( strcmp(input_type, froundrect) == 0 ){
7614 schaersvoo 7346
        free(input_type);
7347
        use_filled = TRUE;
9374 schaersvoo 7348
        return ROUNDRECT;
7614 schaersvoo 7349
        }
7350
        if( strcmp(input_type, dline) == 0 ){
7351
        use_dashed = TRUE;
7352
        free(input_type);
7353
        return LINE;
7354
        }
7786 schaersvoo 7355
        if( strcmp(input_type, dvline) == 0 ){
7356
        use_dashed = TRUE;
7357
        free(input_type);
7358
        return VLINE;
7359
        }
7360
        if( strcmp(input_type, dhline) == 0 ){
7361
        use_dashed = TRUE;
7362
        free(input_type);
7363
        return HLINE;
7364
        }
15111 schaersvoo 7365
        if( strcmp(input_type, halflines) == 0 || strcmp(input_type, demilines) == 0  ){
9386 schaersvoo 7366
        free(input_type);
7367
        return HALFLINES;
7368
        }
15111 schaersvoo 7369
        if( strcmp(input_type, halfline) == 0 || strcmp(input_type, demiline) == 0  ){
9386 schaersvoo 7370
        free(input_type);
7371
        return HALFLINE;
7372
        }
7614 schaersvoo 7373
        if( strcmp(input_type, frect) == 0 || strcmp(input_type, frectangle) == 0 ){
7374
        use_filled = TRUE;
7375
        free(input_type);
7376
        return RECT;
7377
        }
8304 schaersvoo 7378
        if( strcmp(input_type, circles) == 0 ){
7379
        free(input_type);
7380
        return CIRCLES;
7381
        }
7614 schaersvoo 7382
        if( strcmp(input_type, fcircle) == 0  ||  strcmp(input_type, disk) == 0 ){
7383
        use_filled = TRUE;
7384
        free(input_type);
7385
        return CIRCLE;
7386
        }
9374 schaersvoo 7387
        if( strcmp(input_type, fcircles) == 0  ||  strcmp(input_type, disks) == 0 ){
7388
        use_filled = TRUE;
7389
        free(input_type);
7390
        return CIRCLES;
7391
        }
7614 schaersvoo 7392
        if( strcmp(input_type, circle) == 0 ){
7393
        free(input_type);
7394
        return CIRCLE;
7395
        }
7396
        if( strcmp(input_type, point) == 0 ){
7397
        free(input_type);
7398
        return POINT;
7399
        }
7400
        if( strcmp(input_type, points) == 0 ){
7401
        free(input_type);
7402
        return POINTS;
7403
        }
9374 schaersvoo 7404
        if( strcmp(input_type, filledarc) == 0 || strcmp(input_type, farc) == 0 ){
7614 schaersvoo 7405
        use_filled = TRUE;
7406
        free(input_type);
7407
        return ARC;
7408
        }
7409
        if( strcmp(input_type, arc) == 0 ){
7410
        free(input_type);
7411
        return ARC;
7412
        }
7413
        if( strcmp(input_type, poly) == 0 ||  strcmp(input_type, polygon) == 0 ){
7414
        free(input_type);
7415
        return POLY;
7416
        }
7417
        if( strcmp(input_type, fpoly) == 0 ||  strcmp(input_type, filledpoly) == 0 || strcmp(input_type,filledpolygon) == 0  || strcmp(input_type,fpolygon) == 0  ){
7418
        use_filled = TRUE;
7419
        free(input_type);
7420
        return POLY;
7421
        }
7422
        if( strcmp(input_type, ellipse) == 0){
7423
        free(input_type);
7424
        return ELLIPSE;
7425
        }
12110 schaersvoo 7426
        if( strcmp(input_type, ellipses) == 0){
7427
        free(input_type);
7428
        return ELLIPSES;
7429
        }
7614 schaersvoo 7430
        if( strcmp(input_type, string) == 0 ){
7431
        free(input_type);
7432
        return STRING;
7433
        }
7434
        if( strcmp(input_type, stringup) == 0 ){
7435
        free(input_type);
7436
        return STRINGUP;
7437
        }
9385 schaersvoo 7438
        if( strcmp(input_type, opacity) == 0 || strcmp(input_type, transparent) == 0 ){
7614 schaersvoo 7439
        free(input_type);
7440
        return OPACITY;
7441
        }
7442
        if( strcmp(input_type, comment) == 0){
7443
        free(input_type);
7444
        return COMMENT;
7445
        }
7446
        if( strcmp(input_type, fellipse) == 0){
7447
        free(input_type);
7448
        use_filled = TRUE;
7449
        return ELLIPSE;
8224 bpr 7450
        }
9386 schaersvoo 7451
        if( strcmp(input_type, clearbutton) == 0 || strcmp(input_type, erase) == 0 || strcmp(input_type, delete) == 0){
7614 schaersvoo 7452
        free(input_type);
8146 schaersvoo 7453
        return CLEARBUTTON;
7614 schaersvoo 7454
        }
15111 schaersvoo 7455
        if( strcmp(input_type, translation) == 0 ||  strcmp(input_type, translate) == 0  ){
7614 schaersvoo 7456
        free(input_type);
7457
        return TRANSLATION;
7458
        }
15716 schaersvoo 7459
        if( strcmp(input_type, kill) == 0 ){
7460
        free(input_type);
7461
        return KILL;
7462
        }
7614 schaersvoo 7463
        if( strcmp(input_type, killtranslation) == 0 ||  strcmp(input_type, killtranslate) == 0){
7464
        free(input_type);
7465
        return KILLTRANSLATION;
7466
        }
7467
        if( strcmp(input_type, rotate) == 0){
7468
        free(input_type);
7469
        return ROTATE;
7470
        }
9907 schaersvoo 7471
        if( strcmp(input_type, killrotate) == 0){
7472
        free(input_type);
7473
        return KILLROTATE;
7474
        }
7475
        if( strcmp(input_type, rotationcenter) == 0){
7476
        free(input_type);
7477
        return ROTATION_CENTER;
7478
        }
7785 schaersvoo 7479
        if( strcmp(input_type, affine) == 0){
7480
        free(input_type);
7481
        return AFFINE;
7482
        }
15111 schaersvoo 7483
        if( strcmp(input_type, linear) == 0){
7484
        free(input_type);
7485
        return LINEAR;
7486
        }
7785 schaersvoo 7487
        if( strcmp(input_type, killaffine) == 0){
7488
        free(input_type);
7489
        return KILLAFFINE;
7490
        }
15111 schaersvoo 7491
        if( strcmp(input_type, killlinear) == 0 || strcmp(input_type, killinear) == 0  ){
7492
        free(input_type);
7493
        return KILLLINEAR;
7494
        }
7614 schaersvoo 7495
        if( strcmp(input_type, slider) == 0 ){
7496
        free(input_type);
7497
        return SLIDER;
7498
        }
16872 schaersvoo 7499
        if( strcmp(input_type, killslider) == 0 || strcmp(input_type, killgroup) == 0 ){
8101 schaersvoo 7500
        free(input_type);
7501
        return KILLSLIDER;
7502
        }
7614 schaersvoo 7503
        if( strcmp(input_type, copy) == 0 ){
7504
        free(input_type);
7505
        return COPY;
7506
        }
7507
        if( strcmp(input_type, copyresized) == 0 ){
7508
        free(input_type);
7509
        return COPYRESIZED;
7510
        }
7511
        if( strcmp(input_type, xlogscale) == 0 ){
7512
        free(input_type);
7513
        return XLOGSCALE;
7514
        }
7515
        if( strcmp(input_type, ylogscale) == 0 ){
7516
        free(input_type);
7517
        return YLOGSCALE;
7518
        }
7519
        if( strcmp(input_type, xylogscale) == 0 ){
7520
        free(input_type);
7521
        return XYLOGSCALE;
7522
        }
7523
        if( strcmp(input_type, ylogscale) == 0 ){
7524
        free(input_type);
7525
        return YLOGSCALE;
7526
        }
7735 schaersvoo 7527
        if( strcmp(input_type, xlogbase) == 0 ){
7614 schaersvoo 7528
        free(input_type);
7735 schaersvoo 7529
        return XLOGBASE;
7614 schaersvoo 7530
        }
7735 schaersvoo 7531
        if( strcmp(input_type, ylogbase) == 0 ){
7532
        free(input_type);
7533
        return YLOGBASE;
7534
        }
7614 schaersvoo 7535
        if( strcmp(input_type, intooltip) == 0 ){
7536
        free(input_type);
7537
        return INTOOLTIP;
7538
        }
9329 schaersvoo 7539
        if( strcmp(input_type, popup) == 0 ){
7540
        free(input_type);
7541
        return POPUP;
7542
        }
7614 schaersvoo 7543
        if( strcmp(input_type,video) == 0 ){
7544
        free(input_type);
7545
        return VIDEO;
7546
        }
15111 schaersvoo 7547
        if( strcmp(input_type,math) == 0 || strcmp(input_type,latex) == 0 ||  strcmp(input_type,katex) == 0 ){
14225 schaersvoo 7548
        free(input_type);
7549
        return LATEX;
7550
        }
11772 schaersvoo 7551
        if( strcmp(input_type,fillall) == 0 ){
7552
        free(input_type);
7553
        return FILLALL;
7554
        }
7614 schaersvoo 7555
        if( strcmp(input_type,floodfill) == 0 || strcmp(input_type,fill) == 0 ){
7556
        free(input_type);
7557
        return FLOODFILL;
8224 bpr 7558
        }
7614 schaersvoo 7559
        if( strcmp(input_type,filltoborder) == 0 ){
7560
        free(input_type);
7561
        return FILLTOBORDER;
8224 bpr 7562
        }
14038 schaersvoo 7563
        if( strcmp(input_type, curvedarrow2) == 0 ){
7564
        free(input_type);
7565
        return CURVEDARROW2;
7566
        }
7567
        if( strcmp(input_type, curvedarrow) == 0 ){
7568
        free(input_type);
7569
        return CURVEDARROW;
7570
        }
7571
        if( strcmp(input_type, curvedarrows) == 0 ){
7572
        free(input_type);
7573
        return CURVEDARROWS;
7574
        }
7575
        if( strcmp(input_type, curvedarrows2) == 0 ){
7576
        free(input_type);
7577
        return CURVEDARROWS2;
7578
        }
7614 schaersvoo 7579
        if( strcmp(input_type, replyformat) == 0 ){
7580
        free(input_type);
7581
        return REPLYFORMAT;
7582
        }
7583
        if( strcmp(input_type, pixelsize) == 0 ){
7584
        free(input_type);
7585
        return PIXELSIZE;
7586
        }
7587
        if( strcmp(input_type, setpixel) == 0 ){
7588
        free(input_type);
7589
        return SETPIXEL;
7590
        }
7591
        if( strcmp(input_type, pixels) == 0 ){
7592
        free(input_type);
7593
        return PIXELS;
7594
        }
7595
        if( strcmp(input_type, xaxis) == 0 || strcmp(input_type, xaxistext) == 0 ){
7596
        free(input_type);
7597
        return X_AXIS_STRINGS;
7598
        }
9341 schaersvoo 7599
        if( strcmp(input_type, xaxisup) == 0 || strcmp(input_type, xaxistextup) == 0 ){
7600
        free(input_type);
7601
        return X_AXIS_STRINGS_UP;
7602
        }
7614 schaersvoo 7603
        if( strcmp(input_type, yaxis) == 0  ||  strcmp(input_type, yaxistext) == 0 ){
7604
        free(input_type);
7605
        return Y_AXIS_STRINGS;
7606
        }
15111 schaersvoo 7607
        if( strcmp(input_type, legend) == 0  ){
7614 schaersvoo 7608
        free(input_type);
7609
        return LEGEND;
7610
        }
15111 schaersvoo 7611
        if( strcmp(input_type, legendcolors) == 0  ){
7614 schaersvoo 7612
        free(input_type);
7613
        return LEGENDCOLORS;
7614
        }
15111 schaersvoo 7615
        if( strcmp(input_type, xlabel) == 0  ){
7614 schaersvoo 7616
        free(input_type);
7617
        return XLABEL;
7618
        }
15111 schaersvoo 7619
        if( strcmp(input_type, ylabel) == 0  ){
7614 schaersvoo 7620
        free(input_type);
7621
        return YLABEL;
7622
        }
15111 schaersvoo 7623
        if( strcmp(input_type, bezier) == 0  ){
8370 schaersvoo 7624
        free(input_type);
7625
        return BEZIER;
7626
        }
15111 schaersvoo 7627
        if( strcmp(input_type, animate) == 0  ){
7614 schaersvoo 7628
        free(input_type);
7629
        return ANIMATE;
7630
        }
9354 schaersvoo 7631
        /* these are bitmap related flydraw commands...must be removed. eventually */
7614 schaersvoo 7632
        if( strcmp(input_type, transparent) == 0 ){
7633
        free(input_type);
7634
        return TRANSPARENT;
7635
        }
7877 schaersvoo 7636
        if( strcmp(input_type, status) == 0 || strcmp(input_type, nostatus) == 0 ){
7614 schaersvoo 7637
        free(input_type);
7638
        return STATUS;
7639
        }
7784 schaersvoo 7640
        if( strcmp(input_type, xsnaptogrid) == 0 ){
7641
        free(input_type);
7642
        return XSNAPTOGRID;
7643
        }
7644
        if( strcmp(input_type, ysnaptogrid) == 0 ){
7645
        free(input_type);
7646
        return YSNAPTOGRID;
7647
        }
8379 schaersvoo 7648
        if( strcmp(input_type, snaptogrid) == 0 ){
7649
        free(input_type);
7650
        return SNAPTOGRID;
7651
        }
7652
        if( strcmp(input_type, snaptopoints) == 0 ){
7653
        free(input_type);
7654
        return SNAPTOPOINTS;
7655
        }
9213 schaersvoo 7656
        if( strcmp(input_type, snaptofunction) == 0  || strcmp(input_type, snaptofun) == 0 ){
7657
        free(input_type);
7658
        return SNAPTOFUNCTION;
7659
        }
7652 schaersvoo 7660
        if( strcmp(input_type, userinput_xy) == 0 ){
7614 schaersvoo 7661
        free(input_type);
7652 schaersvoo 7662
        return USERINPUT_XY;
7663
        }
8193 schaersvoo 7664
        if( strcmp(input_type, userinput_function) == 0 ){
7665
        free(input_type);
7666
        return USERINPUT_FUNCTION;
7667
        }
8222 schaersvoo 7668
        if( strcmp(input_type, userinput) == 0 ){
7669
        free(input_type);
7670
        return USERINPUT;
7671
        }
8105 schaersvoo 7672
        if( strcmp(input_type, angle) == 0 ){
7996 schaersvoo 7673
        free(input_type);
8105 schaersvoo 7674
        return ANGLE;
7675
        }
15315 bpr 7676
        if( strcmp(input_type, functionlabel) == 0 ||  strcmp(input_type, functionlabels) == 0 ){
8244 schaersvoo 7677
        free(input_type);
8297 schaersvoo 7678
        return FUNCTION_LABEL;
7679
        }
16872 schaersvoo 7680
        if( strcmp(input_type, group) == 0 ){
8297 schaersvoo 7681
        free(input_type);
16872 schaersvoo 7682
        return GROUP;
9213 schaersvoo 7683
        }
7684
        if( strcmp(input_type, multidraw) == 0 ){
7685
        free(input_type);
7686
        return MULTIDRAW;
7687
        }
7688
        if( strcmp(input_type, multistrokeopacity) == 0 ){
7689
        free(input_type);
7690
        return MULTISTROKEOPACITY;
7691
        }
7692
        if( strcmp(input_type, multifillopacity) == 0 ){
7693
        free(input_type);
7694
        return MULTIFILLOPACITY;
7695
        }
15111 schaersvoo 7696
        if( strcmp(input_type, multilinewidth) == 0 || strcmp(input_type, linewidths) == 0 ){
9213 schaersvoo 7697
        free(input_type);
7698
        return MULTILINEWIDTH;
7699
        }
15111 schaersvoo 7700
        if( strcmp(input_type, multistrokecolors) == 0 || strcmp(input_type,multicolors) == 0  || strcmp(input_type,strokecolors) == 0 ||  strcmp(input_type,colors) == 0 ){
9213 schaersvoo 7701
        free(input_type);
7702
        return MULTISTROKECOLORS;
7703
        }
7704
        if( strcmp(input_type, multifill) == 0 ){
7705
        free(input_type);
7706
        return MULTIFILL;
7707
        }
15111 schaersvoo 7708
        if( strcmp(input_type, multifillcolors) == 0 || strcmp(input_type, fillcolors) == 0  ){
9213 schaersvoo 7709
        free(input_type);
7710
        return MULTIFILLCOLORS;
7711
        }
7712
        if( strcmp(input_type, multilabel) == 0 ){
7713
        free(input_type);
7714
        return MULTILABEL;
7715
        }
7716
        if( strcmp(input_type, multidash) == 0 ){
7717
        free(input_type);
7718
        return MULTIDASH;
7719
        }
14038 schaersvoo 7720
        if( strcmp(input_type, multisnaptogrid) == 0  ||  strcmp(input_type, multisnap) == 0 ){
9213 schaersvoo 7721
        free(input_type);
7722
        return MULTISNAPTOGRID;
7723
        }
15111 schaersvoo 7724
        if( strcmp(input_type, multiuserinput) == 0 || strcmp(input_type, multiinput) == 0  ){
9213 schaersvoo 7725
        free(input_type);
7726
        return MULTIUSERINPUT;
7727
        }
9386 schaersvoo 7728
        if( strcmp(input_type, parallel) == 0 ){
7729
        free(input_type);
7730
        return PARALLEL;
7731
        }
9289 schaersvoo 7732
        if( strcmp(input_type, protractor) == 0 ){
7733
        free(input_type);
7734
        return PROTRACTOR;
7735
        }
7736
        if( strcmp(input_type, ruler) == 0 ){
7737
        free(input_type);
7738
        return RULER;
7739
        }
9386 schaersvoo 7740
        if( strcmp(input_type, cursor) == 0 ||  strcmp(input_type, pointer) == 0 ){
9213 schaersvoo 7741
        free(input_type);
9386 schaersvoo 7742
        return CURSOR;
7743
        }
7744
        if( strcmp(input_type, sgraph) == 0 ){
7745
        free(input_type);
7746
        return SGRAPH;
7747
        }
7748
        if( strcmp(input_type, jsmath) == 0 ){
7749
        free(input_type);
7750
        return JSMATH;
7751
        }
7752
        if( strcmp(input_type, trace_jscurve) == 0 ){
7753
        free(input_type);
7754
        return TRACE_JSCURVE;
7755
        }
7756
        if( strcmp(input_type, jscurve) == 0  ||  strcmp(input_type, jsplot) == 0 ){
7757
        free(input_type);
7758
        return JSCURVE;
7759
        }
7760
        if( strcmp(input_type, centerstring) == 0 || strcmp(input_type, title) == 0 ){
7761
        free(input_type);
7762
        return CENTERSTRING;
7763
        }
7764
        if( strcmp(input_type, setlimits) == 0 ){
7765
        free(input_type);
7766
        return SETLIMITS;
7767
        }
7768
        if( strcmp(input_type, xunit) == 0 ){
7769
        free(input_type);
7770
        return XUNIT;
7771
        }
7772
        if( strcmp(input_type, yunit) == 0 ){
7773
        free(input_type);
7774
        return YUNIT;
7775
        }
7776
        if( strcmp(input_type, fill) == 0 ){
7777
        free(input_type);
7778
        return FLOODFILL;
7779
        }
7780
        if( strcmp(input_type, end) == 0){
7781
        free(input_type);
7782
        return END;
7783
        }
7784
        if( strcmp(input_type, blink) == 0 ){
7785
        free(input_type);
7786
        return BLINK;
7787
        }
7788
        if( strcmp(input_type, audio) == 0 ){
7789
        free(input_type);
7790
        return AUDIO;
7791
        }
7792
        if( strcmp(input_type, audioobject) == 0 ){
7793
        free(input_type);
7794
        return AUDIOOBJECT;
7795
        }
7796
        if( strcmp(input_type, patternfill) == 0 ){
7797
        free(input_type);
7798
        return PATTERNFILL;
7799
        }
7800
        if( strcmp(input_type, hatchfill) == 0 ){
7801
        free(input_type);
7802
        return HATCHFILL;
7803
        }
15111 schaersvoo 7804
        if( strcmp(input_type, diafill) == 0  || strcmp(input_type, diamondfill) == 0  ){
9386 schaersvoo 7805
        free(input_type);
7806
        return DIAMONDFILL;
7807
        }
7808
        if( strcmp(input_type, dotfill) == 0 ){
7809
        free(input_type);
7810
        return DOTFILL;
7811
        }
11830 schaersvoo 7812
        if( strcmp(input_type, textfill) == 0 ){
7813
        free(input_type);
7814
        return TEXTFILL;
7815
        }
9386 schaersvoo 7816
        if( strcmp(input_type, gridfill) == 0 ){
7817
        free(input_type);
7818
        return GRIDFILL;
7819
        }
7820
        if( strcmp(input_type, imagefill) == 0 ){
7821
        free(input_type);
7822
        return IMAGEFILL;
7823
        }
7824
        if( strcmp(input_type, clicktile_colors) == 0 ){
7825
        free(input_type);
7826
        return CLICKTILE_COLORS;
7827
        }
7828
        if( strcmp(input_type, clicktile) == 0 ){
7829
        free(input_type);
7830
        return CLICKTILE;
7831
        }
15111 schaersvoo 7832
        if( strcmp(input_type, piechart) == 0  ){
9386 schaersvoo 7833
        free(input_type);
7834
        return PIECHART;
7835
        }
15111 schaersvoo 7836
        if( strcmp(input_type, boxplot) == 0  ){
9433 schaersvoo 7837
        free(input_type);
7838
        return BOXPLOT;
7839
        }
15111 schaersvoo 7840
        if( strcmp(input_type, boxplotdata) == 0  ){
9433 schaersvoo 7841
        free(input_type);
9465 schaersvoo 7842
        return BOXPLOTDATA;
9433 schaersvoo 7843
        }
15111 schaersvoo 7844
        if( strcmp(input_type, userboxplot) == 0  ){
9465 schaersvoo 7845
        free(input_type);
7846
        return USERBOXPLOT;
7847
        }
15111 schaersvoo 7848
        if( strcmp(input_type, userboxplotdata) == 0  ){
9465 schaersvoo 7849
        free(input_type);
7850
        return USERBOXPLOT;
7851
        }
15111 schaersvoo 7852
        if( strcmp(input_type, barchart) == 0  ){
9386 schaersvoo 7853
        free(input_type);
7854
        return BARCHART;
7855
        }
15111 schaersvoo 7856
        if( strcmp(input_type, linegraph) == 0  ){
9386 schaersvoo 7857
        free(input_type);
7858
        return LINEGRAPH;
7859
        }
15111 schaersvoo 7860
        if( strcmp(input_type, clock) == 0  ){
9386 schaersvoo 7861
        free(input_type);
7862
        return CLOCK;
7863
        }
15111 schaersvoo 7864
        if( strcmp(input_type, yerrorbars) == 0  ){
9386 schaersvoo 7865
        free(input_type);
9427 schaersvoo 7866
        return YERRORBARS;
7867
        }
15111 schaersvoo 7868
        if( strcmp(input_type, xerrorbars) == 0  ){
9427 schaersvoo 7869
        free(input_type);
7870
        return XERRORBARS;
7871
        }
15111 schaersvoo 7872
        if( strcmp(input_type, canvastype) == 0  ){
9427 schaersvoo 7873
        free(input_type);
11006 schaersvoo 7874
        return CANVASTYPE;
7875
        }
15111 schaersvoo 7876
        if( strcmp(input_type, noyaxis) == 0  ){
11006 schaersvoo 7877
        free(input_type);
11044 schaersvoo 7878
        return NOYAXIS;
7879
        }
15111 schaersvoo 7880
        if( strcmp(input_type, noxaxis) == 0  ){
11044 schaersvoo 7881
        free(input_type);
7882
        return NOXAXIS;
7883
        }
15111 schaersvoo 7884
        if( strcmp(input_type, colorpalette) == 0  ){
11044 schaersvoo 7885
        free(input_type);
11767 schaersvoo 7886
        return COLORPALETTE;
7887
        }
15111 schaersvoo 7888
        if( strcmp(input_type, imagepalette) == 0  ){
14038 schaersvoo 7889
        free(input_type);
7890
        return IMAGEPALETTE;
7891
        }
15111 schaersvoo 7892
        if( strcmp(input_type, resetoffset) == 0  ){
11767 schaersvoo 7893
        free(input_type);
11802 schaersvoo 7894
        return RESETOFFSET;
7895
        }
15111 schaersvoo 7896
        if( strcmp(input_type, xyoffset) == 0  ){
11802 schaersvoo 7897
        free(input_type);
7898
        return XYOFFSET;
7899
        }
12063 schaersvoo 7900
        if( strcmp(input_type, centered) == 0 ){
11802 schaersvoo 7901
        free(input_type);
12063 schaersvoo 7902
        return CENTERED;
11802 schaersvoo 7903
        }
15111 schaersvoo 7904
        if( strcmp(input_type, yoffset) == 0   ){
11802 schaersvoo 7905
        free(input_type);
11811 schaersvoo 7906
        return YOFFSET;
7907
        }
15111 schaersvoo 7908
        if( strcmp(input_type, xoffset) == 0   ){
12063 schaersvoo 7909
        free(input_type);
7910
        return XOFFSET;
7911
        }
15601 schaersvoo 7912
        if( strcmp(input_type, fillpattern) == 0 ||  strcmp(input_type, settile) == 0  ){
11811 schaersvoo 7913
        free(input_type);
11837 schaersvoo 7914
        return FILLPATTERN;
7915
        }
11890 schaersvoo 7916
        if( strcmp(input_type, numberline) == 0 ){
11837 schaersvoo 7917
        free(input_type);
11890 schaersvoo 7918
        return NUMBERLINE;
7919
        }
15111 schaersvoo 7920
        if( strcmp(input_type, obabel) == 0 ){
7921
        free(input_type);
7922
        return OBABEL;
7923
        }
7924
        if( strcmp(input_type, chemtex) == 0 ){
7925
        free(input_type);
7926
        return CHEMTEX;
7927
        }
7928
        if( strcmp(input_type, noreset) == 0  || strcmp(input_type, killreset) == 0 ){
7929
         return NORESET;
7930
        }
14393 schaersvoo 7931
        if( strcmp(input_type, duplicates) == 0 || strcmp(input_type, allowdups) == 0 ){
11890 schaersvoo 7932
        free(input_type);
14393 schaersvoo 7933
        return ALLOW_DUPLICATES;
7934
        }
15690 schaersvoo 7935
        if( strcmp(input_type, arrowarc) == 0 || strcmp(input_type, arcarrow) == 0 ){
14393 schaersvoo 7936
        free(input_type);
15690 schaersvoo 7937
        return ARCARROW;
7938
        }
7939
        free(input_type);
7614 schaersvoo 7940
        ungetc(c,infile);
7941
        return 0;
7942
}
15611 schaersvoo 7943
 
15613 schaersvoo 7944
 
7945