Message Boards

WOLFRAM COMMUNITY

4337 Views

2 Replies

3 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Fill an area in a graphic with color?

Mark Greenberg

Posted 8 years ago

I have made a simple Graphics object with two lines and two bezier curves: pic = Graphics[{ BezierCurve[{{3, 0}, {2, 1.5}, {-.5, 2.25}, {0, 6}}], BezierCurve[{{3, 0}, {4, 1.5}, {6.5, 2.25}, {6, 6}}], Line[{{0, 6}, {6, 6}}], Line[{{3, 0}, {3, 6}}]}]; I'd like to fill the left side with a color and the right side with a different color. How can I do this? I have read what relevant docs I could find, but only learned to make fills inside polygons and between axes and curves in plots. Thank you in advance, Mark Greenberg

POSTED BY: Mark Greenberg

2 Replies

Sort By:

Mark Greenberg

Posted 8 years ago

Thank you, Vitaliy. It seems simple, but I could not find the function in the docs. Of course, it is there, now that I know what it is called. : ) By the way, your example has a stray line that I eliminated by reordering the points in the graphic: pic = Graphics[{EdgeForm[{Thick, Black}], Red, FilledCurve[{BezierCurve[{{3, 0}, {2, 1.5}, {-.5, 2.25}, {0, 6}}], Line[{{0, 6}, {3, 6}}], Line[{{3, 6}, {3, 0}}]}], Blue, FilledCurve[{BezierCurve[{{3, 0}, {4, 1.5}, {6.5, 2.25}, {6, 6}}], Line[{{6, 6}, {3, 6}}], Line[{{3, 6}, {3, 0}}]}]}]; Thanks again!

Thank you, Vitaliy. It seems simple, but I could not find the function in the docs. Of course, it is there, now that I know what it is called. : )

By the way, your example has a stray line that I eliminated by reordering the points in the graphic:

pic = Graphics[{EdgeForm[{Thick, Black}],
    Red,
    FilledCurve[{BezierCurve[{{3, 0}, {2, 1.5}, {-.5, 2.25}, {0, 6}}],
       Line[{{0, 6}, {3, 6}}], Line[{{3, 6}, {3, 0}}]}],
    Blue,
    FilledCurve[{BezierCurve[{{3, 0}, {4, 1.5}, {6.5, 2.25}, {6, 6}}],
       Line[{{6, 6}, {3, 6}}], Line[{{3, 6}, {3, 0}}]}]}];

Thanks again!

POSTED BY: Mark Greenberg

Vitaliy Kaurov

Vitaliy Kaurov, WOLFRAM Research

Posted 8 years ago

You need FilledCurve for this: Graphics[{ Red, FilledCurve[{ BezierCurve[{{3,0},{2,1.5},{-.5,2.25},{0,6}}], Line[{{0,6},{3,6}}],Line[{{3,0},{3,6}}] }], Blue, FilledCurve[{ BezierCurve[{{3,0},{4,1.5},{6.5,2.25},{6,6}}], Line[{{3,0},{3,6}}],Line[{{3,6},{6,6}}] }] }]

You need FilledCurve for this:

Graphics[{
Red,
FilledCurve[{
BezierCurve[{{3,0},{2,1.5},{-.5,2.25},{0,6}}],
Line[{{0,6},{3,6}}],Line[{{3,0},{3,6}}]
}],
Blue,
FilledCurve[{
BezierCurve[{{3,0},{4,1.5},{6.5,2.25},{6,6}}],
Line[{{3,0},{3,6}}],Line[{{3,6},{6,6}}]
}]
}]

enter image description here

POSTED BY: Vitaliy Kaurov

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback