Screenshot code not working, please help

Author

Message

Guardian

21

Years of Service

User Offline

Joined: 30th Sep 2003

Location:

Posted: 2nd Apr 2008 16:33

Link

Hi, I wrote this code to take screenshots in my program. However for some reason will not take in sprites. It will show the 3d and 2d using basic 2d commands, but it will not save the sprites. thx for the help in advance.

+ Code Snippet

get image 10,0,0,640,480
save image "worldtest.jpg,10

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 2nd Apr 2008 18:17

Link

1. Have you SYNCed before taking the screenshot? If you don't use SYNC ON, you can easily take shots between full syncs and lose objects.

2. Are you GETting the correct bitmap? If you have loaded bitmaps and not SET CURRENT BITMAP back to 0, you are not taking an image of the screen.

Back to top

Profile PM Email

KISTech

16

Years of Service

User Offline

Joined: 8th Feb 2008

Location: Aloha, Oregon

Posted: 2nd Apr 2008 18:36

Link

Was I just dreaming or wasn't there a function built in to DBPro that let you just press Print-Screen and it would save off a screenshot?

Back to top

Profile PM Email Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 2nd Apr 2008 18:42 Edited at: 2nd Apr 2008 18:54

Link

i dont think so, but you could use this

Get a SnapShot of the Whole Screen

+ Code Snippet

Function ScreenShot(Path$)
      If Right$(Path$,1) <> "\" Then Path$ = Path$+"\"
         f = 1 : Repeat : Inc f,1 : Until  File Exist(Path$+"ScreenShot "+Str$(f)) = 0
         i = 1 : Repeat : Inc i,1 : Until Image Exist(i) = 0
         get image i,0,0,Screen Width(),Screen Height()
         save image Path$+"ScreenShot "+Str$(f),i
         Delete Image i

EndFunction

Or if you only want a Snapshot of a Small Area

+ Code Snippet

Function ScreenShotArea(x,y,w,h,Path$)
      If Right$(Path$,1) <> "\" Then Path$ = Path$+"\"
         f = 1 : Repeat : Inc f,1 : Until  File Exist(Path$+"ScreenShot "+Str$(f)) = 0
         i = 1 : Repeat : Inc i,1 : Until Image Exist(i) = 0
         get image i,x,y,w,h
         save image Path$+"ScreenShot "+Str$(f),i
         Delete Image i

EndFunction

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

Guardian

21

Years of Service

User Offline

Joined: 30th Sep 2003

Location:

Posted: 2nd Apr 2008 20:10 Edited at: 2nd Apr 2008 20:12

Link

thx guys, didn't work though:-(

Basically my code works like this. I have a single for loop that
draws a hexgrid. The hexgrid is made up of sprites. the background I have a textured plane with a world map on it. at the very end of the program after the syncs I have

+ Code Snippet

get image 10,0,0,640,480
save image "save.bmp",10
suspend for key

So I do see the image the way I want it to come out. However the saved image is just the background plane. Also I'm working on bitmap 0. Its a very simple program, so there no back and forth with bitmaps going on, ironcially it was in hopes of avoiding this problem. Any other ideas, attached is the image of what it looks like when I try saving, and what it should look like when I use print screen.

Attachments

Login to view attachments

Back to top

Profile PM

KISTech

16

Years of Service

User Offline

Joined: 8th Feb 2008

Location: Aloha, Oregon

Posted: 2nd Apr 2008 20:34

Link

That code (when needed) is immediately after the sync in your main loop?

Such as,

+ Code Snippet

