| | 415 | |
|---|
| | 416 | %%%%% ### tripointangle ### |
|---|
| | 417 | %% syntaxe : A B C tripointangle --> angle ABC |
|---|
| | 418 | /tripointangle { |
|---|
| | 419 | 9 dict begin |
|---|
| | 420 | /yC exch def |
|---|
| | 421 | /xC exch def |
|---|
| | 422 | /yB exch def |
|---|
| | 423 | /xB exch def |
|---|
| | 424 | /yA exch def |
|---|
| | 425 | /xA exch def |
|---|
| | 426 | /A {xA yA} def |
|---|
| | 427 | /B {xB yB} def |
|---|
| | 428 | /C {xC yC} def |
|---|
| | 429 | B C angle |
|---|
| | 430 | B A angle |
|---|
| | 431 | sub |
|---|
| | 432 | end |
|---|
| | 433 | } def |
|---|
| | 434 | |
|---|
| | 435 | %%%%% ### angle ### |
|---|
| | 436 | %% syntaxe : A B angle |
|---|
| | 437 | %% --> num, l'angle defini par le vecteur AB dans le repere orthonorme jps |
|---|
| | 438 | /angle { |
|---|
| | 439 | vecteur exch atan |
|---|
| | 440 | dup 180 gt |
|---|
| | 441 | {360 sub} |
|---|
| | 442 | if |
|---|
| | 443 | } def |
|---|
| | 444 | |
|---|
| | 445 | %% syntaxe : A B pangle |
|---|
| | 446 | %% --> num, l'angle defini par le vecteur AB dans le repere postscript |
|---|
| | 447 | /pangle { |
|---|
| | 448 | jtoppoint exchp jtoppoint exchp vecteur exch atan |
|---|
| | 449 | dup 180 gt |
|---|
| | 450 | {360 sub} |
|---|
| | 451 | if |
|---|
| | 452 | } def |
|---|
