Source PostScript (ln_bande.pps)

%% syntaxe : i ln_bande --> traits sur ] 10^(i-1) ; 10^i]
/ln_bande {
2 dict begin
   /k exch def
   /j 1 def
   6 {
      [k 1 sub k ln_seq] {10 k exp j mul add} apply
      dup {svrule} apply
      {shrule} apply
      /j j 1 add store
   } repeat
end
} def

%% syntaxe : i ln_ybande --> traits horizontaux sur ] 10^(i-1) ; 10^i]
/ln_ybande {
2 dict begin
   /k exch def
   /j 1 def
   6 {
      [k 1 sub k ln_seq] {10 k exp j mul add} apply
      {shrule} apply
      /j j 1 add store
   } repeat
end
} def

%% syntaxe : i ln_xbande --> traits horizontaux sur ] 10^(i-1) ; 10^i]
/ln_xbande {
2 dict begin
   /k exch def
   /j 1 def
   6 {
      [k 1 sub k ln_seq] {10 k exp j mul add} apply
      {svrule} apply
      /j j 1 add store
   } repeat
end
} def