Converting a plain or plane into a sphere

Author

Message

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 16th Apr 2014 08:18

Link

Now before you go off and tell me to search the forums - I will tell you that I did, and that I have also wiki'd as well. No threads related to my search of planar sphere, sphere, sphere mapping and so on - came up or were of any information valuable to what I am doing... so here is what I have.

coincidentally, if you use this to attain the uv coordinates, you can use this to sphere map...

Rem Project: Weather Sim
Rem Created: Friday, April 11, 2014

Rem ***** Main Source File *****
SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
AUTOCAM OFF : SYNC ON : SYNC RATE 0

r=10
sphW=10
sphH=10
sphD=10
Rad=20

//LOAD IMAGE "test2.png", 1, 1

make_hem(1, 2, 100, 10)

position camera 0,0,0

do
mouse_control(1.0)
sync
loop

sync

`functions start here
FUNCTION mouse_control(speed AS FLOAT)
    if mouseclick()=2
    XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
    YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
    endif
    dummy=MOUSEMOVEX()
    dummy=MOUSEMOVEY()
    IF UPKEY()=1 THEN MOVE CAMERA speed
    IF DOWNKEY()=1 THEN MOVE CAMERA (0-speed)
Newmousez = MousemoveZ()
    If oldmousez <> newmousez
    
        If oldmousez < newmousez
        mousezz=speed*5
        endif
        
        If oldmousez > newmousez
        mousezz=-speed*5
        endif
        MOVE CAMERA mousezz
Oldmousez=Mousemovez()
Mousezz=0
endif
ENDFUNCTION

function make_hem(hem1, hem2, segxy, Radius)
MAKE OBJECT plain hem1, 360, 360, segXY, segxy
//MAKE OBJECT PLANE hem2, 360, 360, segXY, segxy
SET OBJECT WIREFRAME hem1, 1

LOCK VERTEXDATA FOR LIMB hem1, 0
VertCount=GET VERTEXDATA VERTEX COUNT()

for A=0 to vertcount-1

X#= GET VERTEXDATA POSITION X(A)    
Y#= GET VERTEXDATA POSITION Y(A)
Z#= GET VERTEXDATA POSITION Z(A)

//NewX#=X#-OBJECT POSITION X(hem1)^2
//NewY#=Y#-OBJECT POSITION Y(hem1)^2
//NewZ#=Z#-OBJECT POSITION Z(hem1)^2

//Answer#=sqrt((X#-OBJECT POSITION X(hem1))^2+(Y#-OBJECT POSITION Y(hem1))^2+(Z#-OBJECT POSITION Z(hem1))^2)

//Answer$=str$(int(Answer#))

RX# = Radius*Answer# * cos(-Answer#) * sin(Answer#)
RY# = Radius*Answer# * sin(Answer#) * sin(Answer#)
RZ# = Radius*Answer# * cos(Answer#)

NewX#=Radius*cos(X#-OBJECT POSITION X(hem1)^2) * sin(X#-OBJECT POSITION X(hem1)^2)
NewY#=Radius*sin(Y#-OBJECT POSITION Y(hem1)^2) * sin(Y#-OBJECT POSITION Y(hem1)^2)
NewZ#=Radius*cos(Z#-OBJECT POSITION Z(hem1)^2)

SET VERTEXDATA POSITION A, NewX#, NewY#, NewZ#

next a

UNLOCK VERTEXDATA

ENDFUNCTION

+ Code Snippet

Rem Project: Weather Sim
Rem Created: Friday, April 11, 2014

Rem ***** Main Source File *****
SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
AUTOCAM OFF : SYNC ON : SYNC RATE 0



r=10
sphW=10
sphH=10
sphD=10
Rad=20

//LOAD IMAGE "test2.png", 1, 1

make_hem(1, 2, 100, 10)



position camera 0,0,0

do
mouse_control(1.0)
sync
loop

sync


`functions start here
FUNCTION mouse_control(speed AS FLOAT)
    if mouseclick()=2
    XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
    YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
    endif
    dummy=MOUSEMOVEX()
    dummy=MOUSEMOVEY()
    IF UPKEY()=1 THEN MOVE CAMERA speed
    IF DOWNKEY()=1 THEN MOVE CAMERA (0-speed)
Newmousez = MousemoveZ()
    If oldmousez <> newmousez
    
        If oldmousez < newmousez
        mousezz=speed*5
        endif
        
        If oldmousez > newmousez
        mousezz=-speed*5
        endif
        MOVE CAMERA mousezz
