Question

假设我有@points[$number][$x][$y][$z][$color]而我只是出于调试目的，希望它们在3D立方体中可视化以更好地观察我拥有的内容。通常我将它们导出到*.txt并使用R 3D绘图，但也许在Perl中有简单的方法可以做到这一点？拥有半径的球体会更好。

Answer 1

我的回答：使用OpenGL perl绑定

我还没有完全回答你的问题，但我确信你可以采用这个代码

我之前没有做过OpenGL，但这是一个有趣的小夜晚项目

use OpenGL qw/ :all /;
use constant ESCAPE => 27;
# Global variable for our window
my $window;
my $CubeRot = 0;
my $xCord = 1;
my $yCord = 1;
my $zCord = 0;
my $rotSpeed = 0.02 ;
($width, $height) = (1366,768);
@points = ( [ 30,40,40,[100,0,0]], #red
            [ 100,100,40,[0,100,0]], #green
            [ 100,10,60,[0,100,100]], #turquoise
            [ 200,200,100,[0,0,100]] #blue
            );
sub reshape  {  

glViewport(0, 0, $width, $height); # Set our viewport to the size of our window  
glMatrixMode(GL_PROJECTION); # Switch to the projection matrix so that we can manipulate how our scene is viewed  
glLoadIdentity(); # Reset the projection matrix to the identity matrix so that we don't get any artifacts (cleaning up)  
gluPerspective(60, $width / $height, 1.0, 100.0); # Set the Field of view angle (in degrees), the aspect ratio of our window, and the new and far planes  
glMatrixMode(GL_MODELVIEW); # Switch back to the model view matrix, so that we can start drawing shapes correctly  
glOrtho(0, $width, 0, $height, -1, 1);   # Map abstract coords directly to window coords. 
  glScalef(1, -1, 1);           # Invert Y axis so increasing Y goes down. 
  glTranslatef(0, -h, 0);       # Shift origin up to upper-left corner. 

}  
sub keyPressed {

    # Shift the unsigned char key, and the x,y placement off @_, in
    # that order.
    my ($key, $x, $y) = @_;
    # If escape is pressed, kill everything.
    if ($key == ESCAPE) 
    { 
        # Shut down our window 
        glutDestroyWindow($window); 

        # Exit the program...normal termination.
        exit(0);                   
    }
}

sub InitGL {              

    # Shift the width and height off of @_, in that order
    my ($width, $height) = @_;

    # Set the background "clearing color" to black
    glClearColor(0.0, 0.0, 0.0, 0.0);

    # Enables clearing of the Depth buffer 
    glClearDepth(1.0);                    

    glDepthFunc(GL_LESS);         
    # Enables depth testing with that type
    glEnable(GL_DEPTH_TEST);              

    # Enables smooth color shading
    glShadeModel(GL_SMOOTH);      

    # Reset the projection matrix
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity;
    # Reset the modelview matrix
    glMatrixMode(GL_MODELVIEW);
}
    sub display {  
    glClearColor(1.0,0.0,0.0,1.0); 
    glClear(GL_COLOR_BUFFER_BIT);
    glLoadIdentity;

    glTranslatef(0.0, 0.0, -5.0); # Push eveything 5 units back into the scene, otherwise we won't see the primitive  
    #glPushMatrix();
    #glRotatef($CubeRot, $xCord, $yCord, $zCord);

   # this is where the drawing happens, adjust glTranslate to match your coordinates
   # the centre is is 0,0,0
    for my $sphere ( @points ) {
        glPushMatrix();
        glColor3b( @{$sphere->[3]}) ;
        glRotatef($CubeRot, $xCord, $yCord, $zCord);
        glTranslatef($sphere->[0]/50 -2 ,$sphere->[1]/50 -2 ,$sphere->[2]/50 -2);
        glutWireSphere(1.0,24,24); # Render the primitive  
        glPopMatrix();
        }
    $CubeRot += $rotSpeed;
    glFlush; # Flush the OpenGL buffers to the window  
    }  

# Initialize GLUT state
glutInit;  

# Depth buffer */  
glutInitDisplayMode(GLUT_SINGLE);



# The window starts at the upper left corner of the screen
glutInitWindowPosition(0, 0);  

# Open the window  
$window = glutCreateWindow("Press escape to quit");

# Register the function to do all our OpenGL drawing.
glutDisplayFunc(\&display);  

# Go fullscreen.  This is as soon as possible. 
glutFullScreen;
glutReshapeFunc(\&reshape);
# Even if there are no events, redraw our gl scene.
glutIdleFunc(\&display);

# Register the function called when the keyboard is pressed.
glutKeyboardFunc(\&keyPressed);

# Initialize our window.
InitGL($width, $height);

# Start Event Processing Engine
glutMainLoop;  

return 1;

用Perl在3D立方体中的点或球体

1 个答案: