drawing in Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg81008] drawing in Mathematica*From*: dimitris <dimmechan at yahoo.com>*Date*: Fri, 7 Sep 2007 02:14:50 -0400 (EDT)

Hello. trig = Graphics[{Thickness[0.0079], Line[{{0, -0.4}, {1.75, 0.75}, {-1.75, 0.75}, {0, -0.4}}]}]; circ = Graphics[{Thickness[0.0079], Circle[{0, -0.6}, 0.6, {Pi/2 + Pi/4, 2*Pi + Pi/4}]}]; line1 = Graphics[{Thickness[0.0079], Line[{{-4, 0}, {-1.5, 0}}]}]; line2 = Graphics[{Thickness[0.0079], Line[{{1.5, 0}, {4, 0}}]}]; Show[trig, circ, line1, line2] How can connect the line 1 and line2 with the points of cross of the circle region and the triangle? I can connect of course with line segments but I want a more "curvy" drawings if possible. Thanks in advance. Dimitris