
7.5 Conclusion 159
3.75
Traa~sl~ioa ISO t3584-31 OK
!
intersqu.-tion of 2 lines
pntnm2 = PNTJNTERSECTION 2_ENT{ tin3C1, linJC1, TDB)
circle by its ¢~mtre and its radius
cirSC1 = CIRCLE_RAD A2P[ ( diameter t 2.000000DO ], &
tib a2p_pr~ pcdnm2 | Salse, TO8 ]
CALL ADO_ENT_GRP[ grpfi×, drflCl)
!
clrcte by its radius and another circle
CALL ARC RETRIEVE A2Pt o~t4Cl, a2pnml )
CALL ARC RETRIEVE SENSE~ cir4C1, rare_sense1 )
CALL ARC_RETR1EVE_RAD ( ¢ir4CI, atoradiusl ) ~
arcja, diusl + 0.20000000 * diameter,& ~
=~.,.1, ,~_=an=.t,
Tog }
i!l i;o ;~3i
t CALL ADD ENT GRP[ ~'pfix, 0ir8Ct} !f
= radius of a circle ...