Oldmousez=Mousemovez()
Mousezz=0
endif
ENDFUNCTION

function make_hem(hem1, hem2, segxy, Radius)
MAKE OBJECT plain hem1, 360, 360, segXY, segxy
//MAKE OBJECT PLANE hem2, 360, 360, segXY, segxy
SET OBJECT WIREFRAME hem1, 1

LOCK VERTEXDATA FOR LIMB hem1, 0
VertCount=GET VERTEXDATA VERTEX COUNT()

for A=0 to vertcount-1

X#= GET VERTEXDATA POSITION X(A)    
Y#= GET VERTEXDATA POSITION Y(A)
Z#= GET VERTEXDATA POSITION Z(A)

//NewX#=X#-OBJECT POSITION X(hem1)^2
//NewY#=Y#-OBJECT POSITION Y(hem1)^2
//NewZ#=Z#-OBJECT POSITION Z(hem1)^2

//Answer#=sqrt((X#-OBJECT POSITION X(hem1))^2+(Y#-OBJECT POSITION Y(hem1))^2+(Z#-OBJECT POSITION Z(hem1))^2)

//Answer$=str$(int(Answer#))

RX# = Radius*Answer# * cos(-Answer#) * sin(Answer#)
RY# = Radius*Answer# * sin(Answer#) * sin(Answer#)
RZ# = Radius*Answer# * cos(Answer#)

NewX#=Radius*cos(X#-OBJECT POSITION X(hem1)^2) * sin(X#-OBJECT POSITION X(hem1)^2)
NewY#=Radius*sin(Y#-OBJECT POSITION Y(hem1)^2) * sin(Y#-OBJECT POSITION Y(hem1)^2)
NewZ#=Radius*cos(Z#-OBJECT POSITION Z(hem1)^2)


SET VERTEXDATA POSITION A, NewX#, NewY#, NewZ#

next a

UNLOCK VERTEXDATA

ENDFUNCTION

I am trying to convert a plane/plain into a sphere... then enter planes/plains in each segment to create various levels of detail. I seem to recall a newsletter way back that did this using matrices. I would like to do this with planes/plains for use with shaders that I wrote myself.

What am I doing wrong?

I see a lil' byte, its 1/4th a dword, Double float, Double float - but it doesnt beat a Global. Very very frightning, integers dividing me! Look a constant oh a constant. Oh-oh I just want the byte!

Back to top

Profile PM Email Website

Barry Pythagoras

12

Years of Service

User Offline

Joined: 14th Mar 2014

Location:

Posted: 16th Apr 2014 10:31 Edited at: 16th Apr 2014 11:13

Link

I don't know why your object is still flat, but I changed the program to make it easier to see, because I couldn't even find it at first.

Rem Project: Weather Sim
Rem Created: Friday, April 11, 2014

Rem ***** Main Source File *****
SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 60
set text opaque
color backdrop 0

r=10
sphW=10
sphH=10
sphD=10
Rad=20

LOAD IMAGE "test2.png", 1, 1

make_hem(1, 2, 100, 10)

position camera object position x(1),object position y(1)+10,object position z(1)-11
color object 1,rgb(255,0,0)
do
text 10,10, "X" + str$(camera position x())+" Y" + str$(camera position y()) + " Z" + str$(camera position z())
mouse_control(1.0)

point camera object position x(1),object position y(1),object position z(1)
sync
loop

sync

`functions start here
FUNCTION mouse_control(speed AS FLOAT)
    if mouseclick()=2
    XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
    YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
    endif
    dummy=MOUSEMOVEX()
    dummy=MOUSEMOVEY()
    IF UPKEY()=1 THEN MOVE CAMERA speed
    IF DOWNKEY()=1 THEN MOVE CAMERA (0-speed)
Newmousez = MousemoveZ()
    If oldmousez <> newmousez

If oldmousez < newmousez
        mousezz=speed*5
        endif

If oldmousez > newmousez
        mousezz=-speed*5
        endif
        MOVE CAMERA mousezz
Oldmousez=Mousemovez()
Mousezz=0
endif
ENDFUNCTION

function make_hem(hem1, hem2, segxy, Radius)
MAKE OBJECT plain hem1, 360, 360, segXY, segxy
`MAKE OBJECT PLANE hem2, 360, 360, segXY, segxy
SET OBJECT WIREFRAME hem1, 1

