EDJU6E3O44JB425LUX6H5IDTRUSXPUGUNYF2NJBP6VW2GZKCWG6QC CWLOBLWQJDZL5EMPWBHK3XRT2TZZ5U5M4WGMHC65MU5YHAAUJPHAC 7QP2V7ZBVZ7SKQ3SYV6NYA7V77G3Y7GF5V6EPIXLIYFSMFRWR4VAC RTM5VGIPTRMJMKLJER4543HXDRMGUZ7TI5VJBOV4ZFGUCILNQ62QC VHUL3O55RPR6QD7IXPMJFWI5EOXHQYAMHCLP2FYAULPAOAWUVQ7QC JDI62ZLKN7J4572C7E2WL2HPGAMFU5YEIDOERVGIOBPOOV3DRF5AC LDXV64JUWYYYPCV6CWMGS3EFX4ZSO7TQ6X327EOQWC5Z6W75UMXQC 3AFV4YVYLZGHZDSMO3I3DCZE2BZKA2SOBQ6DI2GZILOUGHLVRCQAC hex = foldl' (&) (blankPlane (succ $ 2 * r * 2) (succ $ 2 * r)) [ write (x,y) | x <- [-r..r] , y <- [-r..r] , abs (x + y) <= r ]
hex = ATGP.updatePlane (blankPlane (succ $ 2 * r * 2) (succ $ 2 * r)) [ write (x,y) | x <- [-r..r] , y <- [-r..r] , abs (x + y) <= r ]
[ (1,2) % let a = get v $ neighbour n U in cell (grapheme a) # style a, (1,4) % let a = get v $ neighbour n I in cell (grapheme a) # style a, (2,1) % let a = get v $ neighbour n H in cell (grapheme a) # style a
[ (1,2) % let a = get v $ neighbour n U in cell (grapheme a) # cellDraw a, (1,4) % let a = get v $ neighbour n I in cell (grapheme a) # cellDraw a, (2,1) % let a = get v $ neighbour n H in cell (grapheme a) # cellDraw a
, (2,5) % let a = get v $ neighbour n L in cell (grapheme a) # style a, (3,2) % let a = get v $ neighbour n N in cell (grapheme a) # style a, (3,4) % let a = get v $ neighbour n M in cell (grapheme a) # style a
, (2,5) % let a = get v $ neighbour n L in cell (grapheme a) # cellDraw a, (3,2) % let a = get v $ neighbour n N in cell (grapheme a) # cellDraw a, (3,4) % let a = get v $ neighbour n M in cell (grapheme a) # cellDraw a
| Dumb <- mode s , me a = color White Dull| Dumb <- mode s , not (mass a) = color Black Vivid| Dumb <- mode s , Robot {} <- a , "t0" <- name a = color Blue Dull| Dumb <- mode s , Robot {} <- a , "t1" <- name a = color Magenta Dull| Dumb <- mode s , Robot {} <- a , "t2" <- name a = color Red Dull| Dumb <- mode s , Robot {} <- a , "d0" <- name a = color Yellow Dull| Dumb <- mode s , Robot {} <- a , "d1" <- name a = color Green Dull| Dumb <- mode s , Robot {} <- a , 'L':_ <- name a = color Cyan Dull| Dumb <- mode s , Robot {} <- a , "r0" <- name a = color White Vivid| Dumb <- mode s , Robot {} <- a , "r1" <- name a = color Black Vivid| Dumb <- mode s , Robot {} <- a , "m0" <- name a = color Green Vivid| Dumb <- mode s , Robot {} <- a , "m1" <- name a = color Green Vivid| Dumb <- mode s , Robot {} <- a , "p0" <- name a = color White Dull| Dumb <- mode s , Robot {} <- a , "Tp" <- name a = color White Dull| Dumb <- mode s , Robot {} <- a , "T0" <- name a = color Blue Dull| Dumb <- mode s , Robot {} <- a , "T1" <- name a = color Magenta Dull| Dumb <- mode s , Robot {} <- a , "T2" <- name a = color Red Dull| Dumb <- mode s = color White Vivid
| Dumb <- mode s , me a = ATGP.colorCell White Dull| Dumb <- mode s , not (mass a) = ATGP.colorCell Black Vivid| Dumb <- mode s , Robot {} <- a , "t0" <- name a = ATGP.colorCell Blue Dull| Dumb <- mode s , Robot {} <- a , "t1" <- name a = ATGP.colorCell Magenta Dull| Dumb <- mode s , Robot {} <- a , "t2" <- name a = ATGP.colorCell Red Dull| Dumb <- mode s , Robot {} <- a , "d0" <- name a = ATGP.colorCell Yellow Dull| Dumb <- mode s , Robot {} <- a , "d1" <- name a = ATGP.colorCell Green Dull| Dumb <- mode s , Robot {} <- a , 'L':_ <- name a = ATGP.colorCell Cyan Dull| Dumb <- mode s , Robot {} <- a , "r0" <- name a = ATGP.colorCell White Vivid| Dumb <- mode s , Robot {} <- a , "r1" <- name a = ATGP.colorCell Black Vivid| Dumb <- mode s , Robot {} <- a , "m0" <- name a = ATGP.colorCell Green Vivid| Dumb <- mode s , Robot {} <- a , "m1" <- name a = ATGP.colorCell Green Vivid| Dumb <- mode s , Robot {} <- a , "p0" <- name a = ATGP.colorCell White Dull| Dumb <- mode s , Robot {} <- a , "Tp" <- name a = ATGP.colorCell White Dull| Dumb <- mode s , Robot {} <- a , "T0" <- name a = ATGP.colorCell Blue Dull| Dumb <- mode s , Robot {} <- a , "T1" <- name a = ATGP.colorCell Magenta Dull| Dumb <- mode s , Robot {} <- a , "T2" <- name a = ATGP.colorCell Red Dull| Dumb <- mode s = ATGP.colorCell White Vivid
| Full <- mode s , me a = rgbColor $ sRGB24 0x21 0xb2 0x8e -- #21b28e| Full <- mode s , not (mass a) = rgbColor $ sRGB24 0x66 0x66 0x66 -- #666666| Full <- mode s , Robot {} <- a , "t0" <- name a = rgbColor $ sRGB24 0x66 0x66 0x99 -- #666699| Full <- mode s , Robot {} <- a , "t1" <- name a = rgbColor $ sRGB24 0x99 0x66 0x99 -- #996699| Full <- mode s , Robot {} <- a , "t2" <- name a = rgbColor $ sRGB24 0x99 0x66 0x66 -- #996666| Full <- mode s , Robot {} <- a , "d0" <- name a = rgbColor $ sRGB24 0x99 0x99 0x66 -- #999966| Full <- mode s , Robot {} <- a , "d1" <- name a = rgbColor $ sRGB24 0x66 0x99 0x66 -- #669966| Full <- mode s , Robot {} <- a , 'L':_ <- name a = rgbColor $ sRGB24 0x66 0x99 0x99 -- #669999| Full <- mode s , Robot {} <- a , "r0" <- name a = rgbColor $ sRGB24 0x99 0x99 0x99 -- #999999| Full <- mode s , Robot {} <- a , "r1" <- name a = rgbColor $ sRGB24 0x66 0x66 0x66 -- #666666| Full <- mode s , Robot {} <- a , "m0" <- name a = rgbColor $ sRGB24 0x93 0xe9 0xbe -- #93e9be| Full <- mode s , Robot {} <- a , "m1" <- name a = rgbColor $ sRGB24 0x93 0xe9 0xbe -- #93e9be| Full <- mode s , Robot {} <- a , "p0" <- name a = rgbColor $ sRGB24 0xff 0xff 0xff -- #ffffff| Full <- mode s , Robot {} <- a , "Tp" <- name a = rgbColor $ sRGB24 0xff 0xff 0xff -- #ffffff| Full <- mode s , Robot {} <- a , "T0" <- name a = rgbColor $ sRGB24 0x66 0x66 0x99 -- #666699| Full <- mode s , Robot {} <- a , "T1" <- name a = rgbColor $ sRGB24 0x99 0x66 0x99 -- #996699| Full <- mode s , Robot {} <- a , "T2" <- name a = rgbColor $ sRGB24 0x99 0x66 0x66 -- #996666| Full <- mode s = rgbColor $ sRGB24 0x99 0x99 0x99 -- #999999
| Full <- mode s , me a = ATGP.rgbColorCell $ sRGB24 0x21 0xb2 0x8e -- #21b28e| Full <- mode s , not (mass a) = ATGP.rgbColorCell $ sRGB24 0x66 0x66 0x66 -- #666666| Full <- mode s , Robot {} <- a , "t0" <- name a = ATGP.rgbColorCell $ sRGB24 0x66 0x66 0x99 -- #666699| Full <- mode s , Robot {} <- a , "t1" <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x66 0x99 -- #996699| Full <- mode s , Robot {} <- a , "t2" <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x66 0x66 -- #996666| Full <- mode s , Robot {} <- a , "d0" <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x99 0x66 -- #999966| Full <- mode s , Robot {} <- a , "d1" <- name a = ATGP.rgbColorCell $ sRGB24 0x66 0x99 0x66 -- #669966| Full <- mode s , Robot {} <- a , 'L':_ <- name a = ATGP.rgbColorCell $ sRGB24 0x66 0x99 0x99 -- #669999| Full <- mode s , Robot {} <- a , "r0" <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x99 0x99 -- #999999| Full <- mode s , Robot {} <- a , "r1" <- name a = ATGP.rgbColorCell $ sRGB24 0x66 0x66 0x66 -- #666666| Full <- mode s , Robot {} <- a , "m0" <- name a = ATGP.rgbColorCell $ sRGB24 0x93 0xe9 0xbe -- #93e9be| Full <- mode s , Robot {} <- a , "m1" <- name a = ATGP.rgbColorCell $ sRGB24 0x93 0xe9 0xbe -- #93e9be| Full <- mode s , Robot {} <- a , "p0" <- name a = ATGP.rgbColorCell $ sRGB24 0xff 0xff 0xff -- #ffffff| Full <- mode s , Robot {} <- a , "Tp" <- name a = ATGP.rgbColorCell $ sRGB24 0xff 0xff 0xff -- #ffffff| Full <- mode s , Robot {} <- a , "T0" <- name a = ATGP.rgbColorCell $ sRGB24 0x66 0x66 0x99 -- #666699| Full <- mode s , Robot {} <- a , "T1" <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x66 0x99 -- #996699| Full <- mode s , Robot {} <- a , "T2" <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x66 0x66 -- #996666| Full <- mode s = ATGP.rgbColorCell $ sRGB24 0x99 0x99 0x99 -- #999999