;draw a louvre window given width, height, frame width, frame thickness, louvre spacing and louvre thickness. 
Keep OSNAP off

;Copyright JASON COMPUTERS, Mervyn Fernando November 2000 

(defun c:louvre()
(setvar "cmdecho" 0)
(setq len (getreal "\nLouvre Width ")
	ht (getreal "\nLouvre Height ")
      fw (getreal "\nFrame width ")
      ft (getreal "\nFrame thickness ")
      ls (getreal "\nLouvre spacing ") 
      	lt (getreal "\nLouvre Thickness ")
      pt1 (getpoint "\nLower Left point ")
      pt1 (list (+ (car pt1) (/ fw 2)) (+ (cadr pt1) (/ fw 2)))
      pt2 (list (+ (car pt1) (- len fw)) (cadr pt1))  
	pt3 (list (car pt2) (+ (cadr pt2) (- ht fw)))
	pt4 (list (car pt1) (+ (cadr pt1) (- ht fw)))
      pt1a (list (car pt1) (cadr pt1) lt)
)
(setvar "plinewid" fw)
(command "thickness" ft)
(command "pline" pt1 pt2 pt3 pt4 "c")
(setvar "plinewid" lt)
(setq inwi (- len fw fw))
(setq pt5 (list (+ (car pt1) (/ fw 2)) (+ (cadr pt1) (/ fw 2))))
(command "thickness" inwi)
(command "ucs" "or" pt5)
(command "ucs" "z" "90")
(command  "ucs" "x" "90")

 (setq  inht (- ht fw fw)
        nl (fix (/ inht ls))
)

(setq pt5 (list  (/ ls 2) 0)
      pt6 (list (car pt5) (+ (cadr pt5)  ft ))
      pt7 (list (car pt5) (+ (cadr pt5) (/ ft 2)))   
)

(command "pline" pt5 pt6 "")
(command "rotate" "l" "" pt7 "45" "")
(command "ucs" "w" "")
(command "array" "l" "" "r" nl "1" ls)

);defun