; dxTFormPoint example

dxGraphics3D 640, 480

s = dxCreateSphere()       ; center at (0,0,0)  north pole at (0,1,0)

dxMoveEntity s, 1,2,3      ; center at (1,2,3)  north pole at (1,2+1,3)  
dxScaleEntity s, 10,10,10  ; center at (1,2,3)  north pole at (1,2+10,3)

; Now verify that the north pole is at (1,12,3) in the 3d world

dxTFormPoint 0,1,0, s,0    ; north pole transformed from sphere to world

message$ = "North pole is at ( "
message = message + dxTFormedX() + ",  " + dxTFormedY() + ",  " + dxTFormedZ() + " )"

dxText 180, 200, message

dxFlip

dxWaitKey()
End