Loading/saving in Paint Program.

Author

Message

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 2nd Dec 2005 07:13 Edited at: 2nd Dec 2005 07:14

Link

i have searched all over on how to save/load an image after you make it in my paint program. here is my program.

`======paint program======
`=========================
`---Author: ME!----
`=========================
`Main Source File

`setup
sync on
sync rate 100
size=5
DrawColour as Dword
Rem Project: Paint Program
Rem Created: 2/2/2005 8:07:04 PM

Rem ***** Main Source File *****

`Set backroud color
color backdrop 0,500

`Font
SET TEXT FONT "Arial"

`Start The Loop
do

`Create line for around template
ink rgb (200,0,0),0
LINE 160,0,0,1000000

`Create Color Template
ink rgb (255,255,255),0
text 0,0, "1 = White"
ink rgb (200,0,0),0
text 0,15, "2 = Red"
ink rgb (0,200,0),0
text 0,30,"3 = Green"
ink rgb (0,0,255),0
text 0,45, "4 = Blue"
ink rgb (200,200,0),0
text 0,60, "5 = Yellow"
ink rgb (250,125,0),0
text 0,75, "6 = Orange"
ink rgb (128,64,0),0
text 0,90, "7 = Brown"
ink rgb (255,128,255),0
text 0,105, "8 = Pink"
ink rgb (125,0,125),0
text 0,120, "9 = Purple"
ink rgb (200,0,0),0
text 0,135, "________________________________"
text 0,150, "Use left mouse button to draw"
text 0,165, "a square."
text 0,180, "________________________________"
text 0,195, "Use right mouse button to draw"
text 0,210, "a circle."
text 0,225, "________________________________"
text 0,240, "Hold down shift to erase"
text 0,255, "________________________________"
text 0,270, "Press the Right-control key to clear"
text 0,285, "the whole work area"
text 0,300, "________________________________"
text 0,315, "Hold down the space-bar to get"
text 0,330, "an awesome 3d wall affect!"
text 0,345, "________________________________"

`Start Button clicking/keystates

if mouseclick()=2
   ink DrawColour,0
      circle mousex(),mousey(),3
      circle mousex(),mousey(),2.9
      circle mousex(),mousey(),2.8
      circle mousex(),mousey(),2.7
      circle mousex(),mousey(),2.6
      circle mousex(),mousey(),2.5
      circle mousex(),mousey(),2.4
      circle mousex(),mousey(),2.3
      circle mousex(),mousey(),2.2
      circle mousex(),mousey(),2.1
      circle mousex(),mousey(),2.0
      circle mousex(),mousey(),1.9
      circle mousex(),mousey(),1.8
      circle mousex(),mousey(),1.7
      circle mousex(),mousey(),1.6
      circle mousex(),mousey(),1.5
      circle mousex(),mousey(),1.4
      circle mousex(),mousey(),1.3
      circle mousex(),mousey(),1.2
      circle mousex(),mousey(),1.1
      circle mousex(),mousey(),1
      circle mousex(),mousey(),.9
      circle mousex(),mousey(),.8
      circle mousex(),mousey(),.7
      circle mousex(),mousey(),.6
      circle mousex(),mousey(),.5
      circle mousex(),mousey(),.4
      circle mousex(),mousey(),.3
      circle mousex(),mousey(),.2
      circle mousex(),mousey(),.1
      circle mousex(),mousey(),.0.9
      circle mousex(),mousey(),.0.8
      circle mousex(),mousey(),.0.7
      circle mousex(),mousey(),.0.6
      circle mousex(),mousey(),.0.5
      circle mousex(),mousey(),.0.4
      circle mousex(),mousey(),.0.3
      circle mousex(),mousey(),.0.2
      circle mousex(),mousey(),.0.1
endif

if mouseclick()=1
      ink DrawColour,0
   box mousex(),mousey(),mousex()+5,mousey()+5
endif

if shiftkey()=1
   ink rgb (0,0,0),0
      box mousex(),mousey(),mousex()+10,mousey()+10
endif

