Puoi incollare queste istruzioni nel Testo GDL 2D di un nuovo oggetto:
DEFINE SOLID_FILL "retino"
DEFINE STYLE "pp" "arial", 4,2,0
p=0
FILL "retino"
STYLE "pp"
FOR g=1 TO 16
FOR f=1 TO 20
p=p+1
PEN p
ADD2 (f-1)*1.25,-g*2+2
POLY2 5,7,0,0,1,0,1,1,0,1,0,0
LINE2 0,1.25,1,1.25
PEN 1
TEXT2 .5,0,p
DEL 1
IF p>=255 THEN END
NEXT f
NEXT g
... oppure usare l'oggetto "Penne e colori" che trovi in Libreria