color squares=pos 10 10 angle 0 brushcolor clblue down ~~do 4~~do 4 ~~rectangle 50 50 flood 1 1 addbrushcolor 102 13 16 up go 60 down~~loop~~up goleft go 10 right 90 go 60 left 90~~loop
Diagonal Grid=pencolor clsilver down pos 0 255 angle 45~~do 10 go 375 right 90 up go 10 right 90 down go 375 left 90 up go 10 left 90 down~~loop~~down pos 0 255 angle 45~~do 10 go 375 left 90 up go 10 left 90 down go 375 right 90 up go 10 right 90 down~~loop~~down pos 255 255 angle 135~~do 10 go 375 right 90 up go 10 right 90 down go 375 left 90 up go 10 left 90 down~~loop~~down pos 255 255 angle 135~~do 10 go 375 left 90 up go 10 left 90 down go 375 right 90 up go 10 right 90 down~~loop
Diagonal Lines=down pos 0 255 angle 45 pencolor clsilver~~do 10 go 375 right 90 up go 10 right 90 down go 375 left 90 up go 10 left 90 down~~loop~~down pos 0 255 angle 45~~do 10 go 375 left 90 up go 10 left 90 down go 375 right 90 up go 10 right 90 down~~loop
Diamonds=pos 10 20 up angle 0 pensize 1 brushcolor clred~~do 7~~do 7~~diamond 20 flood 1 0 go 35~~loop~~goleft go 10 right 90 go 35 left 90~~loop~~pos 1 1 brushcolor $D0FFFF flood 0 0~~filter invert filter emboss
Grid on Squares={ Grid on Squares by Jan Verhoeven }~~pos 10 10 angle 0 brushcolor $ffffc0~~pensize 1 pencolor clblack~~do 6~~mark~~do 6~~down do 4 go 30 right 90 loop flood 1 1 up go 40~~loop~~gomark right 90 go 40 left 90~~loop~~pos 10 10 brushcolor $c0ffff flood -1 -1~~pos 10 10 angle 0 pencolor clsilver down~~do 12~~angle 0 go 230 right 90 up go 10 right 90 down~~ go 230 left 90 up go 10 left 90 down~~loop~~pos 10 10 angle 0 brushcolor clsilver down~~do 12~~angle -90 go 230 left 90 up go 10 left 90 down ~~go 230 right 90 up go 10 right 90 down~~loop
Grid=pos 10 10 angle 0 pencolor clsilver down~~do 12~~angle 0 go 230 right 90 up go 10 right 90 down~~ go 230 left 90 up go 10 left 90 down~~loop~~pos 10 10 angle 0 brushcolor clsilver down~~do 12~~angle -90 go 230 left 90 up go 10 left 90 down ~~go 230 right 90 up go 10 right 90 down~~loop
Horizontal Lines=pos 10 10 pencolor clsilver down~~do 12~~angle 0 go 230 right 90 up go 10 right 90 down~~ go 230 left 90 up go 10 left 90 down~~loop
Procedure Squares=[ vierkant down do 4 dup go = right 90 loop up drop ]~~angle 0 pencolor clblack pos 10 10 30~~do 21~~ dup vierkant 10 +~~loop~~drop
Squares=pos 10 10 angle 0 brushcolor $ffffc0~~do 6~~mark~~do 6~~down do 4 go 30 right 90 loop flood 1 1 up go 40~~loop~~gomark right 90 go 40 left 90~~loop~~pos 10 10 brushcolor $c0ffff flood -1 -1