% place this in the prologue
%
/nome {(<font color=#008800>Anyname</font>)} BD
/FITS1 {GS OrR  pc SRGB nome TC S GR} BD
/FITS2 {GS OrR          nome TC F GR} BD
/FITS3 {15 15 345 { dup ini 1 add dup /ini E D Pen2    FITS2 FITS1 } for
 0 0 0 SRGB  Ori nome TC F /pc {1 0 0} def 0.5 SL 1 0 0 SRGB 0 FITS1} BD
%
% place this in the body 
%
3.5 cm 5 cm T
/pc {0 0.5 0.5} D   
0.1 SL  
FTB
GS 7 cm  12 cm T 0.5 0.5 Sk /ini -1 def FITS3 GR