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
>
>