MS BASIC graphics interpreter
10 REM Simple test first 20 PI = ATN(1) * 4 30 PRINT "PI = "; PI 40 NP = 480 50 PRINT "NP = "; NP 60 FOR I = 0 TO 10 70 X = NP/2 + 200 * COS(I * PI / 5) 80 Y = NP/2 + 200 * SIN(I * PI / 5) 90 PRINT "Point "; I; ": "; X; ", "; Y 100 IF I = 0 THEN MOVETO X, Y 110 IF I > 0 THEN LINETO X, Y 120 NEXT I 130 END
RUN
CLEAR
Steps per frame:
Examples:
Polygon
Composition
Composition 2
Horse
Horse 2
Horse 3
Horse 4