;keszitette: Halbritter Erno
;FUGGVENYABRAZOLASI ALAPPROGRAM
;RAJZLAPMERET A3
(SETVAR "BLIPMODE" 0)
(SETQ P (LIST 420 297))
(SETVAR "LIMMAX" P)
(COMMAND "ZOOM" "A")
(SETVAR "PDMODE" 32)
(SETVAR "PDSIZE" 2)
(DEFUN TORLES ()
(COMMAND "ERASE" "W" "0,0" "420,297")
(COMMAND "")) 
  (DEFUN C:E ()
   (TORLES)
   (COMMAND "REDRAW"))
(DEFUN C:X ()
  (SETQ NEV1 (GETSTRING "X ADATFILE NEVE Pl:. /h1 = " ))  
  (setq nev2 "H53")
;  (SETQ NEV3 (GETSTRING "Konyvtar neve pL.: T, F , S, D= "))
(setq nev (strcat "\\DGY\\" nev2 "\\" nev1 ".EXT"))
(setq of (open nev "r"))
(setq s (read-line of))
(setq LXX (read s))
(close of)
(PRINC "LXX =")(PRIN1 LXX)(PRINT) 
)
(defun c:y ()
  (SETQ NEV1 (GETSTRING "Y ADATFILE NEVE Pl:. /RS002 - RS577/ " ))  
  (setq nev2 "H53")
; (SETQ NEV3 (GETSTRING "konyvtar neve pL.: T, F , S, D= "))
(setq nev (strcat "\\DGY\\" nev2 "\\" nev1 ".EXT"))
(setq of2 (open nev "r"))
(setq s (read-line of2))
(setq LYY (read s))
(close of2)
(PRINC "LYY =")(PRIN1 LYY)(PRINT) 
)
 (defun c:z ()
  (SETQ NEV1 (GETSTRING "z ADATFILE NEVE Pl:. /ldmum, ldmukm, ldmukkm = " ))  
  (setq nev2 (getstring "alkonyvtar neve Pl.: h1, h2, ..h5= "))
  (SETQ NEV3 (GETSTRING "Konyvtar neve pL.: T, F , S, D="))
(setq nev (strcat "\\gyuru\\" nev3 "\\" nev2 "\\" nev1 ".EXT"))
(setq of (open nev "r"))
(setq s (read-line of))
(setq lzz (read s))
(close of)
(PRINC "lzz =")(PRIN1 lzz)(PRINT) 
 )
(DEFUN AT ()
(SETQ XL NIL)
(SETQ YL NIL)
(SETQ NA (GETSTRING "X IRANYU ADATOK NEVE= ")) 
(SETQ XL (EVAL (READ NA)))
(SETQ XL (MAPCAR 'FLOAT XL))
(SETQ NB (GETSTRING "Y IRANYU ADATOK NEVE= "))
(SETQ YL (EVAL (READ NB)))
(SETQ YL (MAPCAR 'FLOAT YL)))
   (DEFUN SZELSOE  ()
 (SETQ XMAX (GETREAL "XMAX = "))
 (SETQ XMIN (GETREAL "XMIN = "))
 (SETQ YMAX (GETREAL "YMAX = "))
 (SETQ YMIN (GETREAL "YMIN = "))
   )
(DEFUN TENGELY ()
(COMMAND "REGENAUTO" "OFF")
(SETQ P0 (LIST 190 100))
(SETQ P1 (LIST 40 100))
(SETQ P2 (LIST 40 240))
(SETQ PV1 (LIST 183 102))
(SETQ PV2 (LIST 183 98))
(SETQ PV3 (LIST 190 100))
(SETQ PF1 (LIST 38 233))
(SETQ PF2 (LIST 42 233))
(SETQ PF3 (LIST 40 240))
(COMMAND "LAYER" "NEW" "TENG" "COLOR" "CYAN" "TENG")
(COMMAND "MAKE" "TENG" )(COMMAND) 
(COMMAND "LINE" P0 P1 P2 "")
(COMMAND "LINE" PV1 PV2 PV3 "C")
(COMMAND "LINE" PF1 PF2 PF3 "C")
(COMMAND "LAYER" "NEW" "BEOSZT" "C" "MAGENTA" "BEOSZT")
(COMMAND "MAKE" "BEOSZT")
(COMMAND)
(SETQ DX 0 DY 0)
(REPEAT 11
  (SETQ PO1 (LIST (+ 52 DX) 103))
  (SETQ PO2 (LIST (+ 52 DX) 97))
  (SETQ PO3 (LIST  37 (+ 112 DY)))
  (SETQ PO4 (LIST  43 (+ 112 DY)))  
  (COMMAND "LINE" PO1 PO2)
  (COMMAND)
  (COMMAND "LINE" PO3 PO4)
  (COMMAND)
  (SETQ DX (+ DX 12))
  (SETQ DY (+ DY 12))
  ))
     (DEFUN ABRA ()  
   (SETQ RN (GETSTRING "RETEG NEVE="))
   (SETQ SZIN (GETSTRING "RETEG SZINE= ")) 
   (COMMAND "LAYER" "NEW" RN "COLOR" SZIN RN)
   (COMMAND "MAKE" RN)(COMMAND)
   (SETQ XX (- XMAX XMIN ))
   (SETQ YY (- YMAX YMIN ))
   (SETQ ACX (/ 120 XX ))
   (SETQ ACY (/ 120 YY ))
   (SETQ EX1 50 EX2 170)
   (SETQ N (LENGTH XL))
;   (COMMAND "PLINE")
    (setq sn (getint "sokszogek szama"))
   (REPEAT N
   (SETQ PX (CAR XL))
   (SETQ XL (CDR XL))
   (SETQ CPX (+ 40 (* ACX (- PX XMIN))))
   (SETQ PY (CAR YL))
   (SETQ YL (CDR YL))
   (SETQ CPY (+ 100 (* ACY (- PY YMIN))))
   (SETQ PP (LIST CPX CPY))
   (command "polygon" sn pp "i" 1.5)
;   (COMMAND "POINT" PP)
;    (COMMAND PP)
    )
 ;   (COMMAND) 
)
(DEFUN FELIRAT ()  
(SETQ D5 (/ (- XMAX XMIN) 5))
(SETQ D7 (/ (- YMAX YMIN) 5))
(SETQ D6 0)
(SETQ D8 0)
(SETQ K 0)
(COMMAND "LAYER" "NEW" "SZOV" "C" "WHITE" "SZOV")
(COMMAND "MAKE" "SZOV")
(COMMAND)
(SETQ XT (GETINT "TIZEDES JEGYEK SZAMA X TENGELYEN ="))
(SETQ YT (GETINT "TIZEDES JEGYEK SZAMA Y TENGELYEN ="))
(REPEAT 6
  (SETQ F (RTOS (EVAL (+ XMIN (* K D5))) 2 XT))
  (SETQ FF (RTOS (EVAL (+ YMIN (* K D7))) 2 YT))
  (SETQ FSZ (LIST (+ 40 D6) 86))
  (SETQ TY (+ 97 D8))
  (SETQ FFSZ (LIST 20 TY))
  (COMMAND "TEXT" "C" FSZ  4.5 0 F)
  (COMMAND "TEXT" "C" FFSZ 4.5 0 FF)
  (SETQ K (+ K 1))
  (SETQ D6 (+ D6 24))
  (SETQ D8 (+ D8 24))
  ))
   (DEFUN C:A ()  
   (AT)
   (SZELSOE)
   (TENGELY)
   (ABRA)  
   (FELIRAT)  
    )
(DEFUN C:AB ()  
(AT)
(ABRA)  
 )