%% syntaxe : i log_bande --> traits sur ] 10^(i-1) ; 10^i]
/log_bande {
2 dict begin
/k exch def
/j 1 def
3 {
[k 1 sub k log_seq] {10 k exp j mul add} apply
dup {svrule} apply
{shrule} apply
/j j 1 add store
} repeat
4 {
[k 1 sub k log_seq] {exch pop} papply
{10 k exp j mul add} apply
dup {svrule} apply
{shrule} apply
/j j 1 add store
} repeat
2 {
[k 1 sub k log_seq] {4 {exch pop} repeat} 5 5 Apply
{10 k exp j mul add} apply
dup {svrule} apply
{shrule} apply
/j j 1 add store
} repeat
end
} def
%% syntaxe : i log_ybande --> traits horizontaux sur ] 10^(i-1) ; 10^i]
/log_ybande {
2 dict begin
/k exch def
/j 1 def
3 {
[k 1 sub k log_seq] {10 k exp j mul add} apply
{shrule} apply
/j j 1 add store
} repeat
4 {
[k 1 sub k log_seq] {exch pop} papply
{10 k exp j mul add} apply
{shrule} apply
/j j 1 add store
} repeat
2 {
[k 1 sub k log_seq] {4 {exch pop} repeat} 5 5 Apply
{10 k exp j mul add} apply
{shrule} apply
/j j 1 add store
} repeat
end
} def
%% syntaxe : i log_xbande --> traits horizontaux sur ] 10^(i-1) ; 10^i]
/log_xbande {
2 dict begin
/k exch def
/j 1 def
3 {
[k 1 sub k log_seq] {10 k exp j mul add} apply
{svrule} apply
/j j 1 add store
} repeat
4 {
[k 1 sub k log_seq] {exch pop} papply
{10 k exp j mul add} apply
{svrule} apply
/j j 1 add store
} repeat
2 {
[k 1 sub k log_seq] {4 {exch pop} repeat} 5 5 Apply
{10 k exp j mul add} apply
{svrule} apply
/j j 1 add store
} repeat
end
} def
|