Revisions to How can one generate plots having regions filled with vector hatching?

added 3 characters in body

Source Link

edited Oct 22, 2023 at 1:44

84.1k
6
97
179

Export such drawing to pdf is not a vector format pdf file. We use Mesh to draw such hatchfilling instead.

plot = RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 80, 
  MeshFunctions -> {#2 - #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1.5]}]
Export["test.pdf", plot] // SystemOpen

For 20 Degree slope, since the equation of such lines are y=Tan[20 Degree] x+bx +b ( where b is variety), so we can set MeshFunctions -> {#2 - Tan[20 Degree] #1 &} to change the angle of lines.

Clear[plot];
plot = 
 RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 200, 
  MeshFunctions -> {#2 - Tan[20 Degree] #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1]}];
Export["test.pdf", plot] // SystemOpen

Export such drawing to pdf is not a vector format pdf file. We use Mesh to draw such hatchfilling instead.

plot = RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 80, 
  MeshFunctions -> {#2 - #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1.5]}]
Export["test.pdf", plot] // SystemOpen

For 20 Degree slope, since the equation of such lines are y=Tan[20 Degree] x+b( where b is variety), so we can set MeshFunctions -> {#2 - Tan[20 Degree] #1 &} to change the angle of lines.

Clear[plot];
plot = 
 RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 200, 
  MeshFunctions -> {#2 - Tan[20 Degree] #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1]}];
Export["test.pdf", plot] // SystemOpen

Export such drawing to pdf is not a vector format pdf file. We use Mesh to draw such hatchfilling instead.

plot = RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 80, 
  MeshFunctions -> {#2 - #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1.5]}]
Export["test.pdf", plot] // SystemOpen

For 20 Degree slope, since the equation of such lines are y=Tan[20 Degree] x +b ( where b is variety), so we can set MeshFunctions -> {#2 - Tan[20 Degree] #1 &} to change the angle of lines.

Clear[plot];
plot = 
 RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 200, 
  MeshFunctions -> {#2 - Tan[20 Degree] #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1]}];
Export["test.pdf", plot] // SystemOpen

added 441 characters in body

Source Link

edited Oct 22, 2023 at 1:22

cvgmt

84.1k
6
97
179

Export such drawing to pdf is not a vector format pdf file. We use Mesh to draw such hatchfilling instead.

plot = RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 80, 
  MeshFunctions -> {#2 - #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1.5]}]
Export["test.pdf", plot] // SystemOpen

WeFor 20 Degree slope, since the equation of such lines are y=Tan[20 Degree] x+b( where b is variety), so we can set MeshFunctions -> {#2 - Tan[20 Degree] #1 &} to change the angle of lines.

Clear[plot];
plot = 
 RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 200, 
  MeshFunctions -> {#2 - Tan[20 Degree] #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1]}];
Export["test.pdf", plot] // SystemOpen

Export such drawing to pdf is not a vector format pdf file. We use Mesh to draw such hatchfilling instead.

plot = RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 80, 
  MeshFunctions -> {#2 - #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1.5]}]
Export["test.pdf", plot] // SystemOpen

We can set MeshFunctions -> {#2 - Tan[20 Degree] #1 &} to change the angle of lines.

Clear[plot];
plot = 
 RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 200, 
  MeshFunctions -> {#2 - Tan[20 Degree] #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1]}];
Export["test.pdf", plot] // SystemOpen

Export such drawing to pdf is not a vector format pdf file. We use Mesh to draw such hatchfilling instead.

plot = RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 80, 
  MeshFunctions -> {#2 - #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1.5]}]
Export["test.pdf", plot] // SystemOpen

For 20 Degree slope, since the equation of such lines are y=Tan[20 Degree] x+b( where b is variety), so we can set MeshFunctions -> {#2 - Tan[20 Degree] #1 &} to change the angle of lines.

Clear[plot];
plot = 
 RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 200, 
  MeshFunctions -> {#2 - Tan[20 Degree] #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1]}];
Export["test.pdf", plot] // SystemOpen

added 441 characters in body

Source Link

edited Oct 22, 2023 at 1:17

cvgmt

84.1k
6
97
179

Export such drawing to pdf is not a vector format pdf file. We use Mesh to draw such hatchfilling instead.

Export such drawing to pdf is not a vector format pdf file. We use Mesh to draw such hatchfilling instead.

plot = RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 80, 
  MeshFunctions -> {#2 - #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1.5]}]
Export["test.pdf", plot] // SystemOpen

We can set MeshFunctions -> {#2 - Tan[20 Degree] #1 &} to change the angle of lines.

Clear[plot];
plot = 
 RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 200, 
  MeshFunctions -> {#2 - Tan[20 Degree] #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1]}];
Export["test.pdf", plot] // SystemOpen

Export such drawing to pdf is not a vector format pdf file. We use Mesh to draw such hatchfilling instead.

plot = RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 80, 
  MeshFunctions -> {#2 - #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1.5]}]
Export["test.pdf", plot] // SystemOpen

Export such drawing to pdf is not a vector format pdf file. We use Mesh to draw such hatchfilling instead.

plot = RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 80, 
  MeshFunctions -> {#2 - #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1.5]}]
Export["test.pdf", plot] // SystemOpen

We can set MeshFunctions -> {#2 - Tan[20 Degree] #1 &} to change the angle of lines.

Clear[plot];
plot = 
 RegionPlot[Sin[x] Sin[y] > 1/4, {x, -10, 10}, {y, -10, 10}, 
  BoundaryStyle -> Thickness[0.01], PlotStyle -> None, Mesh -> 200, 
  MeshFunctions -> {#2 - Tan[20 Degree] #1 &}, 
  MeshStyle -> {RGBColor["#0077BB"], AbsoluteThickness[1]}];
Export["test.pdf", plot] // SystemOpen

Source Link

created Oct 20, 2023 at 22:14

cvgmt

84.1k
6
97
179

Loading

Stack Exchange Network

Return to Answer