Subversion Repositories wimsdev

Rev

Rev 17173 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17173 Rev 17949
Line 16... Line 16...
16 
 
 16 
 
17 
!set slib_text=!declosing $slib_text
 17 
!set slib_text=!declosing $slib_text
18 
!default slib_text=0,,20,,40,,60,,80,,100,,120
 18 
!default slib_text=0,,20,,40,,60,,80,,100,,120
19 
!set slib_limit=!declosing $slib_range
 19 
!set slib_limit=!declosing $slib_range
20 
!default slib_limit=-6,6
 20 
!default slib_limit=-6,6
21 
 
 - 
 
- 
 
 21 
!reset slib_Text
22 
 
 22 
 
23 
!set slib_color=!declosing $slib_color
 23 
!set slib_color=!declosing $slib_color
24 
!default slib_color=black,black,black
 24 
!default slib_color=black,black,black
25 
!set insdraw_size=200,200
 25 
!set insdraw_size=200,200
26 
!set slib_dia=195
 26 
!set slib_dia=195
Line 31... Line 31...
31 
!set slib_Tick=$(slib_color[1])
 31 
!set slib_Tick=$(slib_color[1])
32 
!set slib_colorpin=$(slib_color[3])
 32 
!set slib_colorpin=$(slib_color[3])
33 
!set slib_face=$(slib_color[4])
 33 
!set slib_face=$(slib_color[4])
34 
!default slib_face=white
 34 
!default slib_face=white
35 
!set slib_border=grey
 35 
!set slib_border=grey
36 
!set slib_Ticks=
 36 
!set slib_Ticks=segments $slib_Tick
37 
!set slib_ticks=
 37 
!set slib_ticks=segments $slib_tick
38 
 
 - 
 
39 
 
 38 
 
40 
!for slib_i=$(slib_limit[1])*5 to $(slib_limit[2])*5
 39 
!for slib_i=$(slib_limit[1])*5 to $(slib_limit[2])*5
41 
  !set slib_k1=$[sin($slib_i*pi/$slib_r)]
 40 
  !set slib_k1=$[sin($slib_i*pi/$slib_r)]
42 
  !set slib_k2=$[cos($slib_i*pi/$slib_r)]
 41 
  !set slib_k2=$[cos($slib_i*pi/$slib_r)]
43 
  !set slib_ticks=$slib_ticks\
 - 
 
44 
   segment $slib_k1,$slib_k2,0.95*($slib_k1),0.95*($slib_k2),$slib_tick
 42 
  !set slib_ticks=$slib_ticks, $slib_k1,$slib_k2,0.95*($slib_k1),0.95*($slib_k2)
45 
!next slib_i
 43 
!next slib_i
46 
 
 44 
 
47 
!set slib_m1=1
 45 
!set slib_m1=1
48 
!set slib_s=0.2
 46 
!set slib_s=0.2
49 
!set slib_pin=point blue, 0,0\
 47 
!set slib_pin=point blue, 0,0\
50 
ftriangle $[sin(($slib_pin)*pi/$slib_R)],$[cos(($slib_pin)*pi/$slib_R)],$[-sin(($slib_pin+$slib_m1)*pi/$slib_R)*$slib_s], $[-cos(($slib_pin+$slib_m1)*pi/$slib_R)*$slib_s],$[-sin(($slib_pin-$slib_m1)*pi/$slib_R)*$slib_s], $[-cos(($slib_pin-$slib_m1)*pi/$slib_R)*$slib_s],$slib_colorpin
 48 
ftriangle $[sin(($slib_pin)*pi/$slib_R)],$[cos(($slib_pin)*pi/$slib_R)],$[-sin(($slib_pin+$slib_m1)*pi/$slib_R)*$slib_s], $[-cos(($slib_pin+$slib_m1)*pi/$slib_R)*$slib_s],$[-sin(($slib_pin-$slib_m1)*pi/$slib_R)*$slib_s], $[-cos(($slib_pin-$slib_m1)*pi/$slib_R)*$slib_s],$slib_colorpin
51 
 
 49 
 
52 
!for slib_i=$(slib_limit[1]) to $(slib_limit[2])
 50 
!for slib_i=$(slib_limit[1]) to $(slib_limit[2])
53 
  !set slib_k1=$[sin(($slib_i)*pi/$slib_R)]
 51 
  !set slib_k1=$[sin(($slib_i)*pi/$slib_R)]
54 
  !set slib_k2=$[cos(($slib_i)*pi/$slib_R)]
 52 
  !set slib_k2=$[cos(($slib_i)*pi/$slib_R)]
55 
  !set slib_Ticks=$slib_Ticks\
 - 
 
56 
   segment $slib_k1,$slib_k2,$slib_k1*0.91,$slib_k2*0.91,$slib_Tick\
 53 
  !set slib_Ticks=$slib_Ticks, $slib_k1,$slib_k2,$slib_k1*0.91,$slib_k2*0.91
57 
   text $slib_tick,$slib_k1*0.70-0.06,$slib_k2*0.81+0.07,huge,$(slib_text[$slib_i-$(slib_limit[1])+1])
 54 
  !set slib_Text=!append line text $slib_tick,$slib_k1*0.70-0.06,$slib_k2*0.81+0.07,huge,$(slib_text[$slib_i-$(slib_limit[1])+1]) \
- 
 
 55 
    to $slib_Text
58 
!next slib_i
 56 
!next slib_i
59 
 
 57 
 
60 
!set slib_h=!randint 1,12
 58 
!set slib_h=!randint 1,12
61 
!set slib_m=$[randint(12)*5]
 59 
!set slib_m=$[randint(12)*5]
62 
!set slib_H=$[$slib_h+$slib_m/60]
 60 
!set slib_H=$[$slib_h+$slib_m/60]
63 
!set slib_H1=$slib_[sin($slib_H*pi/$slib_R)]
 61 
!set slib_H1=$slib_[sin($slib_H*pi/$slib_R)]
64 
!set H2=$[cos($H*pi/$slib_R)]
 62 
!set H2=$[cos($H*pi/$slib_R)]
Line 74... Line 72...
74 
!set mw=0.04
 72 
!set mw=0.04
75 
!set mb=0.25
 73 
!set mb=0.25
76 
!set sl=0.9
 74 
!set sl=0.9
77 
!set sb=0.25
 75 
!set sb=0.25
78 
 
 76 
 
79 
slib_out=\
 - 
 
80 
  transparent white\
 77 
slib_out=transparent white\
81 
  xrange -$slib_range0,$slib_range0\
 78 
  xrange -$slib_range0,$slib_range0\
82 
  yrange -$slib_range0,$slib_range0\
 79 
  yrange -$slib_range0,$slib_range0\
83 
  circle 0,0,$slib_dia,$slib_border\
 80 
  circle 0,0,$slib_dia,$slib_border\
84 
  fill 0,0,$slib_face\
 81 
  fill 0,0,$slib_face\
85 
  linewidth 1\
 - 
 
86 
  $slib_ticks\
 - 
 
87 
  linewidth 3\
 82 
  linewidth 3\
88 
  $slib_Ticks\
 83 
  $slib_Ticks\
89 
  linewidth 2\
 84 
  linewidth 2\
90 
  circle 0,0,$slib_dia,$slib_border\
 85 
  circle 0,0,$slib_dia,$slib_border\
91 
  $slib_pin
 86 
  $slib_pin\
- 
 
 87 
  linewidth 1\
- 
 
 88 
  $slib_ticks\
- 
 
 89 
  $slib_Text
92 
 
 90 
 
93 
!if url iswordof $slib_option or html iswordof $slib_option
 91 
!if url iswordof $slib_option or html iswordof $slib_option
94 
  !insdraw $slib_out
 92 
  !insdraw $slib_out
95 
  slib_out=$ins_url
 93 
  slib_out=$ins_url
96 
  !if html iswordof $slib_option
 94 
  !if html iswordof $slib_option