Sorry your browser is not supported!

FUNCTION TakeScreenShot()
   iX = SCREEN WIDTH()
   iY = SCREEN HEIGHT()
   X = SCREEN WIDTH()
   Y = SCREEN HEIGHT()

   SSNumber = 0

   DO
      SSNum$ = STR$(SSNumber)
      ScreenName$ = "Screenshots\Screen" + SSNum$ + ".bmp"
      OPEN TO WRITE 1, ScreenName$

      ` check to see if file already exist
      ` if the file does not exist create it
      IF NOT FILE EXIST(ScreenName$)
         ImageSize = (iX * iY)
         FileSize = (size * 3) + 54

         ` bitmap file header
         WRITE WORD 1, 0x4D42
         WRITE LONG 1, FileSize
         WRITE LONG 1, 0
         WRITE LONG 1, 54

         ` bitmap info header
         WRITE LONG 1, 40
         WRITE LONG 1, X
         WRITE LONG 1, Y
         WRITE WORD 1, 1
         WRITE WORD 1, 16
         WRITE LONG 1, 0
         WRITE LONG 1, ImageSize
         WRITE LONG 1, X
         WRITE LONG 1, Y
         WRITE LONG 1, ((256*256)*256)
         WRITE LONG 1, ((256*256)*256)

         LOCK PIXELS

         ` create the bitmap
         FOR height = SCREEN HEIGHT()-1 TO 0 STEP -1
            FOR width = 0 TO SCREEN WIDTH()-1 STEP 1
               WRITE BYTE 1, RGBB(POINT(width, height))
               WRITE BYTE 1, RGBG(POINT(width, height))
               WRITE BYTE 1, RGBR(POINT(width, height))
            NEXT width
         NEXT height

         UNLOCK PIXELS
         CLOSE FILE 1
         EXIT
      ELSE
         INC SSNumber
      ENDIF
   LOOP
ENDFUNCTION

function saveScreenShot(fileExt$)
`fileExt$ can = "bmp" or "jpeg" or "dds" or "dib"
`usage example  saveScreenShot("bmp")

 set current bitmap 0

 freeImage=1
 while image exist(freeImage)=1
  inc freeImage
 endwhile

 freeFile=1
 while file exist("screenshot"+str$(freeFile)+"."+fileExt$)=1
  inc freeFile
 endwhile

 get image freeImage,0,0,screen width(),screen height(),1
 save image "screenshot"+str$(freeFile)+"."+fileExt$,freeImage

 delete image freeImage
endfunction

global gScreenshot_number


Rem PJY - function to take a quick screenshot

FUNCTION screenshot()
	
	name$ = "Screen " + str$(gScreenshot_number) + ".bmp"

	temp_image = get_free_image_number()
	get image temp_image, 0, 0, gScreen_width, gScreen_height, 1
	save image name$, temp_image
	delete image temp_image
	gScreenshot_number = gScreenshot_number + 1

ENDFUNCTION

REM ==========================================================================
REM Parameters:
REM image number
REM file name to save as
REM matrix number
function save_heightmap(img as integer, filename as string, mat as integer)
   highpt# = 0
   lowpt# = 0
   for x=0 to matrix(mat).xsegs
      for z=0 to matrix(mat).zsegs
         h# = get_matrix_height(mat,x,z)
         if h# > highpt# then highpt# = h#
         if h# < lowpt# then lowpt# = h#
      next z
   next x

   lowpt# = abs(lowpt#)

   mem = 200
   width = matrix(mat).xsegs+1
   height = matrix(mat).zsegs+1
   size = width*height*4 + 12
   make memblock mem, size
   write memblock dword mem, 0, width
   write memblock dword mem, 4, height
   write memblock dword mem, 8, 32

   for x=0 to matrix(mat).xsegs
      for z=0 to matrix(mat).zsegs
         h# = get_matrix_height(mat,x,z) + lowpt#
         color = (h# * 255) / highpt#
         location = (z*width + x)*4 + 12
         write memblock dword mem, location, rgb(color, color, color)
      next z
   next x

   make image from memblock img, mem
   save image filename, img

   delete memblock mem

endfunction