autocrop
-4.5 5 setxrange
-3 3 setyrange
20 setxunit
5 -8 8 SetCamPos
0 0 0 SetCamView
2 setlinejoin 

%% creation du cube
3 newcube /A exch def
A drawsolid

%% creation du chemin et des projetes
newpath
   -1.5 dup Sin smoveto
   -1.5 1.5 {3 mul Sin} Courbe_
   gsave
      orange A 0 projpath
      stroke
   grestore
   gsave
      bleu A 4 projpath
      stroke
   grestore
   gsave
      bleu A 4 (2.5 0 0) projpath
      stroke
   grestore
   A 3 projpath
stroke