home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / demos / m / mlcsdemo / !MLCSDemo_goforit (.txt) < prev   
Encoding:
RISC OS BBC BASIC V Source  |  1995-01-12  |  1006 b   |  31 lines
  1.  DECOMPACTION MLCS
  2.  MYNDG
  3. MZ 1995
  4. "AT ";
  5. *CLOSE
  6. 23;8202;0;0;0;:
  7. 0,22)"These scenes are taken from Detritus and are 8bit photographic images.":
  8. "They have been compressed using MLCS, a lossy compression algorithm, to about"
  9. "half their original size. Each is on average 75% of the size of the equivalent":
  10. "JPEG file and of higher quality.":
  11. "MLCS will also compress 24bit files (typically to around 26% of original size)"
  12. "MLCS is available to programmers and can be obtained from Myndgaemz":
  13. '"MYNDGAEMZ, 18 MALLORY CRESCENT, FAREHAM, HANTS, PO16 7QA"'"EMAIL gpt20@hermes.cam.ac.uk";
  14.  D% 16,M% &800,W% 113000,BLK% &10:
  15. ASS:BLK%=(
  16. (BLK%/4))*4:!BLK%=149:BLK%!4=-1:
  17. &31,BLK%,BLK%:E%=!BLK%
  18. :U%=W%:
  19. "LOAD FRAMES."+A$+" "+
  20. ~W%:F%=W%:
  21.  decomp:
  22. X,Y,B:
  23. B<>0 
  24. (0)<>-1 
  25. >400:
  26. A$="TREE2":
  27. PASS=0
  28. 2:P%=M%:[OPT PASS:.basic:EQUD0:.screen:EQUD0:.temp2:EQUD0:.decomp:]
  29. "LOAD DEC "+
  30.  BLACK,CART,DTREE,GRAVE3,HOUSES,STORE,WALL3,TREE2
  31.