my $ori_deglab = $ori_framey->Label(-text=>"Facing (in Degrees):")->pack(-side=>left);
    my $ori_deg = $ori_framey->Spinbox(-from=>0.0, -to=>360.0, -increment=>0.5, -width=>12, -command=>sub {
			    my $deg = shift;
			    my $degg = $deg;
			    my $fl = $degg/2;
			    my $flo = deg_to_rad($fl); print "Order:\n\t$deg\n\t$fl\n\t$flo\n";
			    $quatx = cos($fl); $quaty = sin($fl);
			    my @cal = calc_quatcam($quatx, $quaty);
			    print "The deg is: $deg\n";

			    $ori_xlab->configure(-text=>"X Quaternion Value: $quatx");
			    $ori_ylab->configure(-text=>"Y Quaternion Value: $quaty");})->pack(-side=>right);
    $ori_deg->set($qy);
    $ori_xlab = $ori_framey1->Label(-text=>"X Quaternion Value: $quatx", -font=>[-family=>'fixed', -size=>10], -width=>30)->pack(-expand=>1, -fill=>x);
    $ori_ylab = $ori_framey2->Label(-text=>"Y Quaternion Value: $quaty", -font=>[-family=>'fixed', -size=>10], -width=>30)->pack(-expand=>1, -fill=>x);