Mathematica 用斜线填充两个曲线之间的区域

Word有图案填充，但是这种操作在mma里面还真不好搞，毕竟不管怎么样都要计算曲线两端的坐标，那就暴力算吧

findArea[expr_, x1_, x2_, d_, y0_] := 
 Table[Line[
   FindRoot[{# == y, 
        y == 1.2 (x - x0) + y0}, {{x, x0}, {y, y0}}][[;; , 2]] & /@ 
    expr], {x0, x1, x2, d}]
area = findArea[{Sin[x], Cos[x]}, -2, 8, .1, 0];
Plot[{Sin[x], Cos[x]}, {x, 0, 2 Pi}, Prolog -> {Gray, area}, 
 Evaluate@FStyle[], 
 Ticks -> {FTicks[0, 6.4, 0.2, 5], FTicks[-1, 1, 0.1, 5]}]

（F开头的两个函数见上一篇）

---

群友解决方案：

RegionPlot[Min@## < y < Max@##, {x, 0, 2 Pi}, {y, -1.2, 1.2}, 
   Mesh -> 60, MeshFunctions -> {# - #2 &}, MeshShading -> {None}, 
   AspectRatio -> 0.6] &[Sin[x], Cos[x]]