def a_sands (expr p) =
    T:=identity;
    pickup PenC;
    path q; q = bbox p;
    picture tmp_pic;
    tmp_pic := image(
      for i = xpart llcorner q step 0.4u until xpart urcorner q:
        for j = ypart llcorner q step 0.4u until ypart urcorner q:
          draw origin shifted ((i,j) randomized 0.3u) withpen PenC;
        endfor;
      endfor;
    );
    #clip tmp_pic to p;
    draw tmp_pic;
  enddef;
  endcode  

Il peut y avoir une complication avec le symbole sable, vous ne verrez pas de modification dans Acrobat Reader. C’est un problème avec AcrobatReader. Il est possible pour des pdfs de changer la valeur pour la génération des cartes :

  def a_sands (expr p) =
    T:=identity;
    pickup PenA;
    path q; q = bbox p;
    picture tmp_pic;
    tmp_pic := image(
      for i = xpart llcorner q step 0.4u until xpart urcorner q:
        for j = ypart llcorner q step 0.4u until ypart urcorner q:
          draw origin shifted ((i,j) randomized 0.3u) withpen PenA;
        endfor;
      endfor;
    );
    #clip tmp_pic to p;
    draw tmp_pic;
  enddef;
  endcode  

Nous ne changeons que le mot clef PenC en PenA. Vous verrez les points de sable dans AcrobatReader maintenant.