josh
/
Teacup_Firmware
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

run-in-simulator.sh: express velocities in mm/min, too. 

Uh, this bloats the resulting VCD file by 50% ... ;-)
This commit is contained in:
Markus Hitter 2013-11-27 02:16:08 +01:00
parent 5c0808732c
commit fd5fe676f4
1 changed files with 33 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
testcases/run-in-simulavr.sh
View File

@ -29,6 +29,22 @@ echo "# Y Dir" >> /tmp/tracein.txt
echo "+ PORTA.A5-Out" >> /tmp/tracein.txt echo "+ PORTA.A5-Out" >> /tmp/tracein.txt
echo "# Y Step" >> /tmp/tracein.txt echo "# Y Step" >> /tmp/tracein.txt
echo "+ PORTA.A4-Out" >> /tmp/tracein.txt echo "+ PORTA.A4-Out" >> /tmp/tracein.txt
echo "Assuming pin configuration for a Gen7-v1.4."
STEPS_PER_M_X=$(grep STEPS_PER_M_X ../config.h | \
grep -v ^// | awk '{ print $3; }')
if [ "${STEPS_PER_M_X}"0 -eq 0 ]; then
echo "STEPS_PER_M_X not found, assuming 80'000."
STEPS_PER_M_X=80000
fi
STEPS_PER_M_Y=$(grep STEPS_PER_M_Y ../config.h | \
grep -v ^// | awk '{ print $3; }')
if [ "${STEPS_PER_M_Y}"0 -eq 0 ]; then
echo "STEPS_PER_M_Y not found, assuming 80'000."
STEPS_PER_M_Y=80000
fi
echo "Taking STEPS_PER_M_X = ${STEPS_PER_M_X} and"
echo " STEPS_PER_M_Y = ${STEPS_PER_M_Y} for mm/min calculation."
for GCODE_FILE in $*; do for GCODE_FILE in $*; do
@ -141,13 +157,11 @@ EOF
BEGIN { BEGIN {
# These lines must match the ones after the sort. # These lines must match the ones after the sort.
intLen = 16; intLen = 16;
xStepID = "0"; xVelID = "1"; xStepID = "0"; xVelID = "1"; xMmmID = "3"
yStepID = "2"; yVelID = "3"; yStepID = "4"; yVelID = "5"; yMmmID = "6"
xDir = yDir = 0; xDir = yDir = 0;
xPos = yPos = 0; xPos = yPos = 0;
xVel = yVel = 0;
yAcc = yAcc = 0;
lastxTime = lastyTime = 0; lastxTime = lastyTime = 0;
} }
/^#/ { /^#/ {
@ -174,8 +188,10 @@ EOF
if ($2 == "1") { # X Step if ($2 == "1") { # X Step
if (bit == 1) { # raising flange if (bit == 1) { # raising flange
xPos += xDir; xPos += xDir;
xVel = 1000000000 / (time - lastxTime); vel = 1000000000 / (time - lastxTime);
print lastxTime " b" print_binary(xVel, intLen) " " xVelID; print lastxTime " b" print_binary(vel, intLen) " " xVelID;
vel = vel * 60000 / '"${STEPS_PER_M_X}"';
print lastxTime " b" print_binary(vel, intLen) " " xMmmID;
print time " b" bit " " xStepID; print time " b" bit " " xStepID;
lastxTime = time; lastxTime = time;
} else { # falling flange } else { # falling flange
@ -185,8 +201,10 @@ EOF
if ($2 == "3") { # Y Step if ($2 == "3") { # Y Step
if (bit == 1) { # raising flange if (bit == 1) { # raising flange
yPos += yDir; yPos += yDir;
yVel = 1000000000 / (time - lastyTime); vel = 1000000000 / (time - lastyTime);
print lastyTime " b" print_binary(yVel, intLen) " " yVelID; print lastyTime " b" print_binary(vel, intLen) " " yVelID;
vel = vel * 60000 / '"${STEPS_PER_M_Y}"';
print lastyTime " b" print_binary(vel, intLen) " " yMmmID;
print time " b" bit " " yStepID; print time " b" bit " " yStepID;
lastyTime = time; lastyTime = time;
} else { # falling flange } else { # falling flange
@ -200,24 +218,29 @@ EOF
BEGIN { BEGIN {
# These lines must match the ones before the sort. # These lines must match the ones before the sort.
intLen = 16; intLen = 16;
xStepID = "0"; xVelID = "1"; xStepID = "0"; xVelID = "1"; xMmmID = "3"
yStepID = "2"; yVelID = "3"; yStepID = "4"; yVelID = "5"; yMmmID = "6"
lastTime = ""; lastTime = "";
print "$timescale 1ns $end"; print "$timescale 1ns $end";
print "$scope module Steppers $end"; print "$scope module Steppers $end";
print "$var wire 1 " xStepID " X_step $end"; print "$var wire 1 " xStepID " X_step $end";
print "$var integer " intLen " " xVelID " X_steps/s $end"; print "$var integer " intLen " " xVelID " X_steps/s $end";
print "$var integer " intLen " " xMmmID " X_mm/min $end";
print "$var wire 1 " yStepID " Y_step $end"; print "$var wire 1 " yStepID " Y_step $end";
print "$var integer " intLen " " yVelID " Y_steps/s $end"; print "$var integer " intLen " " yVelID " Y_steps/s $end";
print "$var integer " intLen " " yMmmID " Y_mm/min $end";
print "$upscope $end"; print "$upscope $end";
print "$enddefinitions $end"; print "$enddefinitions $end";
print "#0"; print "#0";
print "$dumpvars"; print "$dumpvars";
print "b0 " xStepID; print "b0 " xStepID;
print "b0 " xVelID; print "b0 " xVelID;
print "b0 " xMmmID;
print "b0 " yStepID; print "b0 " yStepID;
print "b0 " yVelID; print "b0 " yVelID;
print "b0 " yMmmID;
print "$end"; print "$end";
} }
{ {