TheGameCreators - CodeBase - chain a quadratic curve bezier many times

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 23rd May 2012 09:20

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

chain a quadratic curve bezier many times

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem make a vettor with 2d points

dim vettore(13,2)

x=1

y=2

nPunti=5

rem add 5 points

vettore(1,x)=100

vettore(1,y)=250

vettore(3,x)=200

vettore(3,y)=350

vettore(5,x)=300

vettore(5,y)=250

vettore(7,x)=400

vettore(7,y)=350

vettore(9,x)=500

vettore(9,y)=250

rem calcola i punti intermedi

sistema_vettore(nPunti)

sync on : sync rate 60

tempo=0

repeat

if tempo<(nPunti-1)*100

tempo=tempo+1

else

tempo=0

endif

rem pulisci lo schermo

cls

rem disegna prima i punti secondari cosÃ¬ che vengano in secondo piano

ink rgb(250,250,0),0

for t=0 to nPunti-1

circle vettore(t*2,x),vettore(t*2,y), 2

next t

rem disegna i 4 punti chiave

ink rgb(250,0,0),0

for t=0 to nPunti-1

circle vettore(t*2+1,x),vettore(t*2+1,y), 2

next t

if inkey$()="1"

vettore(1,x)=mousex()

vettore(1,y)=mousey()

sistema_vettore(nPunti)

endif

if inkey$()="2"

vettore(3,x)=mousex()

vettore(3,y)=mousey()

sistema_vettore(nPunti)

endif

if inkey$()="3"

vettore(5,x)=mousex()

vettore(5,y)=mousey()

sistema_vettore(nPunti)

endif

if inkey$()="4"

vettore(7,x)=mousex()

vettore(7,y)=mousey()

sistema_vettore(nPunti)

endif

if inkey$()="5"

vettore(9,x)=mousex()

vettore(9,y)=mousey()

sistema_vettore(nPunti)

endif

rem disegna

ink rgb(250,250,250),0

print "press a number from 1 to 5 to move red points in the screen"

print "red = fixed points"

print "yellow = calculated points"

disegna_frame_vettore(tempo)

sync

until escapekey()=1

end

function graduale(a,b,perc)

ris= ( a*(100-perc) + b*perc ) / 100

endfunction ris

function triangolo_bezier_x(ax,ay, bx,by, cx,cy, perc)

ris=graduale( graduale(ax,cx,perc), graduale(cx,bx,perc), perc)

endfunction ris

function triangolo_bezier_y(ax,ay, bx,by, cx,cy, perc)

ris=graduale( graduale(ay,cy,perc), graduale(cy,by,perc), perc)

endfunction ris

function sistema_vettore(nPunti)

x=1

y=2

rem il secondo punto Ã¨ la media aritmetica tra il primo e il terzo punto

vettore(2,x)=vettore(1,x)

vettore(2,y)=vettore(1,y)

for numero_indice=1 to nPunti-2

rem ottieni x e y

ax=vettore(numero_indice*2,x)

ay=vettore(numero_indice*2,y)

bx=vettore(numero_indice*2+1,x)

by=vettore(numero_indice*2+1,y)

cx=vettore(numero_indice*2+3,x)

cy=vettore(numero_indice*2+3,y)

rem calcola la distanza tra il punto e il successivo

lung=sqrt( (ax-bx)^2+(ay-by)^2 )

rem calcola la distanza tra i punti successivi

lung2=sqrt( (ax-bx)^2+(ay-by)^2 )

rem calcola la posizione del punto nuovo

vettore(numero_indice*2+2,x)=bx +(sqrt( 1.0 - ((ax-bx)/(1.0*lung^2)) )* (lung2/4.0) * (bx-ax)/abs(bx-ax))

vettore(numero_indice*2+2,y)=by +(sqrt( 1.0 - ((ay-by)/(1.0*lung^2)) )* (lung2/4.0) * (by-ay)/abs(by-ay))

next numero_indice

endfunction

function disegna_frame_vettore(tempo)

x=1

y=2

numero_indice=(int(tempo/100)*2)+1

ax=vettore(numero_indice,x)

ay=vettore(numero_indice,y)

bx=vettore(numero_indice+2,x)

by=vettore(numero_indice+2,y)

cx=vettore(numero_indice+1,x)

cy=vettore(numero_indice+1,y)

posx=triangolo_bezier_x(ax,ay, bx,by, cx,cy, tempo-(int(tempo/100)*100) )

posy=triangolo_bezier_y(ax,ay, bx,by, cx,cy, tempo-(int(tempo/100)*100) )

circle posx,posy,4

print "speed X : ";

for t=1 to abs(posx-triangolo_bezier_x(ax,ay, bx,by, cx,cy, (tempo-1)-(int(tempo/100)*100) ))

print "|";

next t

print ""

print "speed Y : ";

for t=1 to abs(posy-triangolo_bezier_y(ax,ay, bx,by, cx,cy, (tempo-1)-(int(tempo/100)*100) ))

CodeBase - chain a quadratic curve bezier many times

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1