Anonymous user
Sierpinski triangle/Graphical: Difference between revisions
no edit summary
(→{{header|XPL0}}: Added zkl) |
No edit summary |
||
Line 389:
im.savePGM("sierpinski.pgm");
}</lang>
=={{header|ERRE}}==
<lang ERRE>
PROGRAM SIERPINSKY
DIM ZP%[15]
!$INCLUDE="PC.LIB"
BEGIN
ORDER%=8
SIZE%=2^ORDER%
SCREEN(9)
GR_WINDOW(0,0,520,520)
FOR Y%=0 TO SIZE%-1 DO
FOR X%=0 TO SIZE%-1 DO
IF (X% AND Y%)=0 THEN PSET(X%*2,Y%*2,2) END IF
END FOR
END FOR
GET(K$)
END PROGRAM
</lang>
=={{header|gnuplot}}==
| |||