% RTUTILS

rt_createsphere(Name,X,Y,Z,R,Mat):-
	rt_createfromscheme(nsection(object,
							attribute(name,Name),
							attribute(material,Mat),
							pvector(model,
								nsection(sphere,
									attribute(center,vector(X,Y,Z)),
									attribute(radius,R)
								)
							)
					),_,_,_).
							
rt_createplanematerial(Name,R,G,B):- 
	rt_createfromscheme(nsection(material,
							attribute(name,Name),
							pvector(model,
								nsection(phong,
									attribute('Ks',0.0),
									attribute('Kt',0.0),
									attribute('Ka',0.2),
									attribute('Kd',0.8),
									attribute('Od',vector(R,G,B))
								)
							)
						),_,_,_).
						

	
	


