Rev 11348 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 6993 | bpr | 1 | !if $wims_read_parm!=slib_header |
| 13592 | bpr | 2 | !goto proc |
| 6993 | bpr | 3 | !endif |
| 4 | |||
| 5 | slib_author=Bernadette, Perrin-Riou |
||
| 6 | !exit |
||
| 7 | |||
| 8 | :proc |
||
| 9 | slib_out= |
||
| 10 | |||
| 11 | !distribute items $wims_read_parm into slib_f1,slib_f2,slib_size,slib_xmin,slib_xmax,slib_ymin,slib_ymax,slib_xsep,slib_ysep,slib_seglength,slib_color,slib_xyinit,slib_number,slib_cursor |
||
| 12 | !default slib_ysep=0.5 |
||
| 13 | !default slib_xsep=0.5 |
||
| 14 | slib_xyinit=!declosing $slib_xyinit |
||
| 15 | |||
| 16 | slib_xyinitcnt=!itemcnt $slib_init |
||
| 17 | !if $slib_xyinitcnt<=1 |
||
| 18 | slib_xynbcurve=$slib_xyinit |
||
| 13592 | bpr | 19 | !bound slib_xynbcurve between 1 and 10 default 1 |
| 6993 | bpr | 20 | slib_xypoints=!values $[$slib_xmin+($slib_xmax -$slib_xmin)/10], $slib_ymin + (x-0.5)/$slib_nbcurve*($slib_ymax-$slib_ymin) for x = 1 to $slib_nbcurve |
| 21 | !else |
||
| 22 | slib_xynbcurve=$[$slib_xyinitcnt/2] |
||
| 23 | slib_xypoints=$slib_xyinit |
||
| 24 | !endif |
||
| 25 | !! ne tient compte que du premier point. A changer |
||
| 26 | |||
| 27 | !distribute items $slib_xyinit into slib_xinit,slib_yinit |
||
| 28 | !if x notin $slib_size |
||
| 29 | slib_size=$slib_size x $slib_size |
||
| 30 | !endif |
||
| 31 | slib_color=!declosing $slib_color |
||
| 32 | !default slib_color=green, blue |
||
| 33 | slib_color=$slib_color,$slib_color |
||
| 34 | !default slib_number=!randint 1,100 |
||
| 35 | jxgbox=jxgbox$slib_number |
||
| 36 | brd=brd |
||
| 37 | !default slib_seglength=0.2 |
||
| 38 | slib_cursorcnt=0 |
||
| 39 | slib_cursor=!declosing $slib_cursor |
||
| 40 | !if $slib_cursor != $empty |
||
| 13592 | bpr | 41 | !if ; isin $slib_cursor |
| 42 | slib_cursorcnt=!itemcnt $(slib_cursor[;1]) |
||
| 43 | !else |
||
| 44 | slib_cursorcnt=1 |
||
| 45 | !endif |
||
| 6993 | bpr | 46 | !endif |
| 47 | !reset slib_script_cursor |
||
| 48 | brd=brd |
||
| 49 | |||
| 50 | !if $slib_cursorcnt>0 |
||
| 51 | slib_script_cursor=var $brd = JXG.JSXGraph.initBoard('$jxgbox', {axis:true, boundingbox:[$slib_xmin,$slib_ymax,$slib_xmax,$slib_ymin]}); |
||
| 52 | !endif |
||
| 53 | !for slib_j = 1 to $slib_cursorcnt |
||
| 54 | slib_script_cursor=$slib_script_cursor\ |
||
| 11348 | bpr | 55 | $(slib_cursor[$slib_j;2]) = $brd.create('slider', [[$[$slib_xmin+1],$[$slib_ymax-$slib_j-0.5]],[$[round(($slib_xmax+$slib_xmin)/2)],$[$slib_ymax-$slib_j-0.5]],[$(slib_cursor[$slib_j;4..6])]],{name:'$(slib_cursor[$slib_j;2]) ',strokeColor:'black',fillColor:'black', snapWidth:0.1});\ |
| 56 | $(slib_cursor[$slib_j;2])_name=$brd.create('text', [$[$slib_xmin+1],$[$slib_ymax-$slib_j], "$(slib_cursor[$slib_j;3])"]); |
||
| 6993 | bpr | 57 | slib_f1=!replace internal $(slib_cursor[$slib_j;1]) by $(slib_cursor[$slib_j;2]).Value() in $slib_f1 |
| 58 | slib_f2=!replace internal $(slib_cursor[$slib_j;1]) by $(slib_cursor[$slib_j;2]).Value() in $slib_f2 |
||
| 59 | !next |
||
| 60 | |||
| 8493 | bpr | 61 | !readproc slib/analysis/slope.js |
| 6993 | bpr | 62 | slib_script=!replace internal /*CURSOR*/ by $slib_script_cursor in $slib_script |
| 8493 | bpr | 63 | |
| 6993 | bpr | 64 | !readproc slib/geo2D/jsxgraph $jxgbox, $slib_size, $slib_script |