Difference between revisions of "User:Stefan Haubenthal"

From Ninerpedia
Jump to navigation Jump to search
(respond to bug report)
m (minor correction of OCR error)
Line 14: Line 14:
  FORWARD :SIZE * 2
  FORWARD :SIZE * 2
  TREE :SIZE :ANGLE :LEVEL - l
  TREE :SIZE :ANGLE :LEVEL - l
  BACK :SIZE & 2
  BACK :SIZE * 2
  RIGHT 2 * :ANGLE
  RIGHT 2 * :ANGLE
  FORWARD :SIZE
  FORWARD :SIZE

Revision as of 18:35, 18 December 2015

I'm interested in assembler programming, right now I have a GPL project... 50 words? I'm interested in assembler programming, right now I have a GPL project... I'm interested in assembler programming, right now I have a GPL project... I'm interested in assembler programming, right now I have a GPL project... I'm interested in assembler programming, right now I have a GPL project...

Buggy: Example in TI Logo II http://shawweb.myzen.co.uk/stephen/times9.htm

Thanks Stefan- I think the errors are due to uncorrected OCR- try this instead: TO TREE :SIZE :ANGLE :LEVEL

IF :LEVEL = 0 THEN STOP
LEFT :ANGLE
FORWARD :SIZE * 2
TREE :SIZE :ANGLE :LEVEL - l
BACK :SIZE * 2
RIGHT 2 * :ANGLE
FORWARD :SIZE
TREE :SIZE :ANGLE :LEVEL - 1
BACK :SIZE
LEFT :ANGLE
END
TO WILLOW
TELL TURTLE
PENUP
BACK 24
PENDOWN
TREE 8 15 8
BACK 24
END

(Stephen)