home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 1 / sauce-n-code-01.adf / ASCII_Source / FreakPlasma.asc < prev    next >
Text File  |  1995-05-07  |  1KB  |  65 lines
  1. 'done by Freak/NFA 
  2. 'sometime ago? 
  3.  
  4. MAIN:
  5.    Screen Open 0,320,256,32,Lowres
  6.    Curs Off : Flash Off : Cls 0 : Hide 
  7.  
  8.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9.    Screen Display 0,,300,,
  10.  
  11.    For X=-(Screen Height/2) To Screen Width
  12.       Add I,1,1 To 31
  13.       Ink I
  14.       Draw X,0 To X+(Screen Height/2),(Screen Height/2)
  15.       Draw X+(Screen Height/2),(Screen Height/2) To X,Screen Height
  16.    Next X
  17.  
  18.    Degree 
  19.    DX=9 : DY=8
  20.    XS=10 : YS=5
  21.  
  22.    For Y=0 To Screen Height
  23.       Add ANG,XS,0 To 359
  24.       OFF=Sin(ANG)*DX
  25.       Screen Copy 0,0,Y,Screen Width,Y+1 To 0,OFF,Y
  26.    Next Y
  27.  
  28.    For X=0 To Screen Width
  29.       Add ANG,YS,0 To 359
  30.       OFF=Sin(ANG)*DY
  31.       Screen Copy 0,X,0,X+1,Screen Height To 0,X,OFF
  32.    Next X
  33.  
  34.    For Y=0 To Screen Height
  35.       Add ANG,XS,0 To 359
  36.       OFF=Sin(ANG)*DX
  37.       Screen Copy 0,0,Y,Screen Width,Y+1 To 0,OFF,Y
  38.    Next Y
  39.  
  40.    For X=0 To Screen Width
  41.       Add ANG,YS,0 To 359
  42.       OFF=Sin(ANG)*DY
  43.       Screen Copy 0,X,0,X+1,Screen Height To 0,X,OFF
  44.    Next X
  45.  
  46.    Cls 0,0,0 To Screen Width,(DY*2)
  47.    Cls 0,0,Screen Height-(DY*2) To Screen Width,Screen Height
  48.    Cls 0,0,0 To(DX*2),Screen Height
  49.    Cls 0,Screen Width-(DX*2),0 To Screen Width,Screen Height
  50.  
  51.    For P=1 To 15
  52.       Colour P,P*$111
  53.       Colour 32-P,P*$111
  54.    Next P
  55.    Colour 16,$FFF
  56.  
  57.    Shift Up 1,1,31,1
  58.  
  59.    For Y#=10 To 0 Step -0.2
  60.       Screen Display 0,,44+(Y#*Y#*3),,
  61.       Wait Vbl 
  62.    Next Y#
  63.  
  64.    Wait Key 
  65.