something like this ?
mfg.a.sdr IOhannes
#N canvas 39 209 841 454 10; #X obj 86 258 gemwin; #X msg 86 183 create; #X msg 103 210 destroy; #X obj 133 240 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1; #X obj 353 224 curve 2; #X obj 353 314 curve 2; #X msg 382 272 0 -1 0; #X msg 397 293 0 1 0; #X floatatom 444 89 5 -4 4 0 x - -; #X msg 382 179 -1 0 0; #X msg 397 198 1 0 0; #X obj 353 133 translateXYZ; #X floatatom 447 110 5 -4 4 0 y - -; #X obj 353 30 gemhead -1; #X text 430 32 negative , to ignore the viewpoint; #X obj 382 154 loadbang; #X obj 382 249 loadbang; #X obj 593 233 gemhead; #X obj 593 327 cube; #X msg 664 298 draw line; #X obj 664 274 loadbang; #X obj 593 253 color 1 0 0; #X obj 353 52 ortho; #X text 400 54 we don't want perspective for the crosshair; #X msg 187 211 view 0 0 4 $1; #X floatatom 187 174 5 0 0 0 - - -; #X text 188 158 turn the "head"; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 0 0; #X connect 4 0 5 0; #X connect 6 0 5 2; #X connect 7 0 5 3; #X connect 8 0 11 1; #X connect 9 0 4 2; #X connect 10 0 4 3; #X connect 11 0 4 0; #X connect 12 0 11 2; #X connect 13 0 22 0; #X connect 15 0 9 0; #X connect 15 0 10 0; #X connect 16 0 6 0; #X connect 16 0 7 0; #X connect 17 0 21 0; #X connect 19 0 18 0; #X connect 20 0 19 0; #X connect 21 0 18 0; #X connect 22 0 11 0; #X connect 24 0 0 0; #X connect 25 0 24 0;