TO DAISY :LRADIUS :LCOLOUR :LPOS
IF EMPTY? :LRADIUS [STOP]
CIRCLE FIRST :LRADIUS FIRST :LCOLOUR FIRST :LPOS
DAISY BUTFIRST :LRADIUS BF :LCOLOUR BF :LPOS
END
