Using Sin() and Cos() and I'm lost

Author

Message

Fresser

19

Years of Service

User Offline

Joined: 16th Aug 2006

Location:

Posted: 10th Jun 2011 04:25

Link

sync on
sync rate 60
phy start

for x = 1 to 12
 load object "arrow.x",x
next x
for t = 13 to 39
 make object cube t,1
next t
position object 1,-2,-1,-1.5
position object 2,-2,0,-1.5
position object 3,-2,1,-1.5
scale object 10,200,200,100 : position object 10,-3.5,0,-1.5
position object 4,2,1.5,-1 : rotate object 4,90,0,180
position object 5,2,1.5,0 : rotate object 5,90,0,180
position object 6,2,1.5,1 : rotate object 6,90,0,180
scale object 11,200,200,100 : position object 11,3.5,1.5,0 : rotate object 11,90,0,180
position object 7,-1,-1.5,-2 : rotate object 7,-90,-90,0
position object 8,0,-1.5,-2 : rotate object 8,-90,-90,0
position object 9,1,-1.5,-2 : rotate object 9,-90,-90,0
scale object 12,200,200,100 : position object 12,0,-1.5,-3.5 : rotate object 12,-90,-90,0
for f=1 to 12 : fix object pivot f : next f

position object 13,-1,-1,-1 : position object 14,0,-1,-1 : position object 15,1,-1,-1
position object 16,-1,0,-1 : position object 17,0,0,-1 : position object 18,1,0,-1
position object 19,-1,1,-1 : position object 20,0,1,-1 : position object 21,1,1,-1
//
position object 22,-1,-1,0 : position object 23,0,-1,0 : position object 24,1,-1,0
position object 25,-1,0,0 : position object 26,0,0,0 : position object 27,1,0,0
position object 28,-1,1,0 : position object 29,0,1,0 : position object 30,1,1,0
//
position object 31,-1,-1,1 : position object 32,0,-1,1 : position object 33,1,-1,1
position object 34,-1,0,1 : position object 35,0,0,1 : position object 36,1,0,1
position object 37,-1,1,1 : position object 38,0,1,1 : position object 39,1,1,1

do
 sync
 phy update
 position camera 3,5,-5
 point camera 0,0,0
 pi = pick object(mousex(),mousey(),1,12)
 set cursor 0,0 : print pi

if mouseclick()=2
  if pi=1 OR pi=2 OR pi=3 OR pi=10
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
  if pi=4 OR pi=5 OR pi=6 OR pi=11
   rotate object pi,0,0,wrapvalue(object angle z(pi)+180)
   wait 250
  endif
  if pi=7 OR pi=8 OR pi=9 OR pi=12
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
 endif
 
 if spacekey()=1 then TopSpin(1)
loop

FUNCTION TopSpin(d)
 for block = 13 to 39
  if object position y(block)= 1
   if object position x(block) = -1
    if object position z(block) = -1 then h = block 
     if object position z(block) = 0 then i = block
      if object position z(block) = 1 then j = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then k = block
     if object position z(block) = 0 then l = block
      if object position z(block) = -1 then m = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then n = block
     if object position z(block) = 0 then o = block
      if object position z(block) = -1 then p = block
   endif
  endif
 next block
  color object k,rgb(255,0,0)
 repeat
  sync
  yrotate object l,wrapvalue(object angle y(l)+d)
  position object i,-cos(object angle y(l)),1,sin(object angle y(l))
   yrotate object i,object angle y(l)
  position object o,cos(object angle y(l)),1,-sin(object angle y(l))
   yrotate object o,object angle y(l)
  position object k,-sin(object angle y(l)),1,-cos(object angle y(l))
   yrotate object k,object angle y(l)
  position object m,sin(object angle y(l)),1,cos(object angle y(l))
   yrotate object m,object angle y(l)
  inc ctr
 until ctr=90
ENDFUNCTION

+ Code Snippet

sync on
sync rate 60
phy start

for x = 1 to 12
 load object "arrow.x",x
next x
for t = 13 to 39
 make object cube t,1
next t
position object 1,-2,-1,-1.5
position object 2,-2,0,-1.5
position object 3,-2,1,-1.5
scale object 10,200,200,100 : position object 10,-3.5,0,-1.5
position object 4,2,1.5,-1 : rotate object 4,90,0,180
position object 5,2,1.5,0 : rotate object 5,90,0,180
position object 6,2,1.5,1 : rotate object 6,90,0,180
scale object 11,200,200,100 : position object 11,3.5,1.5,0 : rotate object 11,90,0,180
position object 7,-1,-1.5,-2 : rotate object 7,-90,-90,0
position object 8,0,-1.5,-2 : rotate object 8,-90,-90,0
position object 9,1,-1.5,-2 : rotate object 9,-90,-90,0
scale object 12,200,200,100 : position object 12,0,-1.5,-3.5 : rotate object 12,-90,-90,0
for f=1 to 12 : fix object pivot f : next f

position object 13,-1,-1,-1 : position object 14,0,-1,-1 : position object 15,1,-1,-1
position object 16,-1,0,-1 : position object 17,0,0,-1 : position object 18,1,0,-1
position object 19,-1,1,-1 : position object 20,0,1,-1 : position object 21,1,1,-1
//
position object 22,-1,-1,0 : position object 23,0,-1,0 : position object 24,1,-1,0
position object 25,-1,0,0 : position object 26,0,0,0 : position object 27,1,0,0
position object 28,-1,1,0 : position object 29,0,1,0 : position object 30,1,1,0
//
position object 31,-1,-1,1 : position object 32,0,-1,1 : position object 33,1,-1,1
position object 34,-1,0,1 : position object 35,0,0,1 : position object 36,1,0,1
position object 37,-1,1,1 : position object 38,0,1,1 : position object 39,1,1,1


do
 sync
 phy update
 position camera 3,5,-5
 point camera 0,0,0
 pi = pick object(mousex(),mousey(),1,12)
 set cursor 0,0 : print pi

 
 if mouseclick()=2
  if pi=1 OR pi=2 OR pi=3 OR pi=10
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
  if pi=4 OR pi=5 OR pi=6 OR pi=11
   rotate object pi,0,0,wrapvalue(object angle z(pi)+180)
   wait 250
  endif
  if pi=7 OR pi=8 OR pi=9 OR pi=12
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
 endif
 
 if spacekey()=1 then TopSpin(1)
loop

FUNCTION TopSpin(d)
 for block = 13 to 39
  if object position y(block)= 1
   if object position x(block) = -1
    if object position z(block) = -1 then h = block 
     if object position z(block) = 0 then i = block
      if object position z(block) = 1 then j = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then k = block
     if object position z(block) = 0 then l = block
      if object position z(block) = -1 then m = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then n = block
     if object position z(block) = 0 then o = block
      if object position z(block) = -1 then p = block
   endif
  endif
 next block
  color object k,rgb(255,0,0)
 repeat
  sync
  yrotate object l,wrapvalue(object angle y(l)+d)
  position object i,-cos(object angle y(l)),1,sin(object angle y(l))
   yrotate object i,object angle y(l)
  position object o,cos(object angle y(l)),1,-sin(object angle y(l))
   yrotate object o,object angle y(l)
  position object k,-sin(object angle y(l)),1,-cos(object angle y(l))
   yrotate object k,object angle y(l)
  position object m,sin(object angle y(l)),1,cos(object angle y(l))
   yrotate object m,object angle y(l)
  inc ctr
 until ctr=90
ENDFUNCTION

In the function, I can make all objects translate correctly except for object k. It doesn't work, even though I've done the math and it should.

Ich liebe Hundepfeifen; du hast wohl keine gehört.

Back to top

Profile PM Email

Fresser

19

Years of Service

User Offline

Joined: 16th Aug 2006

Location:

Posted: 10th Jun 2011 08:22

Link

Okay I updated because I figured it out, but now I'm trying to make the corner parts translate using my new formula and they're off by a bit. Can anyone help me?

sync on
sync rate 60
autocam off

make object cube 1,1
position object 1,0,0,0
make object cube 2,1
position object 2,-1,0,0
make object cube 3,1
position object 3,1,0,0
make object cube 4,1
position object 4,0,0,1
make object cube 5,1
position object 5,0,0,-1
make object cube 6,1
position object 6,1,0,-1

position camera 0,5,-5
point camera 0,0,0
do
 sync
 if leftkey()=1 then spinleft()
 if rightkey()=1 then spinright()
 
 set cursor 0,0
 print object angle y(1)
 print cos(object angle y(1))
 print sin(object angle y(1))
loop

FUNCTION spinleft()
 yrotate object 1,wrapvalue(object angle y(1)-1)
 position object 2,cos(object angle y(1)-180),0,-sin(object angle y(1)-180)
  yrotate object 2,wrapvalue(object angle y(2)-1)
 position object 3,cos(object angle y(1)),0,-sin(object angle y(1))
  yrotate object 3,wrapvalue(object angle y(3)-1)
 position object 4,cos(object angle y(1)-90),0,-sin(object angle y(1)-90)
  yrotate object 4,wrapvalue(object angle y(4)-1)
 position object 5,cos(object angle y(1)-270),0,-sin(object angle y(1)-270)
  yrotate object 5,wrapvalue(object angle y(5)-1)
 position object 6,cos(object angle y(1)-315),0,-sin(object angle y(1)-315)
  yrotate object 6,wrapvalue(object angle y(6)-1)
ENDFUNCTION

FUNCTION spinright()
 yrotate object 1,wrapvalue(object angle y(1)+1)
 position object 2,cos(object angle y(1)-180),0,-sin(object angle y(1)-180)
  yrotate object 2,wrapvalue(object angle y(2)+1)
 position object 3,cos(object angle y(1)),0,-sin(object angle y(1))
  yrotate object 3,wrapvalue(object angle y(3)+1)
 position object 4,cos(object angle y(1)-90),0,-sin(object angle y(1)-90)
  yrotate object 4,wrapvalue(object angle y(4)+1)
 position object 5,cos(object angle y(1)-270),0,-sin(object angle y(1)-270)
  yrotate object 5,wrapvalue(object angle y(5)+1)
ENDFUNCTION

+ Code Snippet

sync on
sync rate 60
autocam off

make object cube 1,1
position object 1,0,0,0
make object cube 2,1
position object 2,-1,0,0
make object cube 3,1
position object 3,1,0,0
make object cube 4,1
position object 4,0,0,1
make object cube 5,1
position object 5,0,0,-1
make object cube 6,1
position object 6,1,0,-1

position camera 0,5,-5
point camera 0,0,0
do
 sync
 if leftkey()=1 then spinleft()
 if rightkey()=1 then spinright()
 
 set cursor 0,0
 print object angle y(1)
 print cos(object angle y(1))
 print sin(object angle y(1))
loop

FUNCTION spinleft()
 yrotate object 1,wrapvalue(object angle y(1)-1)
 position object 2,cos(object angle y(1)-180),0,-sin(object angle y(1)-180)
  yrotate object 2,wrapvalue(object angle y(2)-1)
 position object 3,cos(object angle y(1)),0,-sin(object angle y(1))
  yrotate object 3,wrapvalue(object angle y(3)-1)
 position object 4,cos(object angle y(1)-90),0,-sin(object angle y(1)-90)
  yrotate object 4,wrapvalue(object angle y(4)-1)
 position object 5,cos(object angle y(1)-270),0,-sin(object angle y(1)-270)
  yrotate object 5,wrapvalue(object angle y(5)-1)
 position object 6,cos(object angle y(1)-315),0,-sin(object angle y(1)-315)
  yrotate object 6,wrapvalue(object angle y(6)-1)
ENDFUNCTION

FUNCTION spinright()
 yrotate object 1,wrapvalue(object angle y(1)+1)
 position object 2,cos(object angle y(1)-180),0,-sin(object angle y(1)-180)
  yrotate object 2,wrapvalue(object angle y(2)+1)
 position object 3,cos(object angle y(1)),0,-sin(object angle y(1))
  yrotate object 3,wrapvalue(object angle y(3)+1)
 position object 4,cos(object angle y(1)-90),0,-sin(object angle y(1)-90)
  yrotate object 4,wrapvalue(object angle y(4)+1)
 position object 5,cos(object angle y(1)-270),0,-sin(object angle y(1)-270)
  yrotate object 5,wrapvalue(object angle y(5)+1)
ENDFUNCTION

Ich liebe Hundepfeifen; du hast wohl keine gehört.

Back to top

Profile PM Email

Fresser

19

Years of Service

User Offline

Joined: 16th Aug 2006

Location:

Posted: 10th Jun 2011 08:30

Link

Nevermind, I resolved it by multiplying the cos/sin by sqrt(2) to make the length one.

Ich liebe Hundepfeifen; du hast wohl keine gehört.

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 10th Jun 2011 12:58

Link

Quote: "Nevermind, I resolved it by multiplying the cos/sin by sqrt(2) to make the length one."

The square root of 2 is about 1.41...

Could you show us what you did, it doesn't sound quite right to me but I'm not sure I understood you correctly?

Back to top

Profile PM Email

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 10th Jun 2011 15:07

Link

Quote: "it doesn't sound quite right to me "

Me either, but since he said it works for him now I didn't bother replying.

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 10th Jun 2011 15:31

Link

Me likewise.

Back to top

Profile PM Email

Neuro Fuzzy

19

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 10th Jun 2011 16:27

Link

Quote: "Nevermind, I resolved it by multiplying the cos/sin by sqrt(2) to make the length one."

just to say what everyone else is thinking:

cos(n)^2+sin(n)^2=1
means the distance from the origin to a point (cos(n),sin(n)) is 1.

Why does blue text appear every time you are near?

Back to top

Profile PM Email

Fresser

19

Years of Service

User Offline

Joined: 16th Aug 2006

Location:

Posted: 10th Jun 2011 17:18

Link

Sorry for the confusion. What I've done in this program is position each object around the origin using the cosine and sine as x and z coordinates, making sure that each object's specific location is scaled back by the sine or cosine of a different angle but still based on the origin object's location. When positioning the corner object at cos(object angle y(l)-135),1,cos(object angle y(l)-135), it positions it where the specific coordinates are 1/sqrt(2),1,1/sqrt(2), which are each less than one. So I multiplied both the x and z coords by the standard angle's reciprocal, sqrt(2)/1 or just sqrt(2).

I now have it set up in my full game, but I'm having a worse issue with clearing the variables. They stick around, and I don't know how to keep that from happening because of how new I am to this.

sync on
sync rate 120

for x = 1 to 12
 load object "arrow.x",x
next x
for t = 13 to 39
 make object cube t,1
next t
position object 1,-2,-1,-1.5
position object 2,-2,0,-1.5
position object 3,-2,1,-1.5
scale object 10,200,200,100 : position object 10,-3.5,0,-1.5
position object 4,2,1.5,-1 : rotate object 4,90,0,180
position object 5,2,1.5,0 : rotate object 5,90,0,180
position object 6,2,1.5,1 : rotate object 6,90,0,180
scale object 11,200,200,100 : position object 11,3.5,1.5,0 : rotate object 11,90,0,180
position object 7,-1,-1.5,-2 : rotate object 7,-90,-90,0
position object 8,0,-1.5,-2 : rotate object 8,-90,-90,0
position object 9,1,-1.5,-2 : rotate object 9,-90,-90,0
scale object 12,200,200,100 : position object 12,0,-1.5,-3.5 : rotate object 12,-90,-90,0
for f=1 to 12 : fix object pivot f : next f

position object 13,-1,-1,-1 : position object 14,0,-1,-1 : position object 15,1,-1,-1
position object 16,-1,0,-1 : position object 17,0,0,-1 : position object 18,1,0,-1
position object 19,-1,1,-1 : position object 20,0,1,-1 : position object 21,1,1,-1
//
position object 22,-1,-1,0 : position object 23,0,-1,0 : position object 24,1,-1,0
position object 25,-1,0,0 : position object 26,0,0,0 : position object 27,1,0,0
position object 28,-1,1,0 : position object 29,0,1,0 : position object 30,1,1,0
//
position object 31,-1,-1,1 : position object 32,0,-1,1 : position object 33,1,-1,1
position object 34,-1,0,1 : position object 35,0,0,1 : position object 36,1,0,1
position object 37,-1,1,1 : position object 38,0,1,1 : position object 39,1,1,1