if spacekey()=1
      ink DrawColour,0
   box mousex(),mousey(),mousex()+5,mousey()+5
   line mousex(),mousey(),mousex()+15,mousey()+10
endif

if controlkey()=1 then cls
if KEYSTATE (2) then DrawColour = rgb(255,255,255)
if KEYSTATE (3) then DrawColour = rgb(200,0,0)
if KEYSTATE (4) then DrawColour = rgb(0,200,0)
if KEYSTATE (5) then DrawColour = rgb(0,0,255)
if KEYSTATE (6) then DrawColour = rgb(200,200,0)
if KEYSTATE (7) then DrawColour = rgb(250,125,0)
if KEYSTATE (8) then DrawColour = rgb(128,64,0)
if KEYSTATE (9) then DrawColour = rgb(255,128,255)
if KEYSTATE (10) then DrawColour = rgb(125,0,125)
if escapekey()=1 then end

sync
loop

+ Code Snippet

`======paint program======
`=========================
`---Author: ME!----
`=========================
`Main Source File

`setup
sync on
sync rate 100
size=5
DrawColour as Dword
Rem Project: Paint Program
Rem Created: 2/2/2005 8:07:04 PM

Rem ***** Main Source File *****

`Set backroud color
color backdrop 0,500

`Font
SET TEXT FONT "Arial"

`Start The Loop
do

`Create line for around template
ink rgb (200,0,0),0
LINE 160,0,0,1000000

`Create Color Template
ink rgb (255,255,255),0
text 0,0, "1 = White"
ink rgb (200,0,0),0
text 0,15, "2 = Red"
ink rgb (0,200,0),0
text 0,30,"3 = Green"
ink rgb (0,0,255),0
text 0,45, "4 = Blue"
ink rgb (200,200,0),0
text 0,60, "5 = Yellow"
ink rgb (250,125,0),0
text 0,75, "6 = Orange"
ink rgb (128,64,0),0
text 0,90, "7 = Brown"
ink rgb (255,128,255),0
text 0,105, "8 = Pink"
ink rgb (125,0,125),0
text 0,120, "9 = Purple"
ink rgb (200,0,0),0
text 0,135, "________________________________"
text 0,150, "Use left mouse button to draw"
text 0,165, "a square."
text 0,180, "________________________________"
text 0,195, "Use right mouse button to draw"
text 0,210, "a circle."
text 0,225, "________________________________"
text 0,240, "Hold down shift to erase"
text 0,255, "________________________________"
text 0,270, "Press the Right-control key to clear"
text 0,285, "the whole work area"
text 0,300, "________________________________"
text 0,315, "Hold down the space-bar to get"
text 0,330, "an awesome 3d wall affect!"
text 0,345, "________________________________"

`Start Button clicking/keystates

if mouseclick()=2
   ink DrawColour,0
      circle mousex(),mousey(),3
      circle mousex(),mousey(),2.9
      circle mousex(),mousey(),2.8
      circle mousex(),mousey(),2.7
      circle mousex(),mousey(),2.6
      circle mousex(),mousey(),2.5
      circle mousex(),mousey(),2.4
      circle mousex(),mousey(),2.3
      circle mousex(),mousey(),2.2
      circle mousex(),mousey(),2.1
      circle mousex(),mousey(),2.0
      circle mousex(),mousey(),1.9
      circle mousex(),mousey(),1.8
      circle mousex(),mousey(),1.7
      circle mousex(),mousey(),1.6
      circle mousex(),mousey(),1.5
      circle mousex(),mousey(),1.4
      circle mousex(),mousey(),1.3
      circle mousex(),mousey(),1.2
      circle mousex(),mousey(),1.1
      circle mousex(),mousey(),1
      circle mousex(),mousey(),.9
      circle mousex(),mousey(),.8
      circle mousex(),mousey(),.7
      circle mousex(),mousey(),.6
      circle mousex(),mousey(),.5
      circle mousex(),mousey(),.4
      circle mousex(),mousey(),.3
      circle mousex(),mousey(),.2
      circle mousex(),mousey(),.1
      circle mousex(),mousey(),.0.9
      circle mousex(),mousey(),.0.8
      circle mousex(),mousey(),.0.7
      circle mousex(),mousey(),.0.6
      circle mousex(),mousey(),.0.5
      circle mousex(),mousey(),.0.4
      circle mousex(),mousey(),.0.3
      circle mousex(),mousey(),.0.2
      circle mousex(),mousey(),.0.1
endif

if mouseclick()=1
      ink DrawColour,0
   box mousex(),mousey(),mousex()+5,mousey()+5
endif

if shiftkey()=1
   ink rgb (0,0,0),0
      box mousex(),mousey(),mousex()+10,mousey()+10
endif

if spacekey()=1
      ink DrawColour,0
   box mousex(),mousey(),mousex()+5,mousey()+5
   line mousex(),mousey(),mousex()+15,mousey()+10
endif

if controlkey()=1 then cls
if KEYSTATE (2) then DrawColour = rgb(255,255,255)
if KEYSTATE (3) then DrawColour = rgb(200,0,0)
if KEYSTATE (4) then DrawColour = rgb(0,200,0)
if KEYSTATE (5) then DrawColour = rgb(0,0,255)
if KEYSTATE (6) then DrawColour = rgb(200,200,0)
if KEYSTATE (7) then DrawColour = rgb(250,125,0)
if KEYSTATE (8) then DrawColour = rgb(128,64,0)
if KEYSTATE (9) then DrawColour = rgb(255,128,255)
if KEYSTATE (10) then DrawColour = rgb(125,0,125)
if escapekey()=1 then end

sync
loop

i know i am asking alot but i really hope somehow i can get my hands on the save/load.

Everyone starts a noob. so lets not laugh at our younger souls.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 2nd Dec 2005 10:34

Link

In classic you can use the "save bitmap" command to save the screen.

+ Code Snippet

save bitmap "test.bmp"

Back to top

Profile PM Email

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 2nd Dec 2005 16:27

Link

yeah im using DBP though =(

Everyone starts a noob. so lets not laugh at our younger souls.

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 2nd Dec 2005 16:37

Link

Use GET IMAGE to grab contents of screen and then SAVE IMAGE

Boo!

Back to top

Profile PM Website

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 3rd Dec 2005 00:45

Link

yeah but when i use get image i get error

Everyone starts a noob. so lets not laugh at our younger souls.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 3rd Dec 2005 01:25 Edited at: 3rd Dec 2005 01:28

Link

Quote: "yeah but when i use get image i get error"

There's probably 2 reasons why you get an error. First it doesn't look like you know what coordinates to use... and there's an error in saving some formats (with the latest update of Pro).

This line in your code:

+ Code Snippet

LINE 160,0,0,1000000

Should be this:

+ Code Snippet

LINE 160,0,160,480

The default size of the screen is 640x480. The first number in a screen coordinate is usually refered to as X which goes from left to right. The second is Y which goes from the top to the bottom. The upper left corner is 0,0... the lower right corner is 640,480.

Here's the way the screen is divided:

0,0--------------640,0
|
|
|
|
0,480------------640,480

So if you wanted to place a dot in the center of the screen you type "dot 320,240".

Now using this information the image you want to save starts at 161,0 and ends at the corner of the screen 640,480.

The image format for save image should allow .bmp, .jpg, .dds, and .dib (I don't have a .dds and .dib loader so those may work) but only 1 in that list works... .jpg and .png works (even though it doesn't have .png listed). Since .jpgs are the worst kind to use... stick to .png saves.

+ Code Snippet

if keystate(31)
 get image 1,161,0,640,480,1
 save image "image.png",1
endif

Back to top

Profile PM Email

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 3rd Dec 2005 07:37

Link

thx. ill give it a try

Everyone starts a noob. so lets not laugh at our younger souls.

Back to top

Profile PM

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 3rd Dec 2005 09:23

Link

Grog Grueslayer,

Sorry, but I have to give some comments:

1)

Quote: "LINE 160,0,0,1000000"

when a coordinate from a line goes out of the screen, the line will be drawed anyway. line 0,10,0,639 will display the same as 0,10,0,10000.

2)

Quote: "The default size of the screen is 640x480. The first number in a screen coordinate is usually refered to as X which goes from left to right. The second is Y which goes from the top to the bottom. The upper left corner is 0,0... the lower right corner is 640,480. "

This is a contradiction. You say the screen size is default 640X480, starting from 0,0. However, this means the most right-bottom coordinate is 639,479 and not 640,480.

A simple test would be:

+ Code Snippet

dot 640,480
suspend for key
end

You see the dot is not displayed.

However:

+ Code Snippet

dot 639,479
suspend for key
end

The dot is displayed.

3)
The reason why it is giving an error is probably lying with the "get image" command. Unlike the 2D-commands, this gives an error when a coordinate lies off the screen.

An important note is that the maximum coordinates is not 639,479 but 640,480. However, the data on X=640 and Y=480 are not stored in the image.

A simple test:

+ Code Snippet

dot 640,480
get image 1,0,0,640,480
cls
paste image 1,-10,-10
suspend for key
end

I hope this clears some things.

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 3rd Dec 2005 11:09 Edited at: 3rd Dec 2005 11:11

Link

Quote: "Sorry, but I have to give some comments:"

Did I sound too harsh?... is that why you want to nit-pick?

Quote: "when a coordinate from a line goes out of the screen, the line will be drawed anyway. line 0,10,0,639 will display the same as 0,10,0,10000."

Of course... that is why it worked. But because he used a million for the y coordinate on a line statement it told me he had no idea about the screen sizes. Which was confirmed when he said that using "get image" gave him an error. His line statement appeared to work fine because he used such a high number the line was straight.

+ Code Snippet

sync rate 0
sync on

for y=0 to 1000000
 if keystate(1) then exit
 cls
 print "Y Coordinate = "+str$(y)
 LINE 160,0,0,y
 sync
next y
wait key

Quote: "This is a contradiction. You say the screen size is default 640X480, starting from 0,0. However, this means the most right-bottom coordinate is 639,479 and not 640,480.

The reason why it is giving an error is probably lying with the "get image" command. Unlike the 2D-commands, this gives an error when a coordinate lies off the screen.

An important note is that the maximum coordinates is not 639,479 but 640,480. However, the data on X=640 and Y=480 are not stored in the image."

Again you are right. I talked about the default screen size as being 640x480 because that is what we normally say... regardless of the last columns and rows of pixels being seen.

When you want to change the screen size do you type?

+ Code Snippet

set display mode 639,479,32
set display mode 799,599,32
set display mode 1023,767,32

Or do you type?

+ Code Snippet

set display mode 640,480,32
set display mode 800,600,32
set display mode 1024,768,32

It is second nature to use the above code snip for screen sizes because we have grown up saying them out loud and using those numbers in programming.

So which is better? Letting him continue to think that using 1000000 for a Y coordinate is acceptable or telling him about the screen limits using screen size numbers that have been established long before Darkbasic existed? Pointing out the actual limits although right is just semantics.

Besides... I didn't make this thread and call it "Grog's Screen Tutorial For Newbies".

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 3rd Dec 2005 11:39 Edited at: 3rd Dec 2005 11:40

Link

Quote: "Sorry, but I have to give some comments:"

It's never fun be corrected (in my opinion).

Quote: "Again you are right. I talked about the default screen size as being 640x480 because that is what we normally say... regardless of the last columns and rows of pixels being seen."

Well, it is kinda "extra work" for the pc to draw such a long line. But I thought you said it was 1 of the 2 reasons of the error.

Now I read it again and I see you're point is that he doesn't know how to use coordinates

So the points are:
Try not to define coords out of the screen.
Don't use buggy extensions for saving.
And finally, this thread isn't called "Grog's Screen Tutorial For Newbies"

Quote: "Quotes, quotes, quotes..."

And good luck with your programme...

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 3rd Dec 2005 12:07 Edited at: 3rd Dec 2005 12:29

Link

Quote: "It's never fun be corrected (in my opinion)."

I wasn't offended or anything... it takes a lot to offend me.

You're still on my cool people list.

