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" OR c = "G" THEN
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 );