` Main Loop
While .....
   ....
   ...
   .....
   sync

   if keystate(25) = 1
      while keystate(25) = 1:endwhile
      get image 10,0,0,640,480
      save image "save.bmp",10
   endif

endwhile

Back to top

Profile PM Email Website

Guardian

21

Years of Service

User Offline

Joined: 30th Sep 2003

Location:

Posted: 2nd Apr 2008 21:03

Link

Yup, but since I'm not using do loop, or syncing ever iteration of the for loop. It looks more like this

+ Code Snippet

For
       do all the stuff
next

sync
sync
get image 10,0,0,640,480
save image "save.bmp",10

Since its double buffered nothing with update on screen by using a single sync at the end.

Back to top

Profile PM

KISTech

16

Years of Service

User Offline

Joined: 8th Feb 2008

Location: Aloha, Oregon

Posted: 2nd Apr 2008 21:23

Link

Quote: "Since its double buffered nothing with update on screen by using a single sync "

Huh?

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Apr 2008 21:34 Edited at: 2nd Apr 2008 21:50

Link

try this :-

Rem Project: savesprites
Rem Created: 02/04/2008 18:58:31

Rem ***** Main Source File *****
Rem ***** Main Source File *****
sync on
sync rate 60
rem make some sprites
for i = 1 to 50
cls
text 0,0,chr$(33+i)
get image i,0,0,text width("W")+2,text height("I")+2,1
next i
cls
rem make a background image
for t = 1 to 20
X1=rnd(screen width())
Y1=rnd(screen height())
X2=X1+1+rnd(screen width())
Y2=Y1+1+rnd(screen height())
RgbForeValue=RGB(rnd(255),rnd(255),rnd(255))
RgbBackColor=RGB(rnd(255),rnd(255),rnd(255))
RadiusValue=rnd(100)
RadiusX=rnd(100)
RadiusY=rnd(100)
ComponentValue=rnd(255)
rem Try each command at random
if rnd(500)=1 then CLS RgbBackColor
if rnd(5)=1 then INK RgbForeValue, RgbBackColor
if rnd(5)=1 then DOT X1, Y2
if rnd(5)=1 then BOX X1, Y1, X2, Y2
if rnd(5)=1 then LINE X1, Y1, X2, Y2
if rnd(5)=1 then CIRCLE X, Y, RadiusValue
if rnd(5)=1 then ELLIPSE X, Y, RadiusX, RadiusY
next t
get image 51,0,0,screen width(),screen height(),1
dim rememberspritepos(50,2)

for i= 1 to 50
   x=rnd(screen width())
   y=rnd(screen height())
   rememberspritepos(i,1)=x
   rememberspritepos(i,2)=y
   sprite i,x,y,i
next i
do

paste image 51,0,0
text 0,0,"press s to save screen"
if inkey$()="s"
   hide all sprites
   paste image 51,0,0
      for p= 1 to 50
         paste sprite p,rememberspritepos(p,1),rememberspritepos(p,2)
      next p
   get image 52,0,0,screen width(),screen height(),1
print "press key to clear screen"
sync
wait key
cls 0
   paste image 52,0,0
text 0,0,"if 1 image 52 is pasted to screen "+str$(IMAGE EXIST(52))

sync
wait key
sync
cls
endif

sync
loop

+ Code Snippet

Rem Project: savesprites
Rem Created: 02/04/2008 18:58:31

Rem ***** Main Source File *****
Rem ***** Main Source File *****
sync on
sync rate 60
rem make some sprites
for i = 1 to 50
cls
text 0,0,chr$(33+i)
get image i,0,0,text width("W")+2,text height("I")+2,1
next i
cls
rem make a background image
for t = 1 to 20
X1=rnd(screen width())
Y1=rnd(screen height())
X2=X1+1+rnd(screen width())
Y2=Y1+1+rnd(screen height())
RgbForeValue=RGB(rnd(255),rnd(255),rnd(255))
RgbBackColor=RGB(rnd(255),rnd(255),rnd(255))
RadiusValue=rnd(100)
RadiusX=rnd(100)
RadiusY=rnd(100)
ComponentValue=rnd(255)
rem Try each command at random
if rnd(500)=1 then CLS RgbBackColor
if rnd(5)=1 then INK RgbForeValue, RgbBackColor
if rnd(5)=1 then DOT X1, Y2
if rnd(5)=1 then BOX X1, Y1, X2, Y2
if rnd(5)=1 then LINE X1, Y1, X2, Y2
if rnd(5)=1 then CIRCLE X, Y, RadiusValue
if rnd(5)=1 then ELLIPSE X, Y, RadiusX, RadiusY
next t
get image 51,0,0,screen width(),screen height(),1
dim rememberspritepos(50,2)


for i= 1 to 50
   x=rnd(screen width())
   y=rnd(screen height())
   rememberspritepos(i,1)=x
   rememberspritepos(i,2)=y
   sprite i,x,y,i
next i
do

paste image 51,0,0
text 0,0,"press s to save screen"
if inkey$()="s"
   hide all sprites
   paste image 51,0,0
      for p= 1 to 50
         paste sprite p,rememberspritepos(p,1),rememberspritepos(p,2)
      next p
   get image 52,0,0,screen width(),screen height(),1
print "press key to clear screen"
sync
wait key
cls 0
   paste image 52,0,0
text 0,0,"if 1 image 52 is pasted to screen "+str$(IMAGE EXIST(52))

   sync
wait key
sync
cls
endif

sync
loop

edit
to get the sprites back add show all sprites before the endif.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Guardian

21

Years of Service

User Offline

Joined: 30th Sep 2003

Location:

Posted: 2nd Apr 2008 21:52

Link

Kistech, if you were to put a single sync outside of a loop, you would never see anything on screen. The reason is cause darkbasic uses a method called double buffering. Basically it tell holds the visual data in a buffer, when called again it release that data and stores the next set. You see what is released. In a loop you would never notice this, since sync is run twice. The sync just releases the buffer.

In order for something to show up on a non looped program you need to run sync twice. This allows the buffer to release and hold the next visual information.

HowDo, you have given me an idea. I should test to see if I were to copy it to a bitmap if the sprites themselves would also copy over. This might be a bug in DB, but I did a search and didn't see anything. Anyone else have any ideas why sprites might not be saving. thx guys.

Back to top

Profile PM

KISTech

16

Years of Service

User Offline

Joined: 8th Feb 2008

Location: Aloha, Oregon

Posted: 3rd Apr 2008 00:14 Edited at: 3rd Apr 2008 00:14

Link

Quote: "if you were to put a single sync outside of a loop, you would never see anything on screen"

Right, knew that.

Quote: "In order for something to show up on a non looped program you need to run sync twice. "

Hmm. That might explain why some of my menus took some fancy coding to get them to show up properly. I'll have to give sync:sync a try in those situations and see what happens.

[edit]
Sure would be nice if something like that was documented...
[/edit]

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 3rd Apr 2008 02:03

Link

Quote: "I should test to see if I were to copy it to a bitmap if the sprites themselves would also copy over. This might be a bug in DB, but I did a search and didn't see anything. Anyone else have any ideas why sprites might not be saving"

Sprites don't actually exist on the screen, so I'm pretty sure copying the bitmap won't have any effect.

If the finished screen of sprites are used as a background and don't change, try using Set Sprite to turn of the automatic background restore and use Paste Sprite (if necessary).

This should then work when you use Save Bitmap 0.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Guardian

21

Years of Service

User Offline

Joined: 30th Sep 2003

Location:

Posted: 3rd Apr 2008 16:35

Link

hi TDK,
I have tried what you suggested, however it still doesn't seem to work. I have tried both set sprite to turn off automatic background, as well as adding paste sprite. Niether together, nor seperate did they work :-( . I'm kinda running out of ideas. A question about the save image command . I don't understand what you mean by sprites don't actually exist, I always throught everything that was drawn to the screen was a bitmap, and save image would save everything on that screen, within that radius given . I appreciate all the help everyone is giving.

Hopefully we can get this to work.

Back to top

Profile PM

Sasuke

18

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 3rd Apr 2008 20:03 Edited at: 3rd Apr 2008 23:10

Link

Just to a look at Mson code and modded abit, also added another function called 'PasteAllSprites'. The result... it works, just need to remember to add a 1 on the end of get image or your images will come out square(get image num, left, top, right, down, 1).

Anyway heres a working demo, the screenshots will go to shared documents, but you can change that, also the saved image format is bmp, I know it's big but has the best quality. Png is tiny and has great quality for it's size, just not sure if I want my screenshots as a png. I don't know whats wrong with jpg, messes up the image some times, mainly text, also... if I don't stop now, i'll never.

Heres the demo:

sync on : sync rate 60
global taken as boolean

make object cube 1,1

`make sprite
w = 128 : h = 24
ink rgb(255,0,0),0
box 0,0,w,h

