%!PS<br>
<br>
% This is a postscript file to draw a picture of pascals triangle<br>
% Author: Helena Verrill<br>
<br>
/N{100}def % N gives the number of rows<br>
/m{8}def   % at the moment m should be 0<m<9, or else get colour repeats.<br>
/S{.7}def  % change S to change scale<br>
/k{8}def   % number of colours<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       % if you change k, you have to make sure you add or subtract<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       % lines from the colour definition, so k colours are defined.<br>
<br>
/colour{        % you can change the colours; <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;            % these are red green blue values<br>
 0  0  0   %colour 0<br>
 1  1 .5   %colour 1<br>
.8  0 .5   %colour 2<br>
 0 .7  0   %colour 3<br>
.8  0  0   %colour 4<br>
.8 .8 .3   %colour 5<br>
.9 .4 .4   %colour 6<br>
 1 .9  0   %colour 7<br>
3 k mul 1 add 3 k mul roll<br>
-3 mul 3 k mul exch roll k 1 sub 3 mul{pop}repeat setrgbcolor}def<br>
<br>
/square{8 0 translate colour 0 0 moveto <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    6 -6 6 2 2 6 -2 2  4{rlineto}repeat<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    closepath fill}def<br>
<br>
300 600 translate<br>
<br>
S S 1.5 mul scale  <br>
-45 rotate<br>
<br>
N{1}repeat <br>
N{0 -8 translate<br>
N copy 0<br>
N{add m mod 1 copy N 1 add 1 roll}repeat<br>
N 2 mul 1 add  N 1 add roll<br>
N{square}repeat pop <br>
N -8 mul 0 translate}repeat<br>
<br>
showpage<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>