ZilQarneyn's . . . Turtle-Graphics Include File for POV-Ray

Ready.

The Include file petri.inc for POV-Ray

In the following text box, there is the include file I use to prepare my Petri net graphs with POV-Ray. You may copy it to the clipboard and save it on your harddisk, with the name "petri.inc", later to be included in the scene-rendering *.pov files.

I crafted it POV-Ray version 3.1, which says the macros are a new feature with it. POV-ray is freeware, and you may download it for a variety of platforms.

#include "colors.inc"		// Standard pre-defined colors
//#include "stones.inc"		// pre-defined scene elements
//#include "textures.inc"	// pre-defined scene elements
//#include "shapes.inc"
//#include "glass.inc"
//#include "metals.inc"
//#include "woods.inc"

//#declare BlackBackground = background {color Black}
//#declare WhiteBackground = background {color White}
//#declare PinkBackground = background {color Pink}
//#declare ZectionLightBlueBackground = background {color rgb <0.63, 0.95, 0.95>}
//#declare PistachioBackground = 
background {color rgb <0.6, 0.95, 0.63>}

#macro MyLine(scaleX)
	union {
		cylinder {<0, 0, 0>,  <scaleX, 0, 0>,  1}
 		sphere{<0,0,0> 1 }
 		sphere{<scaleX,0,0> 1 }
 	}
#end
#macro MyLineR(scaleX, theAngle)				object {MyLine(scaleX)   rotate <0,0,theAngle>}									#end	
#macro MyLineRT(scaleX, theAngle, addX, addY)	object {MyLine(scaleX)   rotate <0,0,theAngle>   translate <addX,addY,0>}		#end	
#macro MyLineR_3D(scaleX, angX, angY, angZ)		object {MyLine(scaleX)   rotate <angX,angY,angZ>}								#end	
//#macro MyVertLine(xx, yy, zz, ysize)			cylinder {<0,0,0>,  <0, ysize, 0>,  1    translate <xx, yy, zz>}				#end

#macro MyThinLine(scaleX/*,theRadius*/)
	union {
		cylinder {<0, 0, 0>,  <scaleX, 0, 0>,  0.5 /*theRadius*/}
 		sphere{<0,0,0> 0.5 }
 		sphere{<scaleX,0,0> 0.5 }
 	}
#end
#macro MyThinLineR(scaleX, theAngle)				object {MyThinLine(scaleX)   rotate <0,0,theAngle>}		#end	
#macro MyThinLineRT(scaleX, theAngle, addX, addY)	object {MyThinLine(scaleX)   rotate <0,0,theAngle>   translate <addX,addY,0>}		#end

//#declare MyDisc = disc {<0, 0, 0>  z,  3,  1.5}
//#macro CutOutSphere(scaler)
//	difference {
//		sphere {<0, 0, 0>,  scaler}
//		cylinder {<0, 0, -scaler>  <0, 0, scaler>,  scaler-1.5}
//	}
//#end
//#macro PetriNetsPlace3D(scaler,  addx,addy,addz)
//	object {CutOutSphere(scaler)   translate<addx,addy,addz>}
//	//disc {<addx, addy, addz>  z,  scaler,  scaler-1.5}
//#end

#macro MyArrow(scaleLength, scaleFlap)
	union {
		MyThinLine(scaleLength)
		object{MyThinLineR(scaleFlap,  135)   translate <scaleLength,0,0>}
		object{MyThinLineR(scaleFlap, -135)   translate <scaleLength,0,0>}
	}
#end	
#macro MyArrowR(length, theAngle)				object{MyArrow(length,2)   rotate<0,0,theAngle>}	#end	
#macro MyArrowR_3D(length, angX,angY,angZ)		object{MyArrow(length,2)   rotate<angX,angY,angZ>}	#end	
#macro MyArrowRT(length, theAngle, addx addy)	object{MyArrow(length,2)  rotate<0,0,theAngle> translate<addx,addy,0>}	#end	
#macro PetriNetsPlace(scaler,  addx,addy)		torus{scaler, 1 rotate<90,0,0> translate<addx,addy,0>} /*object {CutOutSphere(scaler)   translate<addx,addy,0>}*/	/*disc {<addx, addy, 0>  z,  scaler,  scaler-1.5}*/	#end
#macro PetriNetsTransition(addx,addy, theAngle)	object{MyLine(7) translate <-3.5,0,0> rotate<0,0,theAngle> translate<addx,addy,0>}	#end
#macro PetriNetToken(addx,addy)					sphere{<0, 0, 0>,  1   translate<addx,addy,0>}	#end

//#macro JumpToEndRT(scaleX, theAngle, addX, addY)
//	#local TmpVec = <AddX*A[i][1], AddY*A[i][1], 0>;
//	//vaxis_rotate(TmpVec,z,AngZ)
//	AddX=TmpVec.x
//	AddY=TmpVec.y
//#end

//tm: turtle moves.             
#declare tmX=100;
#declare tmY=110;
#declare tmZ=120;
#declare tmIncX=130;
#declare tmIncY=140;
#declare tmIncZ=150;
#declare tmAngleX=200;
#declare tmAngleY=210;
#declare tmAngleZ=220;
#declare tmAngle=220;
#declare tmIncAngleX=230;
#declare tmIncAngleY=240;
#declare tmIncAngleZ=250;
#declare tmTurn=250;
//#declare tmSetSize=300;
#declare tmJumpToEnd=400;
#declare tmLineNow=500;
#declare tmArrowNow=600;
#declare tmTheEnd=0;
             
