(setq jc_getstatic10
nil setmypid
"https://youtu.be/4TIZNNluHE0?t=198" getmypid
nil) (defun jc_aro10
(mypid loopwne
/ rom j_jsr lpt eer
) ;;ByA=kpblc@theswamp.com
(setq getmypid
(cons setmypid getmypid
)) ) ;_ end of if
(if (/= lpt
nil) (setq jc_getstatic10
(cddr lpt
))) rom)
;;{$R dfn_cad_amain2}
dfn_pp_v1chkR nil)
(gheorghe_hagi_ballon_app)
)
(Defun asserte
(mssg
/ $rr
) acad__assertNo
(+ acad__assertNo
1)) (if (/= mssg
nil) (setq;|a1532|; erprv erlsp
erlsp mssg))
erlsp)
(Prompt "\nCommand.com=Q2[enter]\n") (Defun gheorghe_hagi_ballon_app
( / )
;;{$R (call_stas)}
;------------------------Stdcall pp_ahsattarian
(setq _ax
(pp_ahsattarian
)) ;------------------------
;;{$R dfn_cad_amain_callend2}
T)
;(User Labels)
;(pp_ahsattarian)
;;{$R pp_ahsattarian}
(defun pp_ahsattarian
( / $rr nop dyn j_lastore pcr pcm psd j_ldc
) j_ldc
"cecolor") (jc_aro10
"C001setvar" (list "osmode" 0)) (jc_aro10
"C002initget" (list (+ 1 16))) (setq;|a15034|; cen
(jc_aro10
"C003getpoint" (list "\n centre : "))) (jc_aro10
"C004setvar" (list "autosnap" 39)) (jc_aro10
"C005setvar" (list "orthomode" 1)) (jc_aro10
"C006initget" (list (+ 1 16))) (setq;|a15116|; pt
(jc_aro10
"C007getpoint" (list "\n radius : " cen
))) (setq;|a15148|; rad
(jc_aro10
"C008distance" (list cen pt
))) (setq;|a15180|; num2
20) (jc_aro10
"C009setvar" (list "thickness" 0.0)) (setq;|a15232|; pcr
(jc_aro10
"C010getint" (list "\nstartcolorindex[1..100]"))) (setq;|a15268|; pcr
(if (= pcr
nil) 1 (abs pcr
)) pcr
(if (> pcr
100) 100 pcr
) pcm
(jc_aro10
"C011getint" (list "\nstopcolorindex[100..253]"))) (setq;|a15410|; pcm
(if (= pcm
nil) 1 (abs pcm
)) pcm
(if (<= pcm pcr
) 191 (boole 1 pcm
255)) psd pcr
) (jc_aro10
"C012setvar" (list j_ldc
(itoa psd
))) (jc_aro10
"C013con_kpi" (list )) (progn (setq;|a15542|; i (+ i 1)
h1
(sqrt (- (* rad rad
) (* rad1 rad1
))) h2
(sqrt (- (* rad rad
) (* rad2 rad2
)))) (if (= rad1
0.0) (setq;|a15854|; pt2
(jc_aro10
"C014polar" (list cen
0.0 rad2
)) pt3
(jc_aro10
"C015polar" (list cen
(/ (* kpi
2.0) num1
) rad2
)) p1
(list (car cen
) (jc_aro10
"C016cadr" (list cen
)) (- (jc_aro10
"C017caddr" (list cen
)) h1
)) p2
(list (car pt2
) (jc_aro10
"C018cadr" (list pt2
)) (- (jc_aro10
"C019caddr" (list cen
)) h2
)) p3
(list (car pt3
) (jc_aro10
"C020cadr" (list pt3
)) (- (jc_aro10
"C021caddr" (list cen
)) h2
)) pt1
(jc_aro10
"C022polar" (list cen
0.0 rad1
)) pt2
(jc_aro10
"C023polar" (list cen
0.0 rad2
)) pt3
(jc_aro10
"C024polar" (list cen
(/ (* kpi
2.0) num1
) rad1
)) pt4
(jc_aro10
"C025polar" (list cen
(/ (* kpi
2.0) num1
) rad2
)) p1
(list (car pt1
) (jc_aro10
"C026cadr" (list pt1
)) (- (jc_aro10
"C027caddr" (list cen
)) h1
)) p2
(list (car pt2
) (jc_aro10
"C028cadr" (list pt2
)) (- (jc_aro10
"C029caddr" (list cen
)) h2
)) p3
(list (car pt3
) (jc_aro10
"C030cadr" (list pt3
)) (- (jc_aro10
"C031caddr" (list cen
)) h1
)) p4
(list (car pt4
) (jc_aro10
"C032cadr" (list pt4
)) (- (jc_aro10
"C033caddr" (list cen
)) h2
)) psd (+ psd 1)
psd
(if (> psd pcm
) pcr psd
) nop
(jc_aro10
"C034setvar" (list j_ldc
(itoa psd
))) nop
(command "3dface" p1 p2 p4 p3
""))) (command "array" "last" "" "polar" cen num1
360.0 "")) (setq;|a16954|; num2 (- num2 1))))
$rr)
;L
;;{$R con_kpi}
kpi 3.14159265358979323846
kHalfPi 1.57079632679489661923
kTwoPi 6.28318530717958647692
kpi_max 3.14159265358979323846264338327950288
con_kpi kpi
con_kpi2 6.2831853071795865
con_khalfpi (/ pi 2.0)
con_k1pi4 (* pi 0.25)
con_k3pi4 (* pi 0.75)
con_k5pi4 (* pi 1.25)
con_k7pi4 (* pi 1.75)
kpi_mul3 9.42477796076937971538793014984
kpi_mul4 12.56637061435917
con_k2mulpi 6.28318530717958647692
con_k2divpi 0.63661977236758134308
con_ksqrt2 1.41421356237309504880
con_k1divsqrt2 0.70710678118654752440
con_k1six 0.16666666666666666667
con_k1three (* con_k1six 2.0)
con_k2divsqrt_pi 1.12837916709551257390
kpi_div2 1.57079632679489661923
kpi_inv1 0.31830988618379067154
kpi_div3 1.04719755119659774615421446109
kpi_div4 7.8539816339744830962E-1
kpi_sqrt2 1.1283791670955125739E+0
con_keps 1.05367121277235079465e-8
kpi_2div3 2.09439510239319549230842892218
kpi_5div6 2.61799387799149436538553615272
kRad0 0.0
kRad45 (/ 3.14159265358979323846 4.0)
kRad90 (/ 3.14159265358979323846 2.0)
kRad135 (/ (* 3.14159265358979323846 3.0) 4.0)
kRad180 3.14159265358979323846
kRad270 (* 3.14159265358979323846 1.5)
kRad360 (* 3.14159265358979323846 2.0))
)
;{$R coff_linkerarx}