|
|
|
@@ -2347,52 +2347,90 @@ MOVED=$(( X3 - X2 ))
|
|
|
|
|
&& result ok "and round the back of the moon and out again" "gone, then back at $X7" \
|
|
|
|
|
|| result no "and round the back of the moon and out again" "$X5 at five million, $X7 at seven"
|
|
|
|
|
|
|
|
|
|
# ---- Docking, and the half of it that can be flown to ----
|
|
|
|
|
# ---- Docking, from a state placed rather than flown to ----
|
|
|
|
|
#
|
|
|
|
|
# The same shape as touchdown: close enough, and slow enough, or it is a wreck. What makes it
|
|
|
|
|
# a different skill is that "slow enough" is measured against the STATION, which is doing
|
|
|
|
|
# orbital speed - the number the marks on the drift bar already point at.
|
|
|
|
|
# The same shape as touchdown: close enough, and slow enough RELATIVE TO THE STATION, or it is
|
|
|
|
|
# a wreck. Its speed is orbital speed, which is what the marks on the drift bar point at.
|
|
|
|
|
#
|
|
|
|
|
# ---- A NARROW FIXTURE, and it is written down rather than hidden ----
|
|
|
|
|
# ---- Placed, because this cannot be flown to ----
|
|
|
|
|
#
|
|
|
|
|
# The climb here has to arrive at the station's altitude just as the station arrives at the
|
|
|
|
|
# lander, and the window measured 496 to 514 frames - about nineteen. 505 sits in the middle
|
|
|
|
|
# of it. That is thinner than this suite likes and it is the same shape as the orbit check
|
|
|
|
|
# that had to be deleted for measuring the boot time, so: IF THIS EVER FAILS, re-measure the
|
|
|
|
|
# window before believing the code is broken.
|
|
|
|
|
# Ninety six pad files were tried and every one either hit the moon or was run down on the way
|
|
|
|
|
# up, which is not the search's fault: climbing SPENDS sideways speed, so a lander cannot rise
|
|
|
|
|
# while matched and arrives slower than orbital every time. Reaching the station wants two
|
|
|
|
|
# burns and a phase.
|
|
|
|
|
#
|
|
|
|
|
# It was not always narrow. The station used to orbit four rows up, where anything climbing
|
|
|
|
|
# away from the surface had to pass, and a strike could be had with any climb between 135 and
|
|
|
|
|
# 300 frames - eleven of this suite's other flights were being run down as collateral. Moving
|
|
|
|
|
# it to twelve rows and the ceiling to twenty four fixed all eleven at once, and made the
|
|
|
|
|
# station properly hard to blunder into. The narrow window is the price of that, and it is the
|
|
|
|
|
# right way round.
|
|
|
|
|
python3 -c "open('$BUILD/struck.pad','wb').write(b'\x08' * 505 + b'\x00' * 60000)"
|
|
|
|
|
timeout 60 "$EMU" --fast --cycles 40000000 --keyboard "$BUILD/fly.keys" \
|
|
|
|
|
--pad "$BUILD/struck.pad" --disk "$ROOT/Tests/build/disks/cosmos.img" \
|
|
|
|
|
--ram-disk 2048 "$BUILD/cosmos.bin" > "$BUILD/struck.out" 2>&1 || true
|
|
|
|
|
grep -q "Wrecked against the station" "$BUILD/struck.out" \
|
|
|
|
|
&& result ok "the station runs down a lander in its lane" "at 64 sixteenths of relative speed" \
|
|
|
|
|
|| result no "the station runs down a lander in its lane" "no wreck in the transcript"
|
|
|
|
|
|
|
|
|
|
# ---- And the half that is not checked here ----
|
|
|
|
|
#
|
|
|
|
|
# THE SUCCESSFUL DOCK IS NOT FLOWN. It was measured working, from a build that PLACED the
|
|
|
|
|
# lander alongside the station and matched: the tank went from 100 to 180, once and not once a
|
|
|
|
|
# frame, the message went up, and the pair then held together - lander at 316,168 and station
|
|
|
|
|
# at 320,160, one tile apart and unmoving for two hundred and forty frames, which is what
|
|
|
|
|
# riding looks like. A thrust in any direction let go of it.
|
|
|
|
|
#
|
|
|
|
|
# What could not be found was a pad file that flies there. Ninety six were tried and every one
|
|
|
|
|
# either hit the moon or was run down on the way UP, which turns out not to be the search's
|
|
|
|
|
# fault: climbing SPENDS sideways speed, by the exchange that makes the orbit work at all, so
|
|
|
|
|
# a lander cannot rise while matched - it arrives slower than orbital every time. Docking needs
|
|
|
|
|
# two burns, one to raise the far side of the orbit and one to circularise at the top, and no
|
|
|
|
|
# straight line of button presses stumbles into that.
|
|
|
|
|
#
|
|
|
|
|
# So it wants either a hand flown recording or, better, a way to PLACE the lander at a chosen
|
|
|
|
|
# position and velocity before the loop starts - which is now wanted by this, by the orbit
|
|
|
|
|
# above, by the ride, and by the narrow window three paragraphs up.
|
|
|
|
|
# So Lander reads sixteen bytes from /lander.state if the disk has one, and starts from those
|
|
|
|
|
# instead. A disk without one is the game as it always was, which is every other flight in
|
|
|
|
|
# this file. The strike below used to be flown, on a climb whose window was nineteen frames
|
|
|
|
|
# wide - the sort of fixture that ends up measuring the boot time. It is placed now and exact.
|
|
|
|
|
python3 -c "
|
|
|
|
|
import struct
|
|
|
|
|
def state(across, down, vx, vy, stationX, stationDown, fuel, wide, landed):
|
|
|
|
|
return struct.pack('<hhhhhhBBBB', across, down, vx, vy, stationX, stationDown,
|
|
|
|
|
fuel, wide, landed, 0)
|
|
|
|
|
# Hanging at the world's origin with a part tank, to show a state is read at all.
|
|
|
|
|
open('$BUILD/place.state','wb').write(state(0x14A0, 0, 0, 0, 0x34A0, -1536, 100, 1, 1))
|
|
|
|
|
# Four pixels behind the station, at its height, and matched to its speed exactly.
|
|
|
|
|
open('$BUILD/dock.state','wb').write(state(0x34A0 - 64, -1536 + 64, 64, 0, 0x34A0, -1536, 100, 1, 0))
|
|
|
|
|
# In the same place and NOT matched: 64 sixteenths of relative speed, eight times the limit.
|
|
|
|
|
open('$BUILD/wreck.state','wb').write(state(0x34A0, -1536, 0, 0, 0x34A0, -1536, 100, 1, 0))
|
|
|
|
|
"
|
|
|
|
|
for which in place dock wreck; do
|
|
|
|
|
cp "$ROOT/Tests/build/disks/cosmos.img" "$BUILD/$which.img"
|
|
|
|
|
"$ROOT/SplitDisk" put "$BUILD/$which.img" "$BUILD/$which.state" /lander.state > /dev/null
|
|
|
|
|
done
|
|
|
|
|
python3 -c "open('$BUILD/ackonly.pad','wb').write(b'\x00' * 200 + b'\x10' * 8 + b'\x00' * 60000)"
|
|
|
|
|
for run in place:3000000 dock:6000000 dock2:9000000 wreck:3000000; do
|
|
|
|
|
which="${run%%:*}"; when="${run##*:}"
|
|
|
|
|
timeout 60 "$EMU" --fast --cycles "$when" --keyboard "$BUILD/fly.keys" \
|
|
|
|
|
--pad "$BUILD/ackonly.pad" --screen "$BUILD/$which.ppm" \
|
|
|
|
|
--disk "$BUILD/${which%2}.img" --ram-disk 2048 \
|
|
|
|
|
"$BUILD/cosmos.bin" > "$BUILD/$which.out" 2>&1 || true
|
|
|
|
|
done
|
|
|
|
|
# And the same moment with no state file at all, which is the contrast that says the file did it.
|
|
|
|
|
timeout 60 "$EMU" --fast --cycles 3000000 --keyboard "$BUILD/fly.keys" \
|
|
|
|
|
--pad "$BUILD/ackonly.pad" --screen "$BUILD/nostate.ppm" \
|
|
|
|
|
--disk "$ROOT/Tests/build/disks/cosmos.img" --ram-disk 2048 \
|
|
|
|
|
"$BUILD/cosmos.bin" > "$BUILD/nostate.out" 2>&1 || true
|
|
|
|
|
read -r PLACEDY PLACEDFUEL PLAINFUEL DOCKFUEL DOCK2FUEL RIDESHIP RIDESTATION <<EOT
|
|
|
|
|
$(python3 -c "
|
|
|
|
|
def look(path):
|
|
|
|
|
d = open(path, 'rb').read()
|
|
|
|
|
width = int(d[:40].split()[1])
|
|
|
|
|
px = d[d.index(b'255\n') + 4:]
|
|
|
|
|
def where(colour):
|
|
|
|
|
c = bytes.fromhex(colour)
|
|
|
|
|
return [(i % width, i // width) for i in range(len(px) // 3)
|
|
|
|
|
if px[i * 3:i * 3 + 3] == c]
|
|
|
|
|
ship = where('d8c048')
|
|
|
|
|
station = [p for p in where('5880e0') if p[1] < 250]
|
|
|
|
|
# The gauge is the top row of the window; the speed bars are green too, further down.
|
|
|
|
|
fuel = sum(1 for x, y in where('50c050') if y < 8) // 64
|
|
|
|
|
return (min(y for x, y in ship) if ship else -1, fuel,
|
|
|
|
|
'%d,%d' % (min(x for x, y in ship), min(y for x, y in ship)) if ship else 'none',
|
|
|
|
|
'%d,%d' % (min(x for x, y in station), min(y for x, y in station)) if station else 'none')
|
|
|
|
|
p = look('$BUILD/place.ppm'); d = look('$BUILD/dock.ppm'); d2 = look('$BUILD/dock2.ppm')
|
|
|
|
|
print(p[0], p[1], look('$BUILD/nostate.ppm')[1], d[1], d2[1], d2[2], d2[3])
|
|
|
|
|
" 2>/dev/null || echo "-1 -1 -1 -1 -1 none none")
|
|
|
|
|
EOT
|
|
|
|
|
# Placed at the world's origin with a hundred units: row 192 is the origin in the wide view,
|
|
|
|
|
# and twelve cells of gauge is a hundred. The plain disk at the same moment has a full tank,
|
|
|
|
|
# which is what says the FILE moved these and not the flight.
|
|
|
|
|
[ "$PLACEDY" = "192" ] && [ "$PLACEDFUEL" = "12" ] && [ "$PLAINFUEL" != "12" ] \
|
|
|
|
|
&& result ok "a state file places the lander" "row 192 and $PLACEDFUEL cells, against $PLAINFUEL with no file" \
|
|
|
|
|
|| result no "a state file places the lander" "row $PLACEDY, $PLACEDFUEL cells, plain disk $PLAINFUEL"
|
|
|
|
|
# A hundred plus eighty is a hundred and eighty, which is twenty two cells - and it is still
|
|
|
|
|
# twenty two three thousand cycles later, so it was paid ONCE and not once a frame.
|
|
|
|
|
[ "$DOCKFUEL" = "22" ] && [ "$DOCK2FUEL" = "22" ] \
|
|
|
|
|
&& result ok "a matched approach docks and is paid" "a hundred became a hundred and eighty, once" \
|
|
|
|
|
|| result no "a matched approach docks and is paid" "$DOCKFUEL cells, then $DOCK2FUEL"
|
|
|
|
|
# Held to it, one tile under, rather than merely paid by it.
|
|
|
|
|
[ "$RIDESHIP" = "316,104" ] && [ "$RIDESTATION" = "320,96" ] \
|
|
|
|
|
&& result ok "and rides it, a tile under" "lander $RIDESHIP, station $RIDESTATION" \
|
|
|
|
|
|| result no "and rides it, a tile under" "lander $RIDESHIP, station $RIDESTATION"
|
|
|
|
|
grep -q "Wrecked against the station" "$BUILD/wreck.out" \
|
|
|
|
|
&& result ok "and the same approach unmatched is a wreck" "64 sixteenths, eight times the limit" \
|
|
|
|
|
|| result no "and the same approach unmatched is a wreck" "no wreck in the transcript"
|
|
|
|
|
|
|
|
|
|
# ---- Clearing puts the cursor back at the top ----
|
|
|
|
|
#
|
|
|
|
|
Anachronaut