the color of a pixel - GameCreators Forum

Author

Message

zxretrosoft

AGK Developer

9

Years of Service

User Offline

Joined: 10th Dec 2014

Location: Prague, Czech Republic

Posted: 1st Apr 2016 11:21

Link

Hello everyone!

Please, I need to know what is the color of one pixel in the image.
In PureBasic (and also the FreeBasic) is the command POINT.

https://www.purebasic.com/documentation/2ddrawing/point.html

There is something similar in the AGK2? Thanks!

I am sorry for poor English

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 1st Apr 2016 12:24

Link

You could:

* getImage() of one pixel.
* MakeMemblockFromImage()
* query the values in the memblock.

It isn't fast or pretty, but it's possible.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

zxretrosoft

AGK Developer

9

Years of Service

User Offline

Joined: 10th Dec 2014

Location: Prague, Czech Republic

Posted: 1st Apr 2016 13:03

Link

Thanks for a idea!

I am sorry for poor English

Back to top

Profile PM Email Website

zxretrosoft

AGK Developer

9

Years of Service

User Offline

Joined: 10th Dec 2014

Location: Prague, Czech Republic

Posted: 9th Apr 2016 21:45

Link

BatVink:
Please, an example? I'm trying, but I can not do it

Thank you in advance!

I am sorry for poor English

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 10th Apr 2016 17:49 Edited at: 10th Apr 2016 17:50

Link

Here's a little demo. I have put the colour selection in a function so you can copy it straight into your code. The parameter is an array with 4 elements - red, green, blue, alpha

Hold down the mouse button and hover over the colours on the screen.

SetScreenResolution(GetDeviceWidth(), GetDeviceHeight())
SetVirtualResolution(GetDeviceWidth(), GetDeviceHeight())
SetWindowSize(GetDeviceWidth(), GetDeviceHeight(),1)

//Create some colours
global spr as integer[100]
for i = 1 to 100
	spr[i] = createsprite(0)
	SetSpriteSize(spr[i], 100,100)
	SetSpriteColor(spr[i],random(1,255),random(1,255),random(1,255),random(128,255))
	SetSpritePositionByOffset(spr[i],random(50, GetVirtualWidth() - 50), random(50, GetVirtualHeight() - 50))
next i

//Create a sprite to show the selected colour
sprColour = createSprite(0)
SetSpriteSize(sprColour, 300,300)
SetSpritePositionByOffset(sprColour,GetVirtualWidth()/2, GetVirtualHeight()/2)

// Main loop
	while GetRawKeyPressed(27) = 0	
		
		SetSpriteAngle(sprColour, GetSpriteAngle(sprColour) + 1)
		
		// If mouse down, show colour under mouse
		if GetPointerState() = 1
			local colour as integer[4]
			getColour(colour)
			SetSpriteColor(sprColour, colour[1],colour[2],colour[3],colour[4])
			//print(str(r) + " : " + str(g)  + "  :  " + str( b))
		endif
		
		print(ScreenFPS())
		sync()
	endwhile
	
function getColour(colour ref as integer[])
	
			x = GetPointerX()
			y = getPointerY()
			render()
			img = getimage(x,y,1,1)
			ClearScreen()
			mb = CreateMemblockFromImage(img)

colour[1] = GetMemblockbyte(mb,12)
			colour[2] = GetMemblockbyte(mb,13)
			colour[3] = GetMemblockbyte(mb,14)
			colour[4] = GetMemblockbyte(mb,15)

DeleteImage(img)
			DeleteMemblock(mb)

endfunction

+ Code Snippet


SetScreenResolution(GetDeviceWidth(), GetDeviceHeight())
SetVirtualResolution(GetDeviceWidth(), GetDeviceHeight())
SetWindowSize(GetDeviceWidth(), GetDeviceHeight(),1)

//Create some colours
global spr as integer[100]
for i = 1 to 100
	spr[i] = createsprite(0)
	SetSpriteSize(spr[i], 100,100)
	SetSpriteColor(spr[i],random(1,255),random(1,255),random(1,255),random(128,255))
	SetSpritePositionByOffset(spr[i],random(50, GetVirtualWidth() - 50), random(50, GetVirtualHeight() - 50))
next i

//Create a sprite to show the selected colour
sprColour = createSprite(0)
SetSpriteSize(sprColour, 300,300)
SetSpritePositionByOffset(sprColour,GetVirtualWidth()/2, GetVirtualHeight()/2)


// Main loop
	while GetRawKeyPressed(27) = 0	
		
		SetSpriteAngle(sprColour, GetSpriteAngle(sprColour) + 1)
		
		// If mouse down, show colour under mouse
		if GetPointerState() = 1
			local colour as integer[4]
			getColour(colour)
			SetSpriteColor(sprColour, colour[1],colour[2],colour[3],colour[4])
			//print(str(r) + " : " + str(g)  + "  :  " + str( b))
		endif
		
		print(ScreenFPS())
		sync()
	endwhile
	
