github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +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)
(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