Mathematica Tips @MathematicaTip Specify the color of graphics primitives with opacity: Graphics3D[{XYZColor[1, 0, 1], Sphere[]}] Mathematica Tips @MathematicaTip Pattern resembling Pascal's triangle: NestList[Differences, Normal[SparseArray[10 -> 1, 21]], 11]