In the meantime, here are a couple of simple TriD examples. More examples, including how to do animation is at TriD_Tutorial
A polar coordinate system example:
#!/usr/bin/perl use warnings; use PDL; use PDL::Graphics::TriD; # POLAR2D A 2-D polar coordinate system. [$piddle] is interpreted as t +he z coordi # nate over theta and r (theta = the first dimension of +the piddle). $size = 25; $x = ( xvals zeroes $size+ 1, $size + 1 );# / $size; print "$x\n"; print join ' ',dims $x; print "\n"; $y = ( yvals zeroes $size+ 1, $size + 1 );# / $size; #$z = 0.5 + 0.5 * ( sin( $x * 6.3 ) * sin( $y * 6.3 ) )**3; # Bumps $z= $x * 10; $r = $x; $g = $y; $b = $z; # The reason for the [] around $x,$y,$z: # 1. You can give all the coordinates and colors in one piddle. $c = ( zeroes 3, $size + 1 ) / $size; $coords = sin( ( 3 + 3 * xvals $c) * yvals $c); $colors = $coords; print "hit q to continue\n"; # 2. You can use defaults inside the brackets: lattice3d [ $z ], [ $r ]; # Note: no $x, $y, and $r is greyscale print "hit q to continue\n"; # 3. You can plot in certain other systems as defaults imag3d_ns [ POLAR2D, $z ], [ $r, $g, $b ]; # Draw the familiar # bumpy surface in polar # coordinates
A conventional 3d cartesian example using easy-to-see spheres
#!/usr/bin/perl use warnings; use strict; use PDL; use PDL::Graphics::TriD; keeptwiddling3d(); my $piddle = pdl( [ [1,1,1],[2,2,2],[3,3,3],[4,4,4],[5,5,5],[6,6,6],[7 +,7,7],[8,8,8], [1,0,1] ] ); spheres3d $piddle ;
In reply to Re: Polar Co-Ordinates: Rotating a 3D cartesian point around a fixed axis?
by zentara
in thread Polar Co-Ordinates: Rotating a 3D cartesian point around a fixed axis?
by fraizerangus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |