Pentagram: Difference between revisions

Content added Content deleted
No edit summary
Line 218: Line 218:
120 GRAPHICS HIRES 4
120 GRAPHICS HIRES 4
130 SET PALETTE BLUE,CYAN,YELLOW,BLACK
130 SET PALETTE BLUE,CYAN,YELLOW,BLACK
140 SET INK 1
140 PLOT 640,700,ANGLE 288;
150 PLOT 640,700,ANGLE 288;
150 FOR I=1 TO 5
160 PLOT FORWARD 700,RIGHT 144;
160 FOR I=1 TO 5
170 NEXT
170 PLOT FORWARD 700,RIGHT 144;
180 NEXT
180 SET INK 3
190 SET INK 3
190 SET BEAM OFF:PLOT 0,0,PAINT</lang>
200 SET BEAM OFF:PLOT 0,0,PAINT</lang>


=={{header|J}}==
=={{header|J}}==