Subversion Repositories wimsdev

Rev

Rev 9339 | 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
 
4349 bpr 5
slib_author=Gang, XIAO
4700 bpr 6
slib_example=02:45:33,120,1,html\
9339 bpr 7
02:45:33,120,1,html nominute\
8
02:45:33,120,2,html nosecond
20 reyssat 9
!exit
10
 
11
:proc
12
slib_sizes=120,160,200,240
13
!distribute items $wims_read_parm into slib_time,slib_size,slib_style,slib_option
14
!bound slib_size within $slib_sizes default 200
15
!bound slib_style between integer 1 and 2 default 1
16
slib_time=!translate : to , in $slib_time
17
!distribute items $slib_time into slib_h,slib_m,slib_s
18
!bound slib_h between integer -10000 and 10000 default 0
19
!bound slib_m between integer -10000 and 10000 default 0
20
!bound slib_s between integer -10000 and 10000 default 0
21
slib_h=$[($slib_h+12000)%12]
22
slib_sizef=!positionof item $slib_size in $slib_sizes
23
slib_fstyle=!item $slib_style of a,b
24
 
25
!if exactmin notwordof $slib_option
13582 bpr 26
  slib_m=$[$slib_m+$slib_s/60]
20 reyssat 27
!endif
28
slib_h=$[$slib_h+$slib_m/60]
29
!distribute item $[sin($slib_h*pi/6)],$[cos($slib_h*pi/6)],\
30
	$[sin($slib_m*pi/30)],$[cos($slib_m*pi/30)],\
31
	$[sin($slib_s*pi/30)],$[cos($slib_s*pi/30)] into\
32
	slib_h1,slib_h2,slib_m1,slib_m2,slib_s1,slib_s2
33
 
34
slib_colors=!line $slib_style of black,black,red\
35
	gold,gold,red
36
!distribute item $slib_colors into slib_ch,slib_cm,slib_cs
37
 
38
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\
39
	1.07,0.5,0.05,0.18,0.68,0.04,0.23,0.9,2,0.25,16,10\
40
	1.08,0.52,0.05,0.2,0.71,0.04,0.25,0.9,3,0.25,18,12\
41
	1.06,0.52,0.05,0.2,0.73,0.04,0.25,0.9,3,0.25,22,12
42
!distribute item $slib_sizs into slib_rg,slib_hl,slib_hw,slib_hb,\
43
	slib_ml,slib_mw,slib_mb,slib_sl,slib_sw,slib_sb,slib_md,slib_sd
44
 
45
insdraw_size=$slib_size,$slib_size
46
slib_out=transparent white\
47
 copy 0,0,-1,-1,-1,-1,raw/clock/$slib_size$slib_fstyle.gif\
48
 xrange -$slib_rg,$slib_rg\
49
 yrange -$slib_rg,$slib_rg\
4047 guerimand 50
 linewidth 1
51
!if nohour notwordof $slib_option
13582 bpr 52
  slib_out=$slib_out\
53
  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)]\
54
  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)]
4047 guerimand 55
!endif
4048 bpr 56
!if nominute notwordof $slib_option
13582 bpr 57
  slib_out=$slib_out\
58
  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)\
59
  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)]
4047 guerimand 60
!endif
61
slib_out=$slib_out\
20 reyssat 62
 linewidth $slib_md\
63
 point 0,0,$slib_cm
64
 
65
!if nosecond notwordof $slib_option
13582 bpr 66
  slib_out=$slib_out\
67
  linewidth $slib_sw\
68
  segment $[$slib_s1*(-$slib_sb)],$[$slib_s2*(-$slib_sb)],$[$slib_s1*$slib_sl],$[$slib_s2*$slib_sl],$[$slib_cs]\
69
  linewidth $slib_sd\
70
  point 0,0,$slib_cs
20 reyssat 71
!endif
72
 
4700 bpr 73
!if url iswordof $slib_option or html iswordof $slib_option
74
  !insdraw $slib_out
75
  slib_out=$ins_url
76
  !if html iswordof $slib_option
6557 bpr 77
    slib_out=<img src="$ins_url" alt="" />
13582 bpr 78
  !else
4908 bpr 79
    slib_out=$slib_out,$insdraw_size
13582 bpr 80
  !endif
4700 bpr 81
!endif