Quote: "
Try not to define coords out of the screen.
Don't use buggy extensions for saving.
And finally, this thread isn't called "Grog's Screen Tutorial For Newbies"
"

Yup, yup, and a big yup. I won't be qualified to write tutorials till at least a few more hours... er I mean years.

Back to top

Profile PM Email

MonoCoder

18

Years of Service

User Offline

Joined: 4th Dec 2005

Location: england

Posted: 4th Dec 2005 17:11

Link

If you want to get pixels off an area of the screen, here is a fairly long way round it...
1. Make an array that has two parts, the size of the x and y axis. For example, in a program with a resolution of 640x480, use this array, remembering that the zeros count too: pixels(639,479)
2. Then lock the screen, use the for and next commands to write the colors of all the pixels into the array, and then unlock the pixels, like this:

+ Code Snippet

Lock pixels
For x=0 to 639
For y=0 to 479
pixels(x,y)=point(x,y)
Next y
Next x
Unlock pixels

3. Then save the array with:

+ Code Snippet

Save array "Pixels.dat",pixels(639,479)

err... so that's it. But if you want a bitmap file, this is all little or no use. gaah. But if at the moment you are having trouble with your computer saving out bitmaps, keep these .dat files safe, you can reload them when bitmap saving works.

If noone has this problem, then at least you can use these .dat files for your own kind of painting program, I dunno.

I sit, I write, I create quality code, and what is my reward? Windows errors. Oh. Great.

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 8th Dec 2005 04:57

Link

DBC is well known for having inconsistencies with screen co-ordinates - most caused by the faulty Box and Get Image commands.

What's more, it's annoying that they still haven't been addressed in DB Pro.

The main cause of the problem is that the Box command doesn't do what you tell it to.

There are 800 pixels across the screen and 600 down in 800x600 screen mode. The top left corner pixel is 0,0 and the bottom right corner pixel is 799,599.

But the following code doesn't do what it should:

CLS RGB(255,0,0)
Ink 0,0: Box 0,0,799,599
Wait Key

Try it in 800x600 screen mode and you will see red lines down the right side and across the bottom which shouldn't be there.

The confusion arises when you use the box command with Get Image to create buttons - especially if you aren't aware that Box always draws one less pixel across and down than it should.

The same bug is with the Get Image command:

Ink RGB(255,255,255),0: Box 0,0,799,599
Ink RGB(0,0,200),0: Box 1,1,798,598
Get Image 1,0,0,799,599
CLS 0
Paste Image 1,0,0
Wait Key

When you run this, it creates a blue box with a single pixel white border, but if you save the image grabbed you will see that the far right column and bottom row of pixels are unused.

As box and Get Image are both one pixel out on the X and Y, using the same values means you end up grabbing what you drew - the trouble is that it isn't what you wanted!

Draw a box with the line command and use the same screen co-ords to grab it with Get Image.

This is why to grab the whole screen, you have to use:

Get Image 1,800,600

...when there isn't actually a pixel column 800 or row 600 on the screen!

TDK_Man

DB Tutorials, Hints & Tips, Utils and lots more...
A New IDE For DB Classic!

Back to top

Profile PM Email Website

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 8th Dec 2005 10:45

Link

TDK is correct but answer needs a bit of correcting.

To correctly grab a screen 800*600 and make sure it's pixel perfect you have to utilise the 'texture' flag of the GET IMAGE command, so it should be;

GET IMAGE 1,0,0,800,600,1

If you don't include that magical ,1 on the end the resulting image will be blurry

Boo!

Back to top

Profile PM Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 8th Dec 2005 19:48 Edited at: 8th Dec 2005 19:48

Link

I didn't forget about the 1 on the end - I just left it off so it applied to both DBC and DB Pro.

In DBC, without the 1 parameter the image isn't blurry and the missing pixel effect is shown.

In DBPro, without the 1 parameter the image is blurry, but the effect is still shown. Well I hoped anyway!

TDK_Man

DB Tutorials, Hints & Tips, Utils and lots more...
A New IDE For DB Classic!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Loading/saving in Paint Program.