Subversion Repositories wimsdev

Rev

Rev 4349 | Rev 4908 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4349 Rev 4700
Line 1... Line 1...
1
!if $wims_read_parm!=slib_header
1
!if $wims_read_parm!=slib_header
2
 !goto proc
2
 !goto proc
3
!endif
3
!endif
4
 
4
 
5
slib_author=Gang, XIAO
5
slib_author=Gang, XIAO
6
 
-
 
-
 
6
slib_example=02:45:33,120,1,html\
-
 
7
02:45:33,120,1,html nominute
7
!exit
8
!exit
8
 
9
 
9
:proc
10
:proc
10
slib_sizes=120,160,200,240
11
slib_sizes=120,160,200,240
11
!distribute items $wims_read_parm into slib_time,slib_size,slib_style,slib_option
12
!distribute items $wims_read_parm into slib_time,slib_size,slib_style,slib_option
Line 17... Line 18...
17
!bound slib_m between integer -10000 and 10000 default 0
18
!bound slib_m between integer -10000 and 10000 default 0
18
!bound slib_s between integer -10000 and 10000 default 0
19
!bound slib_s between integer -10000 and 10000 default 0
19
slib_h=$[($slib_h+12000)%12]
20
slib_h=$[($slib_h+12000)%12]
20
slib_sizef=!positionof item $slib_size in $slib_sizes
21
slib_sizef=!positionof item $slib_size in $slib_sizes
21
slib_fstyle=!item $slib_style of a,b
22
slib_fstyle=!item $slib_style of a,b
22
 
23
 
23
!if exactmin notwordof $slib_option
24
!if exactmin notwordof $slib_option
24
 slib_m=$[$slib_m+$slib_s/60]
25
 slib_m=$[$slib_m+$slib_s/60]
25
!endif
26
!endif
26
slib_h=$[$slib_h+$slib_m/60]
27
slib_h=$[$slib_h+$slib_m/60]
27
!distribute item $[sin($slib_h*pi/6)],$[cos($slib_h*pi/6)],\
28
!distribute item $[sin($slib_h*pi/6)],$[cos($slib_h*pi/6)],\
Line 57... Line 58...
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
 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
!endif
59
slib_out=$slib_out\
60
slib_out=$slib_out\
60
 linewidth $slib_md\
61
 linewidth $slib_md\
61
 point 0,0,$slib_cm
62
 point 0,0,$slib_cm
62
 
63
 
63
!if nosecond notwordof $slib_option
64
!if nosecond notwordof $slib_option
64
 slib_out=$slib_out\
65
 slib_out=$slib_out\
65
 linewidth $slib_sw\
66
 linewidth $slib_sw\
66
 line $slib_s1*(-$slib_sb),$slib_s2*(-$slib_sb), $slib_s1*$slib_sl,$slib_s2*$slib_sl,$slib_cs\
67
 line $slib_s1*(-$slib_sb),$slib_s2*(-$slib_sb), $slib_s1*$slib_sl,$slib_s2*$slib_sl,$slib_cs\
67
 linewidth $slib_sd\
68
 linewidth $slib_sd\
68
 point 0,0,$slib_cs
69
 point 0,0,$slib_cs
69
!endif
70
!endif
70
 
71
 
-
 
72
!if url iswordof $slib_option or html iswordof $slib_option
-
 
73
  !insdraw $slib_out
-
 
74
  slib_out=$ins_url
-
 
75
  !if html iswordof $slib_option
-
 
76
   slib_out=<img src="$ins_url" alt="">
-
 
77
  !endif
-
 
78
  slib_out=$slib_out
-
 
79
!endif