; ==== LUD- PODAJE LICZBĘ LUDZI (defun C:LUD ()
(princ"SELECT PU NES TO ADD:")
; (setq pls(ssge* '((O . "Lwpolyline"))))
(setq pis(ssget1 ((-4 . "<0RM)(0 . "P0LYUNE")(0. "CIRCLE") (O. "Lwpolyline,‘)(-4 ."OR>"))))
(command' area" "a" "e")
(setq nr O)
(repeat(sslength pis)
(command(ssnamepls nr))
(setq nr(+ nrl))
); repeat (command"" "")
(SETO PUN (GETPOINT"TEXTPOINT:"))
(SETO ADD (GETVAR" AREA1'))
(SETO ADD(* (/ ADD (* DZIEL4))0.7)); 4 /M2 (SETQADD(RTOS ADD 2DOKLAD)) ;(SETQADD(strcatADD " Lu"))
(COMMAND'TEXT" PUN........ADD)(PRIN1)
);end LUD
architekt: program lisp
A taki opis urodzili „biegli" m.in. prof. Józef K. Gierowski z UJ. (kolega patrona zastrzelonego Rojszczaka - prof. Jana Woleńskiego także z UJ.) oraz doc. Janusz Heitzman (także z UJ.):
„Wyniki projekcyjnego testu „Drzewo" Kocha potwierdzają nadwrażliwość emocjonalną badanego, pobudliwość, dużą reaktywność (gałęzie z subtelnymi rozgałęzieniami skierowanymi do góry). Ponadto wskazują na przeżywanie stałego napięcia emocjonalnego, okresowo napadów gniewu. Unia podłoża umieszczona powyżej podstawy pnia jest charakterystyczna dla człowieka odizolowanego od rzeczywistości (w tym przypadku przebywającego w więzieniu) i świadczy o bierności, i tęsknocie do odosobnienia. Silnie zaznaczone korzenie wskazują na przewagę instynktów, popędów nad rozumem, poszukiwanie oparcia."