| | 59 | \begin{center} |
|---|
| | 60 | %\psset{unit=0.75} |
|---|
| | 61 | \psset{SphericalCoor=true,viewpoint=10 18 10,Decran=10} |
|---|
| | 62 | \begin{pspicture*}(-5,-4)(6,9) |
|---|
| | 63 | \psframe(-5,-4)(6,9) |
|---|
| | 64 | \codejps{ |
|---|
| | 65 | /eq1 {[0 0 1 -1]} def |
|---|
| | 66 | /eq2 {[0 0 1 0]} def |
|---|
| | 67 | /eq3 {[0 0 1 1]} def |
|---|
| | 68 | /eq4 {[1.2 1 0 -.8]} def |
|---|
| | 69 | %% plan d equation z = 1 |
|---|
| | 70 | eq1 eq2plan |
|---|
| | 71 | newplan |
|---|
| | 72 | dup eq4 solideqplansepare |
|---|
| | 73 | dup (blanc) solidputcolors |
|---|
| | 74 | /Plan1a exch def |
|---|
| | 75 | dup (blanc) solidputcolors |
|---|
| | 76 | /Plan1b exch def |
|---|
| | 77 | %% plan d equation z = 0 |
|---|
| | 78 | eq2 eq2plan |
|---|
| | 79 | newplan |
|---|
| | 80 | dup eq4 solideqplansepare |
|---|
| | 81 | dup (blanc) solidputcolors |
|---|
| | 82 | /Plan2a exch def |
|---|
| | 83 | dup (blanc) solidputcolors |
|---|
| | 84 | /Plan2b exch def |
|---|
| | 85 | %% plan d equation z = -1 |
|---|
| | 86 | eq3 eq2plan |
|---|
| | 87 | newplan |
|---|
| | 88 | dup eq4 solideqplansepare |
|---|
| | 89 | dup (blanc) solidputcolors |
|---|
| | 90 | /Plan3a exch def |
|---|
| | 91 | dup (blanc) solidputcolors |
|---|
| | 92 | /Plan3b exch def |
|---|
| | 93 | %% plan d equation x + y + 1 = 0 |
|---|
| | 94 | eq4 eq2plan |
|---|
| | 95 | newplan |
|---|
| | 96 | dup (cyan) solidputcolors |
|---|
| | 97 | /Plan4 exch def |
|---|
| | 98 | Plan3a drawsolid* |
|---|
| | 99 | Plan2a drawsolid* |
|---|
| | 100 | Plan4 drawsolid* |
|---|
| | 101 | Plan3b drawsolid* |
|---|
| | 102 | Plan2b drawsolid* |
|---|
| | 103 | pointilles |
|---|
| | 104 | Plan3a drawsolid |
|---|
| | 105 | Plan2a drawsolid |
|---|
| | 106 | } |
|---|
| | 107 | \end{pspicture*} |
|---|
| | 108 | \end{center} |
|---|
| | 109 | |
|---|
| | 110 | |
|---|
| | 111 | |
|---|
