Sierpinski arrowhead curve: Difference between revisions
m
→{{header|ALGOL 68}}: remove small amount of unneeded code
(Added Algol 68) |
m (→{{header|ALGOL 68}}: remove small amount of unneeded code) |
||
Line 168:
STRING curve = ssc EVAL order;
curve INTERPRET ( ( CHAR c )VOID:
IF c = "F
x +:= length * cos( angle * pi / 180 );
y +:= length * sin( angle * pi / 180 );
|