projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 9365b7f1 WJ |
1 | % Test a tilted halftone screen. |
| 2 | ||
| 3 | 4 0 { dup mul exch dup mul add 1 exch sub } setscreen | |
| 4 | ||
| 5 | 4 0 | |
| 6 | { exch abs exch abs 2 copy le { exch } if | |
| 7 | exch 1 sub dup mul exch dup mul add 1 exch sub | |
| 8 | } setscreen | |
| 9 | ||
| 10 | 36 36 scale | |
| 11 | 0 1 9 | |
| 12 | { /y exch def | |
| 13 | 0 1 9 | |
| 14 | { /x exch def | |
| 15 | x y moveto | |
| 16 | 1 0 rlineto 0 1 rlineto -1 0 rlineto closepath | |
| 17 | y 10 mul x add 100 div setgray | |
| 18 | fill | |
| 19 | } for | |
| 20 | } for | |
| 21 | ||
| 22 | showpage quit |