{Black, Red, Blue}, FillingStyle -> {2 -> Red, 3 -> Blue}] Export["plotB.gif", plotB, ImageSize -> 500] This diagram was created with Mathematica by...