;; Uncomment the comments below (remove ";; ")
;; and edit the CC:FILENAME according to your path
;; (use "/" instead of "\"), when you want to
;; run this script with the original SCRIPT command.
;; 
;; (setq CC:FILENAME "C:/CADCAL/CADCALDEMO/nickshouse.scr")
;; (if (not ORIGIN) (setq ORIGIN '(0 0 0)))
;; CC-START
CAL import(width,100,height,100)
CAL p1=ORIGIN
CAL p2=p1+[width,0]
CAL p3=p1+[width,height]
CAL p4=p1+[0,height]
CAL roofx=rxof(p1)+width/2
CAL roofy=ryof(p1)+height*2
CAL roofpt=[roofx,roofy]
._PLINE !p1 !p2 !p3 !roofpt !p4 !p3 !p1 !p4 !p2 
;; instead of the line before you can use the 
;; following line with the CADCAL function
;; CAL PLINE(p1,p2,p3,roofpt,p4,p3,p1,p4,p2)
;; or you can use a Lisp command:
;; (command "._pline" p1 p2 p3 roofpt p4 p3 p1 p4 p2 "")
;;
;; the CC-END call is only necessary when you want to 
;; run this script over the standard SCRIPT command of
;; your CAD system and want to keep the possibility
;; to modify the created object parametrically.
;; You don't need it when you use the CALSCRIPT
;; command of CADCAL instead.
;; CC-END