#macro turtle(A)
	#local i=0;
	#local AddX=0;
	#local AddY=0;
	#local AddZ=0;
	#local AngX=0;
	#local AngY=0;
	#local AngZ=0;                   
	#local TmpVec=<0,0,0>;	
    union {
		#while (A[i][0] > tmTheEnd)
			#switch (A[i][0])
				#case (tmLineNow)	MyThinLineRT(A[i][1],AngZ,AddX,AddY)#break		//object{MyLine(A[i][1])   rotate <AngX,AngY,AngZ>   translate <AddX,AddY,AddZ>}
				#case (tmArrowNow)	MyArrowRT(A[i][1],AngZ,AddX,AddY)	#break		//object{MyArrowR(A[i][1],AngZ)   /*rotate <AngX,AngY,AngZ>*/   translate <AddX,AddY,AddZ> pigment {color Green}}
				#case (tmJumpToEnd)	//JumpToEndRT(A[i][1],AngZ,AddX,AddY)	#break
									//#local TmpVec = <AddX*A[i][1], AddY*A[i][1], AddZ*A[i][1]>;
									#local TmpVec = <A[i][1], 0, 0>;
									#local TmpVec = vaxis_rotate(TmpVec,z,AngZ)
									#local AddX=AddX+TmpVec.x
									#local AddY=AddY+TmpVec.y
									#local AddZ=AddZ+TmpVec.z
									#break

#case (tmX)			#local AddX = A[i][1];				#break
				#case (tmY)			#local AddY = A[i][1];				#break
				#case (tmZ)			#local AddZ = A[i][1];				#break
				#case (tmIncX)		#local AddX = AddX + A[i][1];		#break
				#case (tmIncY)		#local AddY = AddY + A[i][1];		#break
				#case (tmIncZ)		#local AddZ = AddZ + A[i][1];		#break
		
				#case (tmAngleX)	#local AngX = A[i][1];				#break
				#case (tmAngleY)	#local AngY = A[i][1];				#break
				#case (tmAngleZ)	#local AngZ = A[i][1];				#break
				#case (tmIncAngleX)	#local AngX = AngX + A[i][1];		#break
				#case (tmIncAngleY)	#local AngY = AngY + A[i][1];		#break
				#case (tmIncAngleZ)	#local AngZ = AngZ + A[i][1];		#break
			#end
			#declare i=i+1;
		#end    
		pigment {color Green}
	}
#end

#macro writexyz(xx,yy,zz,szText,scalex,scaley)			text {ttf   "c:\win\fonts\cour.ttf"   szText  1,  0   scale <scalex,scaley,1>   translate <xx,yy,zz>}	#end
#macro writexyz_arial(xx,yy,zz,szText,scalex,scaley)	text {ttf   "c:\win\fonts\arial.ttf"   szText  1,  0   scale <scalex,scaley,1>   translate <xx,yy,zz>}	#end
#macro writexyz_courier(xx,yy,zz,szText,scalex,scaley)	text {ttf   "c:\win\fonts\cour.ttf"   szText  1,  0   scale <scalex,scaley,1>   translate <xx,yy,zz>}	#end
#macro writexyz_times(xx,yy,zz,szText,scalex,scaley)	text {ttf   "c:\win\fonts\times.ttf"   szText  1,  0   scale <scalex,scaley,1>   translate <xx,yy,zz>}	#end

#declare DoubleHeadedArrow = array[7][2]
				{
					//{tmAngle,45},
					//{tmIncX,0},
					//{tmIncY,0},
					{tmLineNow,5},
					{tmJumpToEnd,5},
					{tmTurn,30},
					{tmArrowNow,5},
					{tmTurn,-60},
					{tmArrowNow,5},
					{tmTheEnd,0}

}

//-----------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------

/*#declare MySuperEllipsoid = superellipsoid { <.25, .25>
	pigment { Red } 
	scale<10,10,1>
	translate <5,5,0>
	pigment {color rgbf <0,1,0,.9>}
}*/

I am planning to improve this further, while using it. Currently, it may take a few trial-and-errors to set the figures as desired. I may consider to make it more automatized.

An example Petri net figure: Kids at table.

And here is an example usage of it. You may save the text in the next box in a file with pov extension, e.g: "pn_kitable.pov". POV-Ray for windows generates a bmp file. I later convert that to the png (Protable Network Graphics) format, for it to take less space.

You may also render the graph and the token set separately. That way, on a web page, different token sets may be put on a layer over the graph, interactively with the user.

Forum: . . (Fair Menu . . . . . Fault Report? . . . . . Remedy for your case . . . . . Noticed Plagiarism?)

Referring#: 0.0.0.0
Last-Revised (text) on Sept. 21, 2003 . . . that was http://www.geocities.com/ferzenr/petripovrayinc.htm
mirror to mid80.net, on June 15, 2009
Written by: Ahmed Ferzan/Ferzen R Midyat-Zila (or, Earth)
Copyright (c) 2003, 2009 Ferzan Midyat. All rights reserved.

mirror