Sprite commands help Set Position using mouse/pointer

Author

Message

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 23rd Jan 2015 20:41

Link

Hi,

well I am stuck again and can't quite seem to get my routine working well if anyone can help.

I am using Sprites for a colour palette and am trying to get them to scroll up and down the screen using the speed of the mouse. I nearly have it but they are not quite lining up if you could see what I am doing wrong.

The code is below and I have attached the media folder with this post.

Hope this makes sense if you run the code you will see what I am trying to do. I think?

Thanks.

// Project: colour_pallette 
// Created: 2015-01-21

// Variables and Arrays
#Constant imgWidth_X = 1280
#Constant imgHeight_Y = 800

colStartPos_X = 1150
colStartPos_Y = 48 
 
colMaxPosUp_Y = -80 
colMaxPosDwn_Y = 816

#Constant numColours  = 13

colImage as integer[ numColours ]
colButton as integer[ numColours ]

// set display
SetVirtualResolution( imgWidth_X, imgHeight_Y )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 60, 0 )

// Draw the main drawing area as sprite to screen
drawImage = LoadImage ( "/media/PIC1.png" )
drawImageScrNum = CreateSprite( drawImage )
SetSpriteScale( drawImageScrNum, 1.8, 1.86 )
SetSpritePosition ( drawImageScrNum, 0, 0 )

// Turn background sprite on or off (visible) 0 = no 1 = yes
SetSpriteVisible ( drawImageScrNum, 0 )

// Set mouse pointer sprite
pencil = Loadimage ("/media/pencil.png")
pointer = CreateSprite( pencil )
SetSpriteDepth ( pointer, 0 ) // Make sure mouse is on top of screen at all times

// Set up colour sprites
 for i = 0 to numColours
	colImage [i] = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colButton [i] = CreateSprite ( colImage[i] )
	SetSpritePosition ( colButton[i] ,colStartPos_X , i * 64 - colStartPos_Y )
next i

