|#| start exhaustive |u | up |d | down |l | left |r | right |f | forward |tl | turn left |tr | turn right |uu | u,u |dd | d,d |ll | l,l |rr | r,r |ff | f,f |tll | tl,tl |trr | tr,tr |uuu | uu,u |ddd | dd,d |lll | ll,l |rrr | rr,r |fff | ff,f |tlll | tll,tl |trrr | trr,tr |uuuu | uu,uu |dddd | dd,dd |llll | ll,ll |rrrr | rr,rr |ffff | ff,ff |tllll | tll,tll |trrrr | trr,trr |up | @pen-up |down | @pen-down |left | @pen-left |right | @pen-right |forward | @pen-forward |turn left | @pen-turn-left |turn right| @pen-turn-right |pen down | @pen-start |pen up | @pen-stop |#| end exhaustive |#| start exhaustive |@pen-start| @pen-draw |@pen-stop, @pen-draw| |@pen-stop| ||@pen-direction-right |@pen-forward, @pen-direction-up | @pen-up, @pen-direction-up |@pen-forward, @pen-direction-down | @pen-down, @pen-direction-down |@pen-forward, @pen-direction-left | @pen-left, @pen-direction-left |@pen-forward, @pen-direction-right| @pen-right, @pen-direction-right |@pen-turn-left, @pen-direction-up | @pen-direction-left |@pen-turn-left, @pen-direction-down | @pen-direction-right |@pen-turn-left, @pen-direction-left | @pen-direction-down |@pen-turn-left, @pen-direction-right| @pen-direction-up |@pen-turn-right, @pen-direction-up | @pen-direction-right |@pen-turn-right, @pen-direction-down | @pen-direction-left |@pen-turn-right, @pen-direction-left | @pen-direction-up |@pen-turn-right, @pen-direction-right| @pen-direction-down |@pen-lift, @pen-draw| |@pixel-x = @pen-x, @pen-x | @pen-x-temp, @pixel-x, @pixel-x = @pen-x |@pixel-x = @pen-x | @pen-x <- @pen-x-temp |@pen-x <- @pen-x-temp, @pen-x-temp | @pen-x, @pen-x <- @pen-x-temp |@pen-x <- @pen-x-temp | |@pixel-y = @pen-y, @pen-y | @pen-y-temp, @pixel-y, @pixel-y = @pen-y |@pixel-y = @pen-y | @pen-y <- @pen-y-temp |@pen-y <- @pen-y-temp, @pen-y-temp | @pen-y, @pen-y <- @pen-y-temp |@pen-y <- @pen-y-temp | |@pen-x++| @pen-x |@pen-x--, @pen-x| |@pen-x--| |@pen-y++| @pen-y |@pen-y--, @pen-y| |@pen-y--| |#| end exhaustive |@trigger-set-pixel| @set-pixel |@pen-left, @pen-draw| @pixel-x = @pen-x, @pixel-y = @pen-y, @pen-draw, @trigger-set-pixel, @pen-x-- |@pen-left| @pen-x-- |@pen-right, @pen-draw| @pixel-x = @pen-x, @pixel-y = @pen-y, @pen-draw, @trigger-set-pixel, @pen-x++ |@pen-right| @pen-x++ |@pen-up, @pen-draw| @pixel-x = @pen-x, @pixel-y = @pen-y, @pen-draw, @trigger-set-pixel, @pen-y-- |@pen-up| @pen-y-- |@pen-down, @pen-draw| @pixel-x = @pen-x, @pixel-y = @pen-y, @pen-draw, @trigger-set-pixel, @pen-y++ |@pen-down| @pen-y++ |H|H1 |H1|H2, pen down, dddd,dddd,dddd,dddd, dddd,dddd,dddd,dddd |H2|H3, pen up, uuuu,uuuu, uuuu,uuuu |H3|H4, pen down, rrrr, rrrr |H4|H5, uuuu,uuuu, uuuu,uuuu |H5|H6, dddd,dddd,dddd,dddd, dddd,dddd,dddd,dddd |H6| pen up, uuuu,uuuu,uuuu,uuuu, uuuu,uuuu,uuuu,uuuu, rrrr |i|i1 |i1|i2, pen up, dddd,dddd,dddd,dddd, dddd,dddd,dddd,ddd |i2|i3, pen down, uuuu,uuuu,uuuu,uuu |i3|i4, pen up, uuuu,uuuu |i4|i5, pen down, uuuu,uuuu |i5| pen up, llll,llll,llll || start |start| pen up, rrrr,rrrr,rrrr,rrrr, dddd,dddd,dddd,dddd, main |main| draw a frame, loop |draw a frame| Hi |Hi| H,i |display| @display |loop, @quit| |loop| main