312.5 setheight

-1 7 setxrange
-3 19 setyrange

/f1 {-2 mul 18 add} def
/f2 {2 mul 6 add} def

/A1 {1 dup f1} def
/B1 {2 dup f1} def
/A2 {5 dup f2} def
/B2 {4 dup f2} def

/M1 {A1 projx} def
/M2 {A2 projx} def
/N1 {B1 projx} def
/N2 {B2 projx} def

gsave
continu
/fillstyle {gris fill} def
blanc
M1 0 .3 subv 1 .5 rframe*
N2 0 .3 subv 1 .5 rframe*
grestore

tracerepere
marks

1.7 setlinewidth
0 3 (f1) Courbe
3 6 (f2) Courbe

.9 setlinewidth
A1 A2  droite
B1 B2 droite

pointilles
[A1 M1] ligne
[B1 N1] ligne
[A2 M2] ligne
[B2 N2] ligne

[A1 A2 B1 B2] points