ink rgb(0,0,255),0
text 8,h/2-text size()/2,"Can you See Me"

get image 1,0,0,w,h,1
sprite 1,50,50,1

do

rotate object 1,wrapvalue(object angle y(1)+0.24),wrapvalue(object angle x(1)+0.24),0
   
   if inkey$() = "s" and taken = 0
      ScreenShot("C:\Documents and Settings\All Users\Documents\")  ` I put mine in the Shared Documents to test
      taken = 1
   endif

if scancode() = 0 then taken = 0
   
   sync
loop

function ScreenShot(Path$)
   if right$(Path$,1) <> "" then Path$ = Path$+""
   FullPath$ = Path$+"ScreenShot "
   FileFormat$ = ".bmp"
   f = 0 : repeat : inc f,1 : until file exist(FullPath$+str$(f)+FileFormat$) = 0
   i = 0 : Repeat : Inc i,1 : Until Image Exist(i) = 0
   PasteAllSprite()
   get image i,0,0,screen width() , screen height(),1
   save image FullPath$+str$(f)+FileFormat$,i
   delete Image i
endfunction

function PasteAllSprite()
   i = 1
   repeat
      if sprite visible(i) > 0 
         paste sprite i,sprite x(i),sprite y(i)
      endif
      Inc i,1 
   until sprite exist(i) = 0
endfunction i

+ Code Snippet

sync on : sync rate 60
global taken as boolean

make object cube 1,1

`make sprite
w = 128 : h = 24
ink rgb(255,0,0),0
box 0,0,w,h

ink rgb(0,0,255),0
text 8,h/2-text size()/2,"Can you See Me"

get image 1,0,0,w,h,1
sprite 1,50,50,1

do

   rotate object 1,wrapvalue(object angle y(1)+0.24),wrapvalue(object angle x(1)+0.24),0
   
   if inkey$() = "s" and taken = 0
      ScreenShot("C:\Documents and Settings\All Users\Documents\")  ` I put mine in the Shared Documents to test
      taken = 1
   endif

   if scancode() = 0 then taken = 0
   
   sync
loop

function ScreenShot(Path$)
   if right$(Path$,1) <> "" then Path$ = Path$+""
   FullPath$ = Path$+"ScreenShot "
   FileFormat$ = ".bmp"
   f = 0 : repeat : inc f,1 : until file exist(FullPath$+str$(f)+FileFormat$) = 0
   i = 0 : Repeat : Inc i,1 : Until Image Exist(i) = 0
   PasteAllSprite()
   get image i,0,0,screen width() , screen height(),1
   save image FullPath$+str$(f)+FileFormat$,i
   delete Image i
endfunction

function PasteAllSprite()
   i = 1
   repeat
      if sprite visible(i) > 0 
         paste sprite i,sprite x(i),sprite y(i)
      endif
      Inc i,1 
   until sprite exist(i) = 0
endfunction i

Note: the function should really be called 'PasteAllVisibleSprites'

EDIT: if you just tested this your notice the path is missing '\', thats the forums fault.

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 3rd Apr 2008 22:46 Edited at: 3rd Apr 2008 23:42

Link

My apologies - I forgot that Save Bitmap was now obsolete in DBPro - I've been using DB Classic far too long!

Anyway, I should have said Save Image.

Does the following snippet not work for you?

+ Code Snippet

Set Display Mode 800,600,32
Sync On

Rem Create 3 Coloured Sprite Images
CLS RGB(255,0,0)
Get Image 1,0,0,33,33
CLS RGB(0,255,0)
Get Image 2,0,0,33,33
CLS RGB(0,0,255)
Get Image 3,0,0,33,33

Rem Clear The Screen Black
CLS RGB(0,0,0)

Rem Create 3 Sprites Off Screen And Set To No Background Restore
Sprite 1,-200,-200,1
Set Sprite 1,0,0
Sprite 2,-200,-200,2
Set Sprite 2,0,0
Sprite 3,-200,-200,3
Set Sprite 3,0,0

Rem Paste Sprites Onto Screen With Paste Sprite
Paste Sprite 3,Rnd(760),Rnd(560)
Paste Sprite 2,Rnd(760),Rnd(560)
Paste Sprite 1,Rnd(760),Rnd(560)

Rem Grab Image Of Screen And Save It
Get Image 10,0,0,800,600,1
Save Image "Test.bmp",10

Do
  Sync
Loop

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Sasuke

18

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 3rd Apr 2008 23:04 Edited at: 3rd Apr 2008 23:07

Link

TDK, you need to put a 1 on the end of get image or the image will come out sqaure and will only use the width of the image for the width and height. Not only that, it will round it up in multiples of 2(I think i said that right), so your 800 will become 1024 and something like 200 will become 256. My snippet works fine for this and also WindowsKiller's, but I'm not to sure what GDI is.

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 3rd Apr 2008 23:39 Edited at: 3rd Apr 2008 23:51

Link

Quote: "you need to put a 1 on the end of get image or the image will come out sqaure and will only use the width of the image for the width and height"

So it does - thanks for that. (My inexperience with DBPro I'm afraid)...

I was only concerned about the saved image actually containing the sprites and didn't spot that!

I'll edit my code snippet as you suggest.

[Edit] Oops - I missed your code snippet - sorry. Mine basically does the same and it was a waste of time posting it really!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Sasuke

18

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 4th Apr 2008 00:10 Edited at: 4th Apr 2008 00:10

Link

But if you didn't post it, you wouldn't have learned to add a 1 on the end of get image when using DBP and I wouldn't have learned theres a command like 'CLS'. Thats the first time I've ever seen it, will come in handy, thanks

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 4th Apr 2008 00:18

Link

Quote: "I wouldn't have learned theres a command like 'CLS'. Thats the first time I've ever seen it"

Seriously?

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Sasuke

18

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 4th Apr 2008 14:03

Link

Sorry, forgot to add, I wouldn't have learned theres a command like 'CLS' where you can set a color 'CLS RGB(R,B,G)'. When I saw that, I though for a sec it was a new command, until I went back to my code and had it everywhere, just never new about the RGB(R,B,G) bit.

Back to top

Profile PM Email

Guardian

21

Years of Service

User Offline

Joined: 30th Sep 2003

Location:

Posted: 4th Apr 2008 19:43 Edited at: 4th Apr 2008 19:55

Link

LOL, I think I'm cursed. First time I tried what was suggested it didn't work. So I got thinking, maybe if I removed the textured plain from the background, and that worked. However, now I don't have a map, just a bunch of sprites being saved. Any ideas why it wont save if there a 3d object on screen as well. Maybe I should add the plain loaded up before the sprites. So in order of loading sprites come after plain. Thx for all the help guys, I really appreciate it.

ok I tried something new out. Seems like my whole problem the complete time was the 3d object. set sprite 1,0,1 works, and paste sprite is not needed. So while the problem isn't solved, a few neat things have come to light. So the question is now placed, why does a 3d object completely override the sprite when using save image, also I noticed no matter what size the plain is, if its loaded, or any 3d object is loaded, it completely removed the sprites from the saved imaged, even if it doesn't cover all the sprites locations.

Back to top

Profile PM

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 5th Apr 2008 00:04

Link

Try getting the 3D view right, then use Set Camera View 0,0,1,1. Then, paste your sprites, grab the image and then save it.

Use Set Camera View 0,0,Screen Width(),Screen Height() when you've saved it to reset the 3D screen. If nothing is moving 3D-wise you may be able to achieve a similar effect using Backdrop Off instead.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Guardian

21

Years of Service

User Offline

Joined: 30th Sep 2003

Location:

Posted: 5th Apr 2008 04:05

Link

no luck :-(
so I'm going to post demo code, hopefully it will help the process.

+ Code Snippet

sync on
sync rate 0
autocam off
backdrop off
load image "hexr.png",1
load image "world1.jpg",2
make object plain 1,640,480
texture object 1,2
position camera 0,0,-330
`ghost object on 1

a=0
b=0

able=0
set=0
Set Camera View 0,0,1,1
for i= 1 to 8

able=able+1
sprite able,a,b,1
set sprite able,0,1
next i
sync
sync
get image 10,0,0,640,480
save image "world.jpg",10

suspend for key

you will need a background image named world.jpg and a sprite image named hexr.jpg

Hopefully this helps

thx

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 5th Apr 2008 08:09 Edited at: 5th Apr 2008 08:18

Link

try this.

+ Code Snippet

sync on
sync rate 0
autocam off
backdrop off
position camera 0,0,-400
load image "hexr.png",1
load image "1152.bmp",2

make object plain 1,640,480
texture object 1,2
`ghost object on 1
sync :rem <<< this one to show object 1 image 2
a=0
b=0

able=0
set=0
for i= 1 to 8
   able=able+1
   sprite able,a,b,1
   paste sprite able,a,b :rem <<<<<<<<< this line added
   inc b, 35
   inc able ,1
next i

delete file "world.jpg"

get image 10,0,0,640,480
save image "world.jpg",10
sync
suspend for key

edit
code without other bits I left in.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Sasuke

18

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 5th Apr 2008 22:15

Link

I don't see why your having so many problems with this when it's already been solved more that once. Not only that, no one is listening to me when I say put a 1 on the end of get image for your screenshot to come out right.

Once again heres another WORKING! screenshot demo:

Rem Project: Screenshot
Rem Created: 05/04/2008 19:46:57

Rem ***** Main Source File *****
Set Display Mode 800,600,32
Sync On : sync rate 60

Rem Create 3 Coloured Sprite Images
CLS RGB(255,0,0)
Get Image 1,0,0,33,33
CLS RGB(0,255,0)
Get Image 2,0,0,33,33
CLS RGB(0,0,255)
Get Image 3,0,0,33,33

Rem Clear The Screen Black
CLS RGB(0,0,0)

Rem Create 3 Sprites Off Screen And Set To No Background Restore
Sprite 1,Rnd(760),Rnd(400)+100,1
Sprite 2,Rnd(760),Rnd(400)+100,2
Sprite 3,Rnd(760),Rnd(400)+100,3

make object cube 1,1

global KeyPress as boolean
global Delay as dword
global Saving as boolean

Do

yrotate object 1,wrapvalue(object angle y(1)+0.5)

if returnkey() = 1 and KeyPress = 0
      for x = 0 to 99
         if file exist("Test_"+str$(x)+".bmp") = 0

Rem Paste Sprites Onto Screen With Paste Sprite
            Paste Sprite 3,sprite x(3),sprite y(3)
            Paste Sprite 2,sprite x(2),sprite y(2)
            Paste Sprite 1,sprite x(1),sprite y(1)

Get Image 10,0,0,screen width(),screen height(),1
            Save Image "Test_"+str$(x)+".bmp",10
            Delay = Timer() + 1000
            Exit

endif
      next x
      KeyPress = 1
   endif

if Delay > Timer()
      Text text width("Screenshot Being Saved: "),text size(),"Test_"+str$(x)+".bmp"+" Has been Saved"
   endif

if scancode() = 0 then KeyPress = 0

`this is if you want any other text on the screen, it won't be saved to the image.
   if scancode() = 0 and KeyPress = 0
      Text 0,0,"Press Returnkey To Save Screenshot"
      Text 0,text size(),"Screenshot Being Saved: "
   endif

Sync
Loop

+ Code Snippet

Rem Project: Screenshot
Rem Created: 05/04/2008 19:46:57

Rem ***** Main Source File *****
Set Display Mode 800,600,32
Sync On : sync rate 60

Rem Create 3 Coloured Sprite Images
CLS RGB(255,0,0)
Get Image 1,0,0,33,33
CLS RGB(0,255,0)
Get Image 2,0,0,33,33
CLS RGB(0,0,255)
Get Image 3,0,0,33,33

Rem Clear The Screen Black
CLS RGB(0,0,0)

Rem Create 3 Sprites Off Screen And Set To No Background Restore
Sprite 1,Rnd(760),Rnd(400)+100,1
Sprite 2,Rnd(760),Rnd(400)+100,2
Sprite 3,Rnd(760),Rnd(400)+100,3

make object cube 1,1

global KeyPress as boolean
global Delay as dword
global Saving as boolean

Do

   yrotate object 1,wrapvalue(object angle y(1)+0.5)

   if returnkey() = 1 and KeyPress = 0
      for x = 0 to 99
         if file exist("Test_"+str$(x)+".bmp") = 0

            Rem Paste Sprites Onto Screen With Paste Sprite
            Paste Sprite 3,sprite x(3),sprite y(3)
            Paste Sprite 2,sprite x(2),sprite y(2)
            Paste Sprite 1,sprite x(1),sprite y(1)

            Get Image 10,0,0,screen width(),screen height(),1
            Save Image "Test_"+str$(x)+".bmp",10
            Delay = Timer() + 1000
            Exit

         endif
      next x
      KeyPress = 1
   endif

   if Delay > Timer()
      Text text width("Screenshot Being Saved: "),text size(),"Test_"+str$(x)+".bmp"+" Has been Saved"
   endif

   if scancode() = 0 then KeyPress = 0

   `this is if you want any other text on the screen, it won't be saved to the image.
   if scancode() = 0 and KeyPress = 0
      Text 0,0,"Press Returnkey To Save Screenshot"
      Text 0,text size(),"Screenshot Being Saved: "
   endif

   Sync
Loop

Not only that, but I've even attached the project.

Attachments

Login to view attachments

Back to top

Profile PM Email

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 6th Apr 2008 21:48

Link

@Guardian just merge your code with Sasuke`s.I try it and it save sprites into the image.@Sasuke, great job man!Very nice peace of code

Where is a will, there is a way.

Back to top

Profile PM

Guardian

21

Years of Service

User Offline

Joined: 30th Sep 2003

Location:

Posted: 7th Apr 2008 18:02

Link

yup finally got it working.

I took what howdo said, and experimented with it. Basically my issue was double sync. It would visually give me what I wanted, but not in a saved state. It turns out save image takes it from the stored buffer not the read buffer. So once I took out sync and used paste to post to the stored buffer, the problem went away.

Sasuke, I do appreciate the help. I had your code working, I just wanted to know why mine wasn't. After that experiment, the problem became obvious. Thank you all for your help.

That is why set sprite works, cause it saves to the stored buffer. You can get the same effect from using paste, with the big difference, of not having the png stored transperency being visiable, however your way works good if the built in darkbasic transperency works for jpg,bmp, but without your help as well, would never have figured it out.

So to sum it up, if you want sprites to save.
Paste
sync
save.

Thanks again everyone.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Screenshot code not working, please help

Attachments

Attachments