do
 sync
 phy update
 position camera 3,5,-5
 point camera 0,0,0
 
 for block = 13 to 39
  if object position y(block)= 1
   if object position x(block) = -1
    if object position z(block) = -1 then a = block 
     if object position z(block) = 0 then b = block
      if object position z(block) = 1 then c = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then d = block
     if object position z(block) = 0 then e = block
      if object position z(block) = 1 then f = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then g = block
     if object position z(block) = 0 then h = block
      if object position z(block) = 1 then i = block
   endif
  endif
  if object position y(block)= 0
   if object position x(block) = -1
    if object position z(block) = -1 then j = block 
     if object position z(block) = 0 then k = block
      if object position z(block) = 1 then l = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then m = block
     if object position z(block) = 0 then n = block
      if object position z(block) = 1 then o = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then p = block
     if object position z(block) = 0 then q = block
      if object position z(block) = 1 then r = block
   endif
  endif
  if object position y(block)= -1
   if object position x(block) = -1
    if object position z(block) = -1 then s = block 
     if object position z(block) = 0 then t = block
      if object position z(block) = 1 then u = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then v = block
     if object position z(block) = 0 then w = block
      if object position z(block) = 1 then x = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then y = block
     if object position z(block) = 0 then z = block
      if object position z(block) = 1 then zz = block
   endif
  endif 
 next block
 
 pi = pick object(mousex(),mousey(),1,12)
 set cursor 0,0 : print pi

if mouseclick()=2
  if pi=1 OR pi=2 OR pi=3 OR pi=10
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
  if pi=4 OR pi=5 OR pi=6 OR pi=11
   rotate object pi,0,0,wrapvalue(object angle z(pi)+180)
   wait 250
  endif
  if pi=7 OR pi=8 OR pi=9 OR pi=12
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
 endif
 
 if spacekey()=1
  ctr = 0
  color object b,rgb(255,0,0)
  color object f,rgb(0,255,0)
  color object h,rgb(0,0,255)
  repeat
   sync
   yrotate object e,wrapvalue(object angle y(e)+1)
   position object b,cos(object angle y(e)-180),1,-sin(object angle y(e)-180)
    yrotate object b,object angle y(e)
   position object f,cos(object angle y(e)-90),1,-sin(object angle y(e)-90)
    yrotate object f,object angle y(e)
   position object h,cos(object angle y(e)),1,-sin(object angle y(e))
    yrotate object h,object angle y(e)
   position object d,cos(object angle y(e)-270),1,-sin(object angle y(e)-270)
    yrotate object d,object angle y(e)
   inc ctr
  until ctr=90
 endif

loop

+ Code Snippet

sync on
sync rate 120

for x = 1 to 12
 load object "arrow.x",x
next x
for t = 13 to 39
 make object cube t,1
next t
position object 1,-2,-1,-1.5
position object 2,-2,0,-1.5
position object 3,-2,1,-1.5
scale object 10,200,200,100 : position object 10,-3.5,0,-1.5
position object 4,2,1.5,-1 : rotate object 4,90,0,180
position object 5,2,1.5,0 : rotate object 5,90,0,180
position object 6,2,1.5,1 : rotate object 6,90,0,180
scale object 11,200,200,100 : position object 11,3.5,1.5,0 : rotate object 11,90,0,180
position object 7,-1,-1.5,-2 : rotate object 7,-90,-90,0
position object 8,0,-1.5,-2 : rotate object 8,-90,-90,0
position object 9,1,-1.5,-2 : rotate object 9,-90,-90,0
scale object 12,200,200,100 : position object 12,0,-1.5,-3.5 : rotate object 12,-90,-90,0
for f=1 to 12 : fix object pivot f : next f

position object 13,-1,-1,-1 : position object 14,0,-1,-1 : position object 15,1,-1,-1
position object 16,-1,0,-1 : position object 17,0,0,-1 : position object 18,1,0,-1
position object 19,-1,1,-1 : position object 20,0,1,-1 : position object 21,1,1,-1
//
position object 22,-1,-1,0 : position object 23,0,-1,0 : position object 24,1,-1,0
position object 25,-1,0,0 : position object 26,0,0,0 : position object 27,1,0,0
position object 28,-1,1,0 : position object 29,0,1,0 : position object 30,1,1,0
//
position object 31,-1,-1,1 : position object 32,0,-1,1 : position object 33,1,-1,1
position object 34,-1,0,1 : position object 35,0,0,1 : position object 36,1,0,1
position object 37,-1,1,1 : position object 38,0,1,1 : position object 39,1,1,1


do
 sync
 phy update
 position camera 3,5,-5
 point camera 0,0,0
 
 for block = 13 to 39
  if object position y(block)= 1
   if object position x(block) = -1
    if object position z(block) = -1 then a = block 
     if object position z(block) = 0 then b = block
      if object position z(block) = 1 then c = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then d = block
     if object position z(block) = 0 then e = block
      if object position z(block) = 1 then f = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then g = block
     if object position z(block) = 0 then h = block
      if object position z(block) = 1 then i = block
   endif
  endif
  if object position y(block)= 0
   if object position x(block) = -1
    if object position z(block) = -1 then j = block 
     if object position z(block) = 0 then k = block
      if object position z(block) = 1 then l = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then m = block
     if object position z(block) = 0 then n = block
      if object position z(block) = 1 then o = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then p = block
     if object position z(block) = 0 then q = block
      if object position z(block) = 1 then r = block
   endif
  endif
  if object position y(block)= -1
   if object position x(block) = -1
    if object position z(block) = -1 then s = block 
     if object position z(block) = 0 then t = block
      if object position z(block) = 1 then u = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then v = block
     if object position z(block) = 0 then w = block
      if object position z(block) = 1 then x = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then y = block
     if object position z(block) = 0 then z = block
      if object position z(block) = 1 then zz = block
   endif
  endif 
 next block
 
 pi = pick object(mousex(),mousey(),1,12)
 set cursor 0,0 : print pi

 
 if mouseclick()=2
  if pi=1 OR pi=2 OR pi=3 OR pi=10
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
  if pi=4 OR pi=5 OR pi=6 OR pi=11
   rotate object pi,0,0,wrapvalue(object angle z(pi)+180)
   wait 250
  endif
  if pi=7 OR pi=8 OR pi=9 OR pi=12
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
 endif
 
 if spacekey()=1
  ctr = 0
  color object b,rgb(255,0,0)
  color object f,rgb(0,255,0)
  color object h,rgb(0,0,255)
  repeat
   sync
   yrotate object e,wrapvalue(object angle y(e)+1)
   position object b,cos(object angle y(e)-180),1,-sin(object angle y(e)-180)
    yrotate object b,object angle y(e)
   position object f,cos(object angle y(e)-90),1,-sin(object angle y(e)-90)
    yrotate object f,object angle y(e)
   position object h,cos(object angle y(e)),1,-sin(object angle y(e))
    yrotate object h,object angle y(e)
   position object d,cos(object angle y(e)-270),1,-sin(object angle y(e)-270)
    yrotate object d,object angle y(e)
   inc ctr
  until ctr=90
 endif

loop

Ich liebe Hundepfeifen; du hast wohl keine gehört.

Back to top

Profile PM Email

Fresser

19

Years of Service

User Offline

Joined: 16th Aug 2006

Location:

Posted: 10th Jun 2011 17:34

Link

Okay I know that didn't make a ton of sense.

The way this program works is it looks at the rotation of the object at the center, and uses its cosine and sine to appropriately move the objects around the center object. When using basic object numbers it works great, but using variable I now have a problem. Here's my test code when I was working out the kinks.

sync on
sync rate 60
autocam off

make object cube 1,1
position object 1,0,0,0
make object cube 2,1
position object 2,-1,0,0
make object cube 3,1
position object 3,1,0,0
make object cube 4,1
position object 4,0,0,1
make object cube 5,1
position object 5,0,0,-1
make object cube 6,1
position object 6,1,0,-1
make object cube 7,1
position object 7,-1,0,-1
make object cube 8,1
position object 8,-1,0,1
make object cube 9,1
position object 9,1,0,1

position camera 0,5,-5
point camera 0,0,0
do
 sync
 if leftkey()=1 then spinright(-1)
 if rightkey()=1 then spinright(1)
 
 set cursor 0,0
 print object angle y(1)
 print cos(object angle y(1))
 print sin(object angle y(1))
loop

