N2qeD84Fv78X2XEj8PtUZOa.Mod

MODULE N2qeD84Fv78X2XEj8PtUZOa;(*anonymous module created by saboteur*)
  
IMPORT Base,  FRep;

TYPE Ray = Base.Ray;
	Voxel = Base.Voxel;  
	PT =Base.PT;
VAR 
	ball: FRep.sphere;
	cyl: FRep.cyl;
	v: Voxel;
	conglomerate,sc,star: Voxel;
	center,q,qq:  PT;
	p:ARRAY 7 OF PT;
	i,j,k:INTEGER;
	
PROCEDURE thisvox*():Base.Voxel;
BEGIN
	RETURN star
END thisvox;

BEGIN
	v:=Base.VoxelFromName("NnTJ6nDktAth4WTAUdr8HYQ"); 	
	conglomerate:=Base.VoxelFromName("NM3"); 	
	sc:=Base.VoxelFromName("NM3"); 	
	star:=Base.VoxelFromName("NM3"); 	
	conglomerate.imposter:=sc;
	conglomerate.setcolor(0,0,0,100,0);
	Base.setPT(center,1/2,1/2,1/2);
	Base.setPT(q,1/2,1/2,0);
	Base.setPT(qq,1/2,1/2,1);
	NEW(ball,center,1/3);
	ball.setcolor(1,1,0);
(*	ball.cxf:=TRUE; *)
	NEW(cyl,q,qq,1/6);
	conglomerate.FRaster(ball,32);
	sc.FRaster(cyl,9);	
	
	star.setcolor(0,0,0,100,0);
	ball.setcolor(1,0,1);
	star.FRaster(ball,32);	
	NEW(ball,center,1/2);	
	ball.setvoxel(conglomerate);
	star.FRaster(ball,4);	
	star.imposter:=conglomerate;
(*	FOR i := 0  TO 1000 DO
		q:=Base.randPT();
		star.stroke(q,27,conglomerate);
		q:=Base.randPT();
		star.stroke(q,81,sc);	
	END;
*)	star.copyonstroke:=TRUE;
	conglomerate.copyonstroke:=TRUE;	
(*	
	

	FOR i := 0  TO 100 DO
		Base.setPT(center,Base.rand.Uniform(),Base.rand.Uniform(),Base.rand.Uniform());
		NEW(ball,center,1/25);	
		ball.setcolor(Base.rand.Uniform(),Base.rand.Uniform(),Base.rand.Uniform());		
		star.FRaster(ball,128);			
	END;
*)


 END N2qeD84Fv78X2XEj8PtUZOa. 
 
XNXLMarsh.Rez N2qeD84Fv78X2XEj8PtUZOa ~