ChaosBASIC

10 REM THE GENERIC CHAOS GAME

20 REM FOR REGULAR POLYGONS

30 REM BY RICHARD KICK

40 REM A. B. SHEPARD H. S.

50 REM 13049 S. RIDGELAND

60 REM PALOS HEIGHTS, IL 60463

100 XC = 139: REM X CENTER VAL

110 YC = 95: REM Y CENTER VAL

118 TEXT

120 HOME

130 PRINT "HOW MANY VERTICES (3-10)";

140 INPUT V

141 IF ((V < 3) OR (V > 10)) THEN V = 3

142 FOR T = 1 TO V - 2

145 READ K

148 NEXT T

149 DATA .5, .55, .62, .67, .69, .71, .73, .74

150 SI = SIN (2 * 3.14 / V)

160 CO = COS (2 * 3.14 / V)

170 DIM X(10)

180 X(0) = 0

190 Y(0) = YC - 1

195 HGR2

198 HCOLOR = 3

210 FOR N = 1 TO V - 1

220 X(N) = INT (X(N-1) * CO - Y(N - 1) * SI)

230 Y(N) = INT (X(N-1) * SI + Y(N - 1) * CO)

250 NEXT N

290 OL(0) = X(0)

295 OL(1) = Y(0)

300 R = INT ( RND (1) * V)

310 P(0) = K * (X(R) - OL(0)) + OL(0)

320 P(1) = K * (Y(R) - OL(1)) + OL(1)

330 HPLOT P(0) + XC + 1, -P(1) + YC - 1

340 OL(0) = P(0)

350 OL(1) = P(1)

360 GOTO 300