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

ANN: Tcl3D Demo of the Month April 2007

2 views
Skip to first unread message

Tcl3D Info

unread,
Apr 1, 2007, 11:28:21 AM4/1/07
to
Dear Tcl3D users,

As the Wiki is still read-only (sigh), I have put the actual Demo of the
Month for April onto my homepage:

http://www.tcl3d.org/cgi-bin/demolist.tcl?DemoOfTheMonth

The April demo is NeHe's Lesson 25, a nice example of morphing.
Although lots of code is done on the CPU with Tcl, it runs quite smooth.

Have fun.

Paul

Synic

unread,
Apr 2, 2007, 8:22:56 AM4/2/07
to
Tcl3D Info <in...@tcl3d.org> wrote:
> As the Wiki is still read-only (sigh), I have put the actual Demo of the
> Month for April onto my homepage:

And cheers for Tcl3D too :-).

With the Wiki still read-only, I'll use this space to mention the odd
thing I found with the Nvidia Geforce FX 5700 card and the togl widget:

togl .main.toglwin -width 640 -height 480 \
-double true -depth true -alpha true \
-createproc tclCreateFunc -reshapeproc tclReshapeFunc \
-displayproc tclDisplayFunc

Using the -alpha true option managed to force the card to use the
fall-back software renderer. Removing the -alpha true option entirely
meant it used the Nvidia's hardware renderer.

I'm sure there's a reason for it, but, I just thought I'd mention
it in case it bites someone else too ;-).

Tcl3D Info

unread,
Apr 2, 2007, 2:35:21 PM4/2/07
to
Hi Synic,

If you could provide more infos about your environment, this would be
helpful.

You might use the following script and send me the output:

package require tcl3d
togl .t

parray tcl_platform
puts [tcl3dGetPackageInfo]
puts [tcl3dGetVersions]

Paul

Synic

unread,
Apr 3, 2007, 9:11:18 AM4/3/07
to
Tcl3D Info <in...@tcl3d.org> wrote:
> If you could provide more infos about your environment, this would be
> helpful.
>
> You might use the following script and send me the output:
>
> package require tcl3d
> togl .t
>
> parray tcl_platform
> puts [tcl3dGetPackageInfo]
> puts [tcl3dGetVersions]

Happy to help. Slight modification of that script as puts and Windows
don't mix...

package require tcl3d
togl .u

parray tcl_platform
grid [text .t]
.t insert end [tcl3dGetPackageInfo]
.t insert end [tcl3dGetVersions]

Result:

{tcl3dcg 1 0.3.2 1.5.0015} {tcl3ddemoutil 1 0.3.2 {}} {tcl3dftgl 1 0.3.2
2.1.2} {tcl3dgauges 1 0.3.2 {}} {tcl3dgl2ps 1 0.3.2 1.3.2} {tcl3dode 1
0.3.2 0.7.0} {tcl3dogl 1 0.3.2 2.0.3} {tcl3dsdl 1 0.3.2 1.2.9}
{tcl3dtogl 1 0.3.2 {}} {tcl3dutil 1 0.3.2 {}}{GL_VENDOR {NVIDIA
Corporation}} {GL_RENDERER {GeForce FX 5700/AGP/SSE2}} {GL_VERSION
2.0.3} {GLU_VERSION {1.2.2.0 Microsoft Corporation}}

Message has been deleted

Synic

unread,
Apr 3, 2007, 10:44:09 AM4/3/07
to
Synic <flavp+...@nhgbaf.arg.nh> wrote:
> parray tcl_platform

Whoops. Forgot that one...

foreach { key val } [array get tcl_platform] {
.t insert end "$key $val\n"
}

Results in:

osVersion 5.1
byteOrder littleEndian
tip,268 1
threaded 1
machine intel
platform windows
os Windows NT
tip,280 1
user pc
wordSize 4

Synic

unread,
Apr 3, 2007, 10:48:08 AM4/3/07
to
Larry W. Virden <lvi...@gmail.com> wrote:
> It is a shame, isn't it? I hope we have not permanently lost the wiki.

Mind you, if it can be used as an excuse to transfer it to a more
modern Wiki codebase, it might be alright. The old Wiki's been
showing her age compared to newer interfaces like that on Wikipedia.

Uwe Klein

unread,
Apr 3, 2007, 12:14:41 PM4/3/07
to
I'd KISS the wikit Wiki any time ;-)

uwe

0 new messages