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