|
dc.SavePNG("sierpinski_arrowhead_curve.png")
}</lang>
=={{header|IS-BASIC}}==
<lang IS-BASIC>100 PROGRAM "Sierpin.bas"
110 OPTION ANGLE DEGREES
120 SET VIDEO MODE 1:SET VIDEO COLOUR 0:SET VIDEO X 40:SET VIDEO Y 27
130 OPEN #101:"video:"
140 DISPLAY #101:AT 1 FROM 1 TO 27
150 SET PALETTE 0,75:PLOT 1180,20,ANGLE 180;
160 CALL SIERP(560,5)
170 DO
180 LOOP WHILE INKEY$=""
190 TEXT
200 DEF CURVE(D,A,LEV)
210 IF LEV=0 THEN
220 PLOT FORWARD D;
230 ELSE
240 CALL CURVE(D/2,-A,LEV-1)
250 PLOT RIGHT A;
260 CALL CURVE(D/2,A,LEV-1)
270 PLOT RIGHT A;
280 CALL CURVE(D/2,-A,LEV-1)
290 END IF
300 END DEF
310 DEF SIERP(D,LEV)
320 CALL CURVE(D,60,LEV)
330 PLOT LEFT 60;
340 CALL CURVE(D,-60,LEV)
350 PLOT LEFT 60;
360 CALL CURVE(D,60,LEV)
370 END DEF</lang>
=={{header|Julia}}==
|