github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00
Code Issues Releases Wiki Activity

Fixed SHRDLU issue that was causing shapes to change into blocks when being put down.

Browse Source
This commit is contained in:
Eric Swenson 2024-08-16 17:29:39 -07:00
parent 37f57931e9
commit a80b660435
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/shrdlu/graphf.5 → src/shrdlu/graphf.6
View File

@ -535,14 +535,13 @@ PRLOOP
(P1) (P1)
(PROG (H1 H2 H3 T1 T2 T3 T4) (PROG (H1 H2 H3 T1 T2 T3 T4)
(COMMENT REGARDLESS OF WHAT DISPLAY-AS CALLS THE TABLE/, I CALL IT :TABLE) (COMMENT REGARDLESS OF WHAT DISPLAY-AS CALLS THE TABLE/, I CALL IT :TABLE)
(COND ((SETQ H1 (ASSQ (CAAR P1) GP-LINES)) (COND ((SETQ H1 (ASSQ (CAAR P1) GP-LINES))
(DISFLUSH (CADDDR (CDDR H1))))) (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)))) (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)))) (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 H1 (CAR (CDDDAR P1)))
(SETQ H3 (GP-PROJECT (CAR H1) (CADR H1) (CADDR H1))) (SETQ H3 (GP-PROJECT (CAR H1) (CADR H1) (CADDR H1)))
(SETQ H2 (DISCREATE (CAR H3) (CADR H3))) (SETQ H2 (DISCREATE (CAR H3) (CADR H3)))
@ -557,9 +556,9 @@ PRLOOP
H2 H2
H3 H3
T4))) T4)))
((EQ (CADDAR P1) (QUOTE /#BOX)) ((EQ (CADDAR P1) (QUOTE !BOX))
(GP-DRBOX (CAAR P1) (CADDDR (CAR P1)) (CADDDR (CDAR P1)))) (GP-DRBOX (CAAR P1) (CADDDR (CAR P1)) (CADDDR (CDAR P1))))
((EQ (CADDAR P1) (QUOTE /#TABLE)) ((EQ (CADDAR P1) (QUOTE !TABLE))
(SETQ T1 (SETQ T1
(LIST (QUOTE 0) (QUOTE 0)) (LIST (QUOTE 0) (QUOTE 0))
T2 T2
@ -730,7 +729,7 @@ PRLOOP
DISPLAY DISPLAY
PACKAGE PACKAGE
THE THE
/#BOX !BOX
CONSISTS CONSISTS
OF OF
FOUR FOUR