chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
poster-tube-lid: wip parametric integration, rework
[reprap-play.git]
/
poster-tube-lid-parametric.scad.pl
diff --git
a/poster-tube-lid-parametric.scad.pl
b/poster-tube-lid-parametric.scad.pl
index 9fa0b2e1cdbd5c02e8c9ad229d36c4e812a4046a..a2fd3a7e8bcc9c21b5d292698cd117299f4fab16 100755
(executable)
--- a/
poster-tube-lid-parametric.scad.pl
+++ b/
poster-tube-lid-parametric.scad.pl
@@
-74,10
+74,10
@@
sub point ($$$$) {
);
} elsif ($ip =~ m/^ball[02]$/) {
my $angle = $it * TAU/4;
);
} elsif ($ip =~ m/^ball[02]$/) {
my $angle = $it * TAU/4;
- $i_offset = V( -$lin_len -$sine_len
-
-sin($angle) * $ballend_xr
,
+ my $dx = sin($angle) * $ballend_xr;
+
$i_offset = V( -$lin_len -$sine_len - $dx
,
0,
0,
- +$sine_height
+ +$sine_height
+ $dx * tan($sine_angle)
);
$i_thickscale = cos($angle);
} else {
);
$i_thickscale = cos($angle);
} else {