I was burning some DVD'd from disk backups this afternoon.
Came across this ....
it's been stored away in the dark for a few years ....
Frightens me ... both the age of it and the fact that the style is almost indistinguishable from yesterdays code.
I'll just post the module for collecting the data.
;; Last change: BRW 4 Oct 97 1:27 pm Edit text output :
;;; Program to develop branch pipe to straight pipe
;;;------------
;;; PIPE_101.LSP
;;; Property of Kerry Brown
;;; Mar/1991
;;;
(defun p:get ()
(while (not (p:mmax 20.0 1200.0 (setq
b-dia (p:real 0.0 "Diameter of branch to be developed"))))
)
(setq rad_b (/ b-dia 2.0))
(while (not (p:mmax 0 rad_b (setq
wt (p:real 0.0 "Wall thickness of branch"))))
)
(while (not (p:mmax 4.0 360.0 (setq
nsteps (p:real 180.0 "Number of steps around development"))))
)
(if (/= 0 (rem nsteps 4))
(prompt (strcat "Steps set to " (rtos (+ 4.0 (* 4.0 (fix (/ nsteps 4.0)))))))
)
(while (not (p:mmax 5.0 90.0 (setq
a1 (p:real 45.0 "Angle between pipe centre-lines"))))
)
(while (not (p:mmax b-dia 1200.0 (setq
m-dia (p:real b-dia "What is diameter of main pipe"))))
)
(setq
a1 (p:110 a1)
rad_w (- rad_b wt)
rad_m (/ m-dia 2.0)
)
(if (/= b-dia m-dia)
(progn
(initget "N F")
(setq dpoff (getkword "Offset center lines [ Near side or Far side ] < N / F / ENTER for none >"))
(if dpoff
(progn
(while (not (p:mmax 0 (- rad_m rad_b) (setq
poff (p:real 0 "Offset between center-lines "))))
)
(if (= dpoff "F")
(setq poff (- poff))
)
)
(setq poff 0)
)
)
(setq poff 0)
)
)
