del all
persp 450 .2 102.2
Draw=t

func 3 <make-picture

back = 0
cheapo
scale = .175
ncur=6
nseg=14


clrf zf
sbuff
disp 
disp

clrf n

Draw = f

load lat
tran 0 0 -30
disp t

tran 0 30 0
disp t

tran 30 0 0
disp t

tran 0 -30 0
disp t

tran 0 -30 0
disp t

tran -30 0 0 
disp t

tran -30 0 0 
disp t

tran 0 30 0
disp t

tran 0 30 0
disp t

del all

load lat


disp t

tran 0 30 0
disp t

tran 30 0 0
disp t

tran 0 -30 0
disp t

tran 0 -30 0
disp t

tran -30 0 0 
disp t

tran -30 0 0 
disp t

tran 0 30 0
disp t

tran 0 30 0
disp t

del all