function getColour(colour ref as integer[])
	
			x = GetPointerX()
			y = getPointerY()
			render()
			img = getimage(x,y,1,1)
			ClearScreen()
			mb = CreateMemblockFromImage(img)

			colour[1] = GetMemblockbyte(mb,12)
			colour[2] = GetMemblockbyte(mb,13)
			colour[3] = GetMemblockbyte(mb,14)
			colour[4] = GetMemblockbyte(mb,15)

			DeleteImage(img)
			DeleteMemblock(mb)


endfunction

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

zxretrosoft

AGK Developer

9

Years of Service

User Offline

Joined: 10th Dec 2014

Location: Prague, Czech Republic

Posted: 11th Apr 2016 09:52 Edited at: 11th Apr 2016 09:53

Link

Thank you VERY much!!

Perfect job!
And now, I have this problem. I have one picture and I need to know RGB color coordinates X, Y. Can I make of it? It is using sprites weird is not it?

E.g.

(X,Y) RGB
(1,1) RGB 175,171,160
(2,1) RGB 60,214,90
(3,1) RGB 111,99,87
(4,1) ...

I am sorry for poor English

Back to top

Profile PM Email Website

Van B

Moderator

21

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 11th Apr 2016 10:15

Link

Memblocks will let you do that, you work out the size of the memblock and set the size, width and depth, then each pixel is made up from groups of 4 bytes, blue, green, red, and alpha.

Then you make the memblock into an image. The speed depends on how big the memblock is, but say you had a 64x64 memblock, you could update that completely in a main loop. AppGameKit is a nice language for retro games, especially given how easy it is to pixelate things, just set your virtual resolution and image filtering and you have lovely pixels.

I'm not sure what the examples for image memblock are like, but they are the same as with DBPro, so a lot of us know them quite well.

Like, say you wanted a random image, like coloured noise, really just to show the makeup of a memblock.

Image properties first...

img_wid=64
img_hig=64
img_dep=32
img_size=12+(64*64*4)
creatememblock(1,img_size)
setmemblockint(1,0,img_wid)
setmemblockint(1,4,img_hig)
setmemblockint(1,8,img_dep)

Now step through each pixel and set a colour for it...

For y=0 to img_hig-1
For x=0 to img_wid-1
pos=12+(((y*img_wid)+x)*4)
cr=random(0,255)
cg=random(0,255)
cb=random(0,255)
ca=random(0,255)
setmemblockbyte(1,pos+0,cb)
setmemblockbyte(1,pos+1,cg)
setmemblockbyte(1,pos+2,cr)
setmemblockbyte(1,pos+3,ca)
Next x
Next y
createimagefrommemblock(1,1)

There are other ways to draw to images, like using render targets for example, but I like the total control you get with a memblock.

Meat Boy on a Speccy!

Back to top

Profile PM Email

zxretrosoft

AGK Developer

9

Years of Service

User Offline

Joined: 10th Dec 2014

Location: Prague, Czech Republic

Posted: 11th Apr 2016 11:31 Edited at: 11th Apr 2016 11:32

Link

Thanks so much!

This is complicated enough for me. Mainly English

Sorry....

I have 1 image.

