Rev 13585 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 10968 | bpr | 1 | !if $wims_read_parm!=slib_header |
| 2 | !goto proc |
||
| 3 | !endif |
||
| 4 | |||
| 5 | slib_author=Bernadette, Perrin-Riou |
||
| 6 | |||
| 7 | slib_example=,,,html\ |
||
| 8 | [10,5,4],lightblue,[,200],html\ |
||
| 9 | [4,1,1],orange,[,100],html\ |
||
| 10 | [1,5,1],lightgreen,[50],html\ |
||
| 11 | [5,1,1],lightgreen,[,50],html\ |
||
| 12 | [1,1,3],lightgreen,[100],html |
||
| 13 | |||
| 14 | !exit |
||
| 15 | :proc |
||
| 16 | !reset slib_out |
||
| 17 | !distribute item $wims_read_parm into slib_num,slib_color,slib_size,slib_url |
||
| 18 | |||
| 19 | slib_num=!declosing $slib_num |
||
| 20 | !default slib_num=10,10,10 |
||
| 21 | slib_size=!declosing $slib_size |
||
| 22 | slib_slope=0.5,0.2 |
||
| 23 | !default slib_color=lightblue |
||
| 24 | slib_maxx=$[$(slib_num[1])+$(slib_slope[1])*$(slib_num[3])] |
||
| 25 | slib_maxy=$[$(slib_num[2])+$(slib_slope[2])*$(slib_num[3])] |
||
| 26 | !default slib_size=200 |
||
| 27 | !if $(slib_size[1])=$empty |
||
| 28 | slib_size=!exec pari $(slib_size[2])*[($slib_maxx+0.3)/($slib_maxy+0.3),1] |
||
| 29 | !endif |
||
| 30 | !if $(slib_size[2])=$empty |
||
| 31 | slib_size=!exec pari $(slib_size[1])*[1,($slib_maxy+0.3)/($slib_maxx+0.3)] |
||
| 32 | !endif |
||
| 33 | |||
| 34 | slib_out=xrange -0.1,$slib_maxx+0.2\ |
||
| 35 | yrange -0.1,$slib_maxy+0.2\ |
||
| 36 | linewidth 3\ |
||
| 37 | transparent 255,255,255\ |
||
| 38 | frectangle 0,0,$(slib_num[1]),$(slib_num[2]),$slib_color\ |
||
| 39 | fpolygon $slib_color,0,$(slib_num[2]),$(slib_num[1]),$(slib_num[2]),$(slib_num[1])+$(slib_num[3])*$(slib_slope[1]),$(slib_num[2])+$(slib_num[3])*$(slib_slope[2]),$(slib_num[3])*$(slib_slope[1]),$(slib_num[2])+$(slib_num[3])*$(slib_slope[2])\ |
||
| 40 | fpolygon $slib_color,$(slib_num[1]),0,$(slib_num[1]),$(slib_num[2]),$(slib_num[1])+$(slib_num[3])*$(slib_slope[1]),$(slib_num[2])+$(slib_num[3])*$(slib_slope[2]),$(slib_num[1])+$(slib_num[3])*$(slib_slope[1]),$(slib_num[3])*$(slib_slope[2])\ |
||
| 41 | linewidth 1\ |
||
| 42 | parallel 0,0,$(slib_num[1]),0,0,1,$(slib_num[2]),black\ |
||
| 43 | parallel 0,0,0,$(slib_num[2]),1,0,$(slib_num[1]),black\ |
||
| 44 | parallel 0,$(slib_num[2]),$(slib_slope[1])*$(slib_num[3]),$(slib_num[2])+$(slib_slope[2])*$(slib_num[3]),1,0,$(slib_num[1])+1,black\ |
||
| 45 | parallel 0,$(slib_num[2]),$(slib_num[1]),$(slib_num[2]),$(slib_slope[1]),$(slib_slope[2]),$(slib_num[3])+1,black\ |
||
| 46 | parallel $(slib_num[1]),0,$(slib_num[1]),$(slib_num[2]),$(slib_slope[1]),$(slib_slope[2]),$(slib_num[3])+1,black\ |
||
| 47 | parallel $(slib_num[1]),0,$(slib_num[1])+$(slib_slope[1])*$(slib_num[3]),$(slib_slope[2])*$(slib_num[3]),0,1,$(slib_num[2])+1,black |
||
| 48 | |||
| 49 | !if url iswordof $slib_url or html iswordof $slib_url |
||
| 50 | insdraw_size=$slib_size |
||
| 51 | !insdraw $slib_out |
||
| 52 | slib_out=$ins_url |
||
| 53 | !if html iswordof $slib_url |
||
| 17173 | bpr | 54 | slib_out=<img src="$ins_url" alt="$(slib_num[1]) $(slib_num[2]) $(slib_num[3])"> |
| 10968 | bpr | 55 | !else |
| 56 | slib_out=$slib_out,$insdraw_size |
||
| 57 | !endif |
||
| 58 | !endif |