// Main loop
do
    mouseX# = GetPointerX ( )
    mouseY# = GetPointerY ( )
	
	// Check for pointer pressed and pointer within colouring screen dimensions if not
	// checks for pointer pressed and pointer within colour palette area dimensions 
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < colStartPos_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Waits for the pointer to be released before filling area so doesn't constantly fill
		while GetPointerReleased()=0
			
			// This section will have the colour fill routine in the loop
			newMouseX# = GetPointerX ( )
			newMouseY# = GetPointerY ( )
			
			SetSpritePosition ( pointer, newMouseX#-1 , newMouseY#-90 ) // Draw mouse pointer sprite
			
			Print ("Draw Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(newMouseX#))
			Print ("MOUSE Y: " + str(newMouseY#))
			Print ("FPS: " + str(ScreenFPS()))
			
			Sync()
		endwhile
		mouseX# = newMouseX#
		mouseY# = newMouseY#
	elseif GetPointerPressed()=1 and mouseX# >= colStartPos_X and mouseX# <= imgWidth_X and mouseY# >= 0 and mouseY# <= imgHeight_Y

oldMouseY# = GetPointerY ( )
		// Waits while the pointer is pressed in order to move colours up and down
		while GetPointerReleased()=0
			// This section of the loop is for the colour selection
			mouseX# = GetPointerX ( )
			mouseY# = GetPointerY ( )
			
			if mouseY# < oldMouseY#
					// Colours Move Up
					
					colSpeed = oldMouseY# - mouseY# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite = GetSpriteY ( colButton [i] ) - colSpeed
						
						if moveColSprite <= colMaxPosUp_Y // -80
							if i > 0
								moveColSprite = GetSpriteY ( colButton [i-1] ) + GetSpriteHeight( colButton [i] )
							else
								moveColSprite = GetSpriteY ( colButton [numColours] ) + GetSpriteHeight ( colButton [i] )
							endif
						endif
												
						SetSpritePosition ( colButton[i] ,colStartPos_X , moveColSprite )
					next i
					
				elseif mouseY# > oldMouseY# 
					// Colours Move Down
					
					colSpeed = mouseY# - oldMouseY#
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite = GetSpriteY ( colButton [i] ) + colSpeed
						
						if moveColSprite => colMaxPosDwn_Y // 816
							if i < numColours
								moveColSprite = GetSpriteY ( colButton [i+1] ) - GetSpriteHeight( colButton [i] )
							else
								moveColSprite = GetSpriteY ( colButton [0] ) - GetSpriteHeight( colButton [i] )
							endif
						endif
												
						SetSpritePosition ( colButton[i] ,colStartPos_X , moveColSprite )
					next i
					
			endif
			
			SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) // Draw mouse pointer sprite
			
			Print ("Colour Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(mouseX#))
			Print ("MOUSE Y: " + str(mouseY#))
			Print ("FPS: " + str(ScreenFPS()))
						
			Sync()
		endwhile
	endif
	
	// Draw mouse pointer
    SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
        
    Sync() // Update display
    
    // Check to end program
    if GetRawKeyPressed(27)   
		Exit                  
	endif  
loop

+ Code Snippet

// Project: colour_pallette 
// Created: 2015-01-21

// Variables and Arrays
#Constant imgWidth_X = 1280
#Constant imgHeight_Y = 800

colStartPos_X = 1150
colStartPos_Y = 48 
 
colMaxPosUp_Y = -80 
colMaxPosDwn_Y = 816 

#Constant numColours  = 13

colImage as integer[ numColours ]
colButton as integer[ numColours ]

// set display
SetVirtualResolution( imgWidth_X, imgHeight_Y )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 60, 0 )

// Draw the main drawing area as sprite to screen
drawImage = LoadImage ( "/media/PIC1.png" )
drawImageScrNum = CreateSprite( drawImage )
SetSpriteScale( drawImageScrNum, 1.8, 1.86 )
SetSpritePosition ( drawImageScrNum, 0, 0 )

// Turn background sprite on or off (visible) 0 = no 1 = yes
SetSpriteVisible ( drawImageScrNum, 0 )


// Set mouse pointer sprite
pencil = Loadimage ("/media/pencil.png")
pointer = CreateSprite( pencil )
SetSpriteDepth ( pointer, 0 ) // Make sure mouse is on top of screen at all times


// Set up colour sprites
 for i = 0 to numColours
	colImage [i] = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colButton [i] = CreateSprite ( colImage[i] )
	SetSpritePosition ( colButton[i] ,colStartPos_X , i * 64 - colStartPos_Y )
next i


// Main loop
do
    mouseX# = GetPointerX ( )
    mouseY# = GetPointerY ( )
	
	// Check for pointer pressed and pointer within colouring screen dimensions if not
	// checks for pointer pressed and pointer within colour palette area dimensions 
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < colStartPos_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Waits for the pointer to be released before filling area so doesn't constantly fill
		while GetPointerReleased()=0
			
			// This section will have the colour fill routine in the loop
			newMouseX# = GetPointerX ( )
			newMouseY# = GetPointerY ( )
			
			SetSpritePosition ( pointer, newMouseX#-1 , newMouseY#-90 ) // Draw mouse pointer sprite
			
			Print ("Draw Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(newMouseX#))
			Print ("MOUSE Y: " + str(newMouseY#))
			Print ("FPS: " + str(ScreenFPS()))
			
			Sync()
		endwhile
		mouseX# = newMouseX#
		mouseY# = newMouseY#
	elseif GetPointerPressed()=1 and mouseX# >= colStartPos_X and mouseX# <= imgWidth_X and mouseY# >= 0 and mouseY# <= imgHeight_Y

		oldMouseY# = GetPointerY ( )
		// Waits while the pointer is pressed in order to move colours up and down
		while GetPointerReleased()=0
			// This section of the loop is for the colour selection
			mouseX# = GetPointerX ( )
			mouseY# = GetPointerY ( )
			
			if mouseY# < oldMouseY#
					// Colours Move Up
					
					colSpeed = oldMouseY# - mouseY# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite = GetSpriteY ( colButton [i] ) - colSpeed
						
						if moveColSprite <= colMaxPosUp_Y // -80
							if i > 0
								moveColSprite = GetSpriteY ( colButton [i-1] ) + GetSpriteHeight( colButton [i] )
							else
								moveColSprite = GetSpriteY ( colButton [numColours] ) + GetSpriteHeight ( colButton [i] )
							endif
						endif
												
						SetSpritePosition ( colButton[i] ,colStartPos_X , moveColSprite )
					next i
					
				elseif mouseY# > oldMouseY# 
					// Colours Move Down
					
					colSpeed = mouseY# - oldMouseY#
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite = GetSpriteY ( colButton [i] ) + colSpeed
						
						if moveColSprite => colMaxPosDwn_Y // 816
							if i < numColours
								moveColSprite = GetSpriteY ( colButton [i+1] ) - GetSpriteHeight( colButton [i] )
							else
								moveColSprite = GetSpriteY ( colButton [0] ) - GetSpriteHeight( colButton [i] )
							endif
						endif
												
						SetSpritePosition ( colButton[i] ,colStartPos_X , moveColSprite )
					next i
					
			endif
			
			SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) // Draw mouse pointer sprite
			
			Print ("Colour Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(mouseX#))
			Print ("MOUSE Y: " + str(mouseY#))
			Print ("FPS: " + str(ScreenFPS()))
						
			Sync()
		endwhile
	endif
	
	// Draw mouse pointer
    SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
        
    Sync() // Update display
    
    // Check to end program
    if GetRawKeyPressed(27)   
		Exit                  
	endif  
loop

Programming - AMOS on the AMIGA! / DBPro / Python / A bit of C &amp;amp;amp;amp;amp;amp;amp;amp;amp; C++ / now also AGK2! Graphics - Deluxe Paint on the Amiga / Paintshop Pro / Photoshop / Lightroom / Grafx2
Previously worked for Prisma Software producing childrens educational software on the Amiga. Titles - Pepe's Garden - Paint Pot / Kids Academy range - Paint Pot II / Shopping Basket / Which Where What? / Blobs / Alvin's Puzzles

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Preben

AGK Studio Developer

20

Years of Service

User Offline

Joined: 30th Jun 2004

Location:

Posted: 23rd Jan 2015 23:13 Edited at: 23rd Jan 2015 23:13

Link

Nice color selector

Just change this line:
moveColSprite = GetSpriteY ( colButton [numColours] ) + GetSpriteHeight ( colButton [i] )

to:
moveColSprite = GetSpriteY ( colButton [numColours] ) + GetSpriteHeight ( colButton [i] )- colSpeed

AND

This line:
moveColSprite = GetSpriteY ( colButton [i+1] ) - GetSpriteHeight( colButton [i] )

to:
moveColSprite = GetSpriteY ( colButton [i+1] ) - GetSpriteHeight( colButton [i] )+ colSpeed

This change make sure that the mouse diff is also taking into account when you swap around the sprites, and they will line up evenly.

Should fix your problem.

best regards Preben Eriksen,

Back to top

Profile PM Email

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 24th Jan 2015 03:22

Link

Hi there, thanks for the advice. I will check this out tomorrow.

Glad you like the idea of the colour selector. I have not fully implemented it yet because I got stuck here but and I have got to say I am not sure how I am going to do it yet but my idea is to use the 14 sprites that scroll to be able to select between around 120 colours. I was thinking that the 14 sprites will scroll but will change between 120 images.
So where I have 14 images I will have 120 but only use 14 sprites.
Thought this might save memory but also without trying it I am not sure how practical having 120 images loaded in will work. I also intend to redraw the colour images to make them look better when I get it all working

If I can't do it I might try using plain sprites and changing the colour value of the sprite instead of loading more images so will only use 14 sprites and images and then there is no need to draw the images I can just create filled in boxes but not sure how slow this will be yet.
Hmmmmm get this working tomorrow first though lol

Programming - AMOS on the AMIGA! / DBPro / Python / A bit of C &amp;amp;amp;amp;amp;amp;amp;amp;amp; C++ / now also AGK2! Graphics - Deluxe Paint on the Amiga / Paintshop Pro / Photoshop / Lightroom / Grafx2
Previously worked for Prisma Software producing childrens educational software on the Amiga. Titles - Pepe's Garden - Paint Pot / Kids Academy range - Paint Pot II / Shopping Basket / Which Where What? / Blobs / Alvin's Puzzles

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 24th Jan 2015 20:15

Link

Well I changed the code with the suggestion from Preben which when I looked you was right as I had missed putting the colSpeed on, however I am still having trouble with it.

If you move the point slowly it will work most of the time, however if you move the mouse fast or move the colours up and down while still holding the mouse it proper messes up!

I have been looking and looking but can't seem to find my error in the code, I must have something wrong with how I am reading the pointer or something, really not sure.

Can anyone help?

Cheers.

// Project: colour_pallette 
// Created: 2015-01-21

// Variables and Arrays
#Constant imgWidth_X = 1280
#Constant imgHeight_Y = 800

colStartPos_X = 1150
colStartPos_Y = 48 
 
colMaxPosUp_Y = -80 
colMaxPosDwn_Y = 816

#Constant numColours  = 13

colImage as integer[ numColours ]
colButton as integer[ numColours ]

// set display
SetVirtualResolution( imgWidth_X, imgHeight_Y )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 60, 0 )

// Draw the main drawing area as sprite to screen
drawImage = LoadImage ( "/media/PIC1.png" )
drawImageScrNum = CreateSprite( drawImage )
SetSpriteScale( drawImageScrNum, 1.8, 1.86 )
SetSpritePosition ( drawImageScrNum, 0, 0 )

// Turn background sprite on or off (visible) 0 = no 1 = yes
SetSpriteVisible ( drawImageScrNum, 0 )

// Set mouse pointer sprite
pencil = Loadimage ("/media/pencil.png")
pointer = CreateSprite( pencil )
SetSpriteDepth ( pointer, 0 ) // Make sure mouse is on top of screen at all times

// Set up colour sprites
 for i = 0 to numColours
	colImage [i] = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colButton [i] = CreateSprite ( colImage[i] )
	SetSpritePosition ( colButton[i] ,colStartPos_X , i * GetSpriteHeight (colImage [i]) - colStartPos_Y )
next i

// Main loop
do
    mouseX# = GetPointerX ( )
    mouseY# = GetPointerY ( )
	
	// Check for pointer pressed and pointer within colouring screen dimensions if not
	// checks for pointer pressed and pointer within colour palette area dimensions 
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < colStartPos_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Waits for the pointer to be released before filling area so doesn't constantly fill
		while GetPointerReleased()=0
			
			// This section will have the colour fill routine in the loop
			newMouseX# = GetPointerX ( )
			newMouseY# = GetPointerY ( )
			
			SetSpritePosition ( pointer, newMouseX#-1 , newMouseY#-90 ) // Draw mouse pointer sprite
			
			Print ("Draw Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(newMouseX#))
			Print ("MOUSE Y: " + str(newMouseY#))
			Print ("FPS: " + str(ScreenFPS()))
			
			Sync()
		endwhile
		mouseX# = newMouseX#
		mouseY# = newMouseY#
	elseif GetPointerPressed()=1 and mouseX# >= colStartPos_X and mouseX# <= imgWidth_X and mouseY# >= 0 and mouseY# <= imgHeight_Y

oldMouseY# = GetPointerY ( )
		// Waits while the pointer is pressed in order to move colours up and down
		while GetPointerReleased()=0
			// This section of the loop is for the colour selection
			mouseX# = GetPointerX ( )
			mouseY# = GetPointerY ( )
			
			if mouseY# < oldMouseY#
					// Colours Move Up
					
					colSpeed = oldMouseY# - mouseY# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite = GetSpriteY ( colButton [i] ) - colSpeed
						
						
						if moveColSprite <= colMaxPosUp_Y // -80
							if i > 0
								moveColSprite = GetSpriteY ( colButton [i-1] ) + GetSpriteHeight( colButton [i] ) - colSpeed
							else
								moveColSprite = GetSpriteY ( colButton [numColours] ) + GetSpriteHeight ( colButton [i] ) - colSpeed
							endif
						endif
												
						SetSpritePosition ( colButton[i] ,colStartPos_X , moveColSprite )
					next i
					
				elseif mouseY# > oldMouseY# 
					// Colours Move Down
					
					colSpeed = mouseY# - oldMouseY#
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite = GetSpriteY ( colButton [i] ) + colSpeed
						
						if moveColSprite => colMaxPosDwn_Y // 816
							if i < numColours
								moveColSprite = GetSpriteY ( colButton [i+1] ) - GetSpriteHeight( colButton [i] ) + colSpeed
							else
								moveColSprite = GetSpriteY ( colButton [0] ) - GetSpriteHeight( colButton [i] ) + ColSpeed
							endif
						endif
												
						SetSpritePosition ( colButton[i] ,colStartPos_X , moveColSprite )
					next i
					
			endif
			
			SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) // Draw mouse pointer sprite
			
			Print ("Colour Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(mouseX#))
			Print ("MOUSE Y: " + str(mouseY#))
			Print ("FPS: " + str(ScreenFPS()))
						
			Sync()
		endwhile
	endif
	
	// Draw mouse pointer
    SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
        
    Sync() // Update display
    
    // Check to end program
    if GetRawKeyPressed(27)   
		Exit                  
	endif  
loop

+ Code Snippet

// Project: colour_pallette 
// Created: 2015-01-21

// Variables and Arrays
#Constant imgWidth_X = 1280
#Constant imgHeight_Y = 800

colStartPos_X = 1150
colStartPos_Y = 48 
 
colMaxPosUp_Y = -80 
colMaxPosDwn_Y = 816 

#Constant numColours  = 13

colImage as integer[ numColours ]
colButton as integer[ numColours ]

// set display
SetVirtualResolution( imgWidth_X, imgHeight_Y )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 60, 0 )

// Draw the main drawing area as sprite to screen
drawImage = LoadImage ( "/media/PIC1.png" )
drawImageScrNum = CreateSprite( drawImage )
SetSpriteScale( drawImageScrNum, 1.8, 1.86 )
SetSpritePosition ( drawImageScrNum, 0, 0 )

// Turn background sprite on or off (visible) 0 = no 1 = yes
SetSpriteVisible ( drawImageScrNum, 0 )


// Set mouse pointer sprite
pencil = Loadimage ("/media/pencil.png")
pointer = CreateSprite( pencil )
SetSpriteDepth ( pointer, 0 ) // Make sure mouse is on top of screen at all times


// Set up colour sprites
 for i = 0 to numColours
	colImage [i] = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colButton [i] = CreateSprite ( colImage[i] )
	SetSpritePosition ( colButton[i] ,colStartPos_X , i * GetSpriteHeight (colImage [i]) - colStartPos_Y )
next i


// Main loop
do
    mouseX# = GetPointerX ( )
    mouseY# = GetPointerY ( )
	
	// Check for pointer pressed and pointer within colouring screen dimensions if not
	// checks for pointer pressed and pointer within colour palette area dimensions 
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < colStartPos_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Waits for the pointer to be released before filling area so doesn't constantly fill
		while GetPointerReleased()=0
			
			// This section will have the colour fill routine in the loop
			newMouseX# = GetPointerX ( )
			newMouseY# = GetPointerY ( )
			
			SetSpritePosition ( pointer, newMouseX#-1 , newMouseY#-90 ) // Draw mouse pointer sprite
			
			Print ("Draw Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(newMouseX#))
			Print ("MOUSE Y: " + str(newMouseY#))
			Print ("FPS: " + str(ScreenFPS()))
			
			Sync()
		endwhile
		mouseX# = newMouseX#
		mouseY# = newMouseY#
	elseif GetPointerPressed()=1 and mouseX# >= colStartPos_X and mouseX# <= imgWidth_X and mouseY# >= 0 and mouseY# <= imgHeight_Y

		oldMouseY# = GetPointerY ( )
		// Waits while the pointer is pressed in order to move colours up and down
		while GetPointerReleased()=0
			// This section of the loop is for the colour selection
			mouseX# = GetPointerX ( )
			mouseY# = GetPointerY ( )
			
			if mouseY# < oldMouseY#
					// Colours Move Up
					
					colSpeed = oldMouseY# - mouseY# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite = GetSpriteY ( colButton [i] ) - colSpeed
						
						
						if moveColSprite <= colMaxPosUp_Y // -80
							if i > 0
								moveColSprite = GetSpriteY ( colButton [i-1] ) + GetSpriteHeight( colButton [i] ) - colSpeed
							else
								moveColSprite = GetSpriteY ( colButton [numColours] ) + GetSpriteHeight ( colButton [i] ) - colSpeed
							endif
						endif
												
						SetSpritePosition ( colButton[i] ,colStartPos_X , moveColSprite )
					next i
					
				elseif mouseY# > oldMouseY# 
					// Colours Move Down
					
					colSpeed = mouseY# - oldMouseY#
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite = GetSpriteY ( colButton [i] ) + colSpeed
						
						if moveColSprite => colMaxPosDwn_Y // 816
							if i < numColours
								moveColSprite = GetSpriteY ( colButton [i+1] ) - GetSpriteHeight( colButton [i] ) + colSpeed
							else
								moveColSprite = GetSpriteY ( colButton [0] ) - GetSpriteHeight( colButton [i] ) + ColSpeed
							endif
						endif
												
						SetSpritePosition ( colButton[i] ,colStartPos_X , moveColSprite )
					next i
					
			endif
			
			SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) // Draw mouse pointer sprite
			
			Print ("Colour Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(mouseX#))
			Print ("MOUSE Y: " + str(mouseY#))
			Print ("FPS: " + str(ScreenFPS()))
						
			Sync()
		endwhile
	endif
	
	// Draw mouse pointer
    SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
        
    Sync() // Update display
    
    // Check to end program
    if GetRawKeyPressed(27)   
		Exit                  
	endif  
loop

Programming - AMOS on the AMIGA! / DBPro / Python / A bit of C &amp;amp;amp;amp;amp;amp;amp;amp;amp; C++ / now also AGK2! Graphics - Deluxe Paint on the Amiga / Paintshop Pro / Photoshop / Lightroom / Grafx2
Previously worked for Prisma Software producing childrens educational software on the Amiga. Titles - Pepe's Garden - Paint Pot / Kids Academy range - Paint Pot II / Shopping Basket / Which Where What? / Blobs / Alvin's Puzzles

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 24th Jan 2015 20:56

Link

Well I might have cracked it!

I put the colour sprite positions into a float array instead of chnging the position of the sprite directly and then moved the positioning of the sprite to the main loop where the pointer is placed.

Works well on my tablet so will just check 100% but seems pretty good to me lol

// Project: colour_pallette 
// Created: 2015-01-21

// Variables and Arrays
#Constant imgWidth_X = 1280
#Constant imgHeight_Y = 800

colStartPos_X = 1150
colStartPos_Y = 48 
 
colMaxPosUp_Y = -80 
colMaxPosDwn_Y = 816

#Constant numColours  = 13

colImage as integer[ numColours ]
colButton as integer[ numColours ]

// set display
SetVirtualResolution( imgWidth_X, imgHeight_Y )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 60, 0 )

// Draw the main drawing area as sprite to screen
drawImage = LoadImage ( "/media/PIC1.png" )
drawImageScrNum = CreateSprite( drawImage )
SetSpriteScale( drawImageScrNum, 1.8, 1.86 )
SetSpritePosition ( drawImageScrNum, 0, 0 )

// Turn background sprite on or off (visible) 0 = no 1 = yes
SetSpriteVisible ( drawImageScrNum, 1 )

// Set mouse pointer sprite
pencil = Loadimage ("/media/pencil.png")
pointer = CreateSprite( pencil )
SetSpriteDepth ( pointer, 0 ) // Make sure mouse is on top of screen at all times

colSpritePosY as float [ numColours ]
// Set up colour sprites
 for i = 0 to numColours
	colImage [i] = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colButton [i] = CreateSprite ( colImage[i] )
	SetSpritePosition ( colButton[i] ,colStartPos_X , i * GetSpriteHeight (colImage [i]) - colStartPos_Y )
	colSpritePosY [i] =  i * GetSpriteHeight (colImage [i]) - colStartPos_Y
next i

// Main loop
do
    mouseX# = GetPointerX ( )
    mouseY# = GetPointerY ( )
	
	// Check for pointer pressed and pointer within colouring screen dimensions if not
	// checks for pointer pressed and pointer within colour palette area dimensions 
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < colStartPos_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Waits for the pointer to be released before filling area so doesn't constantly fill
		while GetPointerReleased()=0
			
			// This section will have the colour fill routine in the loop
			newMouseX# = GetPointerX ( )
			newMouseY# = GetPointerY ( )
			
			SetSpritePosition ( pointer, newMouseX#-1 , newMouseY#-90 ) // Draw mouse pointer sprite
			
			Print ("Draw Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(newMouseX#))
			Print ("MOUSE Y: " + str(newMouseY#))
			Print ("FPS: " + str(ScreenFPS()))
			
			Sync()
		endwhile
		mouseX# = newMouseX#
		mouseY# = newMouseY#
	elseif GetPointerPressed()=1 and mouseX# >= colStartPos_X and mouseX# <= imgWidth_X and mouseY# >= 0 and mouseY# <= imgHeight_Y

oldMouseY# = mouseY#
		// Waits while the pointer is pressed in order to move colours up and down
		while GetPointerReleased()=0
			// This section of the loop is for the colour selection
			mouseX# = GetPointerX ( )
			mouseY# = GetPointerY ( )
			
			if mouseY# < oldMouseY#
					// Colours Move Up
					
					colSpeed# = oldMouseY# - mouseY# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite# = GetSpriteY ( colButton [i] ) - colSpeed#
						
						
						if moveColSprite# <= colMaxPosUp_Y // -80
							if i > 0
								moveColSprite# = GetSpriteY ( colButton [i-1] ) + GetSpriteHeight( colButton [i] ) - colSpeed#
							else
								moveColSprite# = GetSpriteY ( colButton [numColours] ) + GetSpriteHeight ( colButton [i] ) - colSpeed# 
							endif
						endif
						colSpritePosY[i] = moveColSprite#						
						
					next i
					
				elseif mouseY# > oldMouseY# 
					// Colours Move Down
					
					colSpeed# = mouseY# - oldMouseY#
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite# = GetSpriteY ( colButton [i] ) + colSpeed#
						
						if moveColSprite# => colMaxPosDwn_Y // 816
							if i < numColours
								moveColSprite# = GetSpriteY ( colButton [i+1] ) - GetSpriteHeight( colButton [i] ) + colSpeed#
							else
								moveColSprite# = GetSpriteY ( colButton [0] ) - GetSpriteHeight( colButton [i] ) + ColSpeed#
							endif
						endif
						colSpritePosY[i] = moveColSprite#						
						
					next i
					
			endif
			
			// Draw mouse pointer sprite
			SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
			// Draw Colour Buttons
			for i = 0 to numColours
				SetSpritePosition ( colButton[i] ,colStartPos_X , colSpritePosY[i] )
			next i
			
			Print ("Colour Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(mouseX#))
			Print ("MOUSE Y: " + str(mouseY#))
			Print ("FPS: " + str(ScreenFPS()))
						
			Sync()
		endwhile
	endif
	
	// Draw mouse pointer
    SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
        
    Sync() // Update display
    
    // Check to end program
    if GetRawKeyPressed(27)   
		Exit                  
	endif  
loop

+ Code Snippet

// Project: colour_pallette 
// Created: 2015-01-21

// Variables and Arrays
#Constant imgWidth_X = 1280
#Constant imgHeight_Y = 800

colStartPos_X = 1150
colStartPos_Y = 48 
 
colMaxPosUp_Y = -80 
colMaxPosDwn_Y = 816 

#Constant numColours  = 13

colImage as integer[ numColours ]
colButton as integer[ numColours ]

// set display
SetVirtualResolution( imgWidth_X, imgHeight_Y )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 60, 0 )

// Draw the main drawing area as sprite to screen
drawImage = LoadImage ( "/media/PIC1.png" )
drawImageScrNum = CreateSprite( drawImage )
SetSpriteScale( drawImageScrNum, 1.8, 1.86 )
SetSpritePosition ( drawImageScrNum, 0, 0 )

// Turn background sprite on or off (visible) 0 = no 1 = yes
SetSpriteVisible ( drawImageScrNum, 1 )


// Set mouse pointer sprite
pencil = Loadimage ("/media/pencil.png")
pointer = CreateSprite( pencil )
SetSpriteDepth ( pointer, 0 ) // Make sure mouse is on top of screen at all times

colSpritePosY as float [ numColours ]
// Set up colour sprites
 for i = 0 to numColours
	colImage [i] = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colButton [i] = CreateSprite ( colImage[i] )
	SetSpritePosition ( colButton[i] ,colStartPos_X , i * GetSpriteHeight (colImage [i]) - colStartPos_Y )
	colSpritePosY [i] =  i * GetSpriteHeight (colImage [i]) - colStartPos_Y
next i


// Main loop
do
    mouseX# = GetPointerX ( )
    mouseY# = GetPointerY ( )
	
	// Check for pointer pressed and pointer within colouring screen dimensions if not
	// checks for pointer pressed and pointer within colour palette area dimensions 
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < colStartPos_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Waits for the pointer to be released before filling area so doesn't constantly fill
		while GetPointerReleased()=0
			
			// This section will have the colour fill routine in the loop
			newMouseX# = GetPointerX ( )
			newMouseY# = GetPointerY ( )
			
			SetSpritePosition ( pointer, newMouseX#-1 , newMouseY#-90 ) // Draw mouse pointer sprite
			
			Print ("Draw Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(newMouseX#))
			Print ("MOUSE Y: " + str(newMouseY#))
			Print ("FPS: " + str(ScreenFPS()))
			
			Sync()
		endwhile
		mouseX# = newMouseX#
		mouseY# = newMouseY#
	elseif GetPointerPressed()=1 and mouseX# >= colStartPos_X and mouseX# <= imgWidth_X and mouseY# >= 0 and mouseY# <= imgHeight_Y

		oldMouseY# = mouseY#
		// Waits while the pointer is pressed in order to move colours up and down
		while GetPointerReleased()=0
			// This section of the loop is for the colour selection
			mouseX# = GetPointerX ( )
			mouseY# = GetPointerY ( )
			
			if mouseY# < oldMouseY#
					// Colours Move Up
					
					colSpeed# = oldMouseY# - mouseY# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite# = GetSpriteY ( colButton [i] ) - colSpeed#
						
						
						if moveColSprite# <= colMaxPosUp_Y // -80
							if i > 0
								moveColSprite# = GetSpriteY ( colButton [i-1] ) + GetSpriteHeight( colButton [i] ) - colSpeed#
							else
								moveColSprite# = GetSpriteY ( colButton [numColours] ) + GetSpriteHeight ( colButton [i] ) - colSpeed# 
							endif
						endif
						colSpritePosY[i] = moveColSprite#						
						
					next i
					
				elseif mouseY# > oldMouseY# 
					// Colours Move Down
					
					colSpeed# = mouseY# - oldMouseY#
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite# = GetSpriteY ( colButton [i] ) + colSpeed#
						
						if moveColSprite# => colMaxPosDwn_Y // 816
							if i < numColours
								moveColSprite# = GetSpriteY ( colButton [i+1] ) - GetSpriteHeight( colButton [i] ) + colSpeed#
							else
								moveColSprite# = GetSpriteY ( colButton [0] ) - GetSpriteHeight( colButton [i] ) + ColSpeed#
							endif
						endif
						colSpritePosY[i] = moveColSprite#						
						
					next i
					
			endif
			
			// Draw mouse pointer sprite
			SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
			// Draw Colour Buttons
			for i = 0 to numColours
				SetSpritePosition ( colButton[i] ,colStartPos_X , colSpritePosY[i] )
			next i
			
			Print ("Colour Area Screen")
			Print (" ")
			Print ("MOUSE X: " + str(mouseX#))
			Print ("MOUSE Y: " + str(mouseY#))
			Print ("FPS: " + str(ScreenFPS()))
						
			Sync()
		endwhile
	endif
	
	// Draw mouse pointer
    SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
        
    Sync() // Update display
    
    // Check to end program
    if GetRawKeyPressed(27)   
		Exit                  
	endif  
loop

Programming - AMOS on the AMIGA! / DBPro / Python / A bit of C &amp;amp;amp;amp;amp;amp;amp;amp;amp; C++ / now also AGK2! Graphics - Deluxe Paint on the Amiga / Paintshop Pro / Photoshop / Lightroom / Grafx2
Previously worked for Prisma Software producing childrens educational software on the Amiga. Titles - Pepe's Garden - Paint Pot / Kids Academy range - Paint Pot II / Shopping Basket / Which Where What? / Blobs / Alvin's Puzzles

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 24th Jan 2015 21:13

Link

Here again,

for those that want to see the working code then here it is perfected with the scrolling colours but not expanded yet for over 100 colours lol.

I have added a max speed for the colour sprites to move and it now works great.

If you want to see this going further with more colours etc then check out the tutorial and Colour Splash project post here:

http://forum.thegamecreators.com/?m=forum_view&t=213305&b=48

Buy for now

// Project: colour_pallette 
// Created: 2015-01-21

// Variables and Arrays
#Constant imgWidth_X = 1280
#Constant imgHeight_Y = 800

colStartPos_X = 1150
colStartPos_Y = 48 
 
colMaxPosUp_Y = -80 
colMaxPosDwn_Y = 816

colSpeedMax# = 50

#Constant numColours  = 13

colImage as integer[ numColours ]
colButton as integer[ numColours ]

// set display
SetVirtualResolution( imgWidth_X, imgHeight_Y )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 60, 0 )

// Draw the main drawing area as sprite to screen
drawImage = LoadImage ( "/media/PIC1.png" )
drawImageScrNum = CreateSprite( drawImage )
SetSpriteScale( drawImageScrNum, 1.8, 1.86 )
SetSpritePosition ( drawImageScrNum, 0, 0 )

// Turn background sprite on or off (visible) 0 = no 1 = yes
SetSpriteVisible ( drawImageScrNum, 1 )

// Set mouse pointer sprite
pencil = Loadimage ("/media/pencil.png")
pointer = CreateSprite( pencil )
SetSpriteDepth ( pointer, 0 ) // Make sure mouse is on top of screen at all times

colSpritePosY as float [ numColours ]
// Set up colour sprites
 for i = 0 to numColours
	colImage [i] = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colButton [i] = CreateSprite ( colImage[i] )
	SetSpritePosition ( colButton[i] ,colStartPos_X , i * GetSpriteHeight (colImage [i]) - colStartPos_Y )
	colSpritePosY [i] =  i * GetSpriteHeight (colImage [i]) - colStartPos_Y
next i

// Main loop
do
    mouseX# = GetPointerX ( )
    mouseY# = GetPointerY ( )
	
	// Check for pointer pressed and pointer within colouring screen dimensions if not
	// checks for pointer pressed and pointer within colour palette area dimensions 
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < colStartPos_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Waits for the pointer to be released before filling area so doesn't constantly fill
		while GetPointerReleased()=0
			
			// This section will have the colour fill routine in the loop
			newMouseX# = GetPointerX ( )
			newMouseY# = GetPointerY ( )
			
			// Draw mouse pointer sprite
			SetSpritePosition ( pointer, newMouseX#-1 , newMouseY#-90 ) 
						
			Sync()
		endwhile
		mouseX# = newMouseX#
		mouseY# = newMouseY#
	elseif GetPointerPressed()=1 and mouseX# >= colStartPos_X and mouseX# <= imgWidth_X and mouseY# >= 0 and mouseY# <= imgHeight_Y

oldMouseY# = mouseY#
		// Waits while the pointer is pressed in order to move colours up and down
		while GetPointerReleased()=0
			// This section of the loop is for the colour selection
			mouseX# = GetPointerX ( )
			mouseY# = GetPointerY ( )
			
			if mouseY# < oldMouseY#
					// Colours Move Up
					
					colSpeed# = oldMouseY# - mouseY#
					if colSpeed# > colSpeedMax# then colSpeed# = colSpeedMax# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite# = GetSpriteY ( colButton [i] ) - colSpeed#
						
						
						if moveColSprite# <= colMaxPosUp_Y // -80
							if i > 0
								moveColSprite# = GetSpriteY ( colButton [i-1] ) + GetSpriteHeight( colButton [i] ) - colSpeed#
							else
								moveColSprite# = GetSpriteY ( colButton [numColours] ) + GetSpriteHeight ( colButton [i] ) - colSpeed# 
							endif
						endif
						colSpritePosY[i] = moveColSprite#						
						
					next i
					
				elseif mouseY# > oldMouseY# 
					// Colours Move Down
					
					colSpeed# = mouseY# - oldMouseY#
					if colSpeed# > colSpeedMax# then colSpeed# = colSpeedMax# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite# = GetSpriteY ( colButton [i] ) + colSpeed#
						
						if moveColSprite# => colMaxPosDwn_Y // 816
							if i < numColours
								moveColSprite# = GetSpriteY ( colButton [i+1] ) - GetSpriteHeight( colButton [i] ) + colSpeed#
							else
								moveColSprite# = GetSpriteY ( colButton [0] ) - GetSpriteHeight( colButton [i] ) + ColSpeed#
							endif
						endif
						colSpritePosY[i] = moveColSprite#						
						
					next i
					
			endif
			
			// Draw mouse pointer sprite
			SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
			// Draw Colour Buttons
			for i = 0 to numColours
				SetSpritePosition ( colButton[i] ,colStartPos_X , colSpritePosY[i] )
			next i
									
			Sync()
		endwhile
	endif
	
	// Draw mouse pointer
	SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
        
    Sync() // Update display
    
    // Check to end program
    if GetRawKeyPressed(27)   
		Exit                  
	endif  
loop

+ Code Snippet

// Project: colour_pallette 
// Created: 2015-01-21

// Variables and Arrays
#Constant imgWidth_X = 1280
#Constant imgHeight_Y = 800

colStartPos_X = 1150
colStartPos_Y = 48 
 
colMaxPosUp_Y = -80 
colMaxPosDwn_Y = 816 

colSpeedMax# = 50

#Constant numColours  = 13

colImage as integer[ numColours ]
colButton as integer[ numColours ]

// set display
SetVirtualResolution( imgWidth_X, imgHeight_Y )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate ( 60, 0 )

// Draw the main drawing area as sprite to screen
drawImage = LoadImage ( "/media/PIC1.png" )
drawImageScrNum = CreateSprite( drawImage )
SetSpriteScale( drawImageScrNum, 1.8, 1.86 )
SetSpritePosition ( drawImageScrNum, 0, 0 )

// Turn background sprite on or off (visible) 0 = no 1 = yes
SetSpriteVisible ( drawImageScrNum, 1 )


// Set mouse pointer sprite
pencil = Loadimage ("/media/pencil.png")
pointer = CreateSprite( pencil )
SetSpriteDepth ( pointer, 0 ) // Make sure mouse is on top of screen at all times

colSpritePosY as float [ numColours ]
// Set up colour sprites
 for i = 0 to numColours
	colImage [i] = Loadimage ("/media/colours/colour" + str(i) + ".png")
	colButton [i] = CreateSprite ( colImage[i] )
	SetSpritePosition ( colButton[i] ,colStartPos_X , i * GetSpriteHeight (colImage [i]) - colStartPos_Y )
	colSpritePosY [i] =  i * GetSpriteHeight (colImage [i]) - colStartPos_Y
next i


// Main loop
do
    mouseX# = GetPointerX ( )
    mouseY# = GetPointerY ( )
	
	// Check for pointer pressed and pointer within colouring screen dimensions if not
	// checks for pointer pressed and pointer within colour palette area dimensions 
	if GetPointerPressed()=1 and mouseX# >= 0 and mouseX# < colStartPos_X and mouseY# >= 0 and mouseY# <= imgHeight_Y
		// Waits for the pointer to be released before filling area so doesn't constantly fill
		while GetPointerReleased()=0
			
			// This section will have the colour fill routine in the loop
			newMouseX# = GetPointerX ( )
			newMouseY# = GetPointerY ( )
			
			// Draw mouse pointer sprite
			SetSpritePosition ( pointer, newMouseX#-1 , newMouseY#-90 ) 
						
			Sync()
		endwhile
		mouseX# = newMouseX#
		mouseY# = newMouseY#
	elseif GetPointerPressed()=1 and mouseX# >= colStartPos_X and mouseX# <= imgWidth_X and mouseY# >= 0 and mouseY# <= imgHeight_Y

		oldMouseY# = mouseY#
		// Waits while the pointer is pressed in order to move colours up and down
		while GetPointerReleased()=0
			// This section of the loop is for the colour selection
			mouseX# = GetPointerX ( )
			mouseY# = GetPointerY ( )
			
			if mouseY# < oldMouseY#
					// Colours Move Up
					
					colSpeed# = oldMouseY# - mouseY#
					if colSpeed# > colSpeedMax# then colSpeed# = colSpeedMax# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite# = GetSpriteY ( colButton [i] ) - colSpeed#
						
						
						if moveColSprite# <= colMaxPosUp_Y // -80
							if i > 0
								moveColSprite# = GetSpriteY ( colButton [i-1] ) + GetSpriteHeight( colButton [i] ) - colSpeed#
							else
								moveColSprite# = GetSpriteY ( colButton [numColours] ) + GetSpriteHeight ( colButton [i] ) - colSpeed# 
							endif
						endif
						colSpritePosY[i] = moveColSprite#						
						
					next i
					
				elseif mouseY# > oldMouseY# 
					// Colours Move Down
					
					colSpeed# = mouseY# - oldMouseY#
					if colSpeed# > colSpeedMax# then colSpeed# = colSpeedMax# 
					oldMouseY# = mouseY#
						
					// display colour pallete
					for i = 0 to numColours
						moveColSprite# = GetSpriteY ( colButton [i] ) + colSpeed#
						
						if moveColSprite# => colMaxPosDwn_Y // 816
							if i < numColours
								moveColSprite# = GetSpriteY ( colButton [i+1] ) - GetSpriteHeight( colButton [i] ) + colSpeed#
							else
								moveColSprite# = GetSpriteY ( colButton [0] ) - GetSpriteHeight( colButton [i] ) + ColSpeed#
							endif
						endif
						colSpritePosY[i] = moveColSprite#						
						
					next i
					
			endif
			
			// Draw mouse pointer sprite
			SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
			// Draw Colour Buttons
			for i = 0 to numColours
				SetSpritePosition ( colButton[i] ,colStartPos_X , colSpritePosY[i] )
			next i
									
			Sync()
		endwhile
	endif
	
	// Draw mouse pointer
	SetSpritePosition ( pointer, mouseX#-1 , mouseY#-90 ) 
        
    Sync() // Update display
    
    // Check to end program
    if GetRawKeyPressed(27)   
		Exit                  
	endif  
loop

Programming - AMOS on the AMIGA! / DBPro / Python / A bit of C &amp;amp;amp;amp;amp;amp;amp;amp;amp; C++ / now also AGK2! Graphics - Deluxe Paint on the Amiga / Paintshop Pro / Photoshop / Lightroom / Grafx2
Previously worked for Prisma Software producing childrens educational software on the Amiga. Titles - Pepe's Garden - Paint Pot / Kids Academy range - Paint Pot II / Shopping Basket / Which Where What? / Blobs / Alvin's Puzzles

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Sprite commands help Set Position using mouse/pointer

Attachments