.PS
# Test of project (), setview ()


thicklines_
define(`X',`project(1,0,0)')
define(`Y',`project(0,1,0)')
define(`Z',`project(0,0,1)')
define(`Orig',`project(0,0,0)')

setview(20,20)
thicklines_(1.2pt)
arrow from Orig to Y ; arrow from Y to project(0,1.5,0); "sp_ $y$" ljust
arrow from Orig to Z ; arrow from Z to project(0,0,1.5); "$z$" above
arrow from Orig to X ; arrow from X to project(1.5,0,0); "$x$" below

thinlines_
define(`M1',1)
line from Y to project(0,1,1) then to Z
line from project(M1,0,0) to project(M1,1,0) \
  then to project(M1,1,1) then to project(M1,0,1) then to project(M1,0,0)

line from Orig to project(M1,0,0)
line from Y to project(M1,1,0)
line from Z to project(M1,0,1)
line from project(0,1,1) to project(M1,1,1)

#"sp_ $(0,0,0)$" at Orig ljust
#"sp_ $(0,0,1)$" at Z ljust
#"sp_ $(0,1,0)$" at Y ljust
#"sp_ $(0,1,1)$" at project(0,1,1) ljust
#"$(M1,0,0)$" at project(M1,0,0) rjust
#"$(M1,0,1)$" at project(M1,0,1) rjust
#"$(M1,1,0)$" at project(M1,1,0) below
#"$(M1,1,1)$" at project(M1,1,1) rjust
.PE