From a80b660435d59cd2cf83320ad454aa3d691bd3a1 Mon Sep 17 00:00:00 2001 From: Eric Swenson Date: Fri, 16 Aug 2024 17:29:39 -0700 Subject: [PATCH] Fixed SHRDLU issue that was causing shapes to change into blocks when being put down. --- src/shrdlu/{graphf.5 => graphf.6} | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) rename src/shrdlu/{graphf.5 => graphf.6} (99%) diff --git a/src/shrdlu/graphf.5 b/src/shrdlu/graphf.6 similarity index 99% rename from src/shrdlu/graphf.5 rename to src/shrdlu/graphf.6 index 97004104..233c9f79 100644 --- a/src/shrdlu/graphf.5 +++ b/src/shrdlu/graphf.6 @@ -535,14 +535,13 @@ PRLOOP (P1) (PROG (H1 H2 H3 T1 T2 T3 T4) (COMMENT REGARDLESS OF WHAT DISPLAY-AS CALLS THE TABLE/, I CALL IT :TABLE) - (COND ((SETQ H1 (ASSQ (CAAR P1) GP-LINES)) (DISFLUSH (CADDDR (CDDR H1))))) - (COND ((EQ (CADDAR P1) (QUOTE /#PYRAMID)) + (COND ((EQ (CADDAR P1) (QUOTE !PYRAMID)) (GP-PYRAMID (CAAR P1) (CADDDR (CAR P1)) (CADDDR (CDAR P1)))) - ((EQ (CADDAR P1) (QUOTE /#BLOCK)) + ((EQ (CADDAR P1) (QUOTE !BLOCK)) (GP-BLOCK (CAAR P1) (CADDDR (CAR P1)) (CADDDR (CDAR P1)))) - ((EQ (CADDAR P1) (QUOTE /#HAND)) + ((EQ (CADDAR P1) (QUOTE !HAND)) (SETQ H1 (CAR (CDDDAR P1))) (SETQ H3 (GP-PROJECT (CAR H1) (CADR H1) (CADDR H1))) (SETQ H2 (DISCREATE (CAR H3) (CADR H3))) @@ -557,9 +556,9 @@ PRLOOP H2 H3 T4))) - ((EQ (CADDAR P1) (QUOTE /#BOX)) + ((EQ (CADDAR P1) (QUOTE !BOX)) (GP-DRBOX (CAAR P1) (CADDDR (CAR P1)) (CADDDR (CDAR P1)))) - ((EQ (CADDAR P1) (QUOTE /#TABLE)) + ((EQ (CADDAR P1) (QUOTE !TABLE)) (SETQ T1 (LIST (QUOTE 0) (QUOTE 0)) T2 @@ -730,7 +729,7 @@ PRLOOP DISPLAY PACKAGE THE - /#BOX + !BOX CONSISTS OF FOUR