Subversion Repositories wimsdev

Rev

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

Rev 11042 Rev 13594
Line 1... Line -...
1 
 
 - 
 
2 
!if $wims_read_parm!=slib_header
 1 
!if $wims_read_parm!=slib_header
3 
 !goto proc
 2 
  !goto proc
4 
!endif
 3 
!endif
5 
slib_title=Square tile
 4 
slib_title=Square tile
6 
slib_author=Bernadette, Perrin-Riou
 5 
slib_author=Bernadette, Perrin-Riou
7 
slib_example=[0,0,2,4;2,2,4,10],[300,300],[blue,green],html\
 6 
slib_example=[0,0,2,4;2,2,4,10],[300,300],[blue,green],html\
8 
[0,0,2,4;2,2,4,10],[,300],[blue,green],html\
 7 
[0,0,2,4;2,2,4,10],[,300],[blue,green],html\
Line 33... Line 32...
33 
!default slib_color=red
 32 
!default slib_color=red
34 
 
 33 
 
35 
slib_cnt=0
 34 
slib_cnt=0
36 
!reset slib_list
 35 
!reset slib_list
37 
!for slib_n = 1 to $slib_dcnt
 36 
!for slib_n = 1 to $slib_dcnt
38 
     slib_square=$(slib_d[$slib_n;])
 37 
  slib_square=$(slib_d[$slib_n;])
39 
     slib_square=!nospace $slib_square
 38 
  slib_square=!nospace $slib_square
40 
     !if $(slib_square[4])!=$empty
 39 
  !if $(slib_square[4])!=$empty
41 
         !for slib_i=0 to $(slib_square[3])-1
 40 
    !for slib_i=0 to $(slib_square[3])-1
42 
           !for slib_j = 0 to $(slib_square[4])-1
 41 
      !for slib_j = 0 to $(slib_square[4])-1
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]
 42 
        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
 43 
        !if $(slib_color[2])!=$empty
45 
               slib_out=!append line frectangle $slib_rect,$(slib_color[2]) to $slib_out
 44 
          slib_out=!append line frectangle $slib_rect,$(slib_color[2]) to $slib_out
46 
             !endif
 45 
        !endif
47 
             slib_out=!append line rectangle $slib_rect,$(slib_color[1]) to $slib_out
 46 
        slib_out=!append line rectangle $slib_rect,$(slib_color[1]) to $slib_out
48 
           !next
 47 
      !next
49 
          !next
 48 
    !next
50 
          slib_maxx=$[max($(slib_square[1])+$(slib_square[3])+1,$slib_maxx)]
 49 
    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)]
 50 
    slib_maxy=$[max($(slib_square[2])+$(slib_square[4])+1,$slib_maxy)]
52 
          slib_minx=$[min($(slib_square[1]),$slib_minx)]
 51 
    slib_minx=$[min($(slib_square[1]),$slib_minx)]
53 
          slib_miny=$[min($(slib_square[2]),$slib_miny)]
 52 
    slib_miny=$[min($(slib_square[2]),$slib_miny)]
54 
    !else
 53 
  !else
55 
         !if $(slib_square[3])!=$empty
 54 
    !if $(slib_square[3])!=$empty
56 
           !if $(slib_square[3])=t2
 55 
      !if $(slib_square[3])=t2
57 
             slib_tmp=$[$(slib_square[1])],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])+1]
 56 
        slib_tmp=$[$(slib_square[1])],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])+1]
58 
           !endif
 57 
      !endif
59 
           !if $(slib_square[3])=t1
 58 
      !if $(slib_square[3])=t1
60 
             slib_tmp=$[$(slib_square[1])],$[$(slib_square[2])],$[$(slib_square[1])],$[$(slib_square[2])+1],$[$(slib_square[1])+1],$[$(slib_square[2])+1]
 59 
        slib_tmp=$[$(slib_square[1])],$[$(slib_square[2])],$[$(slib_square[1])],$[$(slib_square[2])+1],$[$(slib_square[1])+1],$[$(slib_square[2])+1]
61 
           !endif
 60 
      !endif
62 
           !if $(slib_square[3])=t3
 61 
      !if $(slib_square[3])=t3
63 
             slib_tmp=$[$(slib_square[1])],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])],$[$(slib_square[1])],$[$(slib_square[2])+1]
 62 
        slib_tmp=$[$(slib_square[1])],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])],$[$(slib_square[1])],$[$(slib_square[2])+1]
64 
           !endif
 63 
      !endif
65 
           !if $(slib_square[3])=t4
 64 
      !if $(slib_square[3])=t4
66 
             slib_tmp=$[$(slib_square[1])+1],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])+1],$[$(slib_square[1])],$[$(slib_square[2])+1]
 65 
        slib_tmp=$[$(slib_square[1])+1],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])+1],$[$(slib_square[1])],$[$(slib_square[2])+1]
67 
           !endif
 66 
      !endif
68 
           !if $(slib_color[2])!=$empty
 67 
      !if $(slib_color[2])!=$empty
69 
             slib_out=!append line ftriangle $slib_tmp,$(slib_color[2]) \
 68 
        slib_out=!append line ftriangle $slib_tmp,$(slib_color[2]) \
- 
 
 69 
to $slib_out
- 
 
 70 
      !endif
- 
 
 71 
      slib_out=!append line triangle $slib_tmp,$(slib_color[1]) \
70 
to $slib_out
 72 
to $slib_out
71 
           !endif
 73 
    !else
- 
 
 74 
      slib_rect=$[$(slib_square[1])],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])+1]
- 
 
 75 
      !if $(slib_color[2])!=$empty
72 
           slib_out=!append line triangle $slib_tmp,$(slib_color[1]) \
 76 
        slib_out=!append line frectangle $slib_rect,$(slib_color[2]) \
73 
to $slib_out
 77 
to $slib_out
74 
         !else
 - 
 
75 
           slib_rect=$[$(slib_square[1])],$[$(slib_square[2])],$[$(slib_square[1])+1],$[$(slib_square[2])+1]
 - 
 
76 
           !if $(slib_color[2])!=$empty
 - 
 
77 
             slib_out=!append line frectangle $slib_rect,$(slib_color[2]) \
 - 
 
78 
to $slib_out
 - 
 
79 
           !endif
 78 
      !endif
80 
          slib_out=!append line rectangle $slib_rect,$(slib_color[1]) to $slib_out
 79 
      slib_out=!append line rectangle $slib_rect,$(slib_color[1]) to $slib_out
81 
        !endif
 80 
    !endif
82 
        slib_maxx=$[max($(slib_square[1])+1,$slib_maxx)]
 81 
    slib_maxx=$[max($(slib_square[1])+1,$slib_maxx)]
83 
        slib_maxy=$[max($(slib_square[2])+1,$slib_maxy)]
 82 
    slib_maxy=$[max($(slib_square[2])+1,$slib_maxy)]
84 
        slib_minx=$[min($(slib_square[1]),$slib_minx)]
 83 
    slib_minx=$[min($(slib_square[1]),$slib_minx)]
85 
        slib_miny=$[min($(slib_square[2]),$slib_miny)]
 84 
    slib_miny=$[min($(slib_square[2]),$slib_miny)]
86 
     !endif
 85 
  !endif
87 
!next
 86 
!next
88 
!if $slib_sizey=$empty
 87 
!if $slib_sizey=$empty
89 
  slib_sizey=$[round($slib_sizex*(2+$slib_maxy-($slib_miny))/(2+$slib_maxx-($slib_minx)))]
 88 
  slib_sizey=$[round($slib_sizex*(2+$slib_maxy-($slib_miny))/(2+$slib_maxx-($slib_minx)))]
90 
!else
 89 
!else
91 
  !if $slib_sizex=$empty
 90 
  !if $slib_sizex=$empty
Line 101... Line 100...
101 
  insdraw_size=$slib_sizex,$slib_sizey
 100 
  insdraw_size=$slib_sizex,$slib_sizey
102 
  !insdraw $slib_out
 101 
  !insdraw $slib_out
103 
  slib_out=$ins_url
 102 
  slib_out=$ins_url
104 
  !if html iswordof $slib_option
 103 
  !if html iswordof $slib_option
105 
    slib_out=<img src="$ins_url" alt="" />
 104 
    slib_out=<img src="$ins_url" alt="" />
106 
 !else
 105 
  !else
107 
    slib_out=$slib_out,$insdraw_size
 106 
    slib_out=$slib_out,$insdraw_size
108 
 !endif
 107 
  !endif
109 
!endif
 108 
!endif