Présentation de cour_019.jps

-9 4 setxrange
-5 7 setyrange
/k 2 def
/alpha 60 def
/M1 {-4 2} def
/M2 {-3 2} def
/I {-4 0} def

/M1' {M1 I k hompoint} def
/M2' {M2 I k hompoint} def
/M1" {M1 I k hompoint I alpha rotatepoint} def
/M2" {M2 I k hompoint I alpha rotatepoint} def

[I M1 M2 M1' M2' M1" M2"] points
M1" M2" droite
%M1' M2' droite
M1 M2 droite

M1' I M1" 1.5 (<-) tripointarcarrow
M2' I M2" 2.5 (<-) tripointarcarrow

/N2 {-1.5 -2} def
/N1 {-1 -1} def
/N1' {N1 I k hompoint} def
/N2' {N2 I k hompoint} def
/N1" {N1 I k hompoint I alpha rotatepoint} def
/N2" {N2 I k hompoint I alpha rotatepoint} def

[I N1 N2 N1' N2' N1" N2"] points
N1 N2 IAcercle cercle
%N1' N2' IAcercle cercle
N1" N2" IAcercle cercle
N1' I N1" 1.5 (<-) tripointarcarrow
N2' I N2" 2.5 (<-) tripointarcarrow

gsave 
   pointilles
   [M2" I M1"] ligne
   [M2' I M1'] ligne
   [N2' I N1'] ligne
   [N2" I N1"] ligne
grestore