* draw detector grid and color in groups MACRO groups draw_all=0 exec grid * * --------------- Inner Groups ---------------- * * * RED GROUPS * color=2 hashstyle=2 exec colorsectioninner 9 6 1 4 [color] [hashstyle] exec colorsectioninner 9 6 7 4 [color] [hashstyle] exec colorsectioninner 9 6 13 4 [color] [hashstyle] exec colorsectioninner 9 6 19 4 [color] [hashstyle] exec colorsectioninner 1 6 1 4 [color] [hashstyle] exec colorsectioninner 1 6 7 4 [color] [hashstyle] exec colorsectioninner 1 6 13 4 [color] [hashstyle] exec colorsectioninner 1 6 19 4 [color] [hashstyle] exec colorsectioninner 17 6 1 4 [color] [hashstyle] exec colorsectioninner 17 6 7 4 [color] [hashstyle] exec colorsectioninner 17 6 13 4 [color] [hashstyle] exec colorsectioninner 17 6 19 4 [color] [hashstyle] exec pauseit [draw_all] * * BLUE GROUPS * color=4 hashstyle=3 exec colorsectioninner 9 6 4 4 [color] [hashstyle] exec colorsectioninner 9 6 16 4 [color] [hashstyle] exec colorsectioninner 1 6 4 4 [color] [hashstyle] exec colorsectioninner 1 5 10 4 [color] [hashstyle] exec colorsectioninner 1 6 16 4 [color] [hashstyle] exec colorsectioninner 17 6 4 4 [color] [hashstyle] exec colorsectioninner 18 5 10 4 [color] [hashstyle] exec colorsectioninner 17 6 16 4 [color] [hashstyle] exec pauseit [draw_all] * * GREEN GROUPS * color=3 hashstyle=4 exec colorsectioninner 6 4 5 6 [color] [hashstyle] exec colorsectioninner 14 4 5 6 [color] [hashstyle] exec colorsectioninner 6 4 13 6 [color] [hashstyle] exec colorsectioninner 14 4 13 6 [color] [hashstyle] exec pauseit [draw_all] * * PURPLE GROUPS * color=6 hashstyle=0 exec colorsectioninner 6 4 1 5 [color] [hashstyle] exec colorsectioninner 14 4 1 5 [color] [hashstyle] exec colorsectioninner 6 4 18 5 [color] [hashstyle] exec colorsectioninner 14 4 18 5 [color] [hashstyle] exec colorsectioninner 5 6 10 4 [color] [hashstyle] exec colorsectioninner 13 6 10 4 [color] [hashstyle] exec pauseit [draw_all] * * --------------- Outer Groups ---------------- * * * RED GROUPS * color=2 hashstyle=2 exec colorsection 9 3 1 8 [color] [hashstyle] exec colorsection 13 3 1 8 [color] [hashstyle] exec colorsection 17 3 1 8 [color] [hashstyle] exec colorsection 9 3 20 8 [color] [hashstyle] exec colorsection 13 3 20 8 [color] [hashstyle] exec colorsection 17 3 20 8 [color] [hashstyle] exec colorsection 1 8 9 3 [color] [hashstyle] exec colorsection 1 8 13 3 [color] [hashstyle] exec colorsection 1 8 17 3 [color] [hashstyle] exec colorsection 20 8 9 3 [color] [hashstyle] exec colorsection 20 8 13 3 [color] [hashstyle] exec colorsection 20 8 17 3 [color] [hashstyle] exec colorsection 2 4 1 5 [color] [hashstyle] exec colorsection 1 1 2 4 [color] [hashstyle] exec colorsection 23 4 1 5 [color] [hashstyle] exec colorsection 27 1 2 4 [color] [hashstyle] exec colorsection 23 4 23 5 [color] [hashstyle] exec colorsection 27 1 23 4 [color] [hashstyle] exec colorsection 2 4 23 5 [color] [hashstyle] exec colorsection 1 1 23 4 [color] [hashstyle] exec pauseit [draw_all] * * BLUE GROUPS * color=4 hashstyle=3 exec colorsection 6 4 1 5 [color] [hashstyle] exec colorsection 5 1 1 4 [color] [hashstyle] exec colorsection 1 5 6 4 [color] [hashstyle] exec colorsection 1 4 5 1 [color] [hashstyle] exec colorsection 19 4 1 5 [color] [hashstyle] exec colorsection 23 1 1 4 [color] [hashstyle] exec colorsection 23 5 6 4 [color] [hashstyle] exec colorsection 24 4 5 1 [color] [hashstyle] exec colorsection 1 5 19 4 [color] [hashstyle] exec colorsection 1 4 23 1 [color] [hashstyle] exec colorsection 5 5 24 4 [color] [hashstyle] exec colorsection 6 4 23 1 [color] [hashstyle] exec colorsection 19 4 23 5 [color] [hashstyle] exec colorsection 23 1 24 4 [color] [hashstyle] exec colorsection 23 5 19 4 [color] [hashstyle] exec colorsection 24 4 23 1 [color] [hashstyle] exec colorsection 11 3 1 8 [color] [hashstyle] exec colorsection 15 3 1 8 [color] [hashstyle] exec colorsection 1 8 11 3 [color] [hashstyle] exec colorsection 1 8 15 3 [color] [hashstyle] exec colorsection 11 3 20 8 [color] [hashstyle] exec colorsection 15 3 20 8 [color] [hashstyle] exec colorsection 20 8 11 3 [color] [hashstyle] exec colorsection 20 8 15 3 [color] [hashstyle] exec pauseit [draw_all] * * GREEN GROUPS * color=3 hashstyle=4 exec colorsection 5 4 5 5 [color] [hashstyle] exec colorsection 9 1 5 4 [color] [hashstyle] exec colorsection 19 5 5 4 [color] [hashstyle] exec colorsection 20 4 9 1 [color] [hashstyle] exec colorsection 5 4 19 5 [color] [hashstyle] exec colorsection 9 1 20 4 [color] [hashstyle] exec colorsection 19 5 20 4 [color] [hashstyle] exec colorsection 20 4 19 1 [color] [hashstyle] exec pauseit 0 exit RETURN MACRO colorsection xstart xdelta ystart ydelta color hashstyle do x=[xstart],([xstart]+[xdelta]-1) do y=[ystart],([ystart]+[ydelta]-1) exec colorcellouter [x] [y] [color] [hashstyle] enddo enddo RETURN MACRO colorsectioninner xstart xdelta ystart ydelta color hashstyle do x=[xstart],([xstart]+[xdelta]-1) do y=[ystart],([ystart]+[ydelta]-1) exec colorcellinner [x] [y] [color] [hashstyle] enddo enddo RETURN MACRO pauseit draw_all if ([draw_all]=0) then wait exec grid endif RETURN MACRO colorcellouter x y color=2 hatchstyle=1 igset faci [color] igset fais 3 igset fasi [hatchstyle] x1=([x]-14.5)*4.0 x2=[x1]+4.0 y1=(14.5-[y])*4.0 y2=[y1]-4.0 BOX [x1] [x2] [y1] [y2] igset faci 1 igset fais 1 delta=0.25 FBOX [x1] [x2] [y1] [y2] ([x1]+[delta]) ([x2]-[delta]) ([y1]-[delta]) ([y2]+[delta]) RETURN MACRO colorcellinner x y color=2 hatchstyle=1 igset faci [color] igset fais 3 igset fasi [hatchstyle] x1=([x]-12)*2.0 x2=[x1]+2.0 y1=(12-[y])*2.0 y2=[y1]-2.0 BOX [x1] [x2] [y1] [y2] igset faci 1 igset fais 1 delta=0.25 FBOX [x1] [x2] [y1] [y2] ([x1]+[delta]) ([x2]-[delta]) ([y1]-[delta]) ([y2]+[delta]) RETURN