An Algorhithmic parallelogram shink effect problem.

Author

Message

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 12th Jun 2006 03:43

Link

Hi ,

I have a little problem.

I have one world map and I want to make one effect on the map.

I want to make concentric parallelogram on the map , but these
parallelograms , will shrink from outter to the destination x,y on the map.

But the destination of shrink effect will change if the x,y possition will change. (for example the mouse possition).

I have attached example to see what I mean.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 12th Jun 2006 06:27

Link

x1,y1,x2y2 defines the initial box (unzoomed).
x,y the point to zoom in on.

c = 50

xa# = x-x1
xb# = x2-x

xa# = xa#/c
xb# = xb#/c

Then in the zoom loop:

x1 = x1 + xa#
x2 = x2 - xb#

Same thing for Y. I think that'd work.

"Using Unix is the computing equivalent of listening only to music by David Cassidy" - Rob Pike

Back to top

Profile PM Email Website

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 12th Jun 2006 14:05

Link

I didn't understand well ,

I try to use this example ,

but

I dont have correct resaults yet.

I made this code , but is something wrong.

Where I put these lines?
-------------
xa# = x-x1
xb# = x2-x

xa# = xa#/c
xb# = xb#/c
-------------

My example code.

+ Code Snippet

sync on:sync rate 60

set display mode 800,600,32

load image "d:\future3\map30.bmp",1

global x1,y1,x2,y2,c,xa,xb
global xa as float,xb as float
global zoomdelay

x1=10
y1=170
x2=780
y2=425


do
cls
paste image 1,0,160

if mouseclick()
x1=10
y1=170
x2=780
y2=425

xa = x-x1
xb = x2-x
xa = xa/100
xb = xb/100

ya = y-y1
yb = y2-y
ya = ya/100
yb = yb/100

x=mousex()
y=mousey()
`zoom(10,170,780,425)

endif



`zoom(x1,y1,x2,y2)

inc zoomdelay,1
if zoomdelay>5

   if xa<x or ya<y

   x1 = x1 + xa
   x2 = x2 - xb
   y1 = y1 + xa
   y2 = y2 - xb
   endif
zoomdelay=0
endif
zoom(x1,y1,x2,y2)

`zoom(xa,yb,xa,yb)



text 0,470,"x:"+str$(mousex())
text 0,480,"y:"+str$(mousey())



sync
loop

function zoom(x1,y1,x2,y2)

ink rgb(255,0,0),rgb(255,0,0)
line x1,y1,x2,y1
line x2,y1,x2,y2
line x2,y2,x1,y2
line x1,y2,x1,y1


endfunction

The map image is attached.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 12th Jun 2006 14:56

Link

Then I made something more interest with this code.

+ Code Snippet

sync on:sync rate 60

set display mode 800,600,32

load image "d:\future3\map30.bmp",1

global x1,y1,x2,y2,c,xa,xb
global xa as float,xb as float
global zoomdelay

x1=10
y1=170
x2=780
y2=425


x=mousex()
y=mousey()

do
cls
paste image 1,0,160

if mouseclick()
x1=10
y1=170
x2=780
y2=425


x=mousex()
y=mousey()

endif

inc zoomdelay,1
if zoomdelay>4

xa# = x-x1
xb# = x2-x
xa# = xa#/10
xb# = xb#/10

x1 = x1 + xa#
x2 = x2 - xb#


ya# = y-y1
yb# = y2-y
ya# = ya#/10
yb# = yb#/10

y1 = y1 + ya#
y2 = y2 - yb#

zoomdelay=0
endif
zoom(x1,y1,x2,y2)


text 0,470,"x:"+str$(mousex())
text 0,480,"y:"+str$(mousey())



sync
loop

function zoom(x1,y1,x2,y2)

ink rgb(255,0,0),rgb(255,0,0)
line x1,y1,x2,y1
line x2,y1,x2,y2
line x2,y2,x1,y2
line x1,y2,x1,y1

endfunction

I am very close.
The only thing that left , the destination square must be in the
center of the mouse direction in zoom in.

Back to top

Profile PM Email Website

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 12th Jun 2006 15:37 Edited at: 13th Jun 2006 20:01

Link

I did something better.

Thank you very very much.

You solved me, the problem about zoom in the map.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 12th Jun 2006 23:00

Link

Here's an actual example. (had to use floats, integers were throwing off the precision)

+ Code Snippet

c# = 100



sync on
sync rate 30


do
   cls

   if mouseclick() = 1 and flag = 0
      flag = 1
      x1# = 0
      y1# = 0
      x2# = 640
      y2# = 480

      x = mousex()
      y = mousey()

      xa# = x-x1#
      xb# = x2#-x

      xa# = xa#/c#
      xb# = xb#/c#

      ya# = y-y1#
      yb# = y2#-y

      ya# = ya#/c#
      yb# = yb#/c#

      shrink = 1
   endif

   if mouseclick() = 0 then flag = 0


   if shrink = 1
      x1# = x1# + xa#
      x2# = x2# - xb#

      y1# = y1# + ya#
      y2# = y2# - yb#

      if x1# = x2# or x1# > x2#
         shrink = 0
      else
         drawBox(x1#,y1#,x2#,y2#)
         `line 0,y1#,640,y1#
         `line 0,y2#,640,y2#
         `line x1#,0,x1#,480
         `line x2#,0,x2#,480
      endif
   endif


   sync
loop



function drawBox(x1#,y1#,x2#,y2#)
   line x1#,y1#,x2#,y1#
   line x1#,y1#,x1#,y2#
   line x2#,y1#,x2#,y2#
   line x1#,y2#,x2#,y2#
endfunction

"Using Unix is the computing equivalent of listening only to music by David Cassidy" - Rob Pike

Back to top

Profile PM Email Website

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 13th Jun 2006 19:56

Link

Thank you very much again.

And This one is very very usefull.

I will put is in my Game.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / An Algorhithmic parallelogram shink effect problem.

Attachments

Attachments