And I need to know what color is at specific coordinates (I'll need all the colors of all of the pixels in the image).

For example. What is the color (RGBA) of the coordinate: X=140, Y=75 ?

This is my code now, but it's not right:

SetVirtualResolution(800,480)
SetOrientationAllowed(0,0,1,1)
SetDisplayAspect(5.0/3.0)

global r,g,b

LoadImage(1,"image.png")
CreateSprite(1,1)

img_wid=800
img_hig=480
img_dep=32
img_size=12+(800*480*4)
creatememblock(1,img_size)
setmemblockint(1,0,img_wid)
setmemblockint(1,4,img_hig)
setmemblockint(1,8,img_dep)

For y=0 to img_hig-1
	For x=0 to img_wid-1
		pos=12+(((y*img_wid)+x)*4)
		cr=random(0,255)
		cg=random(0,255)
		cb=random(0,255)
		ca=random(0,255)
		setmemblockbyte(1,pos+0,cb)
		setmemblockbyte(1,pos+1,cg)
		setmemblockbyte(1,pos+2,cr)
		setmemblockbyte(1,pos+3,ca)
	Next x
Next y
createimagefrommemblock(1,1)

// Main loop
    while GetRawKeyPressed(27) = 0  
         
        /*
        // If mouse down, show colour under mouse
        if GetPointerState() = 1
            local colour as integer[4]
            getColour(colour)
            print(str(r) + " : " + str(g)  + "  :  " + str(b))
        endif
        */
        
        print(ScreenFPS())
        sync()
        
    endwhile

/*
function getColour(colour ref as integer[])
     
            x = GetPointerX()
            y = getPointerY()
            render()
            img = getimage(x,y,1,1)
            ClearScreen()
            mb = CreateMemblockFromImage(img)
 
            colour[1] = GetMemblockbyte(mb,12)
            colour[2] = GetMemblockbyte(mb,13)
            colour[3] = GetMemblockbyte(mb,14)
            colour[4] = GetMemblockbyte(mb,15)
            
            r=colour[1]
            g=colour[2]
            b=colour[3]
 
            DeleteImage(img)
            DeleteMemblock(mb)
 
endfunction
*/

+ Code Snippet

SetVirtualResolution(800,480)
SetOrientationAllowed(0,0,1,1)
SetDisplayAspect(5.0/3.0)

global r,g,b
 

LoadImage(1,"image.png")
CreateSprite(1,1)


img_wid=800
img_hig=480
img_dep=32
img_size=12+(800*480*4)
creatememblock(1,img_size)
setmemblockint(1,0,img_wid)
setmemblockint(1,4,img_hig)
setmemblockint(1,8,img_dep)


For y=0 to img_hig-1
	For x=0 to img_wid-1
		pos=12+(((y*img_wid)+x)*4)
		cr=random(0,255)
		cg=random(0,255)
		cb=random(0,255)
		ca=random(0,255)
		setmemblockbyte(1,pos+0,cb)
		setmemblockbyte(1,pos+1,cg)
		setmemblockbyte(1,pos+2,cr)
		setmemblockbyte(1,pos+3,ca)
	Next x
Next y
createimagefrommemblock(1,1)


 
// Main loop
    while GetRawKeyPressed(27) = 0  
         
        /*
        // If mouse down, show colour under mouse
        if GetPointerState() = 1
            local colour as integer[4]
            getColour(colour)
            print(str(r) + " : " + str(g)  + "  :  " + str(b))
        endif
        */
        
        print(ScreenFPS())
        sync()
        
    endwhile

/*
function getColour(colour ref as integer[])
     
            x = GetPointerX()
            y = getPointerY()
            render()
            img = getimage(x,y,1,1)
            ClearScreen()
            mb = CreateMemblockFromImage(img)
 
            colour[1] = GetMemblockbyte(mb,12)
            colour[2] = GetMemblockbyte(mb,13)
            colour[3] = GetMemblockbyte(mb,14)
            colour[4] = GetMemblockbyte(mb,15)
            
            r=colour[1]
            g=colour[2]
            b=colour[3]
 
            DeleteImage(img)
            DeleteMemblock(mb)
 
endfunction
*/

I am sorry for poor English

Back to top

Profile PM Email Website

Van B

Moderator

21

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 11th Apr 2016 11:50

Link

I'll have a look at making a code example of a little memblock image library - can't do much right now as I'm still at work. I'm thinking that it might be easier to just render the screen to an image, and grab the colour from that image instead, so you wouldn't grab a 1x1 image and sample that, you'd sample from the rendered image. It depends on what else you need to do really, maybe an idea to give some details on your project - there tends to be an easier way to do everything

Meat Boy on a Speccy!

Back to top

Profile PM Email

zxretrosoft

AGK Developer

9

Years of Service

User Offline

Joined: 10th Dec 2014

Location: Prague, Czech Republic

Posted: 12th Apr 2016 08:05

Link

OK, I'll try. But with my English ... Sorry. I hope you understand.

I have an image.

LoadImage (0, "image.png")
... or from the camera.

The aim is to make image adjustments (still do not know exactly what's going to be, but eg. to count the number of green colors. Or to turn green to blue, etc.).

I need to know the color of each pixel in this image.

So I need to know to coordinate X,Y is the color RGB.

(X,Y) RGB
(1,1) 175,171,160
(2,1) 60,214,90
(3,1) 111,99,87
(4,1) ...

(1,2) 160,160,160
(2,2) 170,20,15
(3,2) 200,140,217
(4,2) ...

Then I can continue with any work.

The best thing would probably be to reduce the image to 800x480 (?) And write down all the colors in the array.
Then create a second array, where I made adjustments to the colors. And from this array reconstruct a new image.

I am sorry for poor English

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 12th Apr 2016 09:32 Edited at: 12th Apr 2016 09:42

Link

Van B: The order of bytes has changed in AGK. It is RGBA, not BGRA like it was in DBPro.

This code maps all the colours into an array. Again, I have enclosed the hard work in a function, and exported a 10x10 section into a text file so that you can see what the data looks like.
I DO NOT recommend putting all of the data into an array, it is simply duplicating data. use the equations you see in the function to examine the pixel data in the memblock.

The output looks like this:

Line 45, Pixel 45 : 82,243,236,179
Line 45, Pixel 46 : 157,254,85,213
Line 45, Pixel 47 : 253,146,96,199
Line 45, Pixel 48 : 47,152,63,254
Line 45, Pixel 49 : 102,32,255,176
Line 45, Pixel 50 : 136,204,86,139
Line 45, Pixel 51 : 255,240,222,147
Line 45, Pixel 52 : 0,0,0,0
Line 45, Pixel 53 : 204,162,251,50
Line 45, Pixel 54 : 0,0,0,0
Line 45, Pixel 55 : 255,117,198,127
Line 46, Pixel 45 : 215,157,250,85
Line 46, Pixel 46 : 199,253,146,96
Line 46, Pixel 47 : 254,47,152,63
Line 46, Pixel 48 : 149,89,192,255
Line 46, Pixel 49 : 139,79,240,86
Line 46, Pixel 50 : 147,255,240,222
Line 46, Pixel 51 : 0,0,0,0
Line 46, Pixel 52 : 246,227,150,244
Line 46, Pixel 53 : 0,0,0,0
Line 46, Pixel 54 : 157,255,83,204
Line 46, Pixel 55 : 0,0,0,0
Line 47, Pixel 45 : 95,201,254,143
Line 47, Pixel 46 : 63,254,47,152
Line 47, Pixel 47 : 255,149,89,192
Line 47, Pixel 48 : 86,139,79,240
Line 47, Pixel 49 : 114,75,245,104
Line 47, Pixel 50 : 0,0,0,0
Line 47, Pixel 51 : 250,241,225,150
Line 47, Pixel 52 : 0,0,0,0
Line 47, Pixel 53 : 156,152,243,50
Line 47, Pixel 54 : 0,0,0,0
Line 47, Pixel 55 : 254,84,202,160
Line 48, Pixel 45 : 140,62,253,59
Line 48, Pixel 46 : 32,255,176,102
Line 48, Pixel 47 : 240,86,139,79
Line 48, Pixel 48 : 104,114,75,245
Line 48, Pixel 49 : 0,0,0,0
Line 48, Pixel 50 : 148,253,240,222
Line 48, Pixel 51 : 0,0,0,0
Line 48, Pixel 52 : 0,0,0,0
Line 48, Pixel 53 : 0,0,0,0
Line 48, Pixel 54 : 162,251,83,204
Line 48, Pixel 55 : 0,0,0,0
Line 49, Pixel 45 : 90,56,254,167
Line 49, Pixel 46 : 136,204,200,28
Line 49, Pixel 47 : 255,240,222,147
Line 49, Pixel 48 : 0,0,0,0
Line 49, Pixel 49 : 223,148,253,240
Line 49, Pixel 50 : 0,0,0,0
Line 49, Pixel 51 : 244,246,227,150
Line 49, Pixel 52 : 0,0,0,0
Line 49, Pixel 53 : 156,152,243,24
Line 49, Pixel 54 : 0,0,0,0
Line 49, Pixel 55 : 238,30,42,112
Line 50, Pixel 45 : 0,0,0,0
Line 50, Pixel 46 : 148,253,240,222
Line 50, Pixel 47 : 0,0,0,0
Line 50, Pixel 48 : 241,225,150,250
Line 50, Pixel 49 : 0,0,0,0
Line 50, Pixel 50 : 150,244,246,227
Line 50, Pixel 51 : 0,0,0,0
Line 50, Pixel 52 : 24,40,108,221
Line 50, Pixel 53 : 0,0,0,0
Line 50, Pixel 54 : 109,254,43,44
Line 50, Pixel 55 : 0,0,0,0
Line 51, Pixel 45 : 0,0,0,246
Line 51, Pixel 46 : 0,0,0,0
Line 51, Pixel 47 : 221,0,0,0
Line 51, Pixel 48 : 0,0,0,0
Line 51, Pixel 49 : 40,108,221,0
Line 51, Pixel 50 : 0,0,0,0
Line 51, Pixel 51 : 221,24,40,108
Line 51, Pixel 52 : 0,0,0,0
Line 51, Pixel 53 : 44,109,254,43
Line 51, Pixel 54 : 0,0,0,0
Line 51, Pixel 55 : 254,43,44,109
Line 52, Pixel 45 : 0,0,0,0
Line 52, Pixel 46 : 162,251,83,204
Line 52, Pixel 47 : 0,0,0,0
Line 52, Pixel 48 : 83,204,162,251
Line 52, Pixel 49 : 0,0,0,0
Line 52, Pixel 50 : 152,243,50,156
Line 52, Pixel 51 : 0,0,0,0
Line 52, Pixel 52 : 43,44,109,254
Line 52, Pixel 53 : 0,0,0,0
Line 52, Pixel 54 : 109,254,173,69
Line 52, Pixel 55 : 0,0,0,0
Line 53, Pixel 45 : 209,158,254,82
Line 53, Pixel 46 : 0,0,0,0
Line 53, Pixel 47 : 255,82,208,157
Line 53, Pixel 48 : 0,0,0,0
Line 53, Pixel 49 : 204,162,251,83
Line 53, Pixel 50 : 0,0,0,0
Line 53, Pixel 51 : 254,43,44,109
Line 53, Pixel 52 : 0,0,0,0
Line 53, Pixel 53 : 44,109,254,173
Line 53, Pixel 54 : 0,0,0,0
Line 53, Pixel 55 : 247,114,92,132
Line 54, Pixel 45 : 170,109,241,112
Line 54, Pixel 46 : 123,252,117,198
Line 54, Pixel 47 : 201,0,0,0
Line 54, Pixel 48 : 84,202,160,254
Line 54, Pixel 49 : 0,0,0,0
Line 54, Pixel 50 : 112,238,30,42
Line 54, Pixel 51 : 0,0,0,0
Line 54, Pixel 52 : 43,44,109,254
Line 54, Pixel 53 : 0,0,0,0
Line 54, Pixel 54 : 117,247,114,92
Line 54, Pixel 55 : 0,0,0,0
Line 55, Pixel 45 : 167,92,248,92
Line 55, Pixel 46 : 33,254,177,104
Line 55, Pixel 47 : 231,177,219,159
Line 55, Pixel 48 : 162,184,49,201
Line 55, Pixel 49 : 41,109,251,41
Line 55, Pixel 50 : 0,0,0,0
Line 55, Pixel 51 : 238,30,42,112
Line 55, Pixel 52 : 0,0,0,0
Line 55, Pixel 53 : 69,117,247,173
Line 55, Pixel 54 : 0,0,0,0
Line 55, Pixel 55 : 254,241,220,34

+ Code Snippet

Line 45, Pixel 45 : 82,243,236,179
Line 45, Pixel 46 : 157,254,85,213
Line 45, Pixel 47 : 253,146,96,199
Line 45, Pixel 48 : 47,152,63,254
Line 45, Pixel 49 : 102,32,255,176
Line 45, Pixel 50 : 136,204,86,139
Line 45, Pixel 51 : 255,240,222,147
Line 45, Pixel 52 : 0,0,0,0
Line 45, Pixel 53 : 204,162,251,50
Line 45, Pixel 54 : 0,0,0,0
Line 45, Pixel 55 : 255,117,198,127
Line 46, Pixel 45 : 215,157,250,85
Line 46, Pixel 46 : 199,253,146,96
Line 46, Pixel 47 : 254,47,152,63
Line 46, Pixel 48 : 149,89,192,255
Line 46, Pixel 49 : 139,79,240,86
Line 46, Pixel 50 : 147,255,240,222
Line 46, Pixel 51 : 0,0,0,0
Line 46, Pixel 52 : 246,227,150,244
Line 46, Pixel 53 : 0,0,0,0
Line 46, Pixel 54 : 157,255,83,204
Line 46, Pixel 55 : 0,0,0,0
Line 47, Pixel 45 : 95,201,254,143
Line 47, Pixel 46 : 63,254,47,152
Line 47, Pixel 47 : 255,149,89,192
Line 47, Pixel 48 : 86,139,79,240
Line 47, Pixel 49 : 114,75,245,104
Line 47, Pixel 50 : 0,0,0,0
Line 47, Pixel 51 : 250,241,225,150
Line 47, Pixel 52 : 0,0,0,0
Line 47, Pixel 53 : 156,152,243,50
Line 47, Pixel 54 : 0,0,0,0
Line 47, Pixel 55 : 254,84,202,160
Line 48, Pixel 45 : 140,62,253,59
Line 48, Pixel 46 : 32,255,176,102
Line 48, Pixel 47 : 240,86,139,79
Line 48, Pixel 48 : 104,114,75,245
Line 48, Pixel 49 : 0,0,0,0
Line 48, Pixel 50 : 148,253,240,222
Line 48, Pixel 51 : 0,0,0,0
Line 48, Pixel 52 : 0,0,0,0
Line 48, Pixel 53 : 0,0,0,0
Line 48, Pixel 54 : 162,251,83,204
Line 48, Pixel 55 : 0,0,0,0
Line 49, Pixel 45 : 90,56,254,167
Line 49, Pixel 46 : 136,204,200,28
Line 49, Pixel 47 : 255,240,222,147
Line 49, Pixel 48 : 0,0,0,0
Line 49, Pixel 49 : 223,148,253,240
Line 49, Pixel 50 : 0,0,0,0
Line 49, Pixel 51 : 244,246,227,150
Line 49, Pixel 52 : 0,0,0,0
Line 49, Pixel 53 : 156,152,243,24
Line 49, Pixel 54 : 0,0,0,0
Line 49, Pixel 55 : 238,30,42,112
Line 50, Pixel 45 : 0,0,0,0
Line 50, Pixel 46 : 148,253,240,222
Line 50, Pixel 47 : 0,0,0,0
Line 50, Pixel 48 : 241,225,150,250
Line 50, Pixel 49 : 0,0,0,0
Line 50, Pixel 50 : 150,244,246,227
Line 50, Pixel 51 : 0,0,0,0
Line 50, Pixel 52 : 24,40,108,221
Line 50, Pixel 53 : 0,0,0,0
Line 50, Pixel 54 : 109,254,43,44
Line 50, Pixel 55 : 0,0,0,0
Line 51, Pixel 45 : 0,0,0,246
Line 51, Pixel 46 : 0,0,0,0
Line 51, Pixel 47 : 221,0,0,0
Line 51, Pixel 48 : 0,0,0,0
Line 51, Pixel 49 : 40,108,221,0
Line 51, Pixel 50 : 0,0,0,0
Line 51, Pixel 51 : 221,24,40,108
Line 51, Pixel 52 : 0,0,0,0
Line 51, Pixel 53 : 44,109,254,43
Line 51, Pixel 54 : 0,0,0,0
Line 51, Pixel 55 : 254,43,44,109
Line 52, Pixel 45 : 0,0,0,0
Line 52, Pixel 46 : 162,251,83,204
Line 52, Pixel 47 : 0,0,0,0
Line 52, Pixel 48 : 83,204,162,251
Line 52, Pixel 49 : 0,0,0,0
Line 52, Pixel 50 : 152,243,50,156
Line 52, Pixel 51 : 0,0,0,0
Line 52, Pixel 52 : 43,44,109,254
Line 52, Pixel 53 : 0,0,0,0
Line 52, Pixel 54 : 109,254,173,69
Line 52, Pixel 55 : 0,0,0,0
Line 53, Pixel 45 : 209,158,254,82
Line 53, Pixel 46 : 0,0,0,0
Line 53, Pixel 47 : 255,82,208,157
Line 53, Pixel 48 : 0,0,0,0
Line 53, Pixel 49 : 204,162,251,83
Line 53, Pixel 50 : 0,0,0,0
Line 53, Pixel 51 : 254,43,44,109
Line 53, Pixel 52 : 0,0,0,0
Line 53, Pixel 53 : 44,109,254,173
Line 53, Pixel 54 : 0,0,0,0
Line 53, Pixel 55 : 247,114,92,132
Line 54, Pixel 45 : 170,109,241,112
Line 54, Pixel 46 : 123,252,117,198
Line 54, Pixel 47 : 201,0,0,0
Line 54, Pixel 48 : 84,202,160,254
Line 54, Pixel 49 : 0,0,0,0
Line 54, Pixel 50 : 112,238,30,42
Line 54, Pixel 51 : 0,0,0,0
Line 54, Pixel 52 : 43,44,109,254
Line 54, Pixel 53 : 0,0,0,0
Line 54, Pixel 54 : 117,247,114,92
Line 54, Pixel 55 : 0,0,0,0
Line 55, Pixel 45 : 167,92,248,92
Line 55, Pixel 46 : 33,254,177,104
Line 55, Pixel 47 : 231,177,219,159
Line 55, Pixel 48 : 162,184,49,201
Line 55, Pixel 49 : 41,109,251,41
Line 55, Pixel 50 : 0,0,0,0
Line 55, Pixel 51 : 238,30,42,112
Line 55, Pixel 52 : 0,0,0,0
Line 55, Pixel 53 : 69,117,247,173
Line 55, Pixel 54 : 0,0,0,0
Line 55, Pixel 55 : 254,241,220,34

And this is the code:

SetScreenResolution(GetDeviceWidth(), GetDeviceHeight())
SetVirtualResolution(GetDeviceWidth(), GetDeviceHeight())
SetWindowSize(GetDeviceWidth(), GetDeviceHeight(),1)
 
 type tColour
		r as integer
		g as integer
		b as integer
		a as integer
endtype

global arrColours as tColour[-1,1]
 
img = createImage() 
spr = createSprite(img)
SetSpritePositionByOffset(spr, GetVirtualWidth() / 2, GetVirtualHeight() / 2)

getAllColours(img, arrColours)
 
// Main loop
    while GetRawKeyPressed(27) = 0  
         
        print(ScreenFPS())
        sync()
    endwhile
     
function getAllColours(img, colour ref as tColour[][])
     
            mb = CreateMemblockFromImage(img)
			
			width = GetMemblockInt(mb,0)
			height = GetMemblockInt(mb,4)
 
			//resize the array
			arrColours.length = height
			for i = 0 to height
				arrColours[i].length = width
			next i
			
			log("Image Width = " + str(GetImageWidth(img)))
			log("Image Height = " + str(GetImageHeight(img)))
			log("Width = " + str(width))
			log("Height = " + str(height))
			log("Array dimension 1 length = " + str(arrColours.length))
			log("Array dimension 2 length = " + str(arrColours[0].length))
			
			//get all the colours
			for h = 0 to height - 1
				for w = 0 to width - 1
					log("h " + str(h) + "  w " + str(w))
					offset = 12 + (h * w * 4) + (w*4)
					arrColours[h,w].r = GetMemblockbyte(mb, offset + (w))
					arrColours[h,w].g = GetMemblockbyte(mb,offset + (w+1))
					arrColours[h,w].b = GetMemblockbyte(mb,offset + (w+2))
					arrColours[h,w].a = GetMemblockbyte(mb,offset + (w+3))
				next w
			next h
			
			f = OpenToWrite("results.txt")
			for h = 45 to 55
				for w = 45 to 55
					WriteLine(f,"Line " + str(h) + ", Pixel " + str(w) + " : " + str(arrColours[h,w].r) + "," + str(arrColours[h,w].g) + "," + str(arrColours[h,w].b) + "," + str(arrColours[h,w].a))
				next w
			next h
 
            DeleteMemblock(mb)
 
endfunction

function createImage()

//Create some colours
	global tempSpr as integer[100]
	for i = 1 to 100
		tempSpr[i] = createsprite(0)
		SetSpriteSize(tempSpr[i], random(10,20), random(10,20))
		SetSpriteColor(tempSpr[i],random(1,255),random(1,255),random(1,255),random(128,255))
		SetSpritePositionByOffset(tempSpr[i],(GetVirtualWidth() / 2) - 50 + random(10,80), (GetVirtualHeight() / 2) - 50 + random(10,80))
	next i

render()
	img = getImage((GetVirtualWidth()/2) - 50, (GetVirtualHeight() / 2) - 50,100,100)
	ClearScreen()

for i = 1 to 100
		DeleteSprite(tempSpr[i])
	next i
	
endfunction img

+ Code Snippet

SetScreenResolution(GetDeviceWidth(), GetDeviceHeight())
SetVirtualResolution(GetDeviceWidth(), GetDeviceHeight())
SetWindowSize(GetDeviceWidth(), GetDeviceHeight(),1)
 
 type tColour
		r as integer
		g as integer
		b as integer
		a as integer
endtype

global arrColours as tColour[-1,1]
 
img = createImage() 
spr = createSprite(img)
SetSpritePositionByOffset(spr, GetVirtualWidth() / 2, GetVirtualHeight() / 2)

getAllColours(img, arrColours)
 
// Main loop
    while GetRawKeyPressed(27) = 0  
         
        print(ScreenFPS())
        sync()
    endwhile
     
function getAllColours(img, colour ref as tColour[][])
     
            mb = CreateMemblockFromImage(img)
			
			width = GetMemblockInt(mb,0)
			height = GetMemblockInt(mb,4)
 
			//resize the array
			arrColours.length = height
			for i = 0 to height
				arrColours[i].length = width
			next i
			
			log("Image Width = " + str(GetImageWidth(img)))
			log("Image Height = " + str(GetImageHeight(img)))
			log("Width = " + str(width))
			log("Height = " + str(height))
			log("Array dimension 1 length = " + str(arrColours.length))
			log("Array dimension 2 length = " + str(arrColours[0].length))
			
			//get all the colours
			for h = 0 to height - 1
				for w = 0 to width - 1
					log("h " + str(h) + "  w " + str(w))
					offset = 12 + (h * w * 4) + (w*4)
					arrColours[h,w].r = GetMemblockbyte(mb, offset + (w))
					arrColours[h,w].g = GetMemblockbyte(mb,offset + (w+1))
					arrColours[h,w].b = GetMemblockbyte(mb,offset + (w+2))
					arrColours[h,w].a = GetMemblockbyte(mb,offset + (w+3))
				next w
			next h
			
			f = OpenToWrite("results.txt")
			for h = 45 to 55
				for w = 45 to 55
					WriteLine(f,"Line " + str(h) + ", Pixel " + str(w) + " : " + str(arrColours[h,w].r) + "," + str(arrColours[h,w].g) + "," + str(arrColours[h,w].b) + "," + str(arrColours[h,w].a))
				next w
			next h
 
            DeleteMemblock(mb)
 
endfunction

function createImage()

	//Create some colours
	global tempSpr as integer[100]
	for i = 1 to 100
		tempSpr[i] = createsprite(0)
		SetSpriteSize(tempSpr[i], random(10,20), random(10,20))
		SetSpriteColor(tempSpr[i],random(1,255),random(1,255),random(1,255),random(128,255))
		SetSpritePositionByOffset(tempSpr[i],(GetVirtualWidth() / 2) - 50 + random(10,80), (GetVirtualHeight() / 2) - 50 + random(10,80))
	next i

	render()
	img = getImage((GetVirtualWidth()/2) - 50, (GetVirtualHeight() / 2) - 50,100,100)
	ClearScreen()

	for i = 1 to 100
		DeleteSprite(tempSpr[i])
	next i
	
endfunction img

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

DavidAGK

AGK Developer

10

Years of Service

User Offline

Joined: 1st Jan 2014

Location:

Posted: 12th Apr 2016 16:36

Link

AMOS used to have a good set of pixel commands from memory

Using Tier 1 AppGameKit V2
Started coding with AMOS (Thanks Francois Lionet)

Back to top

Profile PM Website

zxretrosoft

AGK Developer

9

Years of Service

User Offline

Joined: 10th Dec 2014

Location: Prague, Czech Republic

Posted: 12th Apr 2016 20:13 Edited at: 12th Apr 2016 20:15

Link

Thank you!
It looks very good!

Now, I've edited the function CreateImage() for LoadImage. But where is the file "results.txt"? I don't have it in my computer.

SetScreenResolution(GetDeviceWidth(), GetDeviceHeight())
SetVirtualResolution(GetDeviceWidth(), GetDeviceHeight())
SetWindowSize(GetDeviceWidth(), GetDeviceHeight(),1)
  
 type tColour
        r as integer
        g as integer
        b as integer
        a as integer
endtype
 
global arrColours as tColour[-1,1]
  
img = createImage() 
spr = createSprite(img)
SetSpritePositionByOffset(spr, GetVirtualWidth() / 2, GetVirtualHeight() / 2)
 
getAllColours(img, arrColours)
  
// Main loop
    while GetRawKeyPressed(27) = 0  
          
        print(ScreenFPS())
        sync()
    endwhile
      
function getAllColours(img, colour ref as tColour[][])
      
            mb = CreateMemblockFromImage(img)
             
            width = GetMemblockInt(mb,0)
            height = GetMemblockInt(mb,4)
  
            //resize the array
            arrColours.length = height
            for i = 0 to height
                arrColours[i].length = width
            next i
             
            log("Image Width = " + str(GetImageWidth(img)))
            log("Image Height = " + str(GetImageHeight(img)))
            log("Width = " + str(width))
            log("Height = " + str(height))
            log("Array dimension 1 length = " + str(arrColours.length))
            log("Array dimension 2 length = " + str(arrColours[0].length))
             
            //get all the colours
            for h = 0 to height - 1
                for w = 0 to width - 1
                    log("h " + str(h) + "  w " + str(w))
                    offset = 12 + (h * w * 4) + (w*4)
                    arrColours[h,w].r = GetMemblockbyte(mb, offset + (w))
                    arrColours[h,w].g = GetMemblockbyte(mb,offset + (w+1))
                    arrColours[h,w].b = GetMemblockbyte(mb,offset + (w+2))
                    arrColours[h,w].a = GetMemblockbyte(mb,offset + (w+3))
                next w
            next h
             
            f = OpenToWrite("results.txt")
            for h = 45 to 55
                for w = 45 to 55
                    WriteLine(f,"Line " + str(h) + ", Pixel " + str(w) + " : " + str(arrColours[h,w].r) + "," + str(arrColours[h,w].g) + "," + str(arrColours[h,w].b) + "," + str(arrColours[h,w].a))
                next w
            next h
  
            DeleteMemblock(mb)
  
endfunction
 
function createImage()

/*
    //Create some colours
    global tempSpr as integer[100]
    for i = 1 to 100
        tempSpr[i] = createsprite(0)
        SetSpriteSize(tempSpr[i], random(10,20), random(10,20))
        SetSpriteColor(tempSpr[i],random(1,255),random(1,255),random(1,255),random(128,255))
        SetSpritePositionByOffset(tempSpr[i],(GetVirtualWidth() / 2) - 50 + random(10,80), (GetVirtualHeight() / 2) - 50 + random(10,80))
    next i
 
    render()
    img = getImage((GetVirtualWidth()/2) - 50, (GetVirtualHeight() / 2) - 50,100,100)
    ClearScreen()
    */
    
    img=LoadImage("image.png")
     
endfunction img

+ Code Snippet

SetScreenResolution(GetDeviceWidth(), GetDeviceHeight())
SetVirtualResolution(GetDeviceWidth(), GetDeviceHeight())
SetWindowSize(GetDeviceWidth(), GetDeviceHeight(),1)
  
 type tColour
        r as integer
        g as integer
        b as integer
        a as integer
endtype
 
global arrColours as tColour[-1,1]
  
img = createImage() 
spr = createSprite(img)
SetSpritePositionByOffset(spr, GetVirtualWidth() / 2, GetVirtualHeight() / 2)
 
getAllColours(img, arrColours)
  
// Main loop
    while GetRawKeyPressed(27) = 0  
          
        print(ScreenFPS())
        sync()
    endwhile
      
function getAllColours(img, colour ref as tColour[][])
      
            mb = CreateMemblockFromImage(img)
             
            width = GetMemblockInt(mb,0)
            height = GetMemblockInt(mb,4)
  
            //resize the array
            arrColours.length = height
            for i = 0 to height
                arrColours[i].length = width
            next i
             
            log("Image Width = " + str(GetImageWidth(img)))
            log("Image Height = " + str(GetImageHeight(img)))
            log("Width = " + str(width))
            log("Height = " + str(height))
            log("Array dimension 1 length = " + str(arrColours.length))
            log("Array dimension 2 length = " + str(arrColours[0].length))
             
            //get all the colours
            for h = 0 to height - 1
                for w = 0 to width - 1
                    log("h " + str(h) + "  w " + str(w))
                    offset = 12 + (h * w * 4) + (w*4)
                    arrColours[h,w].r = GetMemblockbyte(mb, offset + (w))
                    arrColours[h,w].g = GetMemblockbyte(mb,offset + (w+1))
                    arrColours[h,w].b = GetMemblockbyte(mb,offset + (w+2))
                    arrColours[h,w].a = GetMemblockbyte(mb,offset + (w+3))
                next w
            next h
             
            f = OpenToWrite("results.txt")
            for h = 45 to 55
                for w = 45 to 55
                    WriteLine(f,"Line " + str(h) + ", Pixel " + str(w) + " : " + str(arrColours[h,w].r) + "," + str(arrColours[h,w].g) + "," + str(arrColours[h,w].b) + "," + str(arrColours[h,w].a))
                next w
            next h
  
            DeleteMemblock(mb)
  
endfunction
 
function createImage()

	/*
    //Create some colours
    global tempSpr as integer[100]
    for i = 1 to 100
        tempSpr[i] = createsprite(0)
        SetSpriteSize(tempSpr[i], random(10,20), random(10,20))
        SetSpriteColor(tempSpr[i],random(1,255),random(1,255),random(1,255),random(128,255))
        SetSpritePositionByOffset(tempSpr[i],(GetVirtualWidth() / 2) - 50 + random(10,80), (GetVirtualHeight() / 2) - 50 + random(10,80))
    next i
 
    render()
    img = getImage((GetVirtualWidth()/2) - 50, (GetVirtualHeight() / 2) - 50,100,100)
    ClearScreen()
    */
    
    img=LoadImage("image.png")
     
endfunction img

I am sorry for poor English

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 13th Apr 2016 00:37

Link

It is created in the Write folder...

C:\Users\<USERNAME>\AppData\Local\AGKApps\

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

zxretrosoft

AGK Developer

9

Years of Service

User Offline

Joined: 10th Dec 2014

Location: Prague, Czech Republic

Posted: 13th Apr 2016 06:57

Link

Yes, thank you! (It was a hidden file.)

I'm going to scrutinize your code now

I am sorry for poor English

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers AppGameKit Corner / the color of a pixel