@C9Source code: flying ribbons...

@C7
Many thanx to oSSi/aTd who had the idea for this cool effect! Nice to see what
strange things may materialize in boring job education lessons. The algorithm
is *very* simple and it looks pretty good. All the code is done in BASIC - and
it takes almost no CPU power. There is a second version of this effect in the
bits-directory that shows the rastetime - have a look at this!

I think there`s no further explanation needed. The heart of the routine is
line 300... :)))
                                                        Mr Hill / Archiologics
@C3
   10 : MODE 9:OFF:ORIGIN 640,300:VDU31,0,31
   20 : DIMX1O%(3),Y1O%(3),X2O%(3),Y2O%(3)
   30 : DIMX1%(3),Y1%(3),X2%(3),Y2%(3)
   40 :
   50 : COLOUR 1,100,0,100
   60 : COLOUR 2,180,0,180
   70 : COLOUR 3,255,0,255
   80 :
   90 : FOR J%=1 TO 3
  100 : X1O%(J%)=0:Y1O%(J%)=0:X2O%(J%)=0:Y2O%(J%)=0
  110 : NEXT
  120 :
  130 : REPEAT
  140 :   FORI%=0 TO 359
  150 :     FOR J%=1 TO 3
  160 :       GCOLJ%
  170 :       W%=I%+J%*4
  180 :       X1%(J%)=SINRAD(5*W%)*400
  190 :       Y1%(J%)=COSRADW%*300
  200 :       X2%(J%)=SINRAD(90+W%*2)*400
  210 :       Y2%(J%)=COSRAD(90+W%*3)*300
  220 :       LINE X1%(J%),Y1%(J%),X2%(J%),Y2%(J%)
  230 :       LINE X1%(J%),Y1%(J%),X1O%(J%),Y1O%(J%)+32
  240 :       LINE X2%(J%),Y2%(J%),X2O%(J%),Y2O%(J%)+32
  250 :       X1O%(J%)=X1%(J%)
  260 :       Y1O%(J%)=Y1%(J%)
  270 :       X2O%(J%)=X2%(J%)
  280 :       Y2O%(J%)=Y2%(J%)
  290 :     NEXT
  300 :     PRINT:WAIT
  310 :   NEXT
  320 : UNTIL0

