| | 2472 | |
|---|
| | 2473 | %%%%% ### marks ### |
|---|
| | 2474 | /xmkstep 1 def % les marques sur Ox |
|---|
| | 2475 | /xmarkstyle {dctext} def |
|---|
| | 2476 | /ymarkstyle {(-1 0) bltext} def |
|---|
| | 2477 | /setxmkstep { |
|---|
| | 2478 | /xmkstep exch def |
|---|
| | 2479 | } def |
|---|
| | 2480 | /xmark { |
|---|
| | 2481 | dup xtick |
|---|
| | 2482 | /Courier findfont .8 fontsize mul scalefont setfont |
|---|
| | 2483 | dup chaine cvs exch |
|---|
| | 2484 | Oy xmarkstyle |
|---|
| | 2485 | } def |
|---|
| | 2486 | /xmarks { |
|---|
| | 2487 | 2 dict begin |
|---|
| | 2488 | /n xmax xmax xmin sub 1000 div sub xmkstep div truncate cvi |
|---|
| | 2489 | xmkstep mul def % mark max |
|---|
| | 2490 | /i xmin xmkstep div truncate cvi |
|---|
| | 2491 | xmkstep mul def % la 1ere |
|---|
| | 2492 | i xmin lt {/i i xmkstep add store} if |
|---|
| | 2493 | { |
|---|
| | 2494 | i 0 ne {i xmark} if |
|---|
| | 2495 | /i i xmkstep abs add store |
|---|
| | 2496 | i n gt {exit} if |
|---|
| | 2497 | } loop |
|---|
| | 2498 | end |
|---|
| | 2499 | } def |
|---|
| | 2500 | |
|---|
| | 2501 | /ymkstep 1 def % les marques sur Oy |
|---|
| | 2502 | /setymkstep { |
|---|
| | 2503 | /ymkstep exch def |
|---|
| | 2504 | } def |
|---|
| | 2505 | /ymark { |
|---|
| | 2506 | dup ytick |
|---|
| | 2507 | /Courier findfont .8 fontsize mul scalefont setfont |
|---|
| | 2508 | dup chaine cvs exch |
|---|
| | 2509 | Ox exch ymarkstyle |
|---|
| | 2510 | } def |
|---|
| | 2511 | /ymarks { |
|---|
| | 2512 | 2 dict begin |
|---|
| | 2513 | /n ymax ymax ymin sub 1000 div sub ymkstep div truncate cvi |
|---|
| | 2514 | ymkstep mul def % mark max |
|---|
| | 2515 | /i ymin ymkstep div truncate cvi |
|---|
| | 2516 | ymkstep mul def % la 1ere |
|---|
| | 2517 | { |
|---|
| | 2518 | i 0 ne {i ymark} if |
|---|
| | 2519 | /i i ymkstep abs add store |
|---|
| | 2520 | i n gt {exit} if |
|---|
| | 2521 | } loop |
|---|
| | 2522 | end |
|---|
| | 2523 | } def |
|---|
| | 2524 | |
|---|
| | 2525 | /setmkstep { |
|---|
| | 2526 | setymkstep |
|---|
| | 2527 | setxmkstep |
|---|
| | 2528 | } def |
|---|
| | 2529 | /marks { |
|---|
| | 2530 | xmarks |
|---|
| | 2531 | ymarks |
|---|
| | 2532 | } def |
|---|
| | 2533 | |
|---|
| | 2534 | %%%%% ### setfontsize ### |
|---|
| | 2535 | /setfontsize { |
|---|
| | 2536 | /fontsize exch def |
|---|
| | 2537 | } def |
|---|
| | 2538 | |
|---|
| | 2539 | %%%%% ### setCourrier ### |
|---|
| | 2540 | /Courier findfont |
|---|
| | 2541 | dup length dict begin |
|---|
| | 2542 | { |
|---|
| | 2543 | 1 index /FID ne |
|---|
| | 2544 | {def} |
|---|
| | 2545 | {pop pop} |
|---|
| | 2546 | ifelse |
|---|
| | 2547 | } forall |
|---|
| | 2548 | /Encoding ISOLatin1Encoding def |
|---|
| | 2549 | currentdict |
|---|
| | 2550 | end |
|---|
| | 2551 | |
|---|
| | 2552 | /Courier-ISOLatin1 exch definefont pop |
|---|
| | 2553 | |
|---|
| | 2554 | /setCourier { |
|---|
| | 2555 | /Courier-ISOLatin1 findfont |
|---|
| | 2556 | fontsize scalefont |
|---|
| | 2557 | setfont |
|---|
| | 2558 | } def |
|---|
