home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 2 / run-special-2.zip / GOLVEN.BAS < prev    next >
BASIC Source File  |  1992-05-31  |  440b  |  12 lines
  1. 10 CLS:SCREEN 9:WINDOW (-.8,-.7)-(.8,.7):KEY OFF
  2. 20 M=400:N=150:H=.785:P1=SIN(H)/1.414:P2=COS(H)/1.414
  3. 30 DIM R(M):DIM S(M)
  4. 40 FOR I=0 TO N:Y=-1+2*I/N:FOR J=0 TO M:X=-1+2*J/M
  5. 50 GOSUB 110:U=.75*X:V=P1*Y+P2*Z
  6. 60 IF V>R(J)+1 AND V<S(J)-1 THEN 100
  7. 70 IF V<R(J)+1 THEN R(J)=V-1
  8. 80 IF V>S(J)-1 THEN S(J)=V+1
  9. 90 IF J=0 THEN PSET (U,V) ELSE LINE (U1,V1)-(U,V)
  10. 100 U1=U:V1=V:NEXT J:NEXT I
  11. 110 S=X*X+Y*Y:Z=1.2*COS(16*S)*EXP(-4*S):RETURN
  12.