home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / p / pixeffect / !PixEffect / Progs / Effect (.txt)
Encoding:
RISC OS BBC BASIC V Source  |  1995-04-17  |  545 b   |  22 lines
  1.  JJ '95
  2. "*SCREENLOAD <Obey$Dir>.Pix.Pic
  3. EFFECTS(0,0,1278,1020)
  4.  X,Y,Z:
  5. (-99) 
  6.  *SCREENSAVE <Obey$Dir>.Pixx.ScreenDump
  7. EFFECTS(X1%,Y1%,X2%,Y2%)
  8.  DX%,DY%,D%
  9. DX%=X2%-X1%:DY%=Y2%-Y1%
  10.  DX%<30 
  11.  DY%<30 
  12. (X1%+X2%)/2,(Y1%+Y2%)/2)
  13.  X1%,Y1%,X2%-X1%,Y2%-Y1%
  14.  X1%,Y1%,X2%-X1%,Y2%-Y1%
  15.  DX%>DY% 
  16. (DX%-16)+X1%+16
  17. EFFECTS(X1%,Y1%,D%,Y2%)
  18. EFFECTS(D%,Y1%,X2%,Y2%)
  19. (DY%-16)+Y1%+16
  20. EFFECTS(X1%,Y1%,X2%,D%)
  21. EFFECTS(X1%,D%,X2%,Y2%)
  22.