#include "R:\Multimedia\PovRay\Letters TvR\LettersTvR.inc" 

#macro showLetters(message, space)
	union {                              
		#local pos_X=0;
		
		#local pos=1;
		#while (pos<=strlen(message))
			
			#switch (asc(strupr(substr(message, pos, 1))))  
			
				#case (asc("A"))
					object { Letter_A translate x*pos_X }
					#local pos_X = pos_X+ Letter_A_Width;					
					#break
		        
		        #case (asc("B"))
					object { Letter_B translate x*pos_X }  
					#local pos_X = pos_X+ Letter_B_Width;
					#break
				
				#case (asc("C"))
					object { Letter_C translate x*pos_X }
					#local pos_X = pos_X+ Letter_C_Width;
					#break
					
				#case (asc("D"))
					object { Letter_D translate x*pos_X }
					#local pos_X = pos_X+ Letter_D_Width;
					#break     
					
				#case (asc("E"))
					object { Letter_E translate x*pos_X }
					#local pos_X = pos_X+ Letter_E_Width;
					#break
					
				#case (asc("F"))
					object { Letter_F translate x*pos_X }
					#local pos_X = pos_X+ Letter_F_Width;
					#break
					
				#case (asc("G"))
					object { Letter_G translate x*pos_X }
					#local pos_X = pos_X+ Letter_G_Width;
					#break
					
				#case (asc("H"))
					object { Letter_H translate x*pos_X }
					#local pos_X = pos_X+ Letter_H_Width;
					#break
					
				#case (asc("I"))
					object { Letter_I translate x*pos_X }
					#local pos_X = pos_X+ Letter_I_Width;
					#break
					
				#case (asc("J"))
					object { Letter_J translate x*pos_X }
					#local pos_X = pos_X+ Letter_J_Width;
					#break
					
				#case (asc("K"))
					object { Letter_K translate x*pos_X }
					#local pos_X = pos_X+ Letter_K_Width;
					#break
					
				#case (asc("L"))
					object { Letter_L translate x*pos_X }
					#local pos_X = pos_X+ Letter_L_Width;
					#break
					
				#case (asc("M"))
					object { Letter_M translate x*pos_X }
					#local pos_X = pos_X+ Letter_M_Width;
					#break
					
				#case (asc("N"))
					object { Letter_N translate x*pos_X }
					#local pos_X = pos_X+ Letter_N_Width;
					#break
					
				#case (asc("O"))
					object { Letter_O translate x*pos_X }
					#local pos_X = pos_X+ Letter_O_Width;
					#break
					
				#case (asc("P"))
					object { Letter_P translate x*pos_X }
					#local pos_X = pos_X+ Letter_P_Width;
					#break
					
				#case (asc("Q"))
					object { Letter_Q translate x*pos_X }
					#local pos_X = pos_X+ Letter_Q_Width;
					#break
					
				#case (asc("R"))
					object { Letter_R translate x*pos_X }
					#local pos_X = pos_X+ Letter_R_Width;
					#break
					
				#case (asc("S"))
					object { Letter_S translate x*pos_X }
					#local pos_X = pos_X+ Letter_S_Width;
					#break
					
				#case (asc("T"))
					object { Letter_T translate x*pos_X }
					#local pos_X = pos_X+ Letter_T_Width;
					#break
					
				#case (asc("U"))
					object { Letter_U translate x*pos_X }
					#local pos_X = pos_X+ Letter_U_Width;
					#break
					
				#case (asc("V"))
					object { Letter_V translate x*pos_X }
					#local pos_X = pos_X+ Letter_V_Width;
					#break
					
				#case (asc("W"))
					object { Letter_W translate x*pos_X }
					#local pos_X = pos_X+ Letter_W_Width;
					#break
					
				#case (asc("X"))
					object { Letter_X translate x*pos_X }
					#local pos_X = pos_X+ Letter_X_Width;
					#break
					
				#case (asc("Y"))
					object { Letter_Y translate x*pos_X }
					#local pos_X = pos_X+ Letter_Y_Width;
					#break
					
				#case (asc("Z"))
					object { Letter_Z translate x*pos_X }
					#local pos_X = pos_X+ Letter_Z_Width;
					#break
					
				#case (asc("0"))
					object { Digit_0 translate x*pos_X }
					#local pos_X = pos_X+ Digit_0_Width;
					#break
					
				#case (asc("1"))
					object { Digit_1 translate x*pos_X }
					#local pos_X = pos_X+ Digit_1_Width;
					#break
					
				#case (asc("2"))
					object { Digit_2 translate x*pos_X }
					#local pos_X = pos_X+ Digit_2_Width;
					#break
					
				#case (asc("3"))
					object { Digit_3 translate x*pos_X }
					#local pos_X = pos_X+ Digit_3_Width;
					#break
				
				#case (asc("4"))
					object { Digit_4 translate x*pos_X }
					#local pos_X = pos_X+ Digit_4_Width;
					#break
					
				#case (asc("5"))
					object { Digit_5 translate x*pos_X }
					#local pos_X = pos_X+ Digit_5_Width;
					#break
					
				#case (asc("6"))
					object { Digit_6 translate x*pos_X }
					#local pos_X = pos_X+ Digit_6_Width;
					#break
					
				#case (asc("7"))
					object { Digit_7 translate x*pos_X }
					#local pos_X = pos_X+ Digit_7_Width;
					#break
					
				#case (asc("8"))
					object { Digit_8 translate x*pos_X }
					#local pos_X = pos_X+ Digit_8_Width;
					#break
					
				#case (asc("9"))
					object { Digit_9 translate x*pos_X }
					#local pos_X = pos_X+ Digit_9_Width;
					#break        
					
				#case (asc("."))
					object { Sign_DOT translate x*pos_X }
					#local pos_X = pos_X+ Sign_DOT_Width;
					#break
							        
			#end        
			
			#local pos_X=pos_X+space;

			#local pos=pos+1;
		#end
	}
#end