Added 'Snowflakes' sample
This commit is contained in:
parent
05b7bbca87
commit
d76e0c2d73
|
@ -98,6 +98,7 @@ By <a href="mailto:inexorabletash@gmail.com">Joshua Bell</a>
|
||||||
<option value="sample.loresdrawing"> Graphics Drawing (Gregg Buntin)</option>
|
<option value="sample.loresdrawing"> Graphics Drawing (Gregg Buntin)</option>
|
||||||
<option value="sample.calculatedimage"> Calculated Image (Gregg Buntin)</option>
|
<option value="sample.calculatedimage"> Calculated Image (Gregg Buntin)</option>
|
||||||
<option value="sample.xmastree"> Christmas Tree (Gregg Buntin and Rich Orde)</option>
|
<option value="sample.xmastree"> Christmas Tree (Gregg Buntin and Rich Orde)</option>
|
||||||
|
<option value="sample.snowflakes"> Snowflakes (Kevin Riordan)</option>
|
||||||
|
|
||||||
<option disabled>____________________________________________</option>
|
<option disabled>____________________________________________</option>
|
||||||
<option disabled>Other</option>
|
<option disabled>Other</option>
|
||||||
|
|
|
@ -0,0 +1,35 @@
|
||||||
|
100 REM *****************************************************************
|
||||||
|
110 REM * *
|
||||||
|
120 REM * SNOWFLAKE *
|
||||||
|
130 REM * A GRAPHICS NONSENSE FOR APPLE II *
|
||||||
|
140 REM * KEVIN RIORDAN 1985 *
|
||||||
|
150 REM * *
|
||||||
|
160 REM *****************************************************************
|
||||||
|
170 :
|
||||||
|
|
||||||
|
180 REM THIS PROGRAM DRAWS SUCCESSIVE AND INCREASINGLY
|
||||||
|
190 REM INTRICATE SYMMETRICAL DESIGNS ON THE HIRES
|
||||||
|
200 REM SCREEN.
|
||||||
|
210 REM SINCE IT RUNS IN AN ETERNAL LOOP, THE ONLY
|
||||||
|
220 REM WAY TO STOP IT IS TO RESET OR POWER OFF -
|
||||||
|
230 REM BUT IT'S VERY RESTFUL TO STARE AT!
|
||||||
|
240 :
|
||||||
|
|
||||||
|
250 X=3:S=140:T=95:HGR2:HCOLOR=2
|
||||||
|
260 FORY=0TOINT((X-2)/2):GOSUB280:GOSUB410
|
||||||
|
270 HGR2:NEXT:X=X+1:GOTO260
|
||||||
|
280 A1=2*(22/7)/X:A2=A1*(Y+1)
|
||||||
|
290 C=1/SIN((22/7)*(Y+1)/X)
|
||||||
|
300 D=X:E=Y+1
|
||||||
|
310 D=D-INT(D/E)*E:IFABS(D)>0.5THENF=E:E=D:D=F:GOTO310
|
||||||
|
320 E=INT(E+0.5):D=X/E
|
||||||
|
330 IFD-INT(D/2)*2>0.5THENC=C+COS((22/7)*E/(2*X))
|
||||||
|
340 G=X+0.5:K=D-0.5
|
||||||
|
350 FORL=1TOINT(G):M=0:N=0:R=(L-1)*A1
|
||||||
|
|
||||||
|
360 FORQ=1TOINT(K):M=M+COS(R)/C:N=N+SIN(R)/C
|
||||||
|
370 U=140+INT(95*M+0.5):V=95+INT(95*N+0.5)
|
||||||
|
380 HPLOT S,T TO U,V:S=U:T=V:R=R+A2:NEXT
|
||||||
|
390 U=140:V=95:HPLOT S,T TO U,V
|
||||||
|
400 S=140:T=95:NEXT:RETURN
|
||||||
|
410 FORJ=1TO1000:NEXT:RETURN
|
Loading…
Reference in New Issue