FUNCTION spinright(a)
 yrotate object 1,wrapvalue(object angle y(1)+a)
 position object 2,cos(object angle y(1)-180),0,-sin(object angle y(1)-180)
  yrotate object 2,wrapvalue(object angle y(2)+a)
 position object 3,cos(object angle y(1)),0,-sin(object angle y(1))
  yrotate object 3,wrapvalue(object angle y(3)+a)
 position object 4,cos(object angle y(1)-90),0,-sin(object angle y(1)-90)
  yrotate object 4,wrapvalue(object angle y(4)+a)
 position object 5,cos(object angle y(1)-270),0,-sin(object angle y(1)-270)
  yrotate object 5,wrapvalue(object angle y(5)+a)
 position object 6,cos(object angle y(1)-315)*sqrt(2),0,-sin(object angle y(1)-315)*sqrt(2)
  yrotate object 6,wrapvalue(object angle y(6)+a)
 position object 7,cos(object angle y(1)-225)*sqrt(2),0,-sin(object angle y(1)-225)*sqrt(2)
  yrotate object 7,wrapvalue(object angle y(7)+a)
 position object 8,cos(object angle y(1)-135)*sqrt(2),0,-sin(object angle y(1)-135)*sqrt(2)
  yrotate object 8,wrapvalue(object angle y(8)+a)
 position object 9,cos(object angle y(1)-45)*sqrt(2),0,-sin(object angle y(1)-45)*sqrt(2)
  yrotate object 9,wrapvalue(object angle y(9)+a)
ENDFUNCTION

+ Code Snippet

sync on
sync rate 60
autocam off

make object cube 1,1
position object 1,0,0,0
make object cube 2,1
position object 2,-1,0,0
make object cube 3,1
position object 3,1,0,0
make object cube 4,1
position object 4,0,0,1
make object cube 5,1
position object 5,0,0,-1
make object cube 6,1
position object 6,1,0,-1
make object cube 7,1
position object 7,-1,0,-1
make object cube 8,1
position object 8,-1,0,1
make object cube 9,1
position object 9,1,0,1

position camera 0,5,-5
point camera 0,0,0
do
 sync
 if leftkey()=1 then spinright(-1)
 if rightkey()=1 then spinright(1)
 
 set cursor 0,0
 print object angle y(1)
 print cos(object angle y(1))
 print sin(object angle y(1))
loop

FUNCTION spinright(a)
 yrotate object 1,wrapvalue(object angle y(1)+a)
 position object 2,cos(object angle y(1)-180),0,-sin(object angle y(1)-180)
  yrotate object 2,wrapvalue(object angle y(2)+a)
 position object 3,cos(object angle y(1)),0,-sin(object angle y(1))
  yrotate object 3,wrapvalue(object angle y(3)+a)
 position object 4,cos(object angle y(1)-90),0,-sin(object angle y(1)-90)
  yrotate object 4,wrapvalue(object angle y(4)+a)
 position object 5,cos(object angle y(1)-270),0,-sin(object angle y(1)-270)
  yrotate object 5,wrapvalue(object angle y(5)+a)
 position object 6,cos(object angle y(1)-315)*sqrt(2),0,-sin(object angle y(1)-315)*sqrt(2)
  yrotate object 6,wrapvalue(object angle y(6)+a)
 position object 7,cos(object angle y(1)-225)*sqrt(2),0,-sin(object angle y(1)-225)*sqrt(2)
  yrotate object 7,wrapvalue(object angle y(7)+a)
 position object 8,cos(object angle y(1)-135)*sqrt(2),0,-sin(object angle y(1)-135)*sqrt(2)
  yrotate object 8,wrapvalue(object angle y(8)+a)
 position object 9,cos(object angle y(1)-45)*sqrt(2),0,-sin(object angle y(1)-45)*sqrt(2)
  yrotate object 9,wrapvalue(object angle y(9)+a)
ENDFUNCTION

It's all the same except the rotation of the specific object around its own axis is based on its own axis, and I'm using object numbers instead of variables. For this cube, I need to use variable so how do I do that without it thinking the same thing over and over?

Ich liebe Hundepfeifen; du hast wohl keine gehört.

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 11th Jun 2011 00:43

Link

I don't understand the question.

What exactly is wrong?

Quote: "without it thinking the same thing over and over"

What "same thing"?

Back to top

Profile PM Email

Fresser

19

Years of Service

User Offline

Joined: 16th Aug 2006

Location:

Posted: 13th Jun 2011 23:06

Link

I don't know what's wrong with me, I can't seem to word it right...

If I declare in my loop a variable a-zz for all 27 cube objects, it for whatever reason holds on to some of those variable names and doesn't move the cubes accordingly.

When I get to my home PC I'll try it again but with 26 cubes surrounding the only one with a constant position rather than rebuild over and over. Maybe I'll try an array. Wish me luck.

Ich liebe Hundepfeifen; du hast wohl keine gehört.

Back to top

Profile PM Email

Fresser

19

Years of Service

User Offline

Joined: 16th Aug 2006

Location:

Posted: 14th Jun 2011 05:27

Link

Goddamnit. All that I had to do was remove the "phy update" command in my main loop, since I wasn't calling phy start at the beginning. Somehow that fixed everything.

Ich liebe Hundepfeifen; du hast wohl keine gehört.

Back to top

Profile PM Email

Fresser

19

Years of Service

User Offline

Joined: 16th Aug 2006

Location:

Posted: 14th Jun 2011 07:26

Link

sync on
sync rate 240

for x = 1 to 12
 load object "arrow.x",x
next x
for t = 13 to 39
 //make object cube t,1
 load object "cube.x",t
next t
position object 1,-2,-1,-1.5
position object 2,-2,0,-1.5
position object 3,-2,1,-1.5
scale object 10,200,200,100 : position object 10,-3.5,0,-1.5
position object 4,-2,1.5,-1 : rotate object 4,90,180,180
position object 5,-2,1.5,0 : rotate object 5,90,180,180
position object 6,-2,1.5,1 : rotate object 6,90,180,180
scale object 11,200,200,100 : position object 11,-3.5,1.5,0 : rotate object 11,90,180,180
position object 7,-1,-1.5,-2 : rotate object 7,-90,-90,0
position object 8,0,-1.5,-2 : rotate object 8,-90,-90,0
position object 9,1,-1.5,-2 : rotate object 9,-90,-90,0
scale object 12,200,200,100 : position object 12,0,-1.5,-3.5 : rotate object 12,-90,-90,0
for f=1 to 12 : fix object pivot f : next f

position object 13,-1,-1,-1 : position object 14,0,-1,-1 : position object 15,1,-1,-1
position object 16,-1,0,-1 : position object 17,0,0,-1 : position object 18,1,0,-1
position object 19,-1,1,-1 : position object 20,0,1,-1 : position object 21,1,1,-1
//
position object 22,-1,-1,0 : position object 23,0,-1,0 : position object 24,1,-1,0
position object 25,-1,0,0 : position object 26,0,0,0 : position object 27,1,0,0
position object 28,-1,1,0 : position object 29,0,1,0 : position object 30,1,1,0
//
position object 31,-1,-1,1 : position object 32,0,-1,1 : position object 33,1,-1,1
position object 34,-1,0,1 : position object 35,0,0,1 : position object 36,1,0,1
position object 37,-1,1,1 : position object 38,0,1,1 : position object 39,1,1,1

do
 sync

position camera 3,5,-5
 point camera 0,0,0
 
 for block = 13 to 39
  if object position y(block)= 1
   if object position x(block) = -1
    if object position z(block) = -1 then a = block 
     if object position z(block) = 0 then b = block
      if object position z(block) = 1 then c = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then d = block
     if object position z(block) = 0 then e = block
      if object position z(block) = 1 then f = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then g = block
     if object position z(block) = 0 then h = block
      if object position z(block) = 1 then i = block
   endif
  endif
  if object position y(block)= 0
   if object position x(block) = -1
    if object position z(block) = -1 then j = block 
     if object position z(block) = 0 then k = block
      if object position z(block) = 1 then l = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then m = block
     if object position z(block) = 0 then n = block
      if object position z(block) = 1 then o = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then p = block
     if object position z(block) = 0 then q = block
      if object position z(block) = 1 then r = block
   endif
  endif
  if object position y(block)= -1
   if object position x(block) = -1
    if object position z(block) = -1 then s = block 
     if object position z(block) = 0 then t = block
      if object position z(block) = 1 then u = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then v = block
     if object position z(block) = 0 then w = block
      if object position z(block) = 1 then x = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then y = block
     if object position z(block) = 0 then z = block
      if object position z(block) = 1 then zz = block
   endif
  endif 
 next block
 
 pi = pick object(mousex(),mousey(),1,12)
 set cursor 0,0 : print pi

if mouseclick()=2
  if pi=1 OR pi=2 OR pi=3 OR pi=10
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
  if pi=4 OR pi=5 OR pi=6 OR pi=11
   rotate object pi,0,0,wrapvalue(object angle z(pi)+180)
   wait 250
  endif
  if pi=7 OR pi=8 OR pi=9 OR pi=12
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
 endif
 
 if mouseclick()=1
  if pi=1
   //turn the bottom clockwise
   if object angle y(pi)=180
    ctr = 0
    repeat
     sync
     yrotate object w,wrapvalue(object angle y(w)+1)
     position object s,cos(object angle y(w)+225)*sqrt(2),-1,-sin(object angle y(w)+225)*sqrt(2)
      yrotate object s,wrapvalue(object angle y(s)+1)
     position object t,cos(object angle y(w)+180),-1,-sin(object angle y(w)+180)
      yrotate object t,wrapvalue(object angle y(t)+1)
     position object u,cos(object angle y(w)+135)*sqrt(2),-1,-sin(object angle y(w)+135)*sqrt(2)
      yrotate object u,wrapvalue(object angle y(u)+1)
     position object v,cos(object angle y(w)+270),-1,-sin(object angle y(w)+270)
      yrotate object v,wrapvalue(object angle y(v)+1)
     position object x,cos(object angle y(w)+90),-1,-sin(object angle y(w)+90)
      yrotate object x,wrapvalue(object angle y(x)+1)
     position object y,cos(object angle y(w)+315)*sqrt(2),-1,-sin(object angle y(w)+315)*sqrt(2)
      yrotate object y,wrapvalue(object angle y(y)+1)
     position object z,cos(object angle y(w)),-1,-sin(object angle y(w))
      yrotate object z,wrapvalue(object angle y(z)+1)
     position object zz,cos(object angle y(w)+45)*sqrt(2),-1,-sin(object angle y(w)+45)*sqrt(2)
      yrotate object zz,wrapvalue(object angle y(zz)+1)
     inc ctr
    until ctr=90
   endif
   //turn the bottom counter clockwise
   if object angle y(pi)=0
    ctr = 0
    repeat
     sync
     yrotate object w,wrapvalue(object angle y(w)-1)
     position object s,cos(object angle y(w)+225)*sqrt(2),-1,-sin(object angle y(w)+225)*sqrt(2)
      yrotate object s,wrapvalue(object angle y(s)-1)
     position object t,cos(object angle y(w)+180),-1,-sin(object angle y(w)+180)
      yrotate object t,wrapvalue(object angle y(t)-1)
     position object u,cos(object angle y(w)+135)*sqrt(2),-1,-sin(object angle y(w)+135)*sqrt(2)
      yrotate object u,wrapvalue(object angle y(u)-1)
     position object v,cos(object angle y(w)+270),-1,-sin(object angle y(w)+270)
      yrotate object v,wrapvalue(object angle y(v)-1)
     position object x,cos(object angle y(w)+90),-1,-sin(object angle y(w)+90)
      yrotate object x,wrapvalue(object angle y(x)-1)
     position object y,cos(object angle y(w)+315)*sqrt(2),-1,-sin(object angle y(w)+315)*sqrt(2)
      yrotate object y,wrapvalue(object angle y(y)-1)
     position object z,cos(object angle y(w)),-1,-sin(object angle y(w))
      yrotate object z,wrapvalue(object angle y(z)-1)
     position object zz,cos(object angle y(w)+45)*sqrt(2),-1,-sin(object angle y(w)+45)*sqrt(2)
      yrotate object zz,wrapvalue(object angle y(zz)-1)
     inc ctr
    until ctr=90
   endif
  endif
  if pi=2
   //turn the center clockwise (y axis)
   if object angle y(pi)=180
    ctr = 0
    repeat
     sync
     yrotate object n,wrapvalue(object angle y(n)+1)
     position object j,cos(object angle y(n)+225)*sqrt(2),0,-sin(object angle y(n)+225)*sqrt(2)
      yrotate object j,wrapvalue(object angle y(j)+1)
     position object k,cos(object angle y(n)+180),0,-sin(object angle y(n)+180)
      yrotate object k,wrapvalue(object angle y(k)+1)
     position object l,cos(object angle y(n)+135)*sqrt(2),0,-sin(object angle y(n)+135)*sqrt(2)
      yrotate object l,wrapvalue(object angle y(l)+1)
     position object m,cos(object angle y(n)+270),0,-sin(object angle y(n)+270)
      yrotate object m,wrapvalue(object angle y(m)+1)
     position object o,cos(object angle y(n)+90),0,-sin(object angle y(n)+90)
      yrotate object o,wrapvalue(object angle y(o)+1)
     position object p,cos(object angle y(n)+315)*sqrt(2),0,-sin(object angle y(n)+315)*sqrt(2)
      yrotate object p,wrapvalue(object angle y(p)+1)
     position object q,cos(object angle y(n)),0,-sin(object angle y(n))
      yrotate object q,wrapvalue(object angle y(q)+1)
     position object r,cos(object angle y(n)+45)*sqrt(2),0,-sin(object angle y(n)+45)*sqrt(2)
      yrotate object r,wrapvalue(object angle y(r)+1)
     inc ctr
    until ctr=90
   endif
   //turn the center counter clockwise (y axis)
   if object angle y(pi)=0
    ctr = 0
    repeat
     sync
     yrotate object n,wrapvalue(object angle y(n)-1)
     position object j,cos(object angle y(n)+225)*sqrt(2),0,-sin(object angle y(n)+225)*sqrt(2)
      yrotate object j,wrapvalue(object angle y(j)-1)
     position object k,cos(object angle y(n)+180),0,-sin(object angle y(n)+180)
      yrotate object k,wrapvalue(object angle y(k)-1)
     position object l,cos(object angle y(n)+135)*sqrt(2),0,-sin(object angle y(n)+135)*sqrt(2)
      yrotate object l,wrapvalue(object angle y(l)-1)
     position object m,cos(object angle y(n)+270),0,-sin(object angle y(n)+270)
      yrotate object m,wrapvalue(object angle y(m)-1)
     position object o,cos(object angle y(n)+90),0,-sin(object angle y(n)+90)
      yrotate object o,wrapvalue(object angle y(o)-1)
     position object p,cos(object angle y(n)+315)*sqrt(2),0,-sin(object angle y(n)+315)*sqrt(2)
      yrotate object p,wrapvalue(object angle y(p)-1)
     position object q,cos(object angle y(n)),0,-sin(object angle y(n))
      yrotate object q,wrapvalue(object angle y(q)-1)
     position object r,cos(object angle y(n)+45)*sqrt(2),0,-sin(object angle y(n)+45)*sqrt(2)
      yrotate object r,wrapvalue(object angle y(r)-1)
     inc ctr
    until ctr=90
   endif
  endif 
  if pi=3
   //turn the top clockwise
   if object angle y(pi)=180
    ctr = 0
    repeat
     sync
     yrotate object e,wrapvalue(object angle y(e)+1)
     position object a,cos(object angle y(e)+225)*sqrt(2),1,-sin(object angle y(e)+225)*sqrt(2)
      yrotate object a,wrapvalue(object angle y(a)+1)
     position object b,cos(object angle y(e)+180),1,-sin(object angle y(e)+180)
      yrotate object b,wrapvalue(object angle y(b)+1)
     position object c,cos(object angle y(e)+135)*sqrt(2),1,-sin(object angle y(e)+135)*sqrt(2)
      yrotate object c,wrapvalue(object angle y(c)+1)
     position object d,cos(object angle y(e)+270),1,-sin(object angle y(e)+270)
      yrotate object d,wrapvalue(object angle y(d)+1)
     position object f,cos(object angle y(e)+90),1,-sin(object angle y(e)+90)
      yrotate object f,wrapvalue(object angle y(f)+1)
     position object g,cos(object angle y(e)+315)*sqrt(2),1,-sin(object angle y(e)+315)*sqrt(2)
      yrotate object g,wrapvalue(object angle y(g)+1)
     position object h,cos(object angle y(e)),1,-sin(object angle y(e))
      yrotate object h,wrapvalue(object angle y(h)+1)
     position object i,cos(object angle y(e)+45)*sqrt(2),1,-sin(object angle y(e)+45)*sqrt(2)
      yrotate object i,wrapvalue(object angle y(i)+1)
     inc ctr
    until ctr=90
   endif
   //turn the top counter clockwise
   if object angle y(pi)=0
    ctr = 0
    repeat
     sync
     yrotate object e,wrapvalue(object angle y(e)-1)
     position object a,cos(object angle y(e)+225)*sqrt(2),1,-sin(object angle y(e)+225)*sqrt(2)
      yrotate object a,wrapvalue(object angle y(a)-1)
     position object b,cos(object angle y(e)+180),1,-sin(object angle y(e)+180)
      yrotate object b,wrapvalue(object angle y(b)-1)
     position object c,cos(object angle y(e)+135)*sqrt(2),1,-sin(object angle y(e)+135)*sqrt(2)
      yrotate object c,wrapvalue(object angle y(c)-1)
     position object d,cos(object angle y(e)+270),1,-sin(object angle y(e)+270)
      yrotate object d,wrapvalue(object angle y(d)-1)
     position object f,cos(object angle y(e)+90),1,-sin(object angle y(e)+90)
      yrotate object f,wrapvalue(object angle y(f)-1)
     position object g,cos(object angle y(e)+315)*sqrt(2),1,-sin(object angle y(e)+315)*sqrt(2)
      yrotate object g,wrapvalue(object angle y(g)-1)
     position object h,cos(object angle y(e)),1,-sin(object angle y(e))
      yrotate object h,wrapvalue(object angle y(h)-1)
     position object i,cos(object angle y(e)+45)*sqrt(2),1,-sin(object angle y(e)+45)*sqrt(2)
      yrotate object i,wrapvalue(object angle y(i)-1)
     inc ctr
    until ctr=90
   endif
  endif 
  if pi=4
   //turn the front clockwise
   if object angle z(pi)=0
    ctr = 0
    repeat
     sync
     zrotate object m,wrapvalue(object angle z(m)-1)
     position object s,-cos(object angle z(m)+225)*sqrt(2),-sin(object angle z(m)+225)*sqrt(2),-1
      zrotate object s,wrapvalue(object angle z(s)-1)
     position object j,-cos(object angle z(m)+180),-sin(object angle z(m)+180),-1
      zrotate object j,wrapvalue(object angle z(j)-1)
     position object a,-cos(object angle z(m)+135)*sqrt(2),-sin(object angle z(m)+135)*sqrt(2),-1
      zrotate object a,wrapvalue(object angle z(a)-1)
     position object v,-cos(object angle z(m)+270),-sin(object angle z(m)+270),-1
      zrotate object v,wrapvalue(object angle z(v)-1)
     position object d,-cos(object angle z(m)+90),-sin(object angle z(m)+90),-1
      zrotate object d,wrapvalue(object angle z(d)-1)
     position object y,-cos(object angle z(m)+315)*sqrt(2),-sin(object angle z(m)+315)*sqrt(2),-1
      zrotate object y,wrapvalue(object angle z(y)-1)
     position object p,-cos(object angle z(m)),-sin(object angle z(m)),-1
      zrotate object p,wrapvalue(object angle z(p)-1)
     position object g,-cos(object angle z(m)+45)*sqrt(2),-sin(object angle z(m)+45)*sqrt(2),-1
      zrotate object g,wrapvalue(object angle z(g)-1)
     inc ctr
    until ctr=90
   endif
   //turn the front counter clockwise
   if object angle z(pi)=180
    ctr = 0
    repeat
     sync
     zrotate object m,wrapvalue(object angle z(m)+1)
     position object s,-cos(object angle z(m)+225)*sqrt(2),-sin(object angle z(m)+225)*sqrt(2),-1
      zrotate object s,wrapvalue(object angle z(s)+1)
     position object j,-cos(object angle z(m)+180),-sin(object angle z(m)+180),-1
      zrotate object j,wrapvalue(object angle z(j)+1)
     position object a,-cos(object angle z(m)+135)*sqrt(2),-sin(object angle z(m)+135)*sqrt(2),-1
      zrotate object a,wrapvalue(object angle z(a)+1)
     position object v,-cos(object angle z(m)+270),-sin(object angle z(m)+270),-1
      zrotate object v,wrapvalue(object angle z(v)+1)
     position object d,-cos(object angle z(m)+90),-sin(object angle z(m)+90),-1
      zrotate object d,wrapvalue(object angle z(d)+1)
     position object y,-cos(object angle z(m)+315)*sqrt(2),-sin(object angle z(m)+315)*sqrt(2),-1
      zrotate object y,wrapvalue(object angle z(y)+1)
     position object p,-cos(object angle z(m)),-sin(object angle z(m)),-1
      zrotate object p,wrapvalue(object angle z(p)+1)
     position object g,-cos(object angle z(m)+45)*sqrt(2),-sin(object angle z(m)+45)*sqrt(2),-1
      zrotate object g,wrapvalue(object angle z(g)+1)
     inc ctr
    until ctr=90
   endif
  endif 
 endif

loop

+ Code Snippet

sync on
sync rate 240

for x = 1 to 12
 load object "arrow.x",x
next x
for t = 13 to 39
 //make object cube t,1
 load object "cube.x",t
next t
position object 1,-2,-1,-1.5
position object 2,-2,0,-1.5
position object 3,-2,1,-1.5
scale object 10,200,200,100 : position object 10,-3.5,0,-1.5
position object 4,-2,1.5,-1 : rotate object 4,90,180,180
position object 5,-2,1.5,0 : rotate object 5,90,180,180
position object 6,-2,1.5,1 : rotate object 6,90,180,180
scale object 11,200,200,100 : position object 11,-3.5,1.5,0 : rotate object 11,90,180,180
position object 7,-1,-1.5,-2 : rotate object 7,-90,-90,0
position object 8,0,-1.5,-2 : rotate object 8,-90,-90,0
position object 9,1,-1.5,-2 : rotate object 9,-90,-90,0
scale object 12,200,200,100 : position object 12,0,-1.5,-3.5 : rotate object 12,-90,-90,0
for f=1 to 12 : fix object pivot f : next f

position object 13,-1,-1,-1 : position object 14,0,-1,-1 : position object 15,1,-1,-1
position object 16,-1,0,-1 : position object 17,0,0,-1 : position object 18,1,0,-1
position object 19,-1,1,-1 : position object 20,0,1,-1 : position object 21,1,1,-1
//
position object 22,-1,-1,0 : position object 23,0,-1,0 : position object 24,1,-1,0
position object 25,-1,0,0 : position object 26,0,0,0 : position object 27,1,0,0
position object 28,-1,1,0 : position object 29,0,1,0 : position object 30,1,1,0
//
position object 31,-1,-1,1 : position object 32,0,-1,1 : position object 33,1,-1,1
position object 34,-1,0,1 : position object 35,0,0,1 : position object 36,1,0,1
position object 37,-1,1,1 : position object 38,0,1,1 : position object 39,1,1,1


do
 sync


 position camera 3,5,-5
 point camera 0,0,0
 
 for block = 13 to 39
  if object position y(block)= 1
   if object position x(block) = -1
    if object position z(block) = -1 then a = block 
     if object position z(block) = 0 then b = block
      if object position z(block) = 1 then c = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then d = block
     if object position z(block) = 0 then e = block
      if object position z(block) = 1 then f = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then g = block
     if object position z(block) = 0 then h = block
      if object position z(block) = 1 then i = block
   endif
  endif
  if object position y(block)= 0
   if object position x(block) = -1
    if object position z(block) = -1 then j = block 
     if object position z(block) = 0 then k = block
      if object position z(block) = 1 then l = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then m = block
     if object position z(block) = 0 then n = block
      if object position z(block) = 1 then o = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then p = block
     if object position z(block) = 0 then q = block
      if object position z(block) = 1 then r = block
   endif
  endif
  if object position y(block)= -1
   if object position x(block) = -1
    if object position z(block) = -1 then s = block 
     if object position z(block) = 0 then t = block
      if object position z(block) = 1 then u = block
   endif
   if object position x(block) = 0
    if object position z(block) = -1 then v = block
     if object position z(block) = 0 then w = block
      if object position z(block) = 1 then x = block
   endif
   if object position x(block) = 1
    if object position z(block) = -1 then y = block
     if object position z(block) = 0 then z = block
      if object position z(block) = 1 then zz = block
   endif
  endif 
 next block
 
 pi = pick object(mousex(),mousey(),1,12)
 set cursor 0,0 : print pi

 if mouseclick()=2
  if pi=1 OR pi=2 OR pi=3 OR pi=10
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
  if pi=4 OR pi=5 OR pi=6 OR pi=11
   rotate object pi,0,0,wrapvalue(object angle z(pi)+180)
   wait 250
  endif
  if pi=7 OR pi=8 OR pi=9 OR pi=12
   rotate object pi,0,wrapvalue(object angle y(pi)+180),0
   wait 250
  endif
 endif
 
 if mouseclick()=1
  if pi=1
   //turn the bottom clockwise
   if object angle y(pi)=180
    ctr = 0
    repeat
     sync
     yrotate object w,wrapvalue(object angle y(w)+1)
     position object s,cos(object angle y(w)+225)*sqrt(2),-1,-sin(object angle y(w)+225)*sqrt(2)
      yrotate object s,wrapvalue(object angle y(s)+1)
     position object t,cos(object angle y(w)+180),-1,-sin(object angle y(w)+180)
      yrotate object t,wrapvalue(object angle y(t)+1)
     position object u,cos(object angle y(w)+135)*sqrt(2),-1,-sin(object angle y(w)+135)*sqrt(2)
      yrotate object u,wrapvalue(object angle y(u)+1)
     position object v,cos(object angle y(w)+270),-1,-sin(object angle y(w)+270)
      yrotate object v,wrapvalue(object angle y(v)+1)
     position object x,cos(object angle y(w)+90),-1,-sin(object angle y(w)+90)
      yrotate object x,wrapvalue(object angle y(x)+1)
     position object y,cos(object angle y(w)+315)*sqrt(2),-1,-sin(object angle y(w)+315)*sqrt(2)
      yrotate object y,wrapvalue(object angle y(y)+1)
     position object z,cos(object angle y(w)),-1,-sin(object angle y(w))
      yrotate object z,wrapvalue(object angle y(z)+1)
     position object zz,cos(object angle y(w)+45)*sqrt(2),-1,-sin(object angle y(w)+45)*sqrt(2)
      yrotate object zz,wrapvalue(object angle y(zz)+1)
     inc ctr
    until ctr=90
   endif
   //turn the bottom counter clockwise
   if object angle y(pi)=0
    ctr = 0
    repeat
     sync
     yrotate object w,wrapvalue(object angle y(w)-1)
     position object s,cos(object angle y(w)+225)*sqrt(2),-1,-sin(object angle y(w)+225)*sqrt(2)
      yrotate object s,wrapvalue(object angle y(s)-1)
     position object t,cos(object angle y(w)+180),-1,-sin(object angle y(w)+180)
      yrotate object t,wrapvalue(object angle y(t)-1)
     position object u,cos(object angle y(w)+135)*sqrt(2),-1,-sin(object angle y(w)+135)*sqrt(2)
      yrotate object u,wrapvalue(object angle y(u)-1)
     position object v,cos(object angle y(w)+270),-1,-sin(object angle y(w)+270)
      yrotate object v,wrapvalue(object angle y(v)-1)
     position object x,cos(object angle y(w)+90),-1,-sin(object angle y(w)+90)
      yrotate object x,wrapvalue(object angle y(x)-1)
     position object y,cos(object angle y(w)+315)*sqrt(2),-1,-sin(object angle y(w)+315)*sqrt(2)
      yrotate object y,wrapvalue(object angle y(y)-1)
     position object z,cos(object angle y(w)),-1,-sin(object angle y(w))
      yrotate object z,wrapvalue(object angle y(z)-1)
     position object zz,cos(object angle y(w)+45)*sqrt(2),-1,-sin(object angle y(w)+45)*sqrt(2)
      yrotate object zz,wrapvalue(object angle y(zz)-1)
     inc ctr
    until ctr=90
   endif
  endif
  if pi=2
   //turn the center clockwise (y axis)
   if object angle y(pi)=180
    ctr = 0
    repeat
     sync
     yrotate object n,wrapvalue(object angle y(n)+1)
     position object j,cos(object angle y(n)+225)*sqrt(2),0,-sin(object angle y(n)+225)*sqrt(2)
      yrotate object j,wrapvalue(object angle y(j)+1)
     position object k,cos(object angle y(n)+180),0,-sin(object angle y(n)+180)
      yrotate object k,wrapvalue(object angle y(k)+1)
     position object l,cos(object angle y(n)+135)*sqrt(2),0,-sin(object angle y(n)+135)*sqrt(2)
      yrotate object l,wrapvalue(object angle y(l)+1)
     position object m,cos(object angle y(n)+270),0,-sin(object angle y(n)+270)
      yrotate object m,wrapvalue(object angle y(m)+1)
     position object o,cos(object angle y(n)+90),0,-sin(object angle y(n)+90)
      yrotate object o,wrapvalue(object angle y(o)+1)
     position object p,cos(object angle y(n)+315)*sqrt(2),0,-sin(object angle y(n)+315)*sqrt(2)
      yrotate object p,wrapvalue(object angle y(p)+1)
     position object q,cos(object angle y(n)),0,-sin(object angle y(n))
      yrotate object q,wrapvalue(object angle y(q)+1)
     position object r,cos(object angle y(n)+45)*sqrt(2),0,-sin(object angle y(n)+45)*sqrt(2)
      yrotate object r,wrapvalue(object angle y(r)+1)
     inc ctr
    until ctr=90
   endif
   //turn the center counter clockwise (y axis)
   if object angle y(pi)=0
    ctr = 0
    repeat
     sync
     yrotate object n,wrapvalue(object angle y(n)-1)
     position object j,cos(object angle y(n)+225)*sqrt(2),0,-sin(object angle y(n)+225)*sqrt(2)
      yrotate object j,wrapvalue(object angle y(j)-1)
     position object k,cos(object angle y(n)+180),0,-sin(object angle y(n)+180)
      yrotate object k,wrapvalue(object angle y(k)-1)
     position object l,cos(object angle y(n)+135)*sqrt(2),0,-sin(object angle y(n)+135)*sqrt(2)
      yrotate object l,wrapvalue(object angle y(l)-1)
     position object m,cos(object angle y(n)+270),0,-sin(object angle y(n)+270)
      yrotate object m,wrapvalue(object angle y(m)-1)
     position object o,cos(object angle y(n)+90),0,-sin(object angle y(n)+90)
      yrotate object o,wrapvalue(object angle y(o)-1)
     position object p,cos(object angle y(n)+315)*sqrt(2),0,-sin(object angle y(n)+315)*sqrt(2)
      yrotate object p,wrapvalue(object angle y(p)-1)
     position object q,cos(object angle y(n)),0,-sin(object angle y(n))
      yrotate object q,wrapvalue(object angle y(q)-1)
     position object r,cos(object angle y(n)+45)*sqrt(2),0,-sin(object angle y(n)+45)*sqrt(2)
      yrotate object r,wrapvalue(object angle y(r)-1)
     inc ctr
    until ctr=90
   endif
  endif 
  if pi=3
   //turn the top clockwise
   if object angle y(pi)=180
    ctr = 0
    repeat
     sync
     yrotate object e,wrapvalue(object angle y(e)+1)
     position object a,cos(object angle y(e)+225)*sqrt(2),1,-sin(object angle y(e)+225)*sqrt(2)
      yrotate object a,wrapvalue(object angle y(a)+1)
     position object b,cos(object angle y(e)+180),1,-sin(object angle y(e)+180)
      yrotate object b,wrapvalue(object angle y(b)+1)
     position object c,cos(object angle y(e)+135)*sqrt(2),1,-sin(object angle y(e)+135)*sqrt(2)
      yrotate object c,wrapvalue(object angle y(c)+1)
     position object d,cos(object angle y(e)+270),1,-sin(object angle y(e)+270)
      yrotate object d,wrapvalue(object angle y(d)+1)
     position object f,cos(object angle y(e)+90),1,-sin(object angle y(e)+90)
      yrotate object f,wrapvalue(object angle y(f)+1)
     position object g,cos(object angle y(e)+315)*sqrt(2),1,-sin(object angle y(e)+315)*sqrt(2)
      yrotate object g,wrapvalue(object angle y(g)+1)
     position object h,cos(object angle y(e)),1,-sin(object angle y(e))
      yrotate object h,wrapvalue(object angle y(h)+1)
     position object i,cos(object angle y(e)+45)*sqrt(2),1,-sin(object angle y(e)+45)*sqrt(2)
      yrotate object i,wrapvalue(object angle y(i)+1)
     inc ctr
    until ctr=90
   endif
   //turn the top counter clockwise
   if object angle y(pi)=0
    ctr = 0
    repeat
     sync
     yrotate object e,wrapvalue(object angle y(e)-1)
     position object a,cos(object angle y(e)+225)*sqrt(2),1,-sin(object angle y(e)+225)*sqrt(2)
      yrotate object a,wrapvalue(object angle y(a)-1)
     position object b,cos(object angle y(e)+180),1,-sin(object angle y(e)+180)
      yrotate object b,wrapvalue(object angle y(b)-1)
     position object c,cos(object angle y(e)+135)*sqrt(2),1,-sin(object angle y(e)+135)*sqrt(2)
      yrotate object c,wrapvalue(object angle y(c)-1)
     position object d,cos(object angle y(e)+270),1,-sin(object angle y(e)+270)
      yrotate object d,wrapvalue(object angle y(d)-1)
     position object f,cos(object angle y(e)+90),1,-sin(object angle y(e)+90)
      yrotate object f,wrapvalue(object angle y(f)-1)
     position object g,cos(object angle y(e)+315)*sqrt(2),1,-sin(object angle y(e)+315)*sqrt(2)
      yrotate object g,wrapvalue(object angle y(g)-1)
     position object h,cos(object angle y(e)),1,-sin(object angle y(e))
      yrotate object h,wrapvalue(object angle y(h)-1)
     position object i,cos(object angle y(e)+45)*sqrt(2),1,-sin(object angle y(e)+45)*sqrt(2)
      yrotate object i,wrapvalue(object angle y(i)-1)
     inc ctr
    until ctr=90
   endif
  endif 
  if pi=4
   //turn the front clockwise
   if object angle z(pi)=0
    ctr = 0
    repeat
     sync
     zrotate object m,wrapvalue(object angle z(m)-1)
     position object s,-cos(object angle z(m)+225)*sqrt(2),-sin(object angle z(m)+225)*sqrt(2),-1
      zrotate object s,wrapvalue(object angle z(s)-1)
     position object j,-cos(object angle z(m)+180),-sin(object angle z(m)+180),-1
      zrotate object j,wrapvalue(object angle z(j)-1)
     position object a,-cos(object angle z(m)+135)*sqrt(2),-sin(object angle z(m)+135)*sqrt(2),-1
      zrotate object a,wrapvalue(object angle z(a)-1)
     position object v,-cos(object angle z(m)+270),-sin(object angle z(m)+270),-1
      zrotate object v,wrapvalue(object angle z(v)-1)
     position object d,-cos(object angle z(m)+90),-sin(object angle z(m)+90),-1
      zrotate object d,wrapvalue(object angle z(d)-1)
     position object y,-cos(object angle z(m)+315)*sqrt(2),-sin(object angle z(m)+315)*sqrt(2),-1
      zrotate object y,wrapvalue(object angle z(y)-1)
     position object p,-cos(object angle z(m)),-sin(object angle z(m)),-1
      zrotate object p,wrapvalue(object angle z(p)-1)
     position object g,-cos(object angle z(m)+45)*sqrt(2),-sin(object angle z(m)+45)*sqrt(2),-1
      zrotate object g,wrapvalue(object angle z(g)-1)
     inc ctr
    until ctr=90
   endif
   //turn the front counter clockwise
   if object angle z(pi)=180
    ctr = 0
    repeat
     sync
     zrotate object m,wrapvalue(object angle z(m)+1)
     position object s,-cos(object angle z(m)+225)*sqrt(2),-sin(object angle z(m)+225)*sqrt(2),-1
      zrotate object s,wrapvalue(object angle z(s)+1)
     position object j,-cos(object angle z(m)+180),-sin(object angle z(m)+180),-1
      zrotate object j,wrapvalue(object angle z(j)+1)
     position object a,-cos(object angle z(m)+135)*sqrt(2),-sin(object angle z(m)+135)*sqrt(2),-1
      zrotate object a,wrapvalue(object angle z(a)+1)
     position object v,-cos(object angle z(m)+270),-sin(object angle z(m)+270),-1
      zrotate object v,wrapvalue(object angle z(v)+1)
     position object d,-cos(object angle z(m)+90),-sin(object angle z(m)+90),-1
      zrotate object d,wrapvalue(object angle z(d)+1)
     position object y,-cos(object angle z(m)+315)*sqrt(2),-sin(object angle z(m)+315)*sqrt(2),-1
      zrotate object y,wrapvalue(object angle z(y)+1)
     position object p,-cos(object angle z(m)),-sin(object angle z(m)),-1
      zrotate object p,wrapvalue(object angle z(p)+1)
     position object g,-cos(object angle z(m)+45)*sqrt(2),-sin(object angle z(m)+45)*sqrt(2),-1
      zrotate object g,wrapvalue(object angle z(g)+1)
     inc ctr
    until ctr=90
   endif
  endif 
 endif

loop

Run that, and remove the comment slashes before make cube in the for next loop, replacing the slashes on the "load object 'cube.x'" command so yours doesn't get off track trying to find an object that isn't there.

The only four modules that 'work' right now are the three arrows on the left, and the one on the top closest to you. Right click an arrow to change its direction, then click it to rotate the row/column in that direction.

Right now its screwy, and I've been wracking my brain trying to fix it. Does anyone have a suggestion?

Ich liebe Hundepfeifen; du hast wohl keine gehört.

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 14th Jun 2011 12:24

Link

Quote: "Run that"

Could you supply the media so we can actually run it?

Back to top

Profile PM Email

SJPro

23

Years of Service

User Offline

Joined: 3rd Jul 2003

Location:

Posted: 14th Jun 2011 19:20

Link

Is it possible to explain your problem a bit more abstractly from your code?

From the sounds it are you trying to rotate 27 objects around a central object in a circle shape?

www.freewarehub.net

Back to top

Profile PM

Fresser

19

Years of Service

User Offline

Joined: 16th Aug 2006

Location:

Posted: 14th Jun 2011 20:51

Link

I'll just include the media. I'm trying to make a rubik's cube and failing really, really hard.

Here's a rar of the entire project file. I realize after so many posts that it may seem like I'm trying to get other people to write this thing for me, but I'm just looking for suggestions. I'm very beginner, and I think there's something wrong that I can't see.

Ich liebe Hundepfeifen; du hast wohl keine gehört.

Back to top

Profile PM Email

Fresser

19

Years of Service

User Offline

Joined: 16th Aug 2006

Location:

Posted: 14th Jun 2011 21:34

Link

Okay, so instead of checking object positions and assigning objects a variable arbitrarily during the main loop I'm going to place a set of nine object position checks next to each "do-until" loop to check only nine objects before rotating them.

This thread has become a journal of me transitioning from idiot to a minutely less stupid idiot. Wish me luck!

Ich liebe Hundepfeifen; du hast wohl keine gehört.

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 14th Jun 2011 22:40 Edited at: 14th Jun 2011 22:46

Link

Quote: "This thread has become a journal of me transitioning from idiot to a minutely less stupid idiot."

Welcome to the club.

Thanks for the media. I'll see if I can guess what's supposed to happen.

Edit

Just tried the download. Nice (ignoring the obvious bugs). It's quite clear what should happen now. I'll see if I can spot the problem. It would be good to get this problem sorted - I then won't need to buy a new cube (many moons ago my son took my original cube apart ...).

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 14th Jun 2011 23:21 Edited at: 15th Jun 2011 00:51

Link

Had a quick look at the code.

The first thing I would do would be to remove all the comparisons of floats with exact values. That might not be the cause of your problem but it could be. If your object position is stored internally as (x, y, z) = (0.999999,0,1) then the computer wouldn't recognize this as actually (1,0,1). It would also make the code more readable if you did something like this:

+ Code Snippet

 for block = 13 to 39

    objX = floor(object position x(block)+0.5)
    objY = floor(object position y(block)+0.5)
    objZ = floor(object position z(block)+0.5)
    if objY = 1
      if objX = -1
        if objZ = -1 then a = block   
        if objZ = 0 then b = block
        if objZ = 1 then c = block
      endif
    (etc)

That way you can be sure you are comparing integers with integers and accidental float precision problems won't happen.

Edit

Quote: "Using Sin() and Cos() and I'm lost"

So am I.

I can't see what's wrong either.

You only need the front 9 objects to see the problem. If you just rotate the front 9 and print out the object numbers they should just rotate and keep the same relative positions - but they don't. If you rotate the front just once it looks OK - but the values of a, d, g, j, m, p, s, v and y show that something has gone wrong immediately. It looks like a very simple error somewhere but I can't see it yet.

I suggest you remove everything that isn't needed to show the problem (I've removed all the code referring to rotating the top centre and bottom layers for example) and carefully study what's left. Print out a few numbers and see why they are wrong.

Back to top

Profile PM Email

Fresser

19

Years of Service

User Offline

Joined: 16th Aug 2006

Location:

Posted: 15th Jun 2011 04:51

Link

Thanks for the tips, I can't thank you enough. I'll be trying this out when I get to my home PC.

Ich liebe Hundepfeifen; du hast wohl keine gehört.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Using Sin() and Cos() and I'm lost