求PostScript三角形渐变填充代码，用于Penrose铺砖绘制

我希望编写PostScript代码实现三角形的渐变填充。以下是我通过谷歌搜索整合出的可生成渐变正方形的代码：

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 400 400

/square{
 0 0 40 40 rectclip
 << /ShadingType 2
    /ColorSpace [ /DeviceRGB ]
    /Coords [ 0 0 40 40 ]
    /Function <<
      /FunctionType 2
      /Domain [ 0 1 ]
      /C0 [ 0.9 0.2 0.0 ]
      /C1 [ 0.0 0.2 0.9 ]
      /N 1
    >>
 >>
} bind def
save gsave
200 200 translate 45 rotate
square shfill
grestore restore    
100 100 translate  300 rotate
square shfill showpage  

将上述代码保存为后缀为.ps的文本文件，在Mac上双击打开，Apple Preview应用可正常显示两个渐变正方形。

现需类似风格的代码实现三角形渐变填充，最终目标是绘制Penrose铺砖中的薄、厚菱形并进行填充，以模拟John Conway提出的Penrasia城的倾斜屋顶效果。

注：2023年1月16日已移除回答中提及的冗余代码。

恳请技术人士提供帮助，请问此问题是否适合在该论坛提问？

内容的提问来源于stack exchange，提问作者Peter Kropholler