Anonymous user
Pentagram: Difference between revisions
no edit summary
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: more universal rotation angle) |
No edit summary |
||
Line 212:
main = mainWith (pentagram :: Diagram B)</lang>
=={{header|IS-BASIC}}==
<lang IS-BASIC>100 PROGRAM "Pentagra.bas"
110 OPTION ANGLE DEGREES
120 GRAPHICS HIRES 4
130 SET PALETTE BLUE,CYAN,YELLOW,BLACK
140 SET INK 1
150 PLOT 640,700,ANGLE 288;
160 FOR I=1 TO 5
170 PLOT FORWARD 700,RIGHT 144;
180 NEXT
190 SET INK 3
200 SET BEAM OFF:PLOT 0,0,PAINT</lang>
=={{header|J}}==
| |||