(DEFUN Qj(Q@)(* PI(/ Q@ 180.0)))(DEFUN QQ(Q@)(* Q@(/ 180.0 PI)))(DEFUN Ql(Q@)(/(SIN Q@)(COS Q@)))(DEFUN C:HEMIS1()(SETVAR"CMDECHO"0)(SETQ Q&(GETDIST"\n ENTER  RADIUS OF HEMISPHERE: "))(SETQ Q1(GETDIST"\n ENTER RADIUS OF TOP HOLE: "))(SETQ Q#(GETINT"\n ENTER NUMBER OF STRIPS: "))(SETQ Q0(GETINT"\n ENTER NUMBER OF SEGMENTS: "))(SETQ Q$(GETSTRING"\n DO YOU WANT AUTOMATIC DIMENSIONING <Y/N>: "))(SETQ QO(STRCASE Q$))(SETQ Q|(SQRT(-(* Q& Q&)(* Q1 Q1))))(SETQ Q%(ATAN(/ Q1 Q|)))(SETQ Q?j(-(/ PI 2)Q%))(SETQ Qjj(/ Q?j Q0))(SETQ Q@j 0.00000000001)(SETQ QQj(-(/ PI 2)Q@j))(SETQ Qlj QQj)(SETQ Q&j Q@j)(SETQ Q1j 0)(SETQ Q#j Qjj)(SETQ Q0j 0)(SETQ Q$j(* Q&(Ql Qlj)))(SETQ QOj(-(/ PI 2)Qlj))(SETQ Q|j(* Q&(COS Q&j)))(SETQ Q%j(* 2 PI Q|j))(SETQ Q?@(/ Q%j Q#))(SETQ Qj@(/ Q?@ 2))(SETQ Q@@(/ Qj@ Q$j))(SETQ QQ@(* Q$j(COS Q@@)))(SETQ Ql@(* Q$j(SIN Q@@)))(SETQ Q&@(* Q& Qjj))(SETQ Q1@(- Q$j QQ@))(SETQ Q#@(LIST Ql@ Q1@))(SETQ Q0@ Q#@)(COMMAND"POINT"Q#@)(SETQ Q$@ 0)(SETVAR"DIMSCALE"(/ Q& 6))(SETQ QO@(/ Q& 15))(SETQ Q|@ Qj@)(SETQ Q%@ 0)(COMMAND"LAYER""M""CCTOBJ""C""RED""CCTOBJ""")(SETQ Q?Q(LIST 0 0))(SETVAR"DIMTIH"0)(SETVAR"DIMTOH"0)(WHILE(<= Q@j(+ Q?j 0.001))(SETQ QjQ(* Q&(Ql QQj)))(SETQ Q@Q(-(/ PI 2)QQj))(SETQ QQQ(* Q&(COS Q@j)))(SETQ QlQ(* 2 PI QQQ))(SETQ Q&Q(/ QlQ Q#))(SETQ Q1Q(/ Q&Q 2))(SETQ Q#Q(/ Q1Q QjQ))(SETQ Q0Q(* QjQ(COS Q#Q)))(SETQ Q$Q(* QjQ(SIN Q#Q)))(IF(= Q$@ 0)(SETQ QOQ 0))(SETQ Q$@(+ Q$@ 1))(SETQ Q|Q(* Q& QOQ))(SETQ Q1j(+ Q1j Q|Q))(SETQ Q%Q(+ Q1j(- QjQ Q0Q)))(SETQ Q?l(LIST Q$Q Q%Q))(COMMAND"LINE"Q0@ Q?l"")(SETQ Q0@ Q?l)(IF(= QO"Y")(PROGN(COMMAND"LAYER""M""CCTDIM""C""YELLOW""CCTDIM""")(SETQ Q|@(+ Q|@ QO@))(SETQ Qjl(LIST Q|@ Q%Q))(SETQ Q%@(- Q%@ QO@))(SETQ Q@l(LIST 0 Q%@))(COMMAND"DIM""VER"Q#@ Q?l Qjl"""EXIT")(COMMAND"DIM""HOR"Q?Q Q?l Q@l"""EXIT")(COMMAND"LAYER""S""CCTOBJ""")))(SETQ Q@j(+ Q@j Qjj))(SETQ QQj(-(/ PI 2)Q@j))(SETQ QOQ Qjj))(SETQ QQl(LIST 0 Q1j))(COMMAND"LINE"Q?Q QQl"")(SETQ Q|(SQRT(-(* Q& Q&)(* Q1 Q1))))(SETQ Q%(ATAN(/ Q1 Q|)))(SETQ Q?j(-(/ PI 2)Q%))(SETQ Qjj(/ Q?j Q0))(SETQ Q@j 0.00000000001)(SETQ QQj(-(/ PI 2)Q@j))(SETQ Qlj QQj)(SETQ Q&j Q@j)(SETQ Q1j 0)(SETQ Q#j Qjj)(SETQ Q0j 0)(SETQ Q$j(* Q&(Ql Qlj)))(SETQ QOj(-(/ PI 2)Qlj))(SETQ Q|j(* Q&(COS Q&j)))(SETQ Q%j(* 2 PI Q|j))(SETQ Q?@(/ Q%j Q#))(SETQ Qj@(/ Q?@ 2))(SETQ Q@@(/ Qj@ Q$j))(SETQ QQ@(* Q$j(COS Q@@)))(SETQ Ql@(- 0(* Q$j(SIN Q@@))))(SETQ Q&@(* Q& Qjj))(SETQ Q1@(- Q$j QQ@))(SETQ Qll(LIST Ql@ Q1@))(COMMAND"POINT"Qll)(SETQ Q$@ 0)(WHILE(<= Q@j(+ Q?j 0.001))(SETQ QjQ(* Q&(Ql QQj)))(SETQ Q@Q(-(/ PI 2)QQj))(SETQ QQQ(* Q&(COS Q@j)))(SETQ QlQ(* 2 PI QQQ))(SETQ Q&Q(/ QlQ Q#))(SETQ Q1Q(/ Q&Q 2))(SETQ Q#Q(/ Q1Q QjQ))(SETQ Q0Q(* QjQ(COS Q#Q)))(SETQ Q$Q(- 0(* QjQ(SIN Q#Q))))(IF(= Q$@ 0)(SETQ QOQ 0))(SETQ Q$@(+ Q$@ 1))(SETQ Q|Q(* Q& QOQ))(SETQ Q1j(+ Q1j Q|Q))(SETQ Q%Q(+ Q1j(- QjQ Q0Q)))(SETQ Q&l(LIST Q$Q Q%Q))(COMMAND"LINE""@"Q&l"")(SETQ Q@j(+ Q@j Qjj))(SETQ QQj(-(/ PI 2)Q@j))(SETQ QOQ Qjj))(COMMAND"ARC"Q&l"E"Q?l"R"QjQ)(IF(< Q$j 6000.00)(COMMAND"ARC"Qll"E"Q#@"R"Q$j))(IF(>= Q$j 6000.00)(COMMAND"LINE"Qll Q#@""))(SETVAR"CMDECHO"1)(PRINC))