Hi!

I am trying to use 3d-text feature with no success.

Here is the changes which I added to otherwise working program

in my .m file

: make-gear-task recursive
   gear-task @
   1 gear-task !
    0= IF
        screen xrc with
        s" -*-helvetica-bold-r-normal--32-*-*-*-p-*-iso10646-1" 3 font!
        endwith
        s" 123" 3 screen xrc font@ 3d-turtle text-texture F bind xy-text
   THEN
    glskull render &100 0 DO  pause  LOOP
    glskull draw   &100 0 DO  pause  LOOP ;

in my .fs file

3d-text ptr xy-text

and in the block of 3d-turtle with endwith

F : location ( x y -- )
    .rot .color
    fswap !0 forward-xyz
    1 0 ^ xy-text draw
;

Program crashes with Bus error ! draw. Note that I do not use location
yet, just define it. If i comment out draw then there is no problem.
With those changes removed the program works fine.

Any ideas?

Thank you!

--
Sergey

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to