#!/usr/bin/perl use strict; use warnings; my $line = <new(@veo); my $divisions = 360; for my $angle_ix (0 .. $divisions - 1) { my $angle = $angle_ix * 360 / $divisions; my @ro = $vl->rotate_3d($deg2rad * $angle, @vpo); for my $rix (0..$#ro) { my ($eix, $d) = $tree->find_nearest_neighbor($ro[$rix], $epsilon); if (defined $eix) { my $r = $ro[$rix] + $vl0; print("point $rix ($vp[$rix]) touchs end point $eix ($ve[$eix]) ", "after rotating it $angle deg ($r), distance is $d\n"); # last } } }