Web Turtle
; Dragon - A line system fractal ; Written for WebTurtle by ; Geert Pante (Geert.Pante@rug.ac.be) ; January 1999 LET D 12 LET LEN 40/D LET S 1 RIGHT 90 MOVE 80 RIGHT 90 MOVE 50 RIGHT 90 GO RIGHTDRAGON END # RIGHTDRAGON IF D > 0 RIGHT 45 PUSH D LET D D-1 GO RIGHTDRAGON POP D LEFT 90 PUSH D LET D D-1 GO LEFTDRAGON POP D RIGHT 45 ENDIF IF D = 0 DRAW LEN ENDIF RETURN # LEFTDRAGON IF D > 0 LEFT 45 PUSH D LET D D-1 GO RIGHTDRAGON POP D RIGHT 90 PUSH D LET D D-1 GO LEFTDRAGON POP D LEFT 45 ENDIF IF D = 0 DRAW LEN ENDIF RETURN
Input 1:
Input 2:
Input 3:
Input 4:
Input 5:
Input 6:
Input 7:
Input 8:
Input 9:
HELP!
|
Home
|
Comments?
"Web Turtle," created by
Bill Kendrick
, 1997-2017.
