Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Re: Canvas3D

4 views
Skip to first unread message

Graeme Geldenhuys

unread,
Jun 17, 2008, 8:40:33 AM6/17/08
to
David HAROUCHE wrote:
> Free to use and improve....
>

Interesting idea. :-)
Do you have an example demonstrating it's usage and maybe a screenshot
of expected results. I ported that unit to fpGUI, but ain't sure if I am
seeing the correct results.


Regards,
- Graeme -


_______________________________________________________
fpGUI - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/

David HAROUCHE

unread,
Jun 17, 2008, 10:33:12 AM6/17/08
to
>> Do you have an example demonstrating it's usage
no

>>and maybe a screenshot of expected results. I ported that unit to fpGUI,
but ain't sure if I am seeing the correct results.

I'm working on integration within a TPaintBox...

DH


David HAROUCHE

unread,
Jun 17, 2008, 8:48:14 PM6/17/08
to
That should produce a sphere in a TPaintBox...Remains 3D view's calculations
to perform...(latittude, longitude, distance)...

procedure TMyPaintbox.Paint;

begin
inherited;

with TCanvas3D.Create(self.Canvas)
do begin
ViewWidth := self.Width;
ViewHeight := self.Height;

Pen.Color := clBlue;

Origin.X := self.Width div 2;
Origin.Y := self.Height div 2;

Sphere( 0, 0, 0, // center at origin
50, // width
25, // steps Horiz
25 // steps Vert
);

Free;
end;
end;

"Graeme Geldenhuys" <gra...@spamfilter.co.za> a écrit dans le message de
news:4857b0c6$1...@newsgroups.borland.com...

0 new messages