LOCK VERTEXDATA FOR LIMB hem1, 0
VertCount=GET VERTEXDATA VERTEX COUNT()

for A=0 to vertcount-1

X#= GET VERTEXDATA POSITION X(A)
Y#= GET VERTEXDATA POSITION Y(A)
Z#= GET VERTEXDATA POSITION Z(A)

NewX#=X#-OBJECT POSITION X(hem1)^2
NewY#=Y#-OBJECT POSITION Y(hem1)^2
NewZ#=Z#-OBJECT POSITION Z(hem1)^2

Answer#=sqrt((X#-OBJECT POSITION X(hem1))^2+(Y#-OBJECT POSITION Y(hem1))^2+(Z#-OBJECT POSITION Z(hem1))^2)

Answer$=str$(int(Answer#))

RX# = Radius*Answer# * cos(-Answer#) * sin(Answer#)
RY# = Radius*Answer# * sin(Answer#) * sin(Answer#)
RZ# = Radius*Answer# * cos(Answer#)

NewX#=Radius*cos(X#-OBJECT POSITION X(hem1)^2) * sin(X#-OBJECT POSITION X(hem1)^2)
NewY#=Radius*sin(Y#-OBJECT POSITION Y(hem1)^2) * sin(Y#-OBJECT POSITION Y(hem1)^2)
NewZ#=Radius*cos(Z#-OBJECT POSITION Z(hem1)^2)

SET VERTEXDATA POSITION A, NewX#, NewY#, NewZ#

next a

UNLOCK VERTEXDATA

ENDFUNCTION

+ Code Snippet

Rem Project: Weather Sim
Rem Created: Friday, April 11, 2014

Rem ***** Main Source File *****
SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 60
set text opaque
color backdrop 0

r=10
sphW=10
sphH=10
sphD=10
Rad=20

LOAD IMAGE "test2.png", 1, 1

make_hem(1, 2, 100, 10)



position camera object position x(1),object position y(1)+10,object position z(1)-11
color object 1,rgb(255,0,0)
do
text 10,10, "X" + str$(camera position x())+" Y" + str$(camera position y()) + " Z" + str$(camera position z())
mouse_control(1.0)

point camera object position x(1),object position y(1),object position z(1)
sync
loop

sync


`functions start here
FUNCTION mouse_control(speed AS FLOAT)
    if mouseclick()=2
    XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
    YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
    endif
    dummy=MOUSEMOVEX()
    dummy=MOUSEMOVEY()
    IF UPKEY()=1 THEN MOVE CAMERA speed
    IF DOWNKEY()=1 THEN MOVE CAMERA (0-speed)
Newmousez = MousemoveZ()
    If oldmousez <> newmousez

        If oldmousez < newmousez
        mousezz=speed*5
        endif

        If oldmousez > newmousez
        mousezz=-speed*5
        endif
        MOVE CAMERA mousezz
Oldmousez=Mousemovez()
Mousezz=0
endif
ENDFUNCTION

function make_hem(hem1, hem2, segxy, Radius)
MAKE OBJECT plain hem1, 360, 360, segXY, segxy
`MAKE OBJECT PLANE hem2, 360, 360, segXY, segxy
SET OBJECT WIREFRAME hem1, 1

LOCK VERTEXDATA FOR LIMB hem1, 0
VertCount=GET VERTEXDATA VERTEX COUNT()

for A=0 to vertcount-1

X#= GET VERTEXDATA POSITION X(A)
Y#= GET VERTEXDATA POSITION Y(A)
Z#= GET VERTEXDATA POSITION Z(A)

NewX#=X#-OBJECT POSITION X(hem1)^2
NewY#=Y#-OBJECT POSITION Y(hem1)^2
NewZ#=Z#-OBJECT POSITION Z(hem1)^2

Answer#=sqrt((X#-OBJECT POSITION X(hem1))^2+(Y#-OBJECT POSITION Y(hem1))^2+(Z#-OBJECT POSITION Z(hem1))^2)

Answer$=str$(int(Answer#))

RX# = Radius*Answer# * cos(-Answer#) * sin(Answer#)
RY# = Radius*Answer# * sin(Answer#) * sin(Answer#)
RZ# = Radius*Answer# * cos(Answer#)

NewX#=Radius*cos(X#-OBJECT POSITION X(hem1)^2) * sin(X#-OBJECT POSITION X(hem1)^2)
NewY#=Radius*sin(Y#-OBJECT POSITION Y(hem1)^2) * sin(Y#-OBJECT POSITION Y(hem1)^2)
NewZ#=Radius*cos(Z#-OBJECT POSITION Z(hem1)^2)


SET VERTEXDATA POSITION A, NewX#, NewY#, NewZ#

next a

UNLOCK VERTEXDATA

ENDFUNCTION

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 16th Apr 2014 12:16

Link

This example is made with six plains (something like a box). You could add four or nine plains per face to make a big map.

ink rgb(255,255,0),0
box 0,0,100,100
ink rgb(255,0,0),0
box 5,5,95,95
ink rgb(255,255,0),0
box 20,20,80,80
ink rgb(255,0,0),0
get image 1,0,0,100,100,0

autocam off
sync on
make light 1:position light 1,-100,-100,0

rem six plains for the entire sphere
for i= 1 to 6
   make object plain i,30,30,30,30
   texture object i,1
   set object wireframe i,1
   set object light i,0
   set object cull i,0
next i

rem forming a box
position object 1,0,30,0
xrotate object 6,180
xrotate object 2,90:position object 2,0,15,15
xrotate object 3,-90:position object 3,0,15,-15
zrotate object 4,90:position object 4,-15,15,0
zrotate object 5,-90:position object 5,15,15,0

rem object 20 and 21 to make the trick....we force the box to point to the sphere and then move the box
rem to rise every vertex of the plains
make object sphere 20,2
position object 20,0,15,0
make object box 21,1,1,1
x=object position x(20)
y=object position y(20)
z=object position z(20)

for ob= 1 to 6
lock vertexdata for limb ob,0
vert=get vertexdata vertex count()
for i=0 to vert-1
          x#=get vertexdata position x(i)
          y#=get vertexdata position y(i)
          z#=get vertexdata position z(i)
          position object 21,x,y,z
          point object 21,x#,y#,z#
          move object 21,-30

lx#=object position x(21)
          ly#=object position y(21)
          lz#=object position z(21)
          set vertexdata position i,lx#,ly#,lz#
next i
unlock vertexdata
next ob

for i= 1 to 6
  move object up i,-30
next i

position camera -60,60,-60
point camera 0,0,0
do
set cursor 0,0
print "Press spacekey"

mv#=0.03
if spacekey()
   for i= 1 to 6
      move object up i,mv#
   next i
   else
   for i= 1 to 6
     position object i,0,0,0
     move object up i,-15
   next i
endif

`camera control.
control camera using arrowkeys 0,0.1,0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.1
if rightkey() then move camera right 0.1

sync
loop

+ Code Snippet

ink rgb(255,255,0),0
box 0,0,100,100
ink rgb(255,0,0),0
box 5,5,95,95
ink rgb(255,255,0),0
box 20,20,80,80
ink rgb(255,0,0),0
get image 1,0,0,100,100,0

autocam off
sync on
make light 1:position light 1,-100,-100,0

rem six plains for the entire sphere
for i= 1 to 6
   make object plain i,30,30,30,30
   texture object i,1
   set object wireframe i,1
   set object light i,0
   set object cull i,0
next i

rem forming a box
position object 1,0,30,0
xrotate object 6,180
xrotate object 2,90:position object 2,0,15,15
xrotate object 3,-90:position object 3,0,15,-15
zrotate object 4,90:position object 4,-15,15,0
zrotate object 5,-90:position object 5,15,15,0

rem object 20 and 21 to make the trick....we force the box to point to the sphere and then move the box
rem to rise every vertex of the plains
make object sphere 20,2
position object 20,0,15,0
make object box 21,1,1,1
x=object position x(20)
y=object position y(20)
z=object position z(20)

for ob= 1 to 6
lock vertexdata for limb ob,0
vert=get vertexdata vertex count()
for i=0 to vert-1
          x#=get vertexdata position x(i)
          y#=get vertexdata position y(i)
          z#=get vertexdata position z(i)
          position object 21,x,y,z
          point object 21,x#,y#,z#
          move object 21,-30

          lx#=object position x(21)
          ly#=object position y(21)
          lz#=object position z(21)
          set vertexdata position i,lx#,ly#,lz#
next i
unlock vertexdata
next ob

for i= 1 to 6
  move object up i,-30
next i

position camera -60,60,-60
point camera 0,0,0
do
set cursor 0,0
print "Press spacekey"

mv#=0.03
if spacekey()
   for i= 1 to 6
      move object up i,mv#
   next i
   else
   for i= 1 to 6
     position object i,0,0,0
     move object up i,-15
   next i
endif

`camera control.
control camera using arrowkeys 0,0.1,0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.1
if rightkey() then move camera right 0.1

sync
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 16th Apr 2014 20:56

Link

Okay, this is very neat and a help. But to clarify, of the code I posted, I want the vertex scaling that occurs at the edges to be 'less' prominent and occur in the center of 1 plane. Then wrap the plane into a sphere. From there, I will make planes and do (kind of what you did) the proper rotations based on their angle and distance from the top, bottom and depth.

I see a lil' byte, its 1/4th a dword, Double float, Double float - but it doesnt beat a Global. Very very frightning, integers dividing me! Look a constant oh a constant. Oh-oh I just want the byte!

Back to top

Profile PM Email Website

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 18th Apr 2014 11:41

Link

Sorry for the double post - the error is surrounding the A=... for loop. Here's an "EASTER EGG" Design, just in time!

Rem Project: Weather Sim
Rem Created: Friday, April 11, 2014

Rem ***** Main Source File *****
SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 60
set text opaque
color backdrop 0

r=10
sphW=10
sphH=10
sphD=10
Rad=20

make_hem(1, 2, 100, 10)

position camera object position x(1),object position y(1)+10,object position z(1)-11
POINT CAMERA OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)
`texture object 1,1
do
text 10,10, "X" + str$(camera position x())+" Y" + str$(camera position y()) + " Z" + str$(camera position z())
text 10, 25, STR$(MouseX())+" ,"+Str$(mouseY())+" - Screen Dem. : "+Str$(SCREEN WIDTH())+", "+Str$(SCREEN HEIGHT())
mouse_control(1.0)

sync
loop
sync

`functions start here
FUNCTION mouse_control(speed AS FLOAT)
    if mouseclick()=2
    XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
    YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
    endif
    dummy=MOUSEMOVEX()
    dummy=MOUSEMOVEY()
    IF UPKEY()=1 THEN MOVE CAMERA speed
    IF DOWNKEY()=1 THEN MOVE CAMERA (0-speed)
Newmousez = MousemoveZ()
    If oldmousez <> newmousez

If oldmousez < newmousez
        mousezz=speed*5
        endif

If oldmousez > newmousez
        mousezz=-speed*5
        endif
        MOVE CAMERA mousezz
Oldmousez=Mousemovez()
Mousezz=0
endif

W=SCREEN WIDTH()
H=SCREEN HEIGHT()
MoX=MouseX()
MoY=MouseY()
RealCursX=wrap(MoX, 1, W-2)
RealCursY=wrap(MoY, 1, H-2)
POSITION MOUSE realcursX, realcursY
ENDFUNCTION

function make_hem(hem1, hem2, segxy, Radius)
MAKE OBJECT plain hem1, 360, 360, segXY, segxy,274
`MAKE OBJECT PLANE hem2, 360, 360, segXY, segxy
SET OBJECT WIREFRAME hem1, 1
LOCK VERTEXDATA FOR LIMB hem1, 0
VertCount=GET VERTEXDATA VERTEX COUNT()

for A=0 to vertcount-1

X#= GET VERTEXDATA POSITION X(A)
Y#= GET VERTEXDATA POSITION Y(A)
Z#= GET VERTEXDATA POSITION Z(A)

NewX#=X#-OBJECT POSITION X(hem1)
NewY#=Y#-OBJECT POSITION Y(hem1)
NewZ#=Z#-OBJECT POSITION Z(hem1)

Answer#=sqrt((X#-OBJECT POSITION X(hem1))^2+(Y#-OBJECT POSITION Y(hem1))^2+(Z#-OBJECT POSITION Z(hem1))^2)
Answer$=str$(int(Answer#))
AnswerB#=(Answer#*0.5)-Answer#

RX# = Radius*newX#*sin(AnswerB#) * cos(answer#)
RY# = Radius*newY# * sin(AnswerB#) * sin(Answer#)+Radius/Answer#

if RY# =>0 or RY#<0
    if RY#>1 then SET VERTEXDATA DIFFUSE A, RGB(0,80,255)
    if RY<-1 then SET VERTEXDATA DIFFUSE A, RGB(255,80,0)
ENDIF

RZ# = Radius*newZ# * cos(Answer#)

SET VERTEXDATA POSITION A, RX#, RY#, RZ#
next a
UNLOCK VERTEXDATA

ENDFUNCTION

+ Code Snippet

Rem Project: Weather Sim
Rem Created: Friday, April 11, 2014

Rem ***** Main Source File *****
SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 60
set text opaque
color backdrop 0

r=10
sphW=10
sphH=10
sphD=10
Rad=20

make_hem(1, 2, 100, 10)

position camera object position x(1),object position y(1)+10,object position z(1)-11
POINT CAMERA OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)
`texture object 1,1
do
text 10,10, "X" + str$(camera position x())+" Y" + str$(camera position y()) + " Z" + str$(camera position z())
text 10, 25, STR$(MouseX())+" ,"+Str$(mouseY())+" - Screen Dem. : "+Str$(SCREEN WIDTH())+", "+Str$(SCREEN HEIGHT())
mouse_control(1.0)

sync
loop
sync

`functions start here
FUNCTION mouse_control(speed AS FLOAT)
    if mouseclick()=2
    XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
    YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
    endif
    dummy=MOUSEMOVEX()
    dummy=MOUSEMOVEY()
    IF UPKEY()=1 THEN MOVE CAMERA speed
    IF DOWNKEY()=1 THEN MOVE CAMERA (0-speed)
Newmousez = MousemoveZ()
    If oldmousez <> newmousez

        If oldmousez < newmousez
        mousezz=speed*5
        endif

        If oldmousez > newmousez
        mousezz=-speed*5
        endif
        MOVE CAMERA mousezz
Oldmousez=Mousemovez()
Mousezz=0
endif

W=SCREEN WIDTH()
H=SCREEN HEIGHT()
MoX=MouseX()
MoY=MouseY()
RealCursX=wrap(MoX, 1, W-2)
RealCursY=wrap(MoY, 1, H-2)
POSITION MOUSE realcursX, realcursY
ENDFUNCTION

function make_hem(hem1, hem2, segxy, Radius)
MAKE OBJECT plain hem1, 360, 360, segXY, segxy,274
`MAKE OBJECT PLANE hem2, 360, 360, segXY, segxy
SET OBJECT WIREFRAME hem1, 1
LOCK VERTEXDATA FOR LIMB hem1, 0
VertCount=GET VERTEXDATA VERTEX COUNT()

for A=0 to vertcount-1

X#= GET VERTEXDATA POSITION X(A)
Y#= GET VERTEXDATA POSITION Y(A)
Z#= GET VERTEXDATA POSITION Z(A)

NewX#=X#-OBJECT POSITION X(hem1)
NewY#=Y#-OBJECT POSITION Y(hem1)
NewZ#=Z#-OBJECT POSITION Z(hem1)

Answer#=sqrt((X#-OBJECT POSITION X(hem1))^2+(Y#-OBJECT POSITION Y(hem1))^2+(Z#-OBJECT POSITION Z(hem1))^2)
Answer$=str$(int(Answer#))
AnswerB#=(Answer#*0.5)-Answer#

RX# = Radius*newX#*sin(AnswerB#) * cos(answer#)
RY# = Radius*newY# * sin(AnswerB#) * sin(Answer#)+Radius/Answer#

if RY# =>0 or RY#<0
    if RY#>1 then SET VERTEXDATA DIFFUSE A, RGB(0,80,255)
    if RY<-1 then SET VERTEXDATA DIFFUSE A, RGB(255,80,0)
ENDIF

RZ# = Radius*newZ# * cos(Answer#)

SET VERTEXDATA POSITION A, RX#, RY#, RZ#
next a
UNLOCK VERTEXDATA

ENDFUNCTION

I see a lil' byte, its 1/4th a dword, Double float, Double float - but it doesnt beat a Global. Very very frightning, integers dividing me! Look a constant oh a constant. Oh-oh I just want the byte!

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 18th Apr 2014 19:46

Link

Quote: " Here's an "EASTER EGG""

it is just flat...what are you trying to achieve ?

I'm not a grumpy grandpa

Back to top

Profile PM Email

Barry Pythagoras

12

Years of Service

User Offline

Joined: 14th Mar 2014

Location:

Posted: 18th Apr 2014 21:17

Link

It melted!

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Converting a plain or plane into a sphere