Math::Zap::Triangle2 Math::Zap::Triangle2 - triangles in 2D space.
Download

Math::Zap::Triangle2 Ranking & Summary

Math::Zap::Triangle2 Tags

Perl module 2D space triangles 2D space 2D triangles

Math::Zap::Triangle2 Description

Math::Zap::Triangle2 - triangles in 2D space. Math::Zap::Triangle2 - triangles in 2D space.SynopsisExample t/triangle2.t #_ Triangle ___________________________________________________________ # Test 2d triangles # philiprbrenan@yahoo.com, 2004, Perl License #______________________________________________________________________ use Math::Zap::Triangle2; use Math::Zap::Vector2; use Test::Simple tests=>27; $a = triangle2 (vector2(0, 0), vector2(2, 0), vector2(0, 2), ); $b = triangle2 (vector2( 0, 0), vector2( 4, 0), vector2( 0, 4), ); $c = triangle2 (vector2( 0, 0), vector2(-4, 0), vector2( 0, -4), ); $d = $b - vector2(1,1); $e = $c + vector2(1,1); #print "a=$anb=$bnc=$cnd=$dne=$en"; ok($a->containsPoint(vector2( 1, 1))); ok($a->containsPoint(vector2( 1, 1))); ok($b->containsPoint(vector2( 2, 0))); ok($b->containsPoint(vector2( 1, 0))); ok($c->containsPoint(vector2(-1, 0))); ok($c->containsPoint(vector2(-2, 0))); ok($d->containsPoint(vector2( 1, -1))); ok(!$a->containsPoint(vector2( 9, 1))); ok(!$a->containsPoint(vector2( 1, 9))); ok(!$b->containsPoint(vector2( 2, 9))); ok(!$b->containsPoint(vector2( 9, 0))); ok(!$c->containsPoint(vector2(-9, 0))); ok(!$c->containsPoint(vector2(-2, 9))); ok(!$d->containsPoint(vector2( 9, -1))); ok( $a->containsPoint(vector2(0.5, 0.5))); ok(!$a->containsPoint(vector2( -1, -1))); ok(vector2(1,2)->rightAngle == vector2(-2, 1)); ok(vector2(1,0)->rightAngle == vector2( 0, 1)); ok($a->area == 2); ok($c->area == 8); eval { triangle2(vector2(0, 0), vector2(3, -6), vector2(-3, 6))}; ok($@ =~ /^Narrow triangle2/, 'Narrow triangle'); $t = triangle2(vector2(0,0),vector2(0,10),vector2( 10,0)); $T = triangle2(vector2(0,0),vector2(0,10),vector2(-10,10))+vector2(5, -2); @p = $t->ring($T); #print "$_n" for(@p); ok($p == vector2(0, 8), 'Ring 0'); ok($p == vector2(2, 8), 'Ring 1'); ok($p == vector2(5, 5), 'Ring 2'); ok($p == vector2(5, 0), 'Ring 3'); ok($p == vector2(3, 0), 'Ring 4'); ok($p == vector2(0, 3), 'Ring 5');Requirements:· Perl

Math::Zap::Triangle2 Related Software