Source PostScript (diamond.pps)

/diamond {
1 dict begin
   /dotangle {45} def
   square
end
} def

/diamond* {
2 dict begin
   /dotangle {45} def
   /startest {true} def
   square
end
} def

/diamond0 {
   1 dict begin
      /dotscale {.5 .5} def
      diamond
   end
} def
/diamond1 {
   1 dict begin
      /dotscale {.7 .7} def
      diamond
   end
} def
/diamond2 {
   1 dict begin
      /dotscale {2 sqrt dup} def
      diamond
   end
} def
/diamond3 {
   1 dict begin
      /dotscale {3 sqrt dup} def
      diamond
   end
} def

/diamond0* {
   1 dict begin
      /dotscale {.5 .5} def
      diamond*
   end
} def
/diamond1* {
   1 dict begin
      /dotscale {.7 .7} def
      diamond*
   end
} def
/diamond2* {
   1 dict begin
      /dotscale {2 sqrt dup} def
      diamond*
   end
} def
/diamond3* {
   1 dict begin
      /dotscale {3 sqrt dup} def
      diamond*
   end
} def