home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 10-19.BAS < prev    next >
BASIC Source File  |  1995-01-31  |  708b  |  37 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. FGsetmode 19
  6. FGvbinit
  7.  
  8. SetMemStatus& = SETMEM(-(320&*200&+16))
  9. SetMemStatus& = SETMEM(-(80*50+16))
  10. Handle1 = FGvballoc(320,200)
  11. Handle2 = FGvballoc(80,50)
  12. IF Handle1 < 0 OR Handle2 < 0 THEN
  13.    FGsetmode 3
  14.    FGreset
  15.    PRINT "Could not create the virtual buffers."
  16.    STOP
  17. END IF
  18. Buffer1 = FGvbaddr(Handle1)
  19. Buffer2 = FGvbaddr(Handle2)
  20.  
  21. Status = FGvbopen(Handle1)
  22. Status = FGloadpcx("CORAL.PCX"+CHR$(0),0)
  23. FGvbpaste 0, 319, 0, 199, 0, 199
  24. FGwaitkey
  25.  
  26. FGscale Buffer1, Buffer2, 320, 200, 80, 50
  27. Status = FGvbopen(Handle2)
  28. FGvbpaste 0, 79, 0, 49, 0, 199
  29. FGwaitkey
  30.  
  31. FGvbclose
  32. FGvbfree Handle1
  33. FGvbfree Handle2
  34. FGsetmode 3
  35. FGreset
  36. END
  37.