Surface3D

tb · Post by tb » Mon Sep 27, 2004 7:37 pm

Does anybody have an example of using the Surface3D of the TDraw3D canvas ? I looked through the demos and googled it, but didn't come up with anything.

-regards,

-Torben

Post by **Pep** » Tue Sep 28, 2004 7:37 am

Hi Torben,

from sources :

Code: Select all

Procedure TTeeCanvas3D.Surface3D( Style:TTeeCanvasSurfaceStyle;                                   SameBrush:Boolean;                                   NumXValues,NumZValues:Integer;                                   CalcPoints:TTeeCanvasCalcPoints );
begin
  { not implemented in GDI mode. (Use TeeOpenGL) }
end;

This method is not implemented for TTeeCanvas3D. Instead, you should use TGLCanvas.Surface3D method ( a bit complicated, but it should work), where :

Style = TTeeCanvasSurfaceStyle=(tcsSolid,tcsWire,tcsDot);
CalcPoints = TTeeCanvasCalcPoints=Function( x,z:Integer; Var P0,P1:TPoint3D;
Var Color0,Color1:TColor):Boolean of object;

tb · Post by tb » Tue Sep 28, 2004 11:55 am

Thanks, I'll have a look

-Torben