Re: drawing in Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg81062] Re: drawing in Mathematica*From*: "Q.E.D." <aoe at netzero.net>*Date*: Sun, 9 Sep 2007 06:22:11 -0400 (EDT)*References*: <fbqr01$7fq$1@smc.vnet.net>

May I suggest the use of the Splines Package, in particular Spline[]? See "Splines/guide/SplinesPackage" in 6.0.1 documentation. Splines are very "curvy" as you say. In particular in 6.0.1, extending your example, try evaluating this: Needs["Splines`"] 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}}]}]; spline1 = Graphics[{Thickness[0.0079], Spline[{{-1.5, 0}, {-0.6, 0}, {0 + 0.6*Cos[Pi/2 + Pi/4], -0.6 + 0.6*Sin[Pi/2 + Pi/4]}}, Bezier]}]; spline2 = Graphics[{Thickness[0.0079], Spline[{{1.5, 0}, {0.6, 0}, {0 + 0.6*Cos[2*Pi + Pi/4], -0.6 + 0.6*Sin[2*Pi + Pi/4]}}, Bezier]}]; Show[trig, circ, line1, line2, spline1, spline2] Q.E.D. "dimitris" <dimmechan at yahoo.com> wrote in message news:fbqr01$7fq$1 at smc.vnet.net... > 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 > >