Math::zap Zap objects in 3d space Copyright Philip R Brenan, 2004 This package supplies functions and operators to draw and zap object in 3d space: #!perl -w #______________________________________________________________________ # Zap # Perl License. # PhilipRBrenan@yahoo.com, 2004. #______________________________________________________________________ use draw; use color; use cube; use triangle; use vector; #_ Draw _______________________________________________________________ # Draw this set of objects. #______________________________________________________________________ draw ->from (vector( 10, 10, 10)) ->to (vector( 0, 0, 0)) ->horizon (vector( 1, 0.5, 0)) ->light (vector( 20, 30, -20)) ->object(triangle(vector( 0, 0, 0), vector( 8, 0, 0), vector( 0, 8, 0)), 'red') ->object(triangle(vector( 0, 0, 0), vector( 0, 0, 8), vector( 0, 8, 0)), 'green') ->object(triangle(vector( 0, 0, 0), vector(12, 0, 0), vector( 0, 0, 12)) - vector(2.5, 0, 2.5), 'blue') ->object(triangle(vector( 0, 0, 0), vector( 8, 0, 0), vector( 0, -8, 0)), 'pink') ->object(triangle(vector( 0, 0, 0), vector( 0, 0, 8), vector( 0, -8, 0)), 'orange') ->done; This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This is alpha code. It is written in pure Perl. It uses the standard Perl install mechanism. Download Math-zap-1.01.tar.gz from CPAN, untar and: perl Makefile.PL make make test make install If you are on Windows, use nmake, available at: http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15 .exe Zapping is used in Nuclear Fusion Experiments to determine the power incident on an object placed in the path of a high energy particle beam. Help with this project would be appreciated. For bug reports or suggestions please send email to: philiprbrenan@yahoo.com