Rev 4048 | Rev 4349 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | !if $wims_read_parm!=slib_header |
| 2 | !goto proc |
||
| 3 | !endif |
||
| 4158 | bpr | 4 | |
| 20 | reyssat | 5 | slib_author=Gang Xiao |
| 4158 | bpr | 6 | |
| 20 | reyssat | 7 | !exit |
| 8 | |||
| 9 | :proc |
||
| 10 | slib_sizes=120,160,200,240 |
||
| 11 | !distribute items $wims_read_parm into slib_time,slib_size,slib_style,slib_option |
||
| 12 | !bound slib_size within $slib_sizes default 200 |
||
| 13 | !bound slib_style between integer 1 and 2 default 1 |
||
| 14 | slib_time=!translate : to , in $slib_time |
||
| 15 | !distribute items $slib_time into slib_h,slib_m,slib_s |
||
| 16 | !bound slib_h between integer -10000 and 10000 default 0 |
||
| 17 | !bound slib_m between integer -10000 and 10000 default 0 |
||
| 18 | !bound slib_s between integer -10000 and 10000 default 0 |
||
| 19 | slib_h=$[($slib_h+12000)%12] |
||
| 20 | slib_sizef=!positionof item $slib_size in $slib_sizes |
||
| 21 | slib_fstyle=!item $slib_style of a,b |
||
| 22 | |||
| 23 | !if exactmin notwordof $slib_option |
||
| 24 | slib_m=$[$slib_m+$slib_s/60] |
||
| 25 | !endif |
||
| 26 | slib_h=$[$slib_h+$slib_m/60] |
||
| 27 | !distribute item $[sin($slib_h*pi/6)],$[cos($slib_h*pi/6)],\ |
||
| 28 | $[sin($slib_m*pi/30)],$[cos($slib_m*pi/30)],\ |
||
| 29 | $[sin($slib_s*pi/30)],$[cos($slib_s*pi/30)] into\ |
||
| 30 | slib_h1,slib_h2,slib_m1,slib_m2,slib_s1,slib_s2 |
||
| 31 | |||
| 32 | slib_colors=!line $slib_style of black,black,red\ |
||
| 33 | gold,gold,red |
||
| 34 | !distribute item $slib_colors into slib_ch,slib_cm,slib_cs |
||
| 35 | |||
| 36 | slib_sizs=!line $slib_sizef of 1.05,0.5,0.05,0.18,0.65,0.04,0.23,0.9,2,0.25,12,7\ |
||
| 37 | 1.07,0.5,0.05,0.18,0.68,0.04,0.23,0.9,2,0.25,16,10\ |
||
| 38 | 1.08,0.52,0.05,0.2,0.71,0.04,0.25,0.9,3,0.25,18,12\ |
||
| 39 | 1.06,0.52,0.05,0.2,0.73,0.04,0.25,0.9,3,0.25,22,12 |
||
| 40 | !distribute item $slib_sizs into slib_rg,slib_hl,slib_hw,slib_hb,\ |
||
| 41 | slib_ml,slib_mw,slib_mb,slib_sl,slib_sw,slib_sb,slib_md,slib_sd |
||
| 42 | |||
| 43 | insdraw_size=$slib_size,$slib_size |
||
| 44 | slib_out=transparent white\ |
||
| 45 | copy 0,0,-1,-1,-1,-1,raw/clock/$slib_size$slib_fstyle.gif\ |
||
| 46 | xrange -$slib_rg,$slib_rg\ |
||
| 47 | yrange -$slib_rg,$slib_rg\ |
||
| 4047 | guerimand | 48 | linewidth 1 |
| 49 | !if nohour notwordof $slib_option |
||
| 50 | slib_out=$slib_out\ |
||
| 20 | reyssat | 51 | fpoly $slib_ch, $slib_h1*$slib_hl,$slib_h2*$slib_hl, $slib_h2*(-$slib_hw),$slib_h1*$slib_hw, $slib_h1*(-$slib_sb),$slib_h2*(-$slib_sb), $slib_h2*$slib_hw,$slib_h1*(-$slib_hw)\ |
| 4047 | guerimand | 52 | poly $slib_ch, $slib_h1*$slib_hl,$slib_h2*$slib_hl, $slib_h2*(-$slib_hw),$slib_h1*$slib_hw, $slib_h1*(-$slib_sb),$slib_h2*(-$slib_sb), $slib_h2*$slib_hw,$slib_h1*(-$slib_hw) |
| 53 | !endif |
||
| 4048 | bpr | 54 | !if nominute notwordof $slib_option |
| 4047 | guerimand | 55 | slib_out=$slib_out\ |
| 20 | reyssat | 56 | fpoly $slib_cm, $slib_m1*$slib_ml,$slib_m2*$slib_ml, $slib_m2*(-$slib_mw),$slib_m1*$slib_mw, $slib_m1*(-$slib_sb),$slib_m2*(-$slib_sb), $slib_m2*$slib_mw,$slib_m1*(-$slib_mw)\ |
| 4047 | guerimand | 57 | poly $slib_cm, $slib_m1*$slib_ml,$slib_m2*$slib_ml, $slib_m2*(-$slib_mw),$slib_m1*$slib_mw, $slib_m1*(-$slib_sb),$slib_m2*(-$slib_sb), $slib_m2*$slib_mw,$slib_m1*(-$slib_mw) |
| 58 | !endif |
||
| 59 | slib_out=$slib_out\ |
||
| 20 | reyssat | 60 | linewidth $slib_md\ |
| 61 | point 0,0,$slib_cm |
||
| 62 | |||
| 63 | !if nosecond notwordof $slib_option |
||
| 64 | slib_out=$slib_out\ |
||
| 65 | linewidth $slib_sw\ |
||
| 66 | line $slib_s1*(-$slib_sb),$slib_s2*(-$slib_sb), $slib_s1*$slib_sl,$slib_s2*$slib_sl,$slib_cs\ |
||
| 67 | linewidth $slib_sd\ |
||
| 68 | point 0,0,$slib_cs |
||
| 69 | !endif |
||
| 70 |