usecolor
-7 7 setxrange
-13 13 setyrange
25 setxunit

10 10 8 SetCamPos
0 0 0 SetCamView
/ScreenDist .2 def

2 setlinejoin

-5 2 0 [8 36] newconecreux
dup (orange) (bleu) inoutputcolors
5 2 0 [8 36] newconecreux
dup (bleu) (orange) inoutputcolors
solidfuz
drawsolid**