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
scaffold-clamp: wip vhook
[reprap-play.git]
/
quacks-ingredients-make-copy-gcodes
diff --git
a/quacks-ingredients-make-copy-gcodes
b/quacks-ingredients-make-copy-gcodes
index 829a55339f83c674e912a71578c6a147014cf3cc..fd34367e8f117f310690253f54dea69164113210 100755
(executable)
--- a/
quacks-ingredients-make-copy-gcodes
+++ b/
quacks-ingredients-make-copy-gcodes
@@
-1,4
+1,4
@@
-#!/bin/sh
+#!/bin/
ba
sh
#
# usage:
# ./quacks-ingredients-make-copy-gcodes Tests_L
#
# usage:
# ./quacks-ingredients-make-copy-gcodes Tests_L
@@
-23,7
+23,19
@@
gh () {
for l in 1 2 3 4 5; do
gh
for l in 1 2 3 4 5; do
gh
- cura -i quacks.ini -s $lhs$l,$f.auto.stl -o $g
+ qi=quacks-L$l.auto.ini
+
+ cp quacks.ini $qi
+
+ case $l in
+ 2|4|5)
+ perl -i~ -pe '
+ s/^(retraction_hop *= *.*)/retraction_hop = 0.6/m
+ ' $qi
+ ;;
+ esac
+
+ cura -i $qi -s $lhs$l,$f.auto.stl -o $g
case $l in
1|2|3|4)
perl -i~ -pe 's/^/;/ if m/^M140 S0\b.*\n/' $g
case $l in
1|2|3|4)
perl -i~ -pe 's/^/;/ if m/^M140 S0\b.*\n/' $g
@@
-41,7
+53,7
@@
done
for l in 2 4 5; do
gh
for l in 2 4 5; do
gh
- perl -i~ -0777 -ne '
+
:
perl -i~ -0777 -ne '
@l = split m{^(?=;LAYER:\d+\n)}m, $_;
foreach my $i (0..$#l) {
$l[$i] =~
@l = split m{^(?=;LAYER:\d+\n)}m, $_;
foreach my $i (0..$#l) {
$l[$i] =~
@@
-89,19
+101,31
@@
for l in 4; do
cat $g >&3
done
cat $g >&3
done
+copies="3:5 2:234 1:1"
+copyls=""
+for copy in $copies; do
+ l=-P-${copy%:*}
+ ci=$lhs${copy#*:}.auto.gcode
+ copyls+=" $l"
+ gh
+ rm -f $g
+ ln -vs $ci $g
+done
+
umount /media/sd >/dev/null 2>&1 ||:
mount /media/sd
umount /media/sd >/dev/null 2>&1 ||:
mount /media/sd
-for l in 1 2 3 4 5 234; do
+for l in 1 2 3 4 5 234
$copyls
; do
gh
cp $g $h
done
gh
cp $g $h
done
+
sleep 0.5
umount /media/sd
mount /media/sd
sleep 0.5
umount /media/sd
mount /media/sd
-for l in 1 2 3 4 5 234; do
+for l in 1 2 3 4 5 234
$copyls
; do
gh
cmp $g $h
ls -l $h
gh
cmp $g $h
ls -l $h