draw a sequence of line of random position

random.ps

%!

/RP { rand 144 mod    rand 144 mod } def %generate a random point

RP moveto
RP lineto currentpoint 1 setlinewidth stroke moveto
RP lineto currentpoint 2 setlinewidth stroke moveto
RP lineto currentpoint 3 setlinewidth stroke moveto
RP lineto currentpoint 4 setlinewidth stroke moveto


showpage