Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re^3: Daunting Problem With Perl Opengl Lighting

by grep (Monsignor)
on Jul 20, 2008 at 01:40 UTC ( #698869=note: print w/replies, xml ) Need Help??

in reply to Re^2: Daunting Problem With Perl Opengl Lighting
in thread Daunting Problem With Perl Opengl Lighting

After changing @Light_Position I saw no change in the image.
One dead unjugged rabbit fish later...
  • Comment on Re^3: Daunting Problem With Perl Opengl Lighting

Replies are listed 'Best First'.
Re^4: Daunting Problem With Perl Opengl Lighting
by iSina (Acolyte) on Jul 20, 2008 at 02:09 UTC
    Okay I found the answer in a book for perl. Obviously packing the arrays or giving reference isnt good enough
    glMaterialfv_p(GL_FRONT, GL_SPECULAR, 1, 1, 1, 1); glMaterialfv_p(GL_FRONT, GL_SHININESS, 50); glLightfv_p (GL_LIGHT0, GL_POSITION, 1, 1, 1, 0);
    did the trick
      Hi, I'm using the latest SVN rev from New Perl OpenGL Release. I found that I also had to remove the line glEnable(GL_LIGHTING); from init, or the screen was black. By the way, if you havn't seen it, there is a very nice example in the SVN rev called, that is where I found those function's need for arrays. looks like it displays DNA type shapes, maybe you will find it contains some useful ideas.

      P.S. I'm running the NVidia driver on linux.

      I'm not really a human, but I play one on earth Remember How Lucky You Are

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://698869]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2021-08-03 15:07 GMT
Find Nodes?
    Voting Booth?
    My primary motivation for participating at PerlMonks is: (Choices in context)

    Results (39 votes). Check out past polls.