QB64 code for "Spinny Cube"

[CharlieJV]

• YouTube video of Paul Dunn's SpecBAS code and running program.
• BASIC Anywhere Machine version of Paul Dunn's SpecBAS program, exported to HTML for running in web browser
• BASIC Anywhere Machine program's source code

I didn't go out of my way to make the QB64 code pretty.  I just did bare minimum to get program working:

Code: QB64: [Select]

1. ' BASIC Anywhere Machine version of Spinny Cube by Dean Belfield
2. ' As presented in Paul Dunn's "Spinny Cube" video ([youtube]https://www.youtube.com/watch?v=bXC9qy4dGeE[/youtube])
3. screen 12
4. dim the as double : dim psi as double : dim phi as double
5. dim xx as double : dim yy as double : dim zz as double
6. dim x as double : dim y as double
7. the = 0.00 : psi = 0.00 : phi = 0.00
8. dim a(8), b(8) as double
9. dim xd as double : dim yd as double : dim xo as double : dim yo as double
10. xd = 0 : yd = 0 : xo = 0 : yo = 0
11. sd = 640 : od = 480
12. sw = 200 : sh = 200
13. dim shape_pts(8,3), shape(6,4) as double
14. for i = 0 to 23 : read shape_pts(int(i/3), i mod 3) : next i
15. for i = 0 to 23 : read shape(int(i/4), i mod 4) : next i
16. 30 the = 0 : psi = 0 : phi = 0
17. do
18. gosub 40
19. the = the + .01 : psi = psi + .03 : phi = phi - .02
20. _delay 0.0125 : cls
21. loop
22. 40 for i = 0 to 7
23.     xx = shape_pts(i,0) : yy = shape_pts(i,1) : zz = shape_pts(i,2)
24.     y = yy*cos(phi) - zz*sin(phi) : zz = yy*sin(phi) + zz*cos(phi)
25.     x = xx*cos(the) - zz*sin(the) : zz = xx*sin(the) + zz*cos(the)
26.     xx = x*cos(psi) - y*sin(psi) : yy = x*sin(psi) + y*cos(psi)
27.     xx = xx + xo + xd : yy = yy + yo + yd
28.     a(i) = sw + xx * sd / (od - zz )
29.     b(i) = sh + yy * sd / (od - zz )
30. next i
31. for i = 0 to 5
32.     x1 = a(shape(i,0)) : x2=a(shape(i,1)) : x3 = a(shape(i, 2)) : x4 = a(shape(i,3))
33.     y1 = b(shape(i,0)) : y2=b(shape(i,1)) : y3 = b(shape(i, 2)) : y4 = b(shape(i,3))
34.     if x1*(y2-y3) + x2*(y3-y1) + x3*(y1-y2) <= 0 then
35.         line (x1, y1) - (x2, y2), 13
36.         line (x2, y2) - (x3, y3), 13
37.         line (x3, y3) - (x4, y4), 13
38.         line (x4, y4) - (x1, y1), 13
39.     end if
40. next i
41. return
42. '
43. '
44. '
45. 50 data -20,20,20,20,20,20,-20,-20,20,20,-20,20,-20,20,-20,20,20,-20,-20,-20,-20,20,-20,-20
46. 60 data 0,1,3,2,6,7,5,4,1,5,7,3,2,6,4,0,2,3,7,6,0,4,5,1
47.  

[bplus]

Hey Paul Dunn again!

Could be handy for The 6 Sides of Cube challenge at Syntax Bomb.

[_vince]

Hey Paul Dunn again!

Could be handy for The 6 Sides of Cube challenge at Syntax Bomb.

wow what is syntax bomb and what is it about?

[CharlieJV]

wow what is syntax bomb and what is it about?

I had just chalked that up to an inside joke that flew over my head.

Huh:  https://www.syntaxbomb.com/game-coding-competitions/code-a-game-comp-14-the-six-sides-of-qube-8840

[bplus]

wow what is syntax bomb and what is it about?

Actually it's The 6 Sides of Qube:
https://www.syntaxbomb.com/game-coding-competitions/code-a-game-comp-14-the-six-sides-of-qube-8840/

Back story: Qube is founder of the forum Syntax Bomb, allot of Blitz Basic and variations people there but all indie (? not sure)  coders welcome and games are Open Competitions. BTW Syntax Bomb became Home for SmallBASIC after Walter abandoned us po Baisc fans and closed down his forum, did it again at Friends... but that's for another day.

Qube had very unfortunate event happen before Xmas. Qube disappeared for awhile and when back told story of betrayal of trusted friend and partner. Now broke, had to sell off expensive gaming stuff. The forum was even shut down for awhile. I guess better heads prevailed and it's back. The Game competitions are the raison d'etre(reason for existence of) the forum maybe even major contributor of Qubes happiness and other core members.

So on the subject of next competition theme they started talking:
https://www.syntaxbomb.com/game-coding-competitions/time-for-another-game-comp/msg347054494/#msg347054494

PS while writing this Charlie posted sorry....  ;-))
also I apologize for possibly distracting from great code translation!

[Qwerkey]

@CharlieJV This post is some QB64 code leading to an executable.  It is not, I think, a discussion on QB64.  It would be better placed in Programs.  If similar next time, put this sort of thing there if you would.
Not important, just tidy.

[CharlieJV]

{snip!}
PS while writing this Charlie posted sorry....  ;-))
also I apologize for possibly distracting from great code translation!

Oh heck no, please do not apologize.  How on earth could I ever have found out about SyntaxBomb otherwise?   And a meaty backstory to boot !  Worth it.

[CharlieJV]

@CharlieJV This post is some QB64 code leading to an executable.  It is not, I think, a discussion on QB64.  It would be better placed in Programs.  If similar next time, put this sort of thing there if you would.
Not important, just tidy.

I didn't see that as a fit because of comparison with SpecBAS code and BASIC Anywhere Machine code, and massaging code from those to QB64 and maybe back.

It might be a good idea to change the description of the other forum to say all demo programs.  I really can't make heads or tails of the intended purpose for that other forum.  As is, that description would be better with something much more clear/simple.

[bplus]

Yeah I look at Discussion board as Talk centric and Programs QB64 Code centric unless the talk is about a code problem in which case you have to bring in code to help illustrate in Discussion Board. But then again, you might have a problem with a WIP and so it would be in Programs Board as a small part of the overall WIP.

Translations from one code or platform to another? Could go either way, are you asking for help = Discussion Board or showing off, pictures on the fridge door = Programs Board.

Hope that helps clear things up ;-))

If you really screw up you will probably hear from Odin.

[CharlieJV]

Yeah I look at Discussion board as Talk centric and Programs QB64 Code centric unless the talk is about a code problem in which case you have to bring in code to help illustrate in Discussion Board. But then again, you might have a problem with a WIP and so it would be in Programs Board as a small part of the overall WIP.

Translations from one code or platform to another? Could go either way, are you asking for help = Discussion Board or showing off, pictures on the fridge door = Programs Board.

Hope that helps clear things up ;-))

If you really screw up you will probably hear from Odin.

I don't think there is a soul who could do any better.  (The spirit of that is not clear in the descriptions.)

However, it is too much effort figuring out which forum I go to for posting something.

When the very first forum says "All things QB64 here", I figure the description means it.  So I jump in.

The list of forums and descriptions need some TLC for guiding folk to the right place.  Although I don't think "no brainer" choices can ever be achieved, it is far from no-brainer now.

If I have to get directions for every time I post something, or if I have to go deer in the headlights thinking maybe it should go here or there, I'm either not going to post anything at all or roll the dice (and ignore any directions after rolling the dice.)  I am too old and life is way too short to be bothered trying to make heads or tails of things.

Aside: cognitively disabilities over here, so I really desperately need clear organization of things, although that can be a real crap shoot because I do process things very (like: way way out there) differently.  Kind of why I dropped out of the idea of helping with the wiki.  The "do's" and "don't's" are not obvious, and reminders add to cognitive overload.

For example: "all things QB64" seemed right, Programs not so much, and if Programs, then I think: wouldn't "Samples" make more sense?

Paralysis by analysis, I'd rather not.  Man, that's already a 24x7 thing for me, unless I go bubble boy and keep to myself.  That does get lonely, though.  Yet safe.

[bplus]

edit:
Oh I see where you are getting "All Things QB64" that just means don't talk about things unrelated to QB64, eg problems with your mistress or that orange politician.

Well if you become totally paralyzed try checking with Fellippe, he happens to know Odin's thinking or Qwerkey LOL!

[CharlieJV]

edit:
Oh I see where you are getting "All Things QB64" that just means don't talk about things unrelated to QB64, eg problems with your mistress or that orange politician.

Pff, as long as it is "all things QB64 and the first choice, I'll be going to it every time.

Now I'm going to be wishing for QB64-related posts that are somehow intertwingled with captivating stories of mistresses.  Having to look it up, I'm thinking funny the male version of mistress is called a mister.  That's just weird.  Totally QB64-related ...

[bplus]

OK now don't think of QB64 stuff. Anything but QB64. LOL

[SMcNeill]

Having to look it up, I'm thinking funny the male version of mistress is called a mister.

Mister isn't a male mistress.  The word you're looking for is either a paramour, or else an inamorato.  Or, the the southern US, you'd call them a "dandy beau".  ;)

[CharlieJV]

Mister isn't a male mistress.  The word you're looking for is either a paramour, or else an inamorato.  Or, the the southern US, you'd call them a "dandy beau".  ;)

+ 1

Bad mistake by moi after reading:  According to morphology, 'mister' is the male form of 'mistress', just as 'waiter' is that of 'waitress'. However, the sense of 'mistress' changed from something like 'lady' to 'a sexually related women of a married man', while 'mister' (Mr.) remains a general word refering to any an adult man.

And for the giggles, although I don't know how I feel about it: misteress

This needs an algorithm ...