Sierpinski triangle/Graphical: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 809: | Line 809: | ||
{{libheader|Icon Programming Library}} |
{{libheader|Icon Programming Library}} |
||
[http://www.cs.arizona.edu/icon/library/src/gprogs/sier1.icn Original source IPL Graphics/sier1.] |
[http://www.cs.arizona.edu/icon/library/src/gprogs/sier1.icn Original source IPL Graphics/sier1.] |
||
=={{header|BBC BASIC}}== |
|||
<lang IS-BASIC> |
|||
100 PROGRAM "Haromsz3.bas" |
|||
110 SET VIDEO MODE 1:SET VIDEO COLOR 0:SET VIDEO X 40:SET VIDEO Y 27 |
|||
120 OPEN #101:"video:" |
|||
130 DISPLAY #101:AT 1 FROM 1 TO 27 |
|||
140 CALL SIERP(896,180,50) |
|||
150 DEF SIERP(W,X,Y) |
|||
160 IF W>28 THEN |
|||
170 CALL SIERP(W/2,X,Y) |
|||
180 CALL SIERP(W/2,X+W/4,Y+W/2) |
|||
190 CALL SIERP(W/2,X+W/2,Y) |
|||
200 ELSE |
|||
210 PLOT X,Y;X+W/2,Y+W;X+W,Y;X,Y |
|||
220 END IF |
|||
230 END DEF |
|||
</lang> |
|||
=={{header|J}}== |
=={{header|J}}== |