Subversion Repositories wimsdev

Rev

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

Rev 10989 Rev 11042
Line 38... Line 38...
38 
     slib_square=$(slib_d[$slib_n;])
 38 
     slib_square=$(slib_d[$slib_n;])
39 
     slib_square=!nospace $slib_square
 39 
     slib_square=!nospace $slib_square
40 
     !if $(slib_square[4])!=$empty
 40 
     !if $(slib_square[4])!=$empty
41 
         !for slib_i=0 to $(slib_square[3])-1
 41 
         !for slib_i=0 to $(slib_square[3])-1
42 
           !for slib_j = 0 to $(slib_square[4])-1
 42 
           !for slib_j = 0 to $(slib_square[4])-1
43 
             slib_list=!append line $[$(slib_square[1])+$slib_i],$[$(slib_square[2])+$slib_j] to $slib_list
 43 
             slib_rect=$[$(slib_square[1])+$slib_i],$[$(slib_square[2])+$slib_j],$[$(slib_square[1])+$slib_i+1],$[$(slib_square[2])+$slib_j+1]
44 
             !if $(slib_color[2])!=$empty
 44 
             !if $(slib_color[2])!=$empty
45 
               slib_out=!append line frectangle $[$(slib_square[1])+$slib_i],$[$(slib_square[2])+$slib_j],$[$(slib_square[1])+$slib_i]+1,$[$(slib_square[2])+$slib_j]+1,$(slib_color[2]) to $slib_out
 45 
               slib_out=!append line frectangle $slib_rect,$(slib_color[2]) to $slib_out
46 
             !endif
 46 
             !endif
47 
             slib_out=!append line rectangle $[$(slib_square[1])+$slib_i],$[$(slib_square[2])+$slib_j],$[$(slib_square[1])+$slib_i]+1,$[$(slib_square[2])+$slib_j]+1,$(slib_color[1]) to $slib_out
 47 
             slib_out=!append line rectangle $slib_rect,$(slib_color[1]) to $slib_out
48 
           !next
 48 
           !next
49 
          !next
 49 
          !next
50 
          slib_maxx=$[max($(slib_square[1])+$(slib_square[3])+1,$slib_maxx)]
 50 
          slib_maxx=$[max($(slib_square[1])+$(slib_square[3])+1,$slib_maxx)]
51 
          slib_maxy=$[max($(slib_square[2])+$(slib_square[4])+1,$slib_maxy)]
 51 
          slib_maxy=$[max($(slib_square[2])+$(slib_square[4])+1,$slib_maxy)]
52 
          slib_minx=$[min($(slib_square[1]),$slib_minx)]
 52 
          slib_minx=$[min($(slib_square[1]),$slib_minx)]
Line 70... Line 70...
70 
to $slib_out
 70 
to $slib_out
71 
           !endif
 71 
           !endif
72 
           slib_out=!append line triangle $slib_tmp,$(slib_color[1]) \
 72 
           slib_out=!append line triangle $slib_tmp,$(slib_color[1]) \
73 
to $slib_out
 73 
to $slib_out
74 
         !else
 74 
         !else
- 
 
 75 
           slib_rect=$[$(slib_square[1])],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])+1]
75 
           !if $(slib_color[2])!=$empty
 76 
           !if $(slib_color[2])!=$empty
76 
             slib_out=!append line frectangle $[$(slib_square[1])],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])+1],$(slib_color[2]) \
 77 
             slib_out=!append line frectangle $slib_rect,$(slib_color[2]) \
77 
to $slib_out
 78 
to $slib_out
78 
           !endif
 79 
           !endif
79 
          slib_out=!append line rectangle $[$(slib_square[1])],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])+1],$(slib_color[1]) \
 80 
          slib_out=!append line rectangle $slib_rect,$(slib_color[1]) to $slib_out
80 
to $slib_out
 - 
 
81 
        !endif
 81 
        !endif
82 
        slib_maxx=$[max($(slib_square[1])+1,$slib_maxx)]
 82 
        slib_maxx=$[max($(slib_square[1])+1,$slib_maxx)]
83 
        slib_maxy=$[max($(slib_square[2])+1,$slib_maxy)]
 83 
        slib_maxy=$[max($(slib_square[2])+1,$slib_maxy)]
84 
        slib_minx=$[min($(slib_square[1]),$slib_minx)]
 84 
        slib_minx=$[min($(slib_square[1]),$slib_minx)]
85 
        slib_miny=$[min($(slib_square[2]),$slib_miny)]
 85 
        slib_miny=$[min($(slib_square[2]),$slib_miny)]
86 
     !endif
 86 
     !endif
87 
!next
 87 
!next
88 
slib_min=$[min($slib_minx,$slib_miny)-1]
 - 
 
89 
slib_max=$[max($slib_maxx,$slib_maxy)+1]
 - 
 
90 
 
 - 
 
91 
!if $slib_sizey=$empty
 88 
!if $slib_sizey=$empty
92 
  slib_sizey=$[round($slib_sizex*(2+$slib_maxy-($slib_miny))/(2+$slib_maxx-($slib_minx)))]
 89 
  slib_sizey=$[round($slib_sizex*(2+$slib_maxy-($slib_miny))/(2+$slib_maxx-($slib_minx)))]
93 
!else
 90 
!else
94 
  !if $slib_sizex=$empty
 91 
  !if $slib_sizex=$empty
95 
    slib_sizex=$[round($slib_sizey*(2+$slib_maxx-($slib_minx))/(2+$slib_maxy-($slib_miny)))]
 92 
    slib_sizex=$[round($slib_sizey*(2+$slib_maxx-($slib_minx))/(2+$slib_maxy-($slib_miny)))]