you might be better off using quaternions for this sort of thing. they’re much better suited for arbitrary rotations around an axis.
if you search the list, someone released some quaternion objects awhile back.

would love to see what you come up with.
-rob

http://www.cycling74.com/forums/index.php?t=msg&th=27887&rid=3109&S=86b58bfcb93612cfe0fe72cea31d67fe

let us know how it goes.

best,
Zachary

max v2;
#N vpatcher 811 44 1138 251;
#P window setfont Geneva 9.;
#P hidden newex 87 278 88 196617 bgcolor 70 70 80;
#P window setfont Geneva 14.;
#P comment 15 107 203 196622 press ‘s’ to move backward;
#B color 9;
#P comment 15 17 279 196622 press ‘esc’ to toggle navigation on/off;
#B color 5;
#P window setfont Geneva 9.;
#N vpatcher 715 508 1066 812;
#P window setfont Geneva 9.;
#P newex 87 81 48 196617 loadbang;
#P window linecount 0;
#P newex 30 202 38 196617 zl join;
#P newex 139 81 56 196617 r ship_rot;
#P newex 58 152 54 196617 pack 0. 0.;
#P newex 58 128 76 196617 unpack 0. 0. 0.;
#P newex 139 152 54 196617 pack 0. 0.;
#P newex 58 178 91 196617 vexpr $f1 + $f2;
#P newex 139 104 45 196617 t 0.25 f;
#P newex 139 127 54 196617 poltocar;
#P newex 30 49 72 196617 route position;
#P newex 30 27 57 196617 r ship_pos;
#P newex 30 251 229 196617 jit.gl.sketch test @transform_reset 1 @enable 1;
#P window linecount 1;
#P message 30 227 279 196617 reset , glcolor 0.15 0.1 0.1 , linesegment $1 $2 $3 $4 $5 0.;
#P newex 30 73 38 196617 t l l;
#P connect 3 0 4 0;
#P connect 4 0 0 0;
#P connect 0 0 12 0;
#P connect 12 0 1 0;
#P connect 1 0 2 0;
#P connect 0 1 9 0;
#P connect 9 0 10 0;
#P connect 10 0 7 0;
#P connect 7 0 12 1;
#P fasten 9 1 10 1 96 148 107 148;
#P connect 11 0 6 0;
#P fasten 13 0 6 0 92 101 144 101;
#P connect 6 0 5 0;
#P connect 5 0 8 0;
#P connect 8 0 7 1;
#P fasten 6 1 5 1 179 124 188 124;
#P connect 5 1 8 1;
#P pop;
#P hidden newobj 13 278 71 196617 p showAngles;
#B color 12;
#P window setfont Geneva 14.;
#P window linecount 2;
#P comment 15 41 287 196622 move the mouse left/right to rotate the triangle counter-clockwise/clockwise;
#B color 9;
#P window setfont Geneva 9.;
#P window linecount 1;
#P hidden newex 18 127 69 196617 loadmess 10.;
#P window setfont Geneva 14.;
#P comment 15 83 193 196622 press ‘w’ to move forward;
#B color 9;
#P flonum 18 151 49 14 0.1 100. 3 3 255 255 255 43 33 98 222 222 222 0 0 0;
#P window setfont Geneva 9.;
#N vpatcher 937 481 1291 861;
#P origin 0 -23;
#P window setfont Geneva 9.;
#P window linecount 1;
#P newex 229 23 48 196617 loadbang;
#P window linecount 0;
#P message 229 48 33 196617 set 1;
#P toggle 194 71 15 0;
#P window linecount 1;
#P newex 194 92 60 196617 s stopAnim;
#P window linecount 2;
#P message 244 188 85 196617 ; max showcursor;
#P message 229 159 80 196617 ; max hidecursor;
#P window linecount 1;
#P newex 229 137 41 196617 sel 1 0;
#P newex 200 247 27 196617 t i i;
#N vpatcher 572 155 871 517;
#P window setfont Geneva 9.;
#P window linecount 0;
#P newex 14 119 48 196617 pack 0 0;
#P newex 52 96 34 196617 i 300;
#P newex 14 96 27 196617 i 0;
#P newex 14 66 32 196617 sel 1;
#P inlet 14 41 15 0;
#P newex 111 192 60 196617 pack 1 300;
#P newex 89 224 72 196617 pack 798 300;
#P newex 111 163 32 196617 sel 1;
#P inlet 89 41 15 0;
#P window linecount 2;
#P message 89 264 96 196617 ; max pupdate $1 $2;
#P window linecount 1;
#P newex 111 140 42 196617 >= 799;
#P newex 89 118 32 196617 sel 0;
#P newex 89 96 158 196617 if $i1 < = 0 || $i1 >= 799 then $i1;
#P inlet 251 41 15 0;
#P window linecount 2;
#P comment 106 36 122 196617 pointer loops between 0 and 800 horizontal pixels;
#P connect 10 0 11 0;
#P connect 11 0 12 0;
#P connect 12 0 14 0;
#P connect 6 0 12 1;
#P fasten 11 0 13 0 19 89 57 89;
#P connect 13 0 14 1;
#P connect 1 0 13 1;
#P connect 6 0 2 0;
#P connect 2 0 3 0;
#P connect 3 0 8 0;
#P fasten 14 0 5 0 19 257 94 257;
#P fasten 9 0 5 0 116 251 94 251;
#P connect 8 0 5 0;
#P connect 3 1 4 0;
#P connect 4 0 7 0;
#P connect 7 0 9 0;
#P fasten 1 0 8 1 256 216 156 216;
#P fasten 1 0 9 1 256 181 166 181;
#P pop;
#P newobj 146 296 52 196617 p pupdate;
#B color 12;
#P newex 105 198 29 196617 gate;
#P newex 22 198 29 196617 gate;
#P newex 173 114 66 196617 t i i i i i;
#P message 207 200 36 196617 nopoll;
#P toggle 173 71 15 0;
#P newex 173 172 44 196617 togedge;
#P newex 173 47 53 196617 sel 27 32;
#P newex 173 23 40 196617 key;
#P outlet 217 321 15 0;
#P outlet 22 344 15 0;
#P window linecount 0;
#P newex 217 273 64 196617 speedlim 10;
#P message 173 200 24 196617 poll;
#P newex 217 296 99 196617 scale 0 400 360. 0.;
#P newex 173 222 121 196617 mousestate;
#P newex 72 284 34 196617 * -1.;
#P inlet 39 261 15 0;
#P newex 51 306 31 196617 f -5.;
#P newex 22 306 27 196617 f 5.;
#P message 105 252 17 196617 0.;
#P newex 105 222 65 196617 sel 119 115;
#P newex 124 172 40 196617 keyup;
#P newex 22 222 69 196617 sel 119 115;
#P newex 41 172 40 196617 key;
#P fasten 20 2 21 0 206 142 27 142;
#P connect 21 0 1 0;
#P connect 1 0 5 0;
#P connect 5 0 13 0;
#P fasten 6 0 13 0 56 333 27 333;
#P fasten 4 0 13 0 110 333 27 333;
#P connect 7 0 5 1;
#P connect 0 0 21 1;
#P connect 1 1 6 0;
#P fasten 7 0 8 0 44 280 77 280;
#P connect 8 0 6 1;
#P fasten 20 3 22 0 220 150 110 150;
#P connect 22 0 3 0;
#P connect 3 0 4 0;
#P fasten 3 1 4 0 137 245 110 245;
#P connect 2 0 22 1;
#P connect 20 1 23 0;
#P connect 24 0 23 1;
#P connect 15 0 16 0;
#P connect 16 0 18 0;
#P connect 18 0 20 0;
#P connect 20 0 17 0;
#P connect 17 0 11 0;
#P connect 11 0 9 0;
#P fasten 19 0 9 0 212 218 178 218;
#P connect 9 2 23 2;
#P connect 16 1 29 0;
#P fasten 30 0 29 0 234 67 199 67;
#P connect 29 0 28 0;
#P connect 9 1 24 0;
#P connect 17 1 19 0;
#P connect 24 1 12 0;
#P connect 12 0 10 0;
#P connect 10 0 14 0;
#P connect 31 0 30 0;
#P connect 20 4 25 0;
#P connect 25 0 26 0;
#P connect 25 1 27 0;
#P pop;
#P hidden newobj 71 184 97 196617 p movementControl;
#B color 12;
#P hidden newex 13 184 60 196617 loadmess 1;
#P hidden toggle 13 231 15 0;
#P hidden comment 135 216 46 196617 rotation;
#P hidden comment 76 216 35 196617 speed;
#P hidden flonum 71 231 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden flonum 129 231 43 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#N vpatcher 333 112 1173 773;
#P window setfont Geneva 9.;
#P window linecount 1;
#P newex 467 164 56 196617 s ship_rot;
#P newex 120 454 57 196617 s ship_pos;
#P window linecount 0;
#P newex 323 378 27 196617 t f f;
#P newex 210 378 27 196617 t f f;
#P hidden newex 107 337 60 196617 loadmess 1;
#P newex 486 591 27 196617 t f f;
#P message 503 616 39 196617 set $1;
#P newex 395 591 27 196617 t f f;
#P message 412 616 39 196617 set $1;
#P window linecount 1;
#P newex 529 541 27 196617 + 1.;
#N vpatcher 85 628 423 795;
#P window setfont Geneva 9.;
#P newex 12 94 34 196617 * -1.;
#P inlet 12 34 15 0;
#P inlet 169 34 15 0;
#P outlet 169 125 15 0;
#P newex 169 90 139 196617 if $f1 < ($f2 * -1.) then $f2;
#P newex 12 68 167 196617 if $f1 > $f2 then $f2 else out2 $f1;
#P connect 4 0 0 0;
#P connect 0 0 5 0;
#P connect 3 0 0 1;
#P connect 0 1 1 0;
#P fasten 5 0 2 0 17 118 174 118;
#P connect 1 0 2 0;
#P connect 3 0 1 1;
#P pop;
#P newobj 486 567 53 196617 p wrap_y;
#B color 12;
#N vpatcher 10 59 348 253;
#P inlet 12 34 15 0;
#P inlet 204 34 15 0;
#P outlet 204 154 15 0;
#P window setfont Geneva 9.;
#P newex 204 112 34 196617 * -1.;
#P newex 204 90 104 196617 if $f1 > $f2 then $f2;
#P newex 12 68 202 196617 if $f1 < ($f2 * -1.) then $f2 else out2 $f1;
#P connect 5 0 0 0;
#P connect 4 0 0 1;
#P connect 0 1 1 0;
#P connect 1 0 2 0;
#P fasten 0 0 3 0 17 139 209 139;
#P connect 2 0 3 0;
#P connect 4 0 1 1;
#P pop;
#P newobj 395 567 53 196617 p wrap_x;
#B color 12;
#P newex 535 503 76 196617 unpack 0. 0. 0.;
#P newex 438 541 27 196617 + 0.;
#P toggle 107 364 15 0;
#P newex 438 479 205 196617 route dest_dim scale;
#P message 107 411 42 196617 getstate;
#P newex 107 387 63 196617 qmetro 500;
#P newex 438 503 80 196617 expr ($f1/$f2);
#P newex 472 384 149 196617 expr ($f1 * 180.) / 3.141593;
#P newex 373 411 109 196617 pak rotatexyz 0. 0. 0.;
#P inlet 210 131 15 0;
#P inlet 443 32 15 0;
#P inlet 279 32 15 0;
#P window linecount 3;
#P comment 595 101 221 196617 < --this converts degrees into radians and makes for a counter-clockwise rotation (if 3.141593 were negative it would be clockwise);
#P flonum 443 56 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 1;
#P comment 24 82 254 196617 change 2nd & 3rd args. to adjust speed in gl space –>;
#P comment 294 58 94 196617 speed forw/backw;
#P flonum 368 333 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 279 106 53 196617 t b f b f;
#P flonum 253 333 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 180 411 102 196617 pak position 0. 0. 0.;
#P newex 180 442 469 196617 jit.gl.gridshape test @shape circle @scale 0.05 0.05 0.05 @transform_reset 1 @color 0.5 0. 0.15 1.;
#P comment 478 128 43 196617 radians;
#P flonum 443 128 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 443 102 146 196617 expr ($f1 /180.) * 3.141593;
#P newex 279 80 127 196617 scale -10. 10. -0.01 0.01;
#P newex 323 354 40 196617 line 0.;
#P message 323 333 37 196617 $1 10;
#P newex 210 354 40 196617 line 0.;
#P newex 357 274 29 196617 * 0.;
#P newex 244 273 29 196617 * 0.;
#P window linecount 2;
#P comment 370 300 53 196617 speed on y axis;
#P window linecount 1;
#P newex 357 250 21 196617 sin;
#P newex 323 273 27 196617 t f f;
#P newex 323 250 27 196617 f 0.;
#P newex 340 305 27 196617 + 0.;
#P newex 210 197 30 196617 t b b;
#P newex 244 250 23 196617 cos;
#P newex 210 273 27 196617 t f f;
#P toggle 210 155 15 0;
#P newex 210 250 27 196617 f 0.;
#P newex 227 305 27 196617 + 0.;
#P newex 210 176 57 196617 qmetro 10;
#P window linecount 2;
#P comment 257 300 55 196617 speed on x axis;
#P window linecount 1;
#P message 210 333 37 196617 $1 10;
#P comment 480 56 45 196617 degrees;
#P window linecount 0;
#P comment 273 537 100 196617 calculate maximum possible distance;
#P hidden connect 53 0 43 0;
#P connect 43 0 40 0;
#P connect 40 0 41 0;
#P connect 26 0 56 0;
#P fasten 37 0 25 0 378 435 185 435;
#P fasten 41 0 25 0 112 435 185 435;
#P connect 26 0 25 0;
#P connect 36 0 7 0;
#P connect 7 0 4 0;
#P connect 4 0 10 0;
#P connect 10 0 6 0;
#P connect 6 0 8 0;
#P connect 8 0 2 0;
#P connect 49 0 18 0;
#P lcolor 4;
#P connect 2 0 18 0;
#P connect 18 0 54 0;
#P connect 54 0 26 1;
#P fasten 5 0 6 1 232 327 316 327 316 237 232 237;
#P connect 50 0 6 1;
#P lcolor 4;
#P connect 8 1 5 0;
#P fasten 55 0 26 2 328 403 245 403;
#P connect 23 0 9 0;
#P lcolor 13;
#P connect 28 0 9 0;
#P lcolor 7;
#P connect 9 0 16 0;
#P connect 16 0 5 1;
#P connect 5 0 27 0;
#P connect 28 1 16 1;
#P lcolor 7;
#P connect 34 0 21 0;
#P connect 21 0 28 0;
#P fasten 10 1 12 0 235 232 328 232;
#P connect 12 0 13 0;
#P connect 13 0 19 0;
#P connect 51 0 20 0;
#P lcolor 4;
#P connect 19 0 20 0;
#P connect 20 0 55 0;
#P fasten 11 0 12 1 345 328 428 328 428 236 345 236;
#P connect 52 0 12 1;
#P lcolor 4;
#P connect 13 1 11 0;
#P connect 23 0 14 0;
#P lcolor 13;
#P connect 28 2 14 0;
#P lcolor 7;
#P connect 14 0 17 0;
#P connect 17 0 11 1;
#P connect 11 0 29 0;
#P connect 28 3 17 1;
#P lcolor 7;
#P connect 54 1 46 0;
#P connect 46 0 50 0;
#P connect 50 1 49 0;
#P fasten 25 1 42 0 644 475 443 475;
#P connect 42 0 39 0;
#P connect 39 0 44 0;
#P connect 44 0 46 1;
#P connect 35 0 32 0;
#P connect 32 0 22 0;
#P connect 22 0 23 0;
#P fasten 45 0 44 1 540 527 460 527;
#P connect 23 0 57 0;
#P connect 23 0 38 0;
#P lcolor 13;
#P connect 38 0 37 3;
#P connect 55 1 47 0;
#P connect 47 0 52 0;
#P connect 52 1 51 0;
#P fasten 45 1 48 0 573 534 534 534;
#P connect 48 0 47 1;
#P connect 42 1 45 0;
#P pop;
#P hidden newobj 13 254 126 196617 p spaceShip;
#B color 12;
#P window setfont Geneva 12.;
#P comment 68 152 222 196620 < ---increase/decrease flying speed;
#P user panel 12 14 290 121;
#X brgb 74 46 136;
#X frgb 0 214 13;
#X border 0;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 12 142 290 38;
#X brgb 187 182 231;
#X frgb 0 214 13;
#X border 0;
#X rounded 0;
#X shadow 0;
#X done;
#P window setfont Geneva 9.;
#N vpatcher 762 466 1086 693;
#P inlet 21 26 15 0;
#P window setfont “Sans Serif” 9.;
#P newex 21 92 43 131137545 jit.qball;
#P number 66 47 35 9 0 0 0 2001 0 0 0 221 221 221 222 222 222 0 0 0;
#P toggle 21 47 15 0;
#P newex 21 69 55 131137545 metro 20;
#P newex 21 117 47 131137545 t b erase;
#P newex 21 169 220 131137545 jit.window test @rect 5 45 805 645 @depthbuffer 1;
#P newex 21 146 259 131137545 jit.gl.render test @erase_color 0. 0. 0. 0.1 @camera 0. 0. 4.;
#P connect 7 0 4 0;
#P connect 4 0 3 0;
#P connect 3 0 6 0;
#P connect 6 0 2 0;
#P fasten 2 1 0 0 63 139 26 139;
#P connect 2 0 0 0;
#P connect 5 0 3 1;
#P pop;
#P hidden newobj 142 254 63 196617 p jitWindow;
#B color 12;
#P hidden connect 10 0 9 0;
#P hidden connect 9 0 4 0;
#P hidden connect 14 0 12 0;
#P hidden connect 12 0 11 0;
#P hidden connect 11 0 6 0;
#P hidden connect 6 0 4 1;
#P hidden connect 11 1 5 0;
#P hidden connect 5 0 4 2;
#P hidden connect 10 0 0 0;
#P pop;

wes

On 11/13/07, Zachary Seldess wrote:
>
> You can manage this without quaternions. Here’s a simplified version of something I made a few months ago. Also, see this thread for more examples:
>
> http://www.cycling74.com/forums/index.php?t=msg&th=27887&rid=3109&S=86b58bfcb93612cfe0fe72cea31d67fe
>
> let us know how it goes.
>
> best,
> Zachary
>
> max v2;
> #N vpatcher 811 44 1138 251;
> #P window setfont Geneva 9.;
> #P hidden newex 87 278 88 196617 bgcolor 70 70 80;
> #P window setfont Geneva 14.;
> #P comment 15 107 203 196622 press ‘s’ to move backward;
> #B color 9;
> #P comment 15 17 279 196622 press ‘esc’ to toggle navigation on/off;
> #B color 5;
> #P window setfont Geneva 9.;
> #N vpatcher 715 508 1066 812;
> #P window setfont Geneva 9.;
> #P newex 87 81 48 196617 loadbang;
> #P window linecount 0;
> #P newex 30 202 38 196617 zl join;
> #P newex 139 81 56 196617 r ship_rot;
> #P newex 58 152 54 196617 pack 0. 0.;
> #P newex 58 128 76 196617 unpack 0. 0. 0.;
> #P newex 139 152 54 196617 pack 0. 0.;
> #P newex 58 178 91 196617 vexpr $f1 + $f2;
> #P newex 139 104 45 196617 t 0.25 f;
> #P newex 139 127 54 196617 poltocar;
> #P newex 30 49 72 196617 route position;
> #P newex 30 27 57 196617 r ship_pos;
> #P newex 30 251 229 196617 jit.gl.sketch test @transform_reset 1 @enable 1;
> #P window linecount 1;
> #P message 30 227 279 196617 reset , glcolor 0.15 0.1 0.1 , linesegment $1 $2 $3 $4 $5 0.;
> #P newex 30 73 38 196617 t l l;
> #P connect 3 0 4 0;
> #P connect 4 0 0 0;
> #P connect 0 0 12 0;
> #P connect 12 0 1 0;
> #P connect 1 0 2 0;
> #P connect 0 1 9 0;
> #P connect 9 0 10 0;
> #P connect 10 0 7 0;
> #P connect 7 0 12 1;
> #P fasten 9 1 10 1 96 148 107 148;
> #P connect 11 0 6 0;
> #P fasten 13 0 6 0 92 101 144 101;
> #P connect 6 0 5 0;
> #P connect 5 0 8 0;
> #P connect 8 0 7 1;
> #P fasten 6 1 5 1 179 124 188 124;
> #P connect 5 1 8 1;
> #P pop;
> #P hidden newobj 13 278 71 196617 p showAngles;
> #B color 12;
> #P window setfont Geneva 14.;
> #P window linecount 2;
> #P comment 15 41 287 196622 move the mouse left/right to rotate the triangle counter-clockwise/clockwise;
> #B color 9;
> #P window setfont Geneva 9.;
> #P window linecount 1;
> #P hidden newex 18 127 69 196617 loadmess 10.;
> #P window setfont Geneva 14.;
> #P comment 15 83 193 196622 press ‘w’ to move forward;
> #B color 9;
> #P flonum 18 151 49 14 0.1 100. 3 3 255 255 255 43 33 98 222 222 222 0 0 0;
> #P window setfont Geneva 9.;
> #N vpatcher 937 481 1291 861;
> #P origin 0 -23;
> #P window setfont Geneva 9.;
> #P window linecount 1;
> #P newex 229 23 48 196617 loadbang;
> #P window linecount 0;
> #P message 229 48 33 196617 set 1;
> #P toggle 194 71 15 0;
> #P window linecount 1;
> #P newex 194 92 60 196617 s stopAnim;
> #P window linecount 2;
> #P message 244 188 85 196617 ; max showcursor;
> #P message 229 159 80 196617 ; max hidecursor;
> #P window linecount 1;
> #P newex 229 137 41 196617 sel 1 0;
> #P newex 200 247 27 196617 t i i;
> #N vpatcher 572 155 871 517;
> #P window setfont Geneva 9.;
> #P window linecount 0;
> #P newex 14 119 48 196617 pack 0 0;
> #P newex 52 96 34 196617 i 300;
> #P newex 14 96 27 196617 i 0;
> #P newex 14 66 32 196617 sel 1;
> #P inlet 14 41 15 0;
> #P newex 111 192 60 196617 pack 1 300;
> #P newex 89 224 72 196617 pack 798 300;
> #P newex 111 163 32 196617 sel 1;
> #P inlet 89 41 15 0;
> #P window linecount 2;
> #P message 89 264 96 196617 ; max pupdate $1 $2;
> #P window linecount 1;
> #P newex 111 140 42 196617 >= 799;
> #P newex 89 118 32 196617 sel 0;
> #P newex 89 96 158 196617 if $i1 < = 0 || $i1 >= 799 then $i1;
> #P inlet 251 41 15 0;
> #P window linecount 2;
> #P comment 106 36 122 196617 pointer loops between 0 and 800 horizontal pixels;
> #P connect 10 0 11 0;
> #P connect 11 0 12 0;
> #P connect 12 0 14 0;
> #P connect 6 0 12 1;
> #P fasten 11 0 13 0 19 89 57 89;
> #P connect 13 0 14 1;
> #P connect 1 0 13 1;
> #P connect 6 0 2 0;
> #P connect 2 0 3 0;
> #P connect 3 0 8 0;
> #P fasten 14 0 5 0 19 257 94 257;
> #P fasten 9 0 5 0 116 251 94 251;
> #P connect 8 0 5 0;
> #P connect 3 1 4 0;
> #P connect 4 0 7 0;
> #P connect 7 0 9 0;
> #P fasten 1 0 8 1 256 216 156 216;
> #P fasten 1 0 9 1 256 181 166 181;
> #P pop;
> #P newobj 146 296 52 196617 p pupdate;
> #B color 12;
> #P newex 105 198 29 196617 gate;
> #P newex 22 198 29 196617 gate;
> #P newex 173 114 66 196617 t i i i i i;
> #P message 207 200 36 196617 nopoll;
> #P toggle 173 71 15 0;
> #P newex 173 172 44 196617 togedge;
> #P newex 173 47 53 196617 sel 27 32;
> #P newex 173 23 40 196617 key;
> #P outlet 217 321 15 0;
> #P outlet 22 344 15 0;
> #P window linecount 0;
> #P newex 217 273 64 196617 speedlim 10;
> #P message 173 200 24 196617 poll;
> #P newex 217 296 99 196617 scale 0 400 360. 0.;
> #P newex 173 222 121 196617 mousestate;
> #P newex 72 284 34 196617 * -1.;
> #P inlet 39 261 15 0;
> #P newex 51 306 31 196617 f -5.;
> #P newex 22 306 27 196617 f 5.;
> #P message 105 252 17 196617 0.;
> #P newex 105 222 65 196617 sel 119 115;
> #P newex 124 172 40 196617 keyup;
> #P newex 22 222 69 196617 sel 119 115;
> #P newex 41 172 40 196617 key;
> #P fasten 20 2 21 0 206 142 27 142;
> #P connect 21 0 1 0;
> #P connect 1 0 5 0;
> #P connect 5 0 13 0;
> #P fasten 6 0 13 0 56 333 27 333;
> #P fasten 4 0 13 0 110 333 27 333;
> #P connect 7 0 5 1;
> #P connect 0 0 21 1;
> #P connect 1 1 6 0;
> #P fasten 7 0 8 0 44 280 77 280;
> #P connect 8 0 6 1;
> #P fasten 20 3 22 0 220 150 110 150;
> #P connect 22 0 3 0;
> #P connect 3 0 4 0;
> #P fasten 3 1 4 0 137 245 110 245;
> #P connect 2 0 22 1;
> #P connect 20 1 23 0;
> #P connect 24 0 23 1;
> #P connect 15 0 16 0;
> #P connect 16 0 18 0;
> #P connect 18 0 20 0;
> #P connect 20 0 17 0;
> #P connect 17 0 11 0;
> #P connect 11 0 9 0;
> #P fasten 19 0 9 0 212 218 178 218;
> #P connect 9 2 23 2;
> #P connect 16 1 29 0;
> #P fasten 30 0 29 0 234 67 199 67;
> #P connect 29 0 28 0;
> #P connect 9 1 24 0;
> #P connect 17 1 19 0;
> #P connect 24 1 12 0;
> #P connect 12 0 10 0;
> #P connect 10 0 14 0;
> #P connect 31 0 30 0;
> #P connect 20 4 25 0;
> #P connect 25 0 26 0;
> #P connect 25 1 27 0;
> #P pop;
> #P hidden newobj 71 184 97 196617 p movementControl;
> #B color 12;
> #P hidden newex 13 184 60 196617 loadmess 1;
> #P hidden toggle 13 231 15 0;
> #P hidden comment 135 216 46 196617 rotation;
> #P hidden comment 76 216 35 196617 speed;
> #P hidden flonum 71 231 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
> #P hidden flonum 129 231 43 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
> #N vpatcher 333 112 1173 773;
> #P window setfont Geneva 9.;
> #P window linecount 1;
> #P newex 467 164 56 196617 s ship_rot;
> #P newex 120 454 57 196617 s ship_pos;
> #P window linecount 0;
> #P newex 323 378 27 196617 t f f;
> #P newex 210 378 27 196617 t f f;
> #P hidden newex 107 337 60 196617 loadmess 1;
> #P newex 486 591 27 196617 t f f;
> #P message 503 616 39 196617 set $1;
> #P newex 395 591 27 196617 t f f;
> #P message 412 616 39 196617 set $1;
> #P window linecount 1;
> #P newex 529 541 27 196617 + 1.;
> #N vpatcher 85 628 423 795;
> #P window setfont Geneva 9.;
> #P newex 12 94 34 196617 * -1.;
> #P inlet 12 34 15 0;
> #P inlet 169 34 15 0;
> #P outlet 169 125 15 0;
> #P newex 169 90 139 196617 if $f1 < ($f2 * -1.) then $f2;
> #P newex 12 68 167 196617 if $f1 > $f2 then $f2 else out2 $f1;
> #P connect 4 0 0 0;
> #P connect 0 0 5 0;
> #P connect 3 0 0 1;
> #P connect 0 1 1 0;
> #P fasten 5 0 2 0 17 118 174 118;
> #P connect 1 0 2 0;
> #P connect 3 0 1 1;
> #P pop;
> #P newobj 486 567 53 196617 p wrap_y;
> #B color 12;
> #N vpatcher 10 59 348 253;
> #P inlet 12 34 15 0;
> #P inlet 204 34 15 0;
> #P outlet 204 154 15 0;
> #P window setfont Geneva 9.;
> #P newex 204 112 34 196617 * -1.;
> #P newex 204 90 104 196617 if $f1 > $f2 then $f2;
> #P newex 12 68 202 196617 if $f1 < ($f2 * -1.) then $f2 else out2 $f1;
> #P connect 5 0 0 0;
> #P connect 4 0 0 1;
> #P connect 0 1 1 0;
> #P connect 1 0 2 0;
> #P fasten 0 0 3 0 17 139 209 139;
> #P connect 2 0 3 0;
> #P connect 4 0 1 1;
> #P pop;
> #P newobj 395 567 53 196617 p wrap_x;
> #B color 12;
> #P newex 535 503 76 196617 unpack 0. 0. 0.;
> #P newex 438 541 27 196617 + 0.;
> #P toggle 107 364 15 0;
> #P newex 438 479 205 196617 route dest_dim scale;
> #P message 107 411 42 196617 getstate;
> #P newex 107 387 63 196617 qmetro 500;
> #P newex 438 503 80 196617 expr ($f1/$f2);
> #P newex 472 384 149 196617 expr ($f1 * 180.) / 3.141593;
> #P newex 373 411 109 196617 pak rotatexyz 0. 0. 0.;
> #P inlet 210 131 15 0;
> #P inlet 443 32 15 0;
> #P inlet 279 32 15 0;
> #P window linecount 3;
> #P comment 595 101 221 196617 < --this converts degrees into radians and makes for a counter-clockwise rotation (if 3.141593 were negative it would be clockwise);
> #P flonum 443 56 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
> #P window linecount 1;
> #P comment 24 82 254 196617 change 2nd & 3rd args. to adjust speed in gl space –>;
> #P comment 294 58 94 196617 speed forw/backw;
> #P flonum 368 333 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
> #P newex 279 106 53 196617 t b f b f;
> #P flonum 253 333 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
> #P newex 180 411 102 196617 pak position 0. 0. 0.;
> #P newex 180 442 469 196617 jit.gl.gridshape test @shape circle @scale 0.05 0.05 0.05 @transform_reset 1 @color 0.5 0. 0.15 1.;
> #P comment 478 128 43 196617 radians;
> #P flonum 443 128 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
> #P newex 443 102 146 196617 expr ($f1 /180.) * 3.141593;
> #P newex 279 80 127 196617 scale -10. 10. -0.01 0.01;
> #P newex 323 354 40 196617 line 0.;
> #P message 323 333 37 196617 $1 10;
> #P newex 210 354 40 196617 line 0.;
> #P newex 357 274 29 196617 * 0.;
> #P newex 244 273 29 196617 * 0.;
> #P window linecount 2;
> #P comment 370 300 53 196617 speed on y axis;
> #P window linecount 1;
> #P newex 357 250 21 196617 sin;
> #P newex 323 273 27 196617 t f f;
> #P newex 323 250 27 196617 f 0.;
> #P newex 340 305 27 196617 + 0.;
> #P newex 210 197 30 196617 t b b;
> #P newex 244 250 23 196617 cos;
> #P newex 210 273 27 196617 t f f;
> #P toggle 210 155 15 0;
> #P newex 210 250 27 196617 f 0.;
> #P newex 227 305 27 196617 + 0.;
> #P newex 210 176 57 196617 qmetro 10;
> #P window linecount 2;
> #P comment 257 300 55 196617 speed on x axis;
> #P window linecount 1;
> #P message 210 333 37 196617 $1 10;
> #P comment 480 56 45 196617 degrees;
> #P window linecount 0;
> #P comment 273 537 100 196617 calculate maximum possible distance;
> #P hidden connect 53 0 43 0;
> #P connect 43 0 40 0;
> #P connect 40 0 41 0;
> #P connect 26 0 56 0;
> #P fasten 37 0 25 0 378 435 185 435;
> #P fasten 41 0 25 0 112 435 185 435;
> #P connect 26 0 25 0;
> #P connect 36 0 7 0;
> #P connect 7 0 4 0;
> #P connect 4 0 10 0;
> #P connect 10 0 6 0;
> #P connect 6 0 8 0;
> #P connect 8 0 2 0;
> #P connect 49 0 18 0;
> #P lcolor 4;
> #P connect 2 0 18 0;
> #P connect 18 0 54 0;
> #P connect 54 0 26 1;
> #P fasten 5 0 6 1 232 327 316 327 316 237 232 237;
> #P connect 50 0 6 1;
> #P lcolor 4;
> #P connect 8 1 5 0;
> #P fasten 55 0 26 2 328 403 245 403;
> #P connect 23 0 9 0;
> #P lcolor 13;
> #P connect 28 0 9 0;
> #P lcolor 7;
> #P connect 9 0 16 0;
> #P connect 16 0 5 1;
> #P connect 5 0 27 0;
> #P connect 28 1 16 1;
> #P lcolor 7;
> #P connect 34 0 21 0;
> #P connect 21 0 28 0;
> #P fasten 10 1 12 0 235 232 328 232;
> #P connect 12 0 13 0;
> #P connect 13 0 19 0;
> #P connect 51 0 20 0;
> #P lcolor 4;
> #P connect 19 0 20 0;
> #P connect 20 0 55 0;
> #P fasten 11 0 12 1 345 328 428 328 428 236 345 236;
> #P connect 52 0 12 1;
> #P lcolor 4;
> #P connect 13 1 11 0;
> #P connect 23 0 14 0;
> #P lcolor 13;
> #P connect 28 2 14 0;
> #P lcolor 7;
> #P connect 14 0 17 0;
> #P connect 17 0 11 1;
> #P connect 11 0 29 0;
> #P connect 28 3 17 1;
> #P lcolor 7;
> #P connect 54 1 46 0;
> #P connect 46 0 50 0;
> #P connect 50 1 49 0;
> #P fasten 25 1 42 0 644 475 443 475;
> #P connect 42 0 39 0;
> #P connect 39 0 44 0;
> #P connect 44 0 46 1;
> #P connect 35 0 32 0;
> #P connect 32 0 22 0;
> #P connect 22 0 23 0;
> #P fasten 45 0 44 1 540 527 460 527;
> #P connect 23 0 57 0;
> #P connect 23 0 38 0;
> #P lcolor 13;
> #P connect 38 0 37 3;
> #P connect 55 1 47 0;
> #P connect 47 0 52 0;
> #P connect 52 1 51 0;
> #P fasten 45 1 48 0 573 534 534 534;
> #P connect 48 0 47 1;
> #P connect 42 1 45 0;
> #P pop;
> #P hidden newobj 13 254 126 196617 p spaceShip;
> #B color 12;
> #P window setfont Geneva 12.;
> #P comment 68 152 222 196620 < ---increase/decrease flying speed;
> #P user panel 12 14 290 121;
> #X brgb 74 46 136;
> #X frgb 0 214 13;
> #X border 0;
> #X rounded 0;
> #X shadow 0;
> #X done;
> #P user panel 12 142 290 38;
> #X brgb 187 182 231;
> #X frgb 0 214 13;
> #X border 0;
> #X rounded 0;
> #X shadow 0;
> #X done;
> #P window setfont Geneva 9.;
> #N vpatcher 762 466 1086 693;
> #P inlet 21 26 15 0;
> #P window setfont “Sans Serif” 9.;
> #P newex 21 92 43 131137545 jit.qball;
> #P number 66 47 35 9 0 0 0 2001 0 0 0 221 221 221 222 222 222 0 0 0;
> #P toggle 21 47 15 0;
> #P newex 21 69 55 131137545 metro 20;
> #P newex 21 117 47 131137545 t b erase;
> #P newex 21 169 220 131137545 jit.window test @rect 5 45 805 645 @depthbuffer 1;
> #P newex 21 146 259 131137545 jit.gl.render test @erase_color 0. 0. 0. 0.1 @camera 0. 0. 4.;
> #P connect 7 0 4 0;
> #P connect 4 0 3 0;
> #P connect 3 0 6 0;
> #P connect 6 0 2 0;
> #P fasten 2 1 0 0 63 139 26 139;
> #P connect 2 0 0 0;
> #P connect 5 0 3 1;
> #P pop;
> #P hidden newobj 142 254 63 196617 p jitWindow;
> #B color 12;
> #P hidden connect 10 0 9 0;
> #P hidden connect 9 0 4 0;
> #P hidden connect 14 0 12 0;
> #P hidden connect 12 0 11 0;
> #P hidden connect 11 0 6 0;
> #P hidden connect 6 0 4 1;
> #P hidden connect 11 1 5 0;
> #P hidden connect 5 0 4 2;
> #P hidden connect 10 0 0 0;
> #P pop;
>
> –
> http://www.zacharyseldess.com
>
>

Really more of an inebriated hack than a king, but thanks ;)

Zachary