home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / hidden.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  1.2 KB  |  37 lines
  1.    10    screen 1,4,0:dim xy%(1024):font 0
  2.    20    locate (0,10):shell "date"
  3.    30    inc1%=2:inc2%=2
  4.    40    p=340:q=85
  5.    50    xp=250:xr!=1.5*3.1415926536#
  6.    60    yp=45:yr=1:zp=64
  7.    70    xf!=xr!/xp:yf=yp/yr
  8.    80    for zi = -q to q-1 step inc1%
  9.    90    n% = 0:i% = 0
  10.    100   if zi<-zp or zi>zp then goto 340
  11.    110   zt = zi*xp/zp:zz=zi
  12.    120   xl = int(.5 + sqr(xp*xp - zt*zt))
  13.    130   for xi = -xl to xl step inc2%
  14.    140   xt! = sqr(xi*xi + zt*zt)*xf!:xx=xi
  15.    150   yy! = (sin(xt!) + .4 * sin(3*xt!))*yf
  16.    160   xy%(i%) = xx+zz+p:xy%(i%+1) = -yy+zz+q
  17.    170   if xy%(i%) < 0 then xy%(i%) = 0
  18.    180   if xy%(i%) > 640 then xy%(i%) = 640
  19.    190   if xy%(i%+1) < 0 then xy%(i%+1) = 0
  20.    200   if xy%(i%+1) > 200 then xy%(i%+1) = 200
  21.    210   i% = i% + 2:n% = n% + 1
  22.    220   next xi
  23.    230   xy%(i%) = xy%(i%-2):xy%(i%+1) = 200
  24.    240   xy%(i%+2) = xy%(0):xy%(i%+3) = 200
  25.    250   xy%(i%+4) = xy%(0):xy%(i%+5) = xy%(1)
  26.    260   n% = n% + 3
  27.    270   pena 2
  28.    280   mat draw n%, xy%()
  29.    290   pena 0
  30.    300   peno 2
  31.    310   paint (xy%(0) + 3, 185)
  32.    320   pena 1
  33.    330   mat draw n%, xy%()
  34.    340   next zi
  35.    350   locate(0,20):shell "date"
  36.    360   goto 360
  37.