(DEFUN C:TRANB()(SETVAR"CMDECHO"0)(GRAPHSCR)(SETQ Qj(GETDIST"\n ENTER LENGTH OF RECTANGLE BASE: "))(SETQ Q@(GETDIST"\n ENTER WIDTH OF RECTANGLE BASE: "))(SETQ QQ(GETDIST"\n ENTER RADIUS OF CIRCLE: "))(SETQ Ql(GETDIST"\n ENTER HEIGHT OF TRANSITION: "))(SETQ Q&(GETINT"\n ENTER NUMBER OF ANGULAR SEGMENTS: "))(SETQ Q1(/ Qj 2))(SETQ Q#(/ Q@ 2))(SETQ Q0(- Q# QQ))(SETQ Q$(SQRT(+(* Ql Ql)(* Q0 Q0))))(SETQ QO(- Q1 QQ))(SETQ Q|(SQRT(+(* Ql Ql)(* QO QO))))(SETQ Q%(ATAN(/ Q$ Q1)))(SETQ Q?j(ATAN(/ Q| Q#)))(SETQ Qjj(SQRT(+(* Q$ Q$)(* Q1 Q1))))(SETQ Q@j(- PI Q%))(SETQ QQj(- PI Q?j))(SETQ Qlj Q%)(SETQ Q&j(LIST 0 0))(SETQ Q1j(LIST Q1 0))(SETQ Q#j(POLAR Q1j Q@j Qjj))(COMMAND"LAYER""MAKE""CCTO""C""1""CCTO""")(COMMAND"LINE"Q1j Q&j Q#j"")(SETQ Q0j(/(/ PI 2)Q&))(SETQ Q$j Q0j)(SETQ QOj 0)(SETQ Q|j(* QQ Q$j))(WHILE(<= Q$j(/ PI 2))(SETQ Q%j(- Q#(* QQ(COS Q$j))))(SETQ Q?@(- Q#(* QQ(COS QOj))))(SETQ Qj@(- Q1(* QQ(SIN Q$j))))(SETQ Q@@(- Q1(* QQ(SIN QOj))))(SETQ T(SQRT(+(* Q%j Q%j)(* Qj@ Qj@))))(SETQ QQ@(SQRT(+(* Q?@ Q?@)(* Q@@ Q@@))))(SETQ Ql@(SQRT(+(* T T)(* Ql Ql))))(SETQ Q&@(SQRT(+(* QQ@ QQ@)(* Ql Ql))))(SETQ Q1@(-(+(* Q&@ Q&@)(* Ql@ Ql@))(* Q|j Q|j)))(SETQ Q#@(* 2 Q&@ Ql@))(SETQ Q0@(/ Q1@ Q#@))(SETQ Q$@(SQRT(- 1(* Q0@ Q0@))))(SETQ QO@(/ Q$@ Q0@))(SETQ Q|@(ATAN QO@))(SETQ Qlj(+ Qlj Q|@))(SETQ Q%@(- PI Qlj))(SETQ Q?Q(POLAR Q1j Q%@ Ql@))(COMMAND"LINE""@"Q?Q"")(SETQ Q$j(+ Q$j Q0j))(SETQ QOj(+ QOj Q0j)))(SETQ QjQ(+ Qlj Q?j))(SETQ Q@Q(- PI QjQ))(SETQ QQQ(POLAR Q1j Q@Q Q#))(COMMAND"LINE""@"QQQ Q1j"")(SETQ QlQ(LIST 0(CADR Q?Q)))(SETQ Q&Q(LIST(CAR QQQ)0))(SETQ Q1Q(LIST 0 5))(SETQ Q#Q(LIST 0 0))(COMMAND"MIRROR""C"QlQ Q&Q""Q1Q Q#Q"N")(SETQ Q0Q(/ Qj 12))(SETQ Q$Q(/ Qj 6))(SETQ QOQ Q0Q)(SETQ Q|Q(CADR Q?Q))(SETQ Q%Q(+ Q$Q(CAR QQQ)))(SETQ Q?l Q0Q)(SETQ QOj 0)(SETQ Q$j Q0j)(SETQ Qlj Q%)(SETVAR"DIMTIH"0)(SETVAR"DIMTOH"0)(COMMAND"LAYER""MAKE""CCTD""C""2""CCTD""")(WHILE(<= Q$j(/ PI 2))(SETQ Q%j(- Q#(* QQ(COS Q$j))))(SETQ Q?@(- Q#(* QQ(COS QOj))))(SETQ Qj@(- Q1(* QQ(SIN Q$j))))(SETQ Q@@(- Q1(* QQ(SIN QOj))))(SETQ T(SQRT(+(* Q%j Q%j)(* Qj@ Qj@))))(SETQ QQ@(SQRT(+(* Q?@ Q?@)(* Q@@ Q@@))))(SETQ Ql@(SQRT(+(* T T)(* Ql Ql))))(SETQ Q&@(SQRT(+(* QQ@ QQ@)(* Ql Ql))))(SETQ Q1@(-(+(* Q&@ Q&@)(* Ql@ Ql@))(* Q|j Q|j)))(SETQ Q#@(* 2 Q&@ Ql@))(SETQ Q0@(/ Q1@ Q#@))(SETQ Q$@(SQRT(- 1(* Q0@ Q0@))))(SETQ QO@(/ Q$@ Q0@))(SETQ Q|@(ATAN QO@))(SETQ Qlj(+ Qlj Q|@))(SETQ Q%@(- PI Qlj))(SETQ Q|Q(+ Q|Q QOQ))(SETQ Qjl(LIST 0 Q|Q))(SETQ Q%Q(+ Q%Q Q?l))(SETQ Q@l(LIST Q%Q 0))(SETQ Q?Q(POLAR Q1j Q%@ Ql@))(COMMAND"DIM""HOR"Q?Q Q#j Qjl"""EXIT")(COMMAND"DIM""VERT"Q1j Q?Q Q@l"""EXIT")(SETQ Q$j(+ Q$j Q0j))(SETQ QOj(+ QOj Q0j)))(SETQ QQl(LIST(+(CAR QQQ)Q$Q)0))(SETQ Qll(LIST 0(- 0 Q0Q)))(SETQ Q&l(LIST(+(- Q$Q Q0Q)(CAR QQQ))0))(SETQ Q1l(LIST 0(- 0 Q$Q)))(SETQ Q#l(LIST(-(CAR Q1j)(* 3 Q$Q))0))(COMMAND"DIM""VERT"Q&j Q#j QQl"""EXIT")(COMMAND"DIM""HOR"Q1j Q&j Qll"""EXIT")(COMMAND"DIM""VERT"Q1j QQQ Q&l"""EXIT")(COMMAND"DIM""HOR"QQQ Q&j Q1l"""EXIT")(COMMAND"DIM""ALIGNED"QQQ Q1j Q#l"""EXIT")(SETVAR"CMDECHO"1)(PRINC))