Subversion Repositories wimsdev

Rev

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

Rev 17173 Rev 17947
Line 33... Line 33...
33 
  into slib_xrange, slib_range0,slib_yrange1, slib_yrange2
 33 
  into slib_xrange, slib_range0,slib_yrange1, slib_yrange2
34 
!distribute line $(slib_color[1])\
 34 
!distribute line $(slib_color[1])\
35 
$(slib_color[2])\
 35 
$(slib_color[2])\
36 
$(slib_color[3])\
 36 
$(slib_color[3])\
37 
$(slib_color[4])\
 37 
$(slib_color[4])\
38 
into slib_tick,slib_tick2,slib_tick3,slib_tick4
 38 
into slib_tick1,slib_tick2,slib_tick3,slib_tick4
39 
!default slib_tick=black
 39 
!default slib_tick1=black
40 
!default slib_tick2=blue
 40 
!default slib_tick2=blue
41 
!default slib_tick3=grey
 41 
!default slib_tick3=grey
42 
!default slib_tick4=yellow
 42 
!default slib_tick4=yellow
43 
!reset slib_Ticks slib_ticks slib_tickss
 43 
!reset slib_Ticks
44 
!for slib_i=$slib_yrange1+1 to $slib_yrange2-1
 44 
!set slib_Ticks1=segments $slib_tick1
45 
  !set slib_Ticks=$slib_Ticks\
 45 
!set slib_Ticks2=segments $slib_tick2
46 
segment -$slib_range0,$slib_i,-0.5,$slib_i,$slib_tick\
 46 
!set slib_Ticks3=segments $slib_tick3
47 
segment  $slib_range0,$slib_i, 0.5,$slib_i,$slib_tick
 - 
 
48 
 
 47 
 
- 
 
 48 
!for slib_i=$slib_yrange1+1 to $slib_yrange2-1
- 
 
 49 
  !set slib_Ticks1=$slib_Ticks1, -$slib_range0,$slib_i,-0.5,$slib_i,$slib_range0,$slib_i, 0.5,$slib_i
49 
  !if $slib_type iswordof right
 50 
  !if $slib_type iswordof right
50 
    !set slib_Ticks=$slib_Ticks\
 51 
    !set slib_Ticks=$slib_Ticks\
51 
      text $slib_tick,$[$slib_range0-1],$slib_i+0.3, small, $[$slib_i*10]
 52 
      text $slib_tick,$[$slib_range0-1],$slib_i+0.3, small, $[$slib_i*10]
52 
  !endif
 53 
  !endif
53 
  !if $slib_type iswordof left
 54 
  !if $slib_type iswordof left
54 
    !set slib_Ticks=$slib_Ticks\
 55 
    !set slib_Ticks=$slib_Ticks\
55 
    text $slib_tick,$[-$slib_range0-0.4],$[$slib_i+0.3], small, $[$slib_i*10]
 56 
    text $slib_tick1,$[-$slib_range0-0.4],$[$slib_i+0.3], small, $[$slib_i*10]
56 
  !endif
 57 
  !endif
57 
  !if $slib_type iswordof leftandright
 58 
  !if $slib_type iswordof leftandright
58 
    !set slib_Ticks=$slib_Ticks\
 59 
    !set slib_Ticks=$slib_Ticks\
59 
    text $slib_tick,$[-$slib_range0-0.5],$[$slib_i+0.5], large, $slib_i\
 60 
    text $slib_tick1,$[-$slib_range0-0.5],$[$slib_i+0.5], large, $slib_i\
60 
    text $slib_tick,$[$slib_range0-0.2],$[$slib_i+0.5], large, 0
 61 
    text $slib_tick1,$[$slib_range0-0.2],$[$slib_i+0.5], large, 0
61 
  !endif
 62 
  !endif
62 
!next slib_i
 63 
!next slib_i
63 
!for slib_j=$slib_yrange1+1 to $slib_yrange2-1
 64 
!for slib_j=$slib_yrange1+1 to $slib_yrange2-1
64 
  !set slib_ticks=$slib_ticks\
 - 
 
65 
    segment -2,$[$slib_j+0.5],-0.5,$[$slib_j+0.5],$slib_tick2\
 65 
  !set slib_Ticks2=$slib_Ticks2,-2,$[$slib_j+0.5],-0.5,$[$slib_j+0.5],0.5,$[$slib_j+0.5], 2,$[$slib_j+0.5]
66 
    segment  0.5,$[$slib_j+0.5], 2,$[$slib_j+0.5],$slib_tick2
 - 
 
67 
!next slib_j
 66 
!next slib_j
68 
 
 - 
 
69 
!for slib_j=10*($slib_yrange1) to 10*($slib_yrange2-1)
 67 
!for slib_j=10*($slib_yrange1) to 10*($slib_yrange2-1)
70 
  !set slib_tickss=$slib_tickss\
 - 
 
71 
  segment -1.5,$[$slib_j/10+0.5],-0.5,$[$slib_j/10+0.5],$slib_tick3\
 68 
  !set slib_Ticks3=$slib_Ticks3,-1.5,$[$slib_j/10+0.5],-0.5,$[$slib_j/10+0.5], 0.5,$[$slib_j/10+0.5], 1.5,$[$slib_j/10+0.5]
72 
  segment  0.5,$[$slib_j/10+0.5], 1.5,$[$slib_j/10+0.5],$slib_tick3
 - 
 
73 
!next slib_i
 69 
!next slib_i
74 
 
 70 
 
75 
slib_out=\
 - 
 
76 
transparent white\
 71 
slib_out=transparent white\
77 
 xrange -$slib_xrange,$slib_xrange+0.3\
 72 
xrange -$slib_xrange,$slib_xrange+0.3\
78 
 yrange $slib_yrange1-0.5,$slib_yrange2\
 73 
yrange $slib_yrange1-0.5,$slib_yrange2\
79 
 text $slib_tick,2,$[$slib_yrange1+0.5],large,$slib_degree\
 74 
text $slib_tick1,2,$[$slib_yrange1+0.5],large,$slib_degree\
80 
 linewidth 1\
 75 
linewidth 1\
- 
 
 76 
$slib_Ticks3\
81 
 $slib_tickss\
 77 
$slib_Ticks1\
82 
 $slib_ticks\
 78 
$slib_Ticks2\
83 
 $slib_Ticks\
 79 
$slib_Ticks\
84 
 linewidth 3\
 80 
linewidth 3\
85 
 rectangle -$slib_xrange,$[$slib_yrange1-0.2],$slib_xrange,$slib_yrange2,blue\
 81 
rectangle -$slib_xrange,$[$slib_yrange1-0.2],$slib_xrange,$slib_yrange2,blue\
86 
 polyline grey, -0.5,$[$slib_yrange1+0.3],-0.5,$[$slib_yrange2-0.2], 0.5,$[$slib_yrange2-0.2],0.5,$[$slib_yrange1+0.3]\
 82 
polyline grey, -0.5,$[$slib_yrange1+0.3],-0.5,$[$slib_yrange2-0.2], 0.5,$[$slib_yrange2-0.2],0.5,$[$slib_yrange1+0.3]\
87 
 trange $[pi/2 + pi/6],$[2*pi + pi/2 - pi/6]\
 83 
trange $[pi/2 + pi/6],$[2*pi + pi/2 - pi/6]\
88 
 plot $slib_tick4, 0 + 0.6*cos(t), $slib_yrange1 + 0.2 + 0.6/4* sin(t)
 84 
plot $slib_tick4, 0 + 0.6*cos(t), $slib_yrange1 + 0.2 + 0.6/4* sin(t)
- 
 
 85 
 
89 
slib_point=$[($slib_yrange1 + ($slib_deg))/2]
 86 
slib_point=$[($slib_yrange1 + ($slib_deg))/2]
90 
slib_out=$slib_out\
 87 
slib_out=$slib_out\
91 
 linewidth 1\
 88 
 linewidth 1\
92 
 segment -0.5,$slib_deg,0.5,$slib_deg,$slib_tick4\
 89 
 segment -0.5,$slib_deg,0.5,$slib_deg,$slib_tick4\
93 
 fill 0,$slib_point,$slib_tick4
 90 
 fill 0,$slib_point,$slib_tick4