Find the intersection of a line with a plane: Difference between revisions
Find the intersection of a line with a plane (view source)
Revision as of 11:28, 6 July 2017
, 7 years ago→{{header|Perl 6}}: typos
Walterpachl (talk | contribs) (→version 2: 2 other fixes :-( more testing to come) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: typos) |
||
Line 24:
sub line-plane-intersection ($𝑳, $𝑷) {
my $cos = $𝑷.n⃗ ∙ $𝑳.u⃗; # cosine between normal & ray
return 'Vectors are
if $cos == 0;
my $𝑊 = $𝑳.P0 «-» $𝑷.V0; # difference between P0 and V0
my $S𝐼 = -($𝑷.n⃗ ∙ $𝑊) / $cos; # line segment where it
$𝑊 «+» $S𝐼 «*» $𝑳.u⃗ «+» $𝑷.V0; # point where line intersects the plane
}
| |||