home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / DEMOS / MEGADEMO / PASSIONP.ARJ / PASSIONP.MSA / JELLY / MOVEMENT.LST < prev    next >
File List  |  1997-03-05  |  989b  |  41 lines
  1. ' ****
  2. ' **** Proggy which creates the movements of the jelly cube. ****
  3. ' ****
  4. a$=SPACE$(6000)
  5. adr%=VARPTR(a$)
  6. FOR comp%=0 TO 15
  7.   ylogo%=71+12*SIN(comp%*PI/16)
  8.   y1%=ylogo%+10
  9.   coefjelly%=16*SIN(comp%*PI/16)
  10.   DPOKE adr%,ylogo%
  11.   DPOKE adr%+2,y1%
  12.   DPOKE adr%+4,coefjelly%
  13.   adr%=adr%+6
  14. NEXT comp%
  15. FOR comp%=0 TO 47
  16.   ylogo%=71-71*SIN(comp%*PI/48)
  17.   y1%=81-(24*((47-comp%)/48))*SIN(comp%*4*PI/48)
  18.   IF y1%>81 THEN
  19.     y1%=81-(14*((47-comp%)/48))*SIN(comp%*4*PI/48)
  20.   ENDIF
  21.   coefjelly%=-10*((47-comp%)/48)*SIN(comp%*4*PI/48)
  22.   IF coefjelly%>0 THEN
  23.     coefjelly%=-16*((47-comp%)/48)*SIN(comp%*4*PI/48)
  24.   ENDIF
  25.   DPOKE adr%,ylogo%
  26.   DPOKE adr%+2,y1%
  27.   DPOKE adr%+4,coefjelly%
  28.   adr%=adr%+6
  29. NEXT comp%
  30. adr%=VARPTR(a$)
  31. FOR comp%=0 TO 63
  32.   ylogo%=DPEEK(adr%)
  33.   y1%=DPEEK(adr%+2)
  34.   coefjelly%=DPEEK(adr%+4)
  35.   adr%=adr%+6
  36.   PSET comp%,y1%,1
  37.   PSET comp%,ylogo%,2
  38.   PSET comp%,coefjelly%+100,3
  39. NEXT comp%
  40. ' BSAVE "a:\jelly\movement.xxx",VARPTR(a$),64*6
  41.