Rotating images by less than 90 degrees

Author

Message

Pixelator

16

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 18th Jul 2009 01:14 Edited at: 18th Jul 2009 02:30

Link

Hidy ho! A long while ago i posted this thread aspiring to program a sort of powder game with accurate gravity. Thanks to all of the wonderful replies, i understood the gravity portion. Unfortunately, my plans were cut short by a growing interest in robotics.

I have since returned to programming, and with a warm up pseudo-particle sim (

set display mode 1280,1024,32

`Rules

`R->G
`R->Y
`R->P

`G->B
`G->Y
`G->C

`B->R
`B->C
`B->P

`Y->C
`Y->G
`Y->R

`C->P
`C->G
`C->B

`P->Y
`P->B
`P->R

Dim Prtcl(15,14)
Dim Deadp(8)

`Value Map

`Prtcl(a,b)
`a: particle id
`b: attributes
`     1: Type
`          1: R
`          2: G
`          3: B
`          4: Y
`          5: C
`          6: P
`          (See above for particle interactions)
`     2: Size
`     3: x Position
`     4: y Position
`     5-14: Bonds
`          Number at location is ID of particle that is bonded to

`Replace below section with the values of your choice

Prtcl(1,1) = 1
Prtcl(1,2) = 30
Prtcl(1,3) = 300
Prtcl(1,4) = 100
Prtcl(1,5) = 2
Prtcl(1,6) = 3

Prtcl(2,1) = 3
Prtcl(2,2) = 30
Prtcl(2,3) = 200
Prtcl(2,4) = 200
Prtcl(2,5) = 1
Prtcl(2,6) = 3
Prtcl(2,7) = 4
Prtcl(2,8) = 6

Prtcl(3,1) = 2
Prtcl(3,2) = 30
Prtcl(3,3) = 400
Prtcl(3,4) = 200
Prtcl(3,5) = 1
Prtcl(3,6) = 2
Prtcl(3,7) = 5
Prtcl(3,8) = 7

Prtcl(4,1) = 1
Prtcl(4,2) = 30
Prtcl(4,3) = 100
Prtcl(4,4) = 300
Prtcl(4,5) = 2
Prtcl(4,6) = 6

Prtcl(5,1) = 1
Prtcl(5,2) = 30
Prtcl(5,3) = 500
Prtcl(5,4) = 300
Prtcl(5,5) = 3
Prtcl(5,6) = 7

Prtcl(6,1) = 2
Prtcl(6,2) = 30
Prtcl(6,3) = 200
Prtcl(6,4) = 400
Prtcl(6,5) = 2
Prtcl(6,6) = 4
Prtcl(6,7) = 7
Prtcl(6,8) = 8

Prtcl(7,1) = 3
Prtcl(7,2) = 30
Prtcl(7,3) = 400
Prtcl(7,4) = 400
Prtcl(7,5) = 3
Prtcl(7,6) = 5
Prtcl(7,7) = 6
Prtcl(7,8) = 8

Prtcl(8,1) = 1
Prtcl(8,2) = 30
Prtcl(8,3) = 300
Prtcl(8,4) = 500
Prtcl(8,5) = 6
Prtcl(8,6) = 7

`Replace the above section with the values of your choice

do

for cp = 1 to 8
if deadp(cp) = 1 then inc cp

for cb = 5 to 8

cpt = prtcl(cp,1)
		bid = prtcl(cp,cb)
		cbt = prtcl(bid,1)

if cpt = 1
			if cbt = 1
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 2
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 3
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 5
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif

if cpt = 2
			if cbt = 1
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 2
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 3
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 6
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif

if cpt = 3
			if cbt = 1
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 2
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 3
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 4
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif

if cpt = 4
			if cbt = 4
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 5
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 6
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 3
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif

if cpt = 5
			if cbt = 4
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 5
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 6
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 1
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif

if cpt = 6
			if cbt = 4
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 5
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 6
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 2
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif
	
	next cb
next cp

for cp = 1 to 7
if deadp(cp) = 1 then inc cp

if prtcl(cp,2) = 0 then gosub killparticle
`   if prtcl(cp,2) => 100 then gosub splitparticle
next cp

for cp = 1 to 8
if deadp(cp) = 1 then inc cp

if prtcl(cp,1) = 1 then ink rgb(255,0,0),0
	if prtcl(cp,1) = 2 then ink rgb(0,255,0),0
	if prtcl(cp,1) = 3 then ink rgb(0,0,255),0
	if prtcl(cp,1) = 4 then ink rgb(128,128,0),0
	if prtcl(cp,1) = 5 then ink rgb(0,128,128),0
	if prtcl(cp,1) = 6 then ink rgb(128,0,128),0
	
	circle prtcl(cp,3),prtcl(cp,4),prtcl(cp,2)/4		
	
next cp

loop

killparticle:

for ca = 1 to 6
	prtcl(cp,ca) = 0
next ca

deadp(cp) = 1

cls

return

+ Code Snippet

set display mode 1280,1024,32

`Rules

`R->G
`R->Y
`R->P

`G->B
`G->Y
`G->C

`B->R
`B->C
`B->P

`Y->C
`Y->G
`Y->R

`C->P
`C->G
`C->B

`P->Y
`P->B
`P->R

Dim Prtcl(15,14)
Dim Deadp(8)

`Value Map

`Prtcl(a,b)
`a: particle id
`b: attributes
`     1: Type
`          1: R
`          2: G
`          3: B
`          4: Y
`          5: C
`          6: P
`          (See above for particle interactions)
`     2: Size
`     3: x Position
`     4: y Position
`     5-14: Bonds
`          Number at location is ID of particle that is bonded to

`Replace below section with the values of your choice

Prtcl(1,1) = 1
Prtcl(1,2) = 30
Prtcl(1,3) = 300
Prtcl(1,4) = 100
Prtcl(1,5) = 2
Prtcl(1,6) = 3

Prtcl(2,1) = 3
Prtcl(2,2) = 30
Prtcl(2,3) = 200
Prtcl(2,4) = 200
Prtcl(2,5) = 1
Prtcl(2,6) = 3
Prtcl(2,7) = 4
Prtcl(2,8) = 6

Prtcl(3,1) = 2
Prtcl(3,2) = 30
Prtcl(3,3) = 400
Prtcl(3,4) = 200
Prtcl(3,5) = 1
Prtcl(3,6) = 2
Prtcl(3,7) = 5
Prtcl(3,8) = 7

Prtcl(4,1) = 1
Prtcl(4,2) = 30
Prtcl(4,3) = 100
Prtcl(4,4) = 300
Prtcl(4,5) = 2
Prtcl(4,6) = 6

Prtcl(5,1) = 1
Prtcl(5,2) = 30
Prtcl(5,3) = 500
Prtcl(5,4) = 300
Prtcl(5,5) = 3
Prtcl(5,6) = 7

Prtcl(6,1) = 2
Prtcl(6,2) = 30
Prtcl(6,3) = 200
Prtcl(6,4) = 400
Prtcl(6,5) = 2
Prtcl(6,6) = 4
Prtcl(6,7) = 7
Prtcl(6,8) = 8

Prtcl(7,1) = 3
Prtcl(7,2) = 30
Prtcl(7,3) = 400
Prtcl(7,4) = 400
Prtcl(7,5) = 3
Prtcl(7,6) = 5
Prtcl(7,7) = 6
Prtcl(7,8) = 8

Prtcl(8,1) = 1
Prtcl(8,2) = 30
Prtcl(8,3) = 300
Prtcl(8,4) = 500
Prtcl(8,5) = 6
Prtcl(8,6) = 7

`Replace the above section with the values of your choice

do

for cp = 1 to 8
if deadp(cp) = 1 then inc cp

	for cb = 5 to 8

		cpt = prtcl(cp,1)
		bid = prtcl(cp,cb)
		cbt = prtcl(bid,1)

		if cpt = 1
			if cbt = 1
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 2
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 3
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 5
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif


		if cpt = 2
			if cbt = 1
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 2
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 3
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 6
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif


		if cpt = 3
			if cbt = 1
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 2
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 3
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 4
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif


		if cpt = 4
			if cbt = 4
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 5
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 6
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 3
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif


		if cpt = 5
			if cbt = 4
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 5
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 6
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 1
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif


		if cpt = 6
			if cbt = 4
				prtcl(cp,2) = prtcl(cp,2) + 1
			endif
			if cbt = 5
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 6
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
			if cbt = 2
				prtcl(cp,2) = prtcl(cp,2) - 1
			endif
		endif
	
	next cb
next cp

for cp = 1 to 7
if deadp(cp) = 1 then inc cp

	if prtcl(cp,2) = 0 then gosub killparticle
`   if prtcl(cp,2) => 100 then gosub splitparticle
next cp



for cp = 1 to 8
if deadp(cp) = 1 then inc cp

	if prtcl(cp,1) = 1 then ink rgb(255,0,0),0
	if prtcl(cp,1) = 2 then ink rgb(0,255,0),0
	if prtcl(cp,1) = 3 then ink rgb(0,0,255),0
	if prtcl(cp,1) = 4 then ink rgb(128,128,0),0
	if prtcl(cp,1) = 5 then ink rgb(0,128,128),0
	if prtcl(cp,1) = 6 then ink rgb(128,0,128),0
	
	circle prtcl(cp,3),prtcl(cp,4),prtcl(cp,2)/4		
	
next cp


loop


killparticle:

for ca = 1 to 6
	prtcl(cp,ca) = 0
next ca

deadp(cp) = 1

cls

return

<-- The code for anyone interested) completed, i am going to return to my previous ambition.

Now before i can start, i have one problem. As particles coalesces into larger chunks, the program will have to identify the particles that are joined. To do this i was thinking of have a section of the program check to see if two particles need to be joined, and if so, create an array of the relative locations of the particles in the chunk. Something like : Chunk_array(chunk_id,x,y).

If these "chunks" are to have any spin, i need to be able to rotate all the particles a cirtain amount without distorting the look. I, not being the best programmer in the world, have no clue how to do this. Help

?

Everything is more than the sum of its parts.

Back to top

Profile PM Email

TheComet

16

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 18th Jul 2009 01:44

Link

http://forum.thegamecreators.com/?m=forum_view&t=140077&b=6

You can check that out, or you can use plain objects instead of images.

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 18th Jul 2009 01:55

Link

I could try and whip up a rotate image function, but im working right now so it'll have to wait

im not gona guarantee it will work since im still just envisioning it but most of the people on this board will tell you I can come up with some pretty bizarre and impressive functions

Back to top

Profile PM Email

Pixelator

16

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 18th Jul 2009 02:21

Link

@ Comet

Thanks loads for the link, but it sounds like it will be a bit slow if i try calling it bunches of times in realtime. Also, i probably should have chosen a different title, because if i could keep it in the array life would be much better. Not sure what you mean by plain objects though, could you explain?

Everything is more than the sum of its parts.

Back to top

Profile PM Email

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 18th Jul 2009 02:38

Link

i havent read your first post thoroughly but im guessing hes saying make a 3d plain object and texture it with the image, then you can free rotate the plain

Back to top

Profile PM Email

Pixelator

16

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 18th Jul 2009 03:15

Link

Ok! i get the plain object thingey. Im wondering tho if thers a mathematical way of doing it though? or maybe im just being too picky

Everything is more than the sum of its parts.

Back to top

Profile PM Email

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 18th Jul 2009 03:31

Link

yeah i know theres a math way, gimme the rest of the day and ill whip you up a function to do that

Back to top

Profile PM Email

Pixelator

16

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 18th Jul 2009 05:02

Link

Thank you so much Smart guy!!! if i don't post again till tomorrow evening don't let your feelings be hurt,i have business early in the morning till late afternoon.

Everything is more than the sum of its parts.

Back to top

Profile PM Email

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 18th Jul 2009 05:23

Link

no problem, honestly im not gona guarantee ill get it finished 2nite, but I will try

Back to top

Profile PM Email

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 18th Jul 2009 06:31

Link

ok i have a plan on rotating it, but i wont be able to do it til 2moro afternoon, however im not sure how well it will work, we'll have to see

Back to top

Profile PM Email

TheComet

16

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 18th Jul 2009 11:21

Link

It's quite easy. Make the plain object exactly the size of the image. Let's say the sprite positions are 35,342 (sx=35,sy=342). To convert that to the 3D positions, do this:

+ Code Snippet

x=sx+(image_size_x/2)-320
y=240-(sy-(image_size_y/2))
z=400

position object <obj>,x,y,z
lock object on <obj>

Note this only works in a 640*480 display mode. You will have to multiply the positions by a certain amount for bigger or smaller displays.

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 18th Jul 2009 19:17

Link

A little diddy:

Rotate Images

Enjoy your day.

Back to top

Profile PM

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 18th Jul 2009 22:51

Link

i just skimmed through the first post of that thread latch and it sounds like youre essentially doing exactly what I had planned:

make a memblock fom the image

loop through all te image pixels and for each:
{
find the angle form the center of the image to that pixel

calculate the new angle based on the old

put a dot on an offscreen bitmap in the new position
}

find the furthest pixels left,up,right, and down from the center that have a colored pixel in them

get the image based on those pixels

Back to top

Profile PM Email

Pixelator

16

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 18th Jul 2009 23:52

Link

@ comet

Thanks for your help but using a plain object wouldn't integrate very easily with the rest of my program. Unfortunately i am guilty of ill naming this thread: rotating the data in an array would work best.

Having said that i think i can adapt what Smart guy explained to my program. The one thing i don't know how to do is get the angle from the center of the picture/array/whatever i end up using.

Everything is more than the sum of its parts.

Back to top

Profile PM Email

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 19th Jul 2009 00:05

Link

well from the image to get the angle I find it best to use the function:

atanfull(xdiff,ydiff)

which returns the angle between 2 points, you input the DIFFERENCE between their xs and ys coords and it outputs an angle

inputting 0 ,anything>0 will return an angle of 0 and inputting anything>0 ,0 (in that order) wil return 90

play around with the function to test it out

anyway to get your angle you need you need the image width and height (imgw and imgh) using either of these methods:

make a sprite of the image then use sprite width() and height()

or use make memblock from image memblocknum,imagenum along with get memblock dword(memnum,0) for the width and get memblock dword(memnum,4) for the height

once you have that data then fill in this formula to find the angle of te center and the point at px,py

angle=atanfull(px-(.5*imgw),py-(.5*imgh))

Back to top

Profile PM Email

Pixelator

16

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 19th Jul 2009 00:46

Link

Thanks Smartguy that should help loads!!!!

Everything is more than the sum of its parts.

Back to top

Profile PM Email

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 19th Jul 2009 01:32

Link

no prob

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Rotating images by less than 90 degrees