Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

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




  • Prev by Date: Re: Import from https: link in mathematica 6.0.1 on
  • Next by Date: Re: Bug with 3D graphics lines
  • Previous by thread: drawing in Mathematica
  • Next by thread: Import from https: link in mathematica 6.0.1 on mac?