From: ian <ian>
Date: Sat, 31 Jan 2004 20:01:03 +0000 (+0000)
Subject: objflip fixed
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=76dfd236370542766abe1dadcd88335707ec5eba;p=trains.git

objflip fixed
---

diff --git a/TODO b/TODO
index 23ec3e2..6bedf87 100644
--- a/TODO
+++ b/TODO
@@ -1,3 +1,2 @@
 other joins
 quiet bits
-objflip broken ? only when on objs ?
diff --git a/layout/layout b/layout/layout
index d2da8c4..950d78b 100755
--- a/layout/layout
+++ b/layout/layout
@@ -727,6 +727,7 @@ sub cmd__obj ($) {
     die "unknown formal $formal_id" unless $formal;
     $ctx_save= $ctx;
     newctx();
+    $how *= $ctx_save->{Trans}{R};
     $ctx->{Trans}{R}= $how;
     $ctx->{Trans}{A}= $actual->{A} - $formal->{A}/$how;
     $formcv= ev_compose({}, $ctx->{Trans},$formal);