(defun C:3DHIP ()
	(setq wdth (getdist "\nEnter House Width (left to right): "))
	(setq dpth (getdist "\nEnter House Depth (front to back): "))
	(setq fhgt (getdist "\nEnter Fascia height: "))
	(setq swdth (getdist "\nEnter Soffit Width (frieze to fascia): "))
	(SETQ FPITCH (GETREAL "\nEnter Pitch Front to Back (? in 12): "))
	(setq SPITCH (getreal "\nEnter Pitch Side to Side (? in 12): "))
	(setq stpt (getpoint "\nDigitize top left corner of frieze: "))
	(SETQ HY (/ (+ (* 2.0 SWDTH) DPTH) 2.0)) ; Y-DISTANCE OF HIP RIDGE
	(SETQ HZ (* HY  (/ FPITCH 12.0))) ; Z-DISTANCE OF HIP RIDGE
	(SETQ HX (* (/ HZ SPITCH) 12.0)) ; X-DISTANCE OF HIP RIDGE
	(SETQ PT1 (LIST (- (CAR STPT) SWDTH) (- (CADR STPT) SWDTH) (CADDR STPT)))
	(SETQ PT2 (LIST (+ (CAR PT1) (* 2.0 SWDTH) WDTH) (CADR PT1) (CADDR PT1)))
	(SETQ PT3 (LIST (CAR PT2) (CADR PT2) (+ (CADDR PT2) FHGT)))
	(SETQ PT4 (LIST (CAR PT1) (CADR PT1) (CADDR PT3)))
	(SETQ PT5 (LIST (CAR PT1) (+ (CADR PT1) (* SWDTH 2.0) DPTH) (CADDR PT1)))
	(SETQ PT6 (LIST (CAR PT2) (CADR PT5) (CADDR PT5)))
	(SETQ PT7 (LIST (CAR PT6) (CADR PT6) (CADDR PT3)))
	(SETQ PT8 (LIST (CAR PT5) (CADR PT5) (CADDR PT3)))
	(SETQ PT9 (LIST (+ (CAR PT4) HX) (+ (CADR PT4) HY) (+ (CADDR PT4) HZ)))
	(SETQ PT10 (LIST (- (CAR PT3) HX) (+ (CADR PT3) HY) (+ (CADDR PT3) HZ)))
	(SET-LAY "3-DFACE")
	(command 
		"3DFACE"
		PT1
		PT2
		PT3
		PT4
		""
		"3DFACE"
		PT5
		PT6
		PT7
		PT8
		""
		"3DFACE"
		PT1
		PT4
		PT8
		PT5
		""
		"3DFACE"
		PT2
		PT3
		PT7
		PT6
		""
		"3DFACE"
		PT1
		PT2
		PT6
		PT5
		""
		"3DFACE"
		PT4
		PT3
		PT10
		PT9
		""
		"3DFACE"
		PT8
		PT7
		PT10
		PT9
		""
		"3DFACE"
		PT3
		PT10
		PT7
		PT3
		""
		"3DFACE"
		PT4
		PT9
		PT8
		PT4
		""
	)
	(REST-LAY)
)