Sorry your browser is not supported!

function LineDraw(sX1 as float,sy1 as float,sX2 as float,sY2 as float)
	local xa as FLOAT
	local ya as FLOAT								
			DistLine#=int(DistLineFUNC( sx1, sy1, 0, sx2, sy2, 0 ))
			stx#=(sx2-sx1)/DistLine#
			sty#=(sy2-sy1)/DistLine#
			xa=sx1
			ya=sy1			
			IF ABS((sx2-sx1))>ABS((sy2-sy1)) THEN LIN#=ABS((sx2-sx1)):STE#=ABS(stx#)
			IF ABS((sy2-sy1))>ABS((sx2-sx1)) THEN LIN#=ABS((sy2-sy1)):STE#=ABS(sty#)			
			FOR P#=0.0 TO LIN# STEP STE#
							xa=xa+stx#
							ya=ya+sty#								
							if POmode=M_all	
										if PTmode=M_image 
													brushimage(xa,ya)
										endif
										if PTmode=M_color 
													brushcolor(xa,ya)
										endif
										if PTmode=M_STAMP
													brushSTAMP(xa,ya)
										endif
										if PTmode=M_fly
													brushfly(xa,ya)
										endif
										if PTmode=M_burn
													brushburn(xa,ya)
										endif
							endif	
							if POmode=M_sel
										if PTmode=M_image 
													brushimageYES(xa,ya)
										endif
										if PTmode=M_color 
													brushcolorYES(xa,ya)
										endif
										if PTmode=M_STAMP
													brushSTAMPYES(xa,ya)
										endif
										if PTmode=M_fly
													brushflyYES(xa,ya)
										endif
										if PTmode=M_burn
													brushburnYES(xa,ya)
										endif
							endif		
							if POmode=M_desel
										if PTmode=M_image 
													brushimageno(xa,ya)
										endif
										if PTmode=M_color 
													brushcolorno(xa,ya)
										endif
										if PTmode=M_STAMP
													brushSTAMPno(xa,ya)
										endif
										if PTmode=M_fly
													brushflyno(xa,ya)
										endif
										if PTmode=M_burn
													brushburnno(xa,ya)
										endif
							endif	
			NEXT P#

endfunction
function PLACEIMAGE(xppl,yppl,xppl2,yppl2)
			wi=abs(xppl2-xppl)
			hi=abs(yppl2-yppl)
			ik copy image 97331,97332
			ik resize image 97331,wi,hi,0
			IK Set Blend Mode 2
			IK Replace Image Color 97331, RGB(255,1,1,1), RGB(0,0,0,0)
			IK Paste Image On Image 97331 , shotimg , xppl, yppl
endfunction
Function BrushText()	
			id=execute executable("BOXTEXT.exe","","")
			positionGadget mainbb , sw, sh
			while executable running(id)=1
				if spacekey()=1 then stop executable id
			endwhile
			item=selectedListViewItem(listView) 
			BrushName="text\"
			load image BrushDIR+BrushName+"DIFFUSE.DDS",origBrushDiffIMGnum      
			load image BrushDIR+BrushName+"NORMAL.DDS",origBrushNormalIMGnum     
			load image BrushDIR+BrushName+"ALPHA.DDS",origBrushAlphaIMGnum       
			load image BrushDIR+BrushName+"ICO.bmp",STAMPsprite						
			sprite STAMPsprite,214,sh-42,STAMPsprite                             
			IK copy image EditBrushDiffIMGnum , origBrushDiffIMGnum              
			IK copy image EditBrushNormalIMGnum , origBrushNormalIMGnum          
			IK copy image EditBrushAlphaIMGnum , origBrushAlphaIMGnum				
			IK resize image EditBrushDiffIMGnum,BRUSHSIZE,BRUSHSIZE,0            
			IK resize image EditBrushNormalIMGnum,BRUSHSIZE,BRUSHSIZE,0          
			IK resize image EditBrushAlphaIMGnum,BRUSHSIZE,BRUSHSIZE,0
			setGadgetVisible UI_lib,0	
			sleep 300:mcli=0
			positionGadget mainbb , 0, 0
EndFunction
function fillselect(sX1 AS FLOAT, sy1 AS FLOAT ,sX2 AS FLOAT ,sY2 AS FLOAT )
	tectri=0
	local x as FLOAT
	local y as FLOAT
	for y=sY1 to SY2 
			for x=sX1 to SX2 
						if PTmode=M_image
									pdot(x,y,matimg,ShotImg,intensiveBRUSH*2 )	
						endif
						if PTmode=M_color
									pcol(x,y,intensiveBRUSH*2)
						endif
						if PTmode=M_fly
									pDoDge(x,y,ShotImg ,intensiveBRUSH)
						endif
						if PTmode=M_burn
									pburn(x,y,ShotImg ,intensiveBRUSH )
						endif
			next x					
			mx=mousex()
			my=mousey()
			mcli=mouseclick()
			coltri=(SY2-sY1)
			inc tectri					
			D3D_ROUNDED_BOX sw/2-105	,sh/2-55 ,sw/2+105	,sh/2+55 , 1,0
			D3D_PROGRESS_BAR sw/2-100, sh/2-50, 200, 100, 1, coltri, tectri, matimg							
			D3D_ROUNDED_BOX sw/2-50	,(sh/2)-20+100 ,sw/2+50	,(sh/2)+20+100 , 3,1							
			ink rgb(255,0,0)
			center text sw/2	,(sh/2)+90 ,"STOP filling"							
			if mcli=1
				if mx>sw/2-50 and mx<sw/2+50 and my>(sh/2)-20+100 and my<(sh/2)+20+100 then x=SX2:y=SY2
			endif
			sync					
	next y	
	ink rgb(255,255,255)		
	set dir glavcat
	ik resize image ShotImg,TECimagesize,TECimagesize,0
	ik resize image normalmap,TECimagesize,TECimagesize,0
	if useheightmap=1 then ik resize image heightmap,TECimagesize,TECimagesize,0
	texture object 1,0,ShotImg
	texture object 1,1,normalmap
	if useheightmap=1 then texture object 1,2,heightmap
	setbatch()
	BatchADDcompound()
	ink rgb(255,255,255)
endfunction

function DOTimage(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
								pdot(fx,fy,matimg,ShotImg,intensiveBRUSH )
				next fy
			next fx
endfunction
function DOTcolor(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
								pCOL(fx,fy,intensiveBRUSH )
				next fy
			next fx
endfunction
function brushimage(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
				    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
				    IncV=IncVF(dystburn)
				    if dystburn<BRUSHSIZE/2
								pdot( fx,fy,matimg,ShotImg,IncV )
				    endif
				next fy
			next fx
endfunction
function brushimageYES(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
				    if ik point(SelectTRIimage,fx,fy)<>rgb(0,0,0,0)
							    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
							    IncV=IncVF(dystburn)
							    if dystburn<BRUSHSIZE/2
											pdot( fx,fy,matimg,ShotImg,IncV )
							    endif
				    endif
				next fy
			next fx
endfunction
function brushimageNO(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
				    if ik point(SelectTRIimage,fx,fy)=rgb(0,0,0,0)
							    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
							    IncV=IncVF(dystburn)
							    if dystburn<BRUSHSIZE/2
											pdot( fx,fy,matimg,ShotImg,IncV )
							    endif
				    endif
				next fy
			next fx
endfunction
function brushcolor(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
				    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
				    IncV=IncVF(dystburn)
				    if dystburn<BRUSHSIZE/2
								pCOL(fx,fy,IncV )	
				    endif
				next fy
			next fx
endfunction
function brushcolorYES(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
					 if ik point(SelectTRIimage,fx,fy)<>rgb(0,0,0,0)    
						    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
						    IncV=IncVF(dystburn)
						    if dystburn<BRUSHSIZE/2
										pCOL(fx,fy,IncV )	
						    endif
				    endif
				next fy
			next fx
endfunction
function brushcolorNO(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
				    if ik point(SelectTRIimage,fx,fy)=rgb(0,0,0,0)
						    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
						    IncV=IncVF(dystburn)
						    if dystburn<BRUSHSIZE/2
										pCOL(fx,fy,IncV )	
						    endif
					 endif
				next fy
			next fx
endfunction
function brushBURN(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
				    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
					 IncV=IncVF(dystburn)
				    if dystburn<BRUSHSIZE/2
								pBURN(fx,fy,ShotImg,IncV  )
				    endif
				next fy
			next fx
endfunction
function brushBURNYES(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
				    if ik point(SelectTRIimage,fx,fy)<>rgb(0,0,0,0)
						    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
							 IncV=IncVF(dystburn)
						    if dystburn<BRUSHSIZE/2
										pBURN(fx,fy,ShotImg,IncV  )
						    endif
				    endif
				next fy
			next fx
endfunction
function brushBURNNO(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
				    if ik point(SelectTRIimage,fx,fy)=rgb(0,0,0,0)
						    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
							 IncV=IncVF(dystburn)
						    if dystburn<BRUSHSIZE/2
										pBURN(fx,fy,ShotImg,IncV  )
						    endif
				    endif
				next fy
			next fx
endfunction
function brushFLY(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
				    
				    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
				    IncV=IncVF(dystburn)
				    if dystburn<BRUSHSIZE/2
								pDoDge(fx,fy,ShotImg,IncV )
				    endif
				next fy
			next fx
endfunction
function brushFLYYES(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
				    if ik point(SelectTRIimage,fx,fy)<>rgb(0,0,0,0)
						    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
						    IncV=IncVF(dystburn)
						    if dystburn<BRUSHSIZE/2
										pDoDge(fx,fy,ShotImg,IncV )
						    endif
				    endif
				next fy
			next fx
endfunction
function brushFLYNO(xxx,yyy)
			for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
				for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
				    if ik point(SelectTRIimage,fx,fy)=rgb(0,0,0,0)
						    dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
						    IncV=IncVF(dystburn)
						    if dystburn<BRUSHSIZE/2
										pDoDge(fx,fy,ShotImg,IncV )
						    endif
				    endif
				next fy
			next fx
endfunction
function brushSTAMP(xxx,yyy)
			for fx=0 to BRUSHSIZE
				for fy=0 to BRUSHSIZE
						pSTAMP(fx+xxx-(BRUSHSIZE/2),fy+yyy-(BRUSHSIZE/2),(intensiveBRUSH),fx,fy)
				next fy
			next fx	
endfunction
function brushSTAMPYES(xxx,yyy)
			for fx=0 to BRUSHSIZE
				for fy=0 to BRUSHSIZE
						if ik point(SelectTRIimage,fx+xxx-(BRUSHSIZE/2),fy+yyy-(BRUSHSIZE/2))<>rgb(0,0,0,0)
							pSTAMP(fx+xxx-(BRUSHSIZE/2),fy+yyy-(BRUSHSIZE/2),(intensiveBRUSH),fx,fy)
						endif
				next fy
			next fx	
endfunction
function brushSTAMPNO(xxx,yyy)
			for fx=0 to BRUSHSIZE
				for fy=0 to BRUSHSIZE
						if ik point(SelectTRIimage,fx+xxx-(BRUSHSIZE/2),fy+yyy-(BRUSHSIZE/2))=rgb(0,0,0,0)
							pSTAMP(fx+xxx-(BRUSHSIZE/2),fy+yyy-(BRUSHSIZE/2),(intensiveBRUSH),fx,fy)
						endif
				next fy
			next fx	
endfunction






function pBURN(xxx,yyy,view,intence)
				ppc=image point(view,xxx,yyy)
				if rgbr(ppc)-intence>0 then rc=rgbr(ppc)-intence
				if rgbg(ppc)-intence>0 then gc=rgbg(ppc)-intence
				if rgbb(ppc)-intence>0 then bc=rgbb(ppc)-intence
				ac=rgba(ppc)
				ppc=rgb(ac,rc,gc,bc)
				image dot view, xxx,yyy , ppc
endfunction
function pDoDge(xxx,yyy,view,intence)
				ppc=image point(view,xxx,yyy)
				rc=rgbr(ppc)+intence 
				gc=rgbg(ppc)+intence 
				bc=rgbb(ppc)+intence 
				if rc>250 then rc=250
				if gc>250 then gc=250
				if bc>250 then bc=250
				ac=rgba(ppc)
				ppc=rgb(ac,rc,gc,bc)
				image dot view, xxx,yyy , ppc
endfunction
function pcol(xxx,yyy,intence)	
				ppc=image point(SHOTIMG,xxx,yyy)
				ppc2=paintcolor
				ac=rgba(ppc):rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc)
				ac2=rgba(ppc2):rc2=rgbr(ppc2):gc2=rgbg(ppc2):bc2=rgbb(ppc2)
				if coleditDR=1 
					IF RC<RC2 
						 RC=RC+intence
						 if RC>RC2 then RC=RC2
					endif
					IF RC>RC2 
						 RC=RC-intence
						 if RC<RC2 then RC=RC2
					endif
				ENDIF
				if coleditDG=1 
					IF GC<GC2 
						 GC=GC+intence
						 if GC>GC2 then GC=GC2
					endif
					IF GC>GC2 
						 GC=GC-intence
						 if GC<GC2 then GC=GC2
					endif
				ENDIF
				if coleditDB=1 
					IF BC<BC2 
						 BC=BC+intence
						 if BC>BC2 then BC=BC2
					endif
					IF BC>BC2 
						 BC=BC-intence
						 if BC<BC2 then BC=BC2
					endif
				ENDIF
				if coleditA=1 
					AC=ac2
				ENDIF	
				ppc=rgb(ac,rc,gc,bc)
				image dot ShotImg , xxx,yyy,ppc
				if coleditS=1		
					ppc2=image point(normalmap,xxx,yyy)
					rc=rgbr(ppc2):gc=rgbg(ppc2):bc=rgbb(ppc2):ac=rgbA(ppc2)
					ac2=spec
					
					IF AC<AC2 
						 AC=AC+intence
						 if AC>AC2 then AC=AC2
					endif
					IF AC>AC2 
						 AC=AC-intence
						 if AC<AC2 then AC=AC2
					endif		
					ppc2=rgb(ac,rc,gc,bc)
					image dot normalmap, xxx,yyy , ppc2	
				endif
endfunction	
function pdot(xxx,yyy,mat,view,intence)
				if editD=1
					ppc=image point(view,xxx,yyy)
					ppc22=image point(mat,xxx,yyy)		
					rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)			
					rc2=rgbr(ppc22):gc2=rgbg(ppc22):bc2=rgbb(ppc22):ac2=rgba(ppc22)			
					IF rc<rc2 
						 rc=rc+intence
						 if rc>rc2 then rc=rc2
					endif
					IF gc<gc2 
						 gc=gc+intence
						 if gc>gc2 then gc=gc2
					endif	 
					IF bc<bc2 
						 bc=bc+intence	
						 if bc>bc2 then bc=bc2	
					endif
					IF rc>rc2 
						 rc=rc-intence
						 if rc<rc2 then rc=rc2
					endif
					IF gc>gc2 
						 gc=gc-intence
						 if gc<gc2 then gc=gc2
					endif	 
					IF bc>bc2 
						 bc=bc-intence	
						 if bc<bc2 then bc=bc2	
					endif		
					if editA=0 
						ppc=rgb(ac,rc,gc,bc)
					else
						ppc=rgb(ac2,rc,gc,bc)
					endif		
				   image dot view, xxx,yyy , ppc
				endif
				if editD=0
					ppc=image point(view,xxx,yyy)
					rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)
					if editA=1 
						ppc2=image point(mat,xxx,yyy)
						ac2=rgba(ppc2)
						IF ac>ac2  
						 ac=ac-intence	
						 if ac<ac2 then ac=ac2	
						endif	
						IF ac<ac2  
						 ac=ac+intence	
						 if ac>ac2 then ac=ac2	
						endif
					endif
					ppc=rgb(ac,rc,gc,bc)
				   image dot view, xxx,yyy , ppc
				endif	
				if editN=1
					ppc=image point(normalmap,xxx,yyy)
					ppc22=image point(mat+8000,xxx,yyy)		
					rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)			
					rc2=rgbr(ppc22):gc2=rgbg(ppc22):bc2=rgbb(ppc22):ac2=rgba(ppc22)			
					IF rc<rc2 
							 rc=rc+intence
							 if rc>rc2 then rc=rc2
					endif
					IF gc<gc2 
							 gc=gc+intence
							 if gc>gc2 then gc=gc2
					endif	 
					IF bc<bc2 
							 bc=bc+intence	
							 if bc>bc2 then bc=bc2	
					endif
					IF rc>rc2 
							 rc=rc-intence
							 if rc<rc2 then rc=rc2
					endif
					IF gc>gc2 
							 gc=gc-intence
							 if gc<gc2 then gc=gc2
					endif	 
					IF bc>bc2 
							 bc=bc-intence	
							 if bc<bc2 then bc=bc2	
					endif		
					if editS=0 
							ppc=rgb(ac,rc,gc,bc)
					else
							IF ac>ac2  
							 ac=ac-intence	
							 if ac<ac2 then ac=ac2	
							endif	
							IF ac<ac2  
							 ac=ac+intence	
							 if ac>ac2 then ac=ac2	
							endif
							ppc=rgb(ac,rc,gc,bc)			
					endif		
				   image dot normalmap, xxx,yyy , ppc
				endif
				if editN=0
					ppc=image point(normalmap,xxx,yyy)
					rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)
					if editS=1 
						ppc2=image point(mat+8000,xxx,yyy)
						ac2=rgba(ppc2)
						IF ac>ac2  
						 ac=ac-intence	
						 if ac<ac2 then ac=ac2	
						endif	
						IF ac<ac2  
						 ac=ac+intence	
						 if ac>ac2 then ac=ac2	
						endif
					endif
					ppc=rgb(ac,rc,gc,bc)
				   image dot normalmap, xxx,yyy , ppc
				endif	
			IF USEHEIGHTMAP=1	
				if editH=1
					ppc=image point(heightmap,xxx,yyy)
					ppc22=image point(mat+8001,xxx,yyy)		
					rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)			
					rc2=rgbr(ppc22):gc2=rgbg(ppc22):bc2=rgbb(ppc22):ac2=rgba(ppc22)			
					IF rc<rc2 
						 rc=rc+intence
						 if rc>rc2 then rc=rc2
					endif
					IF gc<gc2 
						 gc=gc+intence
						 if gc>gc2 then gc=gc2
					endif	 
					IF bc<bc2 
						 bc=bc+intence	
						 if bc>bc2 then bc=bc2	
					endif
					IF rc>rc2 
						 rc=rc-intence
						 if rc<rc2 then rc=rc2
					endif
					IF gc>gc2 
						 gc=gc-intence
						 if gc<gc2 then gc=gc2
					endif	 
					IF bc>bc2 
						 bc=bc-intence	
						 if bc<bc2 then bc=bc2	
					endif
					ppc=rgb(ac,rc,gc,bc)
				   image dot heightmap, xxx,yyy , ppc
				endif	
			ENDIF
endfunction
Function pSTAMP(xxx,yyy,intence,xxx2,yyy2)
			ppc33=image point(EditBrushAlphaIMGnum,xxx2,yyy2)
			intence= intence* ( rgba(ppc33)*(1.0/255.0))
			if rgba(ppc33)=0 then exitfunction
				if editD=1
					ppc=image point(ShotImg,xxx,yyy)
					ppc22=image point(EditBrushDiffIMGnum,xxx2,yyy2)
					rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)			
					rc2=rgbr(ppc22):gc2=rgbg(ppc22):bc2=rgbb(ppc22):ac2=rgba(ppc22)
					IF rc<rc2 
						 rc=rc+intence
						 if rc>rc2 then rc=rc2
					endif
					IF gc<gc2 
						 gc=gc+intence
						 if gc>gc2 then gc=gc2
					endif	 
					IF bc<bc2 
						 bc=bc+intence	
						 if bc>bc2 then bc=bc2	
					endif
					IF rc>rc2 
						 rc=rc-intence
						 if rc<rc2 then rc=rc2
					endif
					IF gc>gc2 
						 gc=gc-intence
						 if gc<gc2 then gc=gc2
					endif	 
					IF bc>bc2 
						 bc=bc-intence	
						 if bc<bc2 then bc=bc2	
					endif		
					if editA=0 
						ppc=rgb(ac,rc,gc,bc)
					else
						ppc=rgb(ac2,rc,gc,bc)
					endif		
				   image dot ShotImg, xxx,yyy , ppc
				endif
				if editD=0
					ppc=image point(ShotImg,xxx,yyy)
					rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)
					if editA=1 
						ppc2=image point(EditBrushDiffIMGnum,xxx2,yyy2)
						ac2=rgba(ppc2)
						IF ac>ac2  
						 ac=ac-intence	
						 if ac<ac2 then ac=ac2	
						endif	
						IF ac<ac2  
						 ac=ac+intence	
						 if ac>ac2 then ac=ac2	
						endif
					endif
					ppc=rgb(ac,rc,gc,bc)
				   image dot ShotImg, xxx,yyy , ppc
				endif	
				if editN=1
					ppc=image point(normalmap,xxx,yyy)
					ppc22=image point(EditBrushNormalIMGnum,xxx2,yyy2)	
					rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)			
					rc2=rgbr(ppc22):gc2=rgbg(ppc22):bc2=rgbb(ppc22):ac2=rgba(ppc22)		
					IF rc<rc2 
							 rc=rc+intence
							 if rc>rc2 then rc=rc2
					endif
					IF gc<gc2 
							 gc=gc+intence
							 if gc>gc2 then gc=gc2
					endif	 
					IF bc<bc2 
							 bc=bc+intence	
							 if bc>bc2 then bc=bc2	
					endif
					IF rc>rc2 
							 rc=rc-intence
							 if rc<rc2 then rc=rc2
					endif
					IF gc>gc2 
							 gc=gc-intence
							 if gc<gc2 then gc=gc2
					endif	 
					IF bc>bc2 
							 bc=bc-intence	
							 if bc<bc2 then bc=bc2	
					endif		
					if editS=0 
							ppc=rgb(ac,rc,gc,bc)
					else
							IF ac>ac2  
							 ac=ac-intence	
							 if ac<ac2 then ac=ac2	
							endif	
							IF ac<ac2  
							 ac=ac+intence	
							 if ac>ac2 then ac=ac2	
							endif
							ppc=rgb(ac,rc,gc,bc)
					endif		
				   image dot normalmap, xxx,yyy , ppc
				endif
				if editN=0
					ppc=image point(normalmap,xxx,yyy)
					rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)
					if editS=1 
						ppc2=image point(EditBrushNormalIMGnum,xxx2,yyy2)
						ac2=rgba(ppc2)
						IF ac>ac2  
							 ac=ac-intence	
							 if ac<ac2 then ac=ac2	
						endif	
						IF ac<ac2  
							 ac=ac+intence	
							 if ac>ac2 then ac=ac2	
						endif
					endif
					ppc=rgb(ac,rc,gc,bc)
				   image dot normalmap, xxx,yyy , ppc
				endif
endfunction
function IncVF( dystburn )
IncV=((intensiveBRUSH)*(1.0+((BRUSHSIZE/2.0)-dystburn)))/multiplayer
endfunction IncV

function LineDraw(sX1 as float,sy1 as float,sX2 as float,sY2 as float)
 local xa as FLOAT
 local ya as FLOAT        
   DistLine#=int(DistLineFUNC( sx1, sy1, 0, sx2, sy2, 0 ))
   stx#=(sx2-sx1)/DistLine#
   sty#=(sy2-sy1)/DistLine#
   xa=sx1
   ya=sy1   
   IF ABS((sx2-sx1))>ABS((sy2-sy1)) THEN LIN#=ABS((sx2-sx1)):STE#=ABS(stx#)
   IF ABS((sy2-sy1))>ABS((sx2-sx1)) THEN LIN#=ABS((sy2-sy1)):STE#=ABS(sty#)   
   FOR P#=0.0 TO LIN# STEP STE#
       xa=xa+stx#
       ya=ya+sty#        
       if POmode=M_all 
          if PTmode=M_image 
             brushimage(xa,ya)
          endif
          if PTmode=M_color 
             brushcolor(xa,ya)
          endif
          if PTmode=M_STAMP
             brushSTAMP(xa,ya)
          endif
          if PTmode=M_fly
             brushfly(xa,ya)
          endif
          if PTmode=M_burn
             brushburn(xa,ya)
          endif
       endif 
       if POmode=M_sel
          if PTmode=M_image 
             brushimageYES(xa,ya)
          endif
          if PTmode=M_color 
             brushcolorYES(xa,ya)
          endif
          if PTmode=M_STAMP
             brushSTAMPYES(xa,ya)
          endif
          if PTmode=M_fly
             brushflyYES(xa,ya)
          endif
          if PTmode=M_burn
             brushburnYES(xa,ya)
          endif
       endif  
       if POmode=M_desel
          if PTmode=M_image 
             brushimageno(xa,ya)
          endif
          if PTmode=M_color 
             brushcolorno(xa,ya)
          endif
          if PTmode=M_STAMP
             brushSTAMPno(xa,ya)
          endif
          if PTmode=M_fly
             brushflyno(xa,ya)
          endif
          if PTmode=M_burn
             brushburnno(xa,ya)
          endif
       endif 
   NEXT P#

endfunction
function PLACEIMAGE(xppl,yppl,xppl2,yppl2)
   wi=abs(xppl2-xppl)
   hi=abs(yppl2-yppl)
   ik copy image 97331,97332
   ik resize image 97331,wi,hi,0
   IK Set Blend Mode 2
   IK Replace Image Color 97331, RGB(255,1,1,1), RGB(0,0,0,0)
   IK Paste Image On Image 97331 , shotimg , xppl, yppl
endfunction
Function BrushText() 
   id=execute executable("BOXTEXT.exe","","")
   positionGadget mainbb , sw, sh
   while executable running(id)=1
    if spacekey()=1 then stop executable id
   endwhile
   item=selectedListViewItem(listView) 
   BrushName="text\"
   load image BrushDIR+BrushName+"DIFFUSE.DDS",origBrushDiffIMGnum      
   load image BrushDIR+BrushName+"NORMAL.DDS",origBrushNormalIMGnum     
   load image BrushDIR+BrushName+"ALPHA.DDS",origBrushAlphaIMGnum       
   load image BrushDIR+BrushName+"ICO.bmp",STAMPsprite      
   sprite STAMPsprite,214,sh-42,STAMPsprite                             
   IK copy image EditBrushDiffIMGnum , origBrushDiffIMGnum              
   IK copy image EditBrushNormalIMGnum , origBrushNormalIMGnum          
   IK copy image EditBrushAlphaIMGnum , origBrushAlphaIMGnum    
   IK resize image EditBrushDiffIMGnum,BRUSHSIZE,BRUSHSIZE,0            
   IK resize image EditBrushNormalIMGnum,BRUSHSIZE,BRUSHSIZE,0          
   IK resize image EditBrushAlphaIMGnum,BRUSHSIZE,BRUSHSIZE,0
   setGadgetVisible UI_lib,0 
   sleep 300:mcli=0
   positionGadget mainbb , 0, 0
EndFunction
function fillselect(sX1 AS FLOAT, sy1 AS FLOAT ,sX2 AS FLOAT ,sY2 AS FLOAT )
 tectri=0
 local x as FLOAT
 local y as FLOAT
 for y=sY1 to SY2 
   for x=sX1 to SX2 
      if PTmode=M_image
         pdot(x,y,matimg,ShotImg,intensiveBRUSH*2 ) 
      endif
      if PTmode=M_color
         pcol(x,y,intensiveBRUSH*2)
      endif
      if PTmode=M_fly
         pDoDge(x,y,ShotImg ,intensiveBRUSH)
      endif
      if PTmode=M_burn
         pburn(x,y,ShotImg ,intensiveBRUSH )
      endif
   next x     
   mx=mousex()
   my=mousey()
   mcli=mouseclick()
   coltri=(SY2-sY1)
   inc tectri     
   D3D_ROUNDED_BOX sw/2-105 ,sh/2-55 ,sw/2+105 ,sh/2+55 , 1,0
   D3D_PROGRESS_BAR sw/2-100, sh/2-50, 200, 100, 1, coltri, tectri, matimg       
   D3D_ROUNDED_BOX sw/2-50 ,(sh/2)-20+100 ,sw/2+50 ,(sh/2)+20+100 , 3,1       
   ink rgb(255,0,0)
   center text sw/2 ,(sh/2)+90 ,"STOP filling"       
   if mcli=1
    if mx>sw/2-50 and mx<sw/2+50 and my>(sh/2)-20+100 and my<(sh/2)+20+100 then x=SX2:y=SY2
   endif
   sync     
 next y 
 ink rgb(255,255,255)  
 set dir glavcat
 ik resize image ShotImg,TECimagesize,TECimagesize,0
 ik resize image normalmap,TECimagesize,TECimagesize,0
 if useheightmap=1 then ik resize image heightmap,TECimagesize,TECimagesize,0
 texture object 1,0,ShotImg
 texture object 1,1,normalmap
 if useheightmap=1 then texture object 1,2,heightmap
 setbatch()
 BatchADDcompound()
 ink rgb(255,255,255)
endfunction

look:
` Elapsed
   look_mc = McLi
   look_MX = MX
   look_my = my
   look_mMX = mMX
   look_mMy = mMy
   look_mMz = (mMz / 120)
   IF look_mc = 0
    CHANGE MOUSE 2:show mouse
   ENDIF
   IF look_mMz <> 0 and shftKEY=0
     IF look_mMz > 0 THEN DEC look_newCamDist# , (look_newCamDist# / 2.0) : IF look_newCamDist# < 0.1 THEN look_newCamDist# = 0.1
         IF look_mMz < 0 THEN INC look_newCamDist# , (look_newCamDist# / 2.0) : IF look_newCamDist# >666000 THEN look_newCamDist# = 666000
   ENDIF
   IF look_mc = 4
     set object to camera orientation look_PointObj
     move object left look_PointObj,(look_mMX*look_CamDist#)/300.0
     move object up look_PointObj,(look_mMy*look_CamDist#)/300.0
     look_selobjX# = object POSITION X(look_PointObj)
     look_selobjy# = object POSITION Y(look_PointObj)
     look_selobjz# = object POSITION Z(look_PointObj)
   ENDIF
   IF look_mc = 2 OR look_mc = 3
     IF oldklick=0
      oldklick=1
              look_selobj = PICK OBJECT(look_MX , look_my , 1 , 100)
              IF look_selobj = 1 or look_selobj = UVobject or look_selobj = area
               look_selobjX# = GET PICK VECTOR X()+CAMERA POSITION X()
               look_selobjy# = GET PICK VECTOR Y()+CAMERA POSITION Y()
               look_selobjz# = GET PICK VECTOR Z()+CAMERA POSITION Z()
               cirkmode=1
              ENDIF
     ENDIF  
     if look_mc = 2 then position mouse gadgetX(mainbb)+screen width()/2,gadgety(mainbb)+screen height()/2 : CHANGE MOUSE 3 :show mouse
     if look_mc = 3 then hide mouse: look_mc =1: mcli=1: oldklick=0                                               
         POSITION CAMERA OBJECT POSITION X(look_PointObj) , OBJECT POSITION Y(look_PointObj) , OBJECT POSITION Z(look_PointObj)
         YROTATE CAMERA (CAMERA ANGLE Y() + (look_mMX*Elapsed)/100 )
         XROTATE CAMERA (CAMERA ANGLE X() + (look_mMy*Elapsed)/100 )
         MOVE CAMERA -look_CamDist#
   ELSE
     oldklick=0
   ENDIF
   IF ABS(look_CamDist#-look_newCamDist#) > 0.1
         IF look_CamDist#-look_newCamDist# < 0
          INC look_CamDist# , abs((look_CamDist#-look_newCamDist#)*Elapsed  / 300.0)
         ELSE
          DEC look_CamDist# , abs((look_CamDist#-look_newCamDist#)*Elapsed  / 300.0)
         ENDIF
   ENDIF                                                    
   IF SCANCODE() <> 0 and cntrl=0
         look_qqq# = look_CamDist# / 100.0
         SET OBJECT TO CAMERA ORIENTATION look_PointObj
         ROTATE OBJECT look_PointObj , 180 , OBJECT ANGLE Y(look_PointObj) , OBJECT ANGLE Z(look_PointObj)
         IF KEYSTATE(17) OR KEYSTATE(200)
         MOVE OBJECT look_PointObj , -look_qqq#
         ENDIF
         IF KEYSTATE(31) OR KEYSTATE(208)
         MOVE OBJECT look_PointObj , look_qqq#
         ENDIF
         IF KEYSTATE(30) OR KEYSTATE(203)
         MOVE OBJECT LEFT look_PointObj , look_qqq#
         ENDIF
         IF KEYSTATE(32) OR KEYSTATE(205)
         MOVE OBJECT RIGHT look_PointObj , look_qqq#
         ENDIF
         IF KEYSTATE(33)
         MOVE OBJECT UP look_PointObj , look_qqq#
         ENDIF
         IF KEYSTATE(18)
         MOVE OBJECT UP look_PointObj , -look_qqq#
         ENDIF
         look_selobjX# = OBJECT POSITION X(look_PointObj)
         look_selobjy# = OBJECT POSITION Y(look_PointObj)
         look_selobjz# = OBJECT POSITION Z(look_PointObj)
   ENDIF                                                    
   look_dx# = look_selobjX# - OBJECT POSITION X(look_PointObj)
   look_dy# = look_selobjy# - OBJECT POSITION Y(look_PointObj)
   look_dz# = look_selobjz# - OBJECT POSITION Z(look_PointObj)
   look_dist# = SQRT((look_dx#*look_dx#)+(look_dy#*look_dy#)+(look_dz#*look_dz#))
   IF look_dist# > 0.1
         POINT OBJECT look_PointObj , look_selobjX# , look_selobjy# , look_selobjz#
         IF look_speed# < look_dist# / 10.0 
           INC look_speed# , look_uskor# 
            INC look_uskor# , 0.01 
         ELSE 
          look_speed# = look_dist# / 10.0 
          look_uskor# = 0
         endif
         MOVE OBJECT look_PointObj , (look_speed#*Elapsed)/40
   ENDIF
   POSITION CAMERA OBJECT POSITION X(look_PointObj) , OBJECT POSITION Y(look_PointObj) , OBJECT POSITION Z(look_PointObj)
   MOVE CAMERA -look_CamDist#
   IF look_CamDist#<>OLDCDIST#
    OLDCDIST#=look_CamDist#
   ENDIF

RETURN
Function GetFrameTimes() 
 Elapsed = (hiTimer()-OldTime)
 OldTime = hiTimer()
 Elapsed = Averages(Elapsed) 
 Duration = Elapsed * 0.001
 Fps = Int(1000/Elapsed) 
Endfunction

Function Averages(InElapsed as Float)
 Local OutElapsed as float
 inc AveragePointer
 if AveragePointer > MaxAverageArray
  AveragePointer =0
 endif
 AverageElapsed(AveragePointer)=InElapsed
 for i = 0 to MaxAverageArray
  OutElapsed = OutElapsed + AverageElapsed(i)
 Next i
 OutElapsed = OutElapsed/(MaxAverageArray+1)
Endfunction OutElapsed 





function resetLOOK()
     POSITION OBJECT look_PointObj , -200 , 200 , -200 
     XROTATE CAMERA 35
     yROTATE CAMERA 45
     look_selobjX# = 0
     look_selobjy# = 10
     look_selobjz# = 0
     look_newCamDist# = 300.0
endfunction

function setupglob()


global OldMat

global intensiveBRUSH as integer
intensiveBRUSH=50
global multiplayer as integer
multiplayer=1
global brushsize as integer
brushsize=25
       
       
                   

global Globscale as float
Globscale=100.0
global filterMODE
filterMODE=1


global PANEL_A as integer
global PANEL_B as integer
global PANEL_C as integer
global PANEL_D as integer
global PANEL_E as integer
global PANEL_F as integer
global PANEL_G as integer



PANEL_A=1
PANEL_B=1
PANEL_C=1
PANEL_D=1
PANEL_E=1
PANEL_F=1
PANEL_G=1




global dim olddir(5) as string
if file exist("dirs.old")=1 then load array "dirs.old",olddir()

global Gadget1
global Gadget2
global Gadget3
global Gadget4
global Gadget5
global Gadget6
global Gadget7
global Gadget8
global Gadget9
global Gadget10
global Gadget11
global Gadget12
global Gadget13
global Gadget14
global Gadget15
global Gadget16
global Gadget17
global Gadget18
global Gadget19
global Gadget20
global Gadget21
global Gadget22
global Gadget23
global Gadget24
global Gadget25
global Gadget26
global Gadget27
global Gadget28
global Gadget29
global Gadget30
global Gadget31
global Gadget32
global Gadget33
global Gadget34
global Gadget35
global Gadget36
global Gadget37
global Gadget38
global Gadget39
global Gadget40
global Gadget41
global Gadget42
global Gadget43
global Gadget44
global Gadget45
global Gadget46
global Gadget47
global Gadget48
global Gadget49
global Gadget50
global Gadget51
global Gadget52
global Gadget53
global Gadget54


global Gadget1a
global Gadget2a
global Gadget3a
global Gadget4a
global Gadget5a
global Gadget6a
global Gadget7a
global Gadget8a
global Gadget9a




global EVT
global sou
global dat
global undmou

global GUI_CONSTANTS as integer
global COMMANDa as integer
global MOUSE_CLICK as integer
global LEFTBUTTONUP as integer
global RIGHTMOUSECLICK as integer
global RIGHTBUTTONUP as integer
global MOUSEMOVE as integer
global GADGETTIMER as integer
global TOOLBARCLICK as integer
global HOTKEY as integer
global LEFTBUTTONDOWN as integer
global RIGHTBUTTONDOWN as integer
global KEYDOWN as integer
global KEYUP as integer
global LOSEFOCUS as integer
global GADGETSIZING as integer
global GADGETSIZE as integer
global WINDOWCLOSE as integer
global LEFTBUTTONDOUBLECLICK as integer
global MENUCLICK as integer
global COMBOBOXCHANGE as integer
global TREEVIEWCHANGE as integer
global BORDERNONE as integer
global BORDERFLAT as integer
global BORDER3D as integer
global BORDERSUNKEN as integer
global ALIGNNONE as integer
global ALIGNALL as integer
global ALIGNTOP as integer
global ALIGNLEFT as integer
global ALIGNRIGHT as integer
global ALIGNBOTTOM as integer
global TOOLBARCUT as integer
global TOOLBARCOPY as integer
global TOOLBARPASTE as integer
global TOOLBARUNDO as integer
global TOOLBARREDO as integer
global TOOLBARDELETE as integer
global TOOLBARNEW as integer
global TOOLBAROPEN as integer
global TOOLBARSAVE as integer
global TOOLBARPRINTPREVIEW as integer
global TOOLBARPROPERTIES as integer
global TOOLBARHELP as integer
global TOOLBARFIND as integer
global TOOLBARREPLACE as integer
global TOOLBARPRINT as integer
global WINDOWTITLEBAR as integer
global WINDOWCLOSEBUTTON as integer
global WINDOWMAXBUTTON as integer
global WINDOWMINBUTTON as integer
global WINDOWRESIZEABLE as integer
global WINDOWNOBORDER as integer
global WINDOWTOOLWINDOW as integer
global WINDOWNORMAL as integer
global WINDOWFIXED as integer
global WINDOWOVR as integer
global LISTVIEWICON as integer
global LISTVIEWREPORT as integer
global LISTVIEWLIST as integer


 GUI_CONSTANTS=1
 COMMANDa=0x111
 MOUSE_CLICK=0x202
 LEFTBUTTONUP=514
 RIGHTMOUSECLICK=0x205
 RIGHTBUTTONUP=0x205
 MOUSEMOVE=0x200
 GADGETTIMER=0x113
 TOOLBARCLICK=0x111
 HOTKEY=0x312
 LEFTBUTTONDOWN=513
 RIGHTBUTTONDOWN=0x204
 KEYDOWN=0x100
 KEYUP=0x101
 LOSEFOCUS=0x8
 GADGETSIZING=0x214
 GADGETSIZE=0x5
 WINDOWCLOSE=0x10
 LEFTBUTTONDOUBLECLICK=0x203
 MENUCLICK=0x0400+1
 COMBOBOXCHANGE=0x0400+3
 TREEVIEWCHANGE=0x0400+4
 BORDERNONE=0
 BORDERFLAT=1
 BORDER3D=2
 BORDERSUNKEN=3
 ALIGNNONE=0
 ALIGNALL=1
 ALIGNTOP=2
 ALIGNLEFT=3
 ALIGNRIGHT=4
 ALIGNBOTTOM=5
 TOOLBARCUT=0
 TOOLBARCOPY=1
 TOOLBARPASTE=2
 TOOLBARUNDO=3
 TOOLBARREDO=4
 TOOLBARDELETE=5
 TOOLBARNEW=6
 TOOLBAROPEN=7
 TOOLBARSAVE=8
 TOOLBARPRINTPREVIEW=9
 TOOLBARPROPERTIES=10
 TOOLBARHELP=11
 TOOLBARFIND=12
 TOOLBARREPLACE=13
 TOOLBARPRINT=14
 WINDOWTITLEBAR=12582912
 WINDOWCLOSEBUTTON=524288
 WINDOWMAXBUTTON=65536
 WINDOWMINBUTTON=131072
 WINDOWRESIZEABLE=262144
 WINDOWNOBORDER=-2147483648
 WINDOWTOOLWINDOW=128
 WINDOWNORMAL=13565952
 WINDOWFIXED=13107200
 WINDOWOVR=0
 LISTVIEWICON=0
 LISTVIEWREPORT=1
 LISTVIEWLIST=3
 
 

                   D3D_INIT
                   Global cntrl as integer
                   GLOBAL XPX
                   GLOBAL YPY
                   global tolerance#
                   tolerance# = 0.0001
                   global u#
                   global v#
                   global matimg
                   matimg=1
                   global intriangle as integer
                   intriangle=0
                   global PTmode
                   global PTmode2
                   Global M_STAMP as integer : M_STAMP=5
                   Global M_FLY as integer :M_FLY=4
                   Global M_BURN as integer : M_BURN=3
                   global M_image as integer : M_image=2
                   global M_color as integer : M_color=1
                   global M_element as integer : M_element=3
                   global M_Line as integer : M_Line=4
                   global M_TEXT as integer : M_TEXT=44
                   global M_PLimg as integer : M_PLimg=55
                   
                   `PTmode=M_TEXT
                   PTmode=M_image
                   global POmode
                   global M_all : M_all=2
                   global M_sel : M_sel=1
                   global M_desel : M_desel=3
                   POmode=M_all
                   global paintcolor
                   paintcolor=rgb(255,255,255,255)
                   
                   global jjj
                   global Aver as vertex
                   global Bj as vertex
                   global Cj as vertex
                   global Pj as vertex
                   global Nj as vertex
                   global BA as vertex
                   global CA as vertex
                   global PA as vertex
                   r=make vector3(11)
                   r=make vector3(12)
                   r=make vector3(13)
                   r=make vector3(14)
                   r=make vector3(15)
                   r=make vector3(16)
                   r=make vector3(17)
                   r=make vector3(18)           
                   global tri
                   global xp as float
                   global yp as float
                   global zp as float
                   xp=0.0
                   yp=0.0
                   zp=0.0
global EDITmatrix as integer
global EDITvector as integer
EDITmatrix=100
EDITvector=99
tmp = make vector3(EDITvector)
tmp = make matrix4(EDITmatrix)
                   
                   
                   
                   
`*******************************************************************************************************************************************************************                   
                   global TECimagesize
                   TECimagesize = 2048                   
                   global x1 as float
                   global y1 as float
                   global z1 as float
                   global x2 as float
                   global y2 as float
                   global z2 as float
                   global x0 as float
                   global y0 as float
                   global z0 as float

                   global dt as float
                   global uu as float
                   global dx as float
                   global dy as float
                   global dz as float
                   global vc
                   global ic
                   global dis as float
                   global ShotImg
                   ShotImg=100
                   GLOBAL McLi
                   global oldmcli
                   GLOBAL MX
                   GLOBAL my
                   GLOBAL mMX
                   GLOBAL mMy
                   GLOBAL mMz
                   global shftKEY
                   global mouseongui
                   global oldTdbc
                   global MDclick
                   mouseongui=0
                   global sw as float
                   sw=screen width()
                   global sh as float
                   sh=screen height()
                   
                   GLOBAL oldklick as integer       
                   GLOBAL look_McLi AS INTEGER             
                   GLOBAL look_MX AS INTEGER             
                   GLOBAL look_my AS INTEGER             
                   GLOBAL look_mMX AS INTEGER         
                   GLOBAL look_mMy AS INTEGER         
                   GLOBAL look_mMz AS INTEGER         
                   GLOBAL look_CamDist# AS FLOAT         
                   GLOBAL look_selobj AS INTEGER        
                   GLOBAL look_qqq# AS DOUBLE FLOAT      
                   GLOBAL look_selobjX# AS DOUBLE FLOAT  
                   GLOBAL look_selobjy# AS DOUBLE FLOAT      
                   GLOBAL look_selobjz# AS DOUBLE FLOAT      
                   GLOBAL look_PointObj                      
                   GLOBAL look_newCamDist#                   
                   GLOBAL look_mc                            
                   GLOBAL look_mc4DubleNot                   
                   GLOBAL look_mc4Duble                      
                   GLOBAL look_mc4DubleTime                  
                   GLOBAL look_mc2Duble            
                   GLOBAL look_dist#                         
                   GLOBAL look_speed#                        
                   GLOBAL look_uskor#                        
                   GLOBAL look_dx#                           
                   GLOBAL look_dy#                           
                   GLOBAL look_dz#                           
                   GLOBAL OLDCDIST#                       
                   GLOBAL look_FirstRun                      
                   look_FirstRun = 1
                   look_PointObj = 5000000
                   MAKE OBJECT SPHERE look_PointObj , 0.05 , 32 , 32:HIDE OBJECT look_PointObj
                   POSITION OBJECT look_PointObj , -200 , 200 , -200 
                   XROTATE CAMERA 35
                   yROTATE CAMERA 45
                   look_selobjX# = 0
                   look_selobjy# = 10
                   look_selobjz# = 0
                   look_newCamDist# = 300.0
                   global transpmode as integer
                   transpmode=6
                   global glavcat as string
                   glavcat = get dir$()
                   global UVimage as integer
                   global UVscreenimage as integer
                   UVimage=30000
                   UVscreenimage=25
                   global UVobject as integer
                   UVobject=3
                   make camera UVscreenimage
                   color backdrop UVscreenimage,rgb(0,0,0)
                   set camera to image UVscreenimage,UVscreenimage,TECimagesize,TECimagesize,2,21
                   
                   make object plane UVobject,200,200
                   POSITION OBJECT  UVobject,100,100,100                 
                   hide object UVobject
                   
                   set current camera 0
                   SET OBJECT FILTER UVobject,0
                   
                   global red as byte
                   global green as byte
                   global blue as byte
                   global alpha as byte
                   global spec as byte
                   global norm as byte
                   global heig as byte
                   
                   global normalmap
                   global heightmap
                   normalmap=ShotImg+7000
                   heightmap=ShotImg+6000
                   load image "LIB_textures\0_n.dds",normalmap                   
global useheightmap
useheightmap=0
`useheightmap=questionMessage("Do you want to use heightmap ?", "heightmap")   

                   if useheightmap=1 then load image "exit_h.dds",heightmap

                   global oldspace as integer
                   
                   global origBrushDiffIMGnum as integer
                   global EditBrushDiffIMGnum as integer
                   global origBrushNormalIMGnum as integer
                   global EditBrushNormalIMGnum as integer
                   global origBrushAlphaIMGnum as integer 
                   global EditBrushAlphaIMGnum as integer
                   origBrushDiffIMGnum =7510
                   EditBrushDiffIMGnum =7500
                   origBrushNormalIMGnum =7511
                   EditBrushNormalIMGnum =7501
                   origBrushAlphaIMGnum =7512
                   EditBrushAlphaIMGnum =7502                   
                   global BrushDIR as string
                   global BrushName as string
                   BrushDIR=glavcat+"\brush\"
                   BrushName="Nobrush\"
                   
                   global STAMPsprite as integer
                   STAMPsprite=7520

                   load image BrushDIR+BrushName+"DIFFUSE.DDS",origBrushDiffIMGnum
                   load image BrushDIR+BrushName+"NORMAL.DDS",origBrushNormalIMGnum
                   load image BrushDIR+BrushName+"ALPHA.DDS",origBrushAlphaIMGnum
                   load image BrushDIR+BrushName+"ICO.bmp",STAMPsprite                   
                   
                   
                   
                   IK copy image EditBrushDiffIMGnum ,   origBrushDiffIMGnum
                   IK copy image EditBrushNormalIMGnum , origBrushNormalIMGnum
                   IK copy image EditBrushAlphaIMGnum ,  origBrushAlphaIMGnum                   
                   IK resize image EditBrushDiffIMGnum,BRUSHSIZE,BRUSHSIZE,0
                   IK resize image EditBrushNormalIMGnum,BRUSHSIZE,BRUSHSIZE,0
                   IK resize image EditBrushAlphaIMGnum,BRUSHSIZE,BRUSHSIZE,0
                   
                   
                   global editD as integer
                   global editN as integer
                   global editS as integer
                   global editH as integer
                   global editA as integer
                   
                   editD=1
                   editN=1
                   editS=1
                   editH=1
                   editA=1
                   
                   global coleditDR as integer
                   global coleditDG as integer
                   global coleditDB as integer
                   global coleditN as integer
                   global coleditS as integer
                   global coleditH as integer
                   global coleditA as integer
                   
                   coleditDR=1
                   coleditDG=1
                   coleditDB=1
                   coleditN=1
                   coleditS=1
                   coleditH=1
                   coleditA=1
                   
                   global selXsc1 AS FLOAT
                   global selYsc1 AS FLOAT
                   global selXsc2 AS FLOAT
                   global selYsc2 AS FLOAT
                   global startlelect
                   startlelect=0
                   global TXrotX as float
                   global TXrotY as float
                   global TXrotZ as float
                   
                   global TXscaX as float
                   global TXscaY as float
                   TXscaX=3
                   TXscaY=3
                   
                   global TXPOSX as float
                   global TXPOSY as float
                   
                   GLOBAL UVMODE AS BOOLEAN
                   UVMODE=0
                   
                   GLOBAL UVmM AS INTEGER
                   UVmM=1
                   GLOBAL UVmMM AS INTEGER
                   UVmMM=0
                   GLOBAL UVmMR AS INTEGER
                   UVmMR=0
                   GLOBAL UVmMS AS INTEGER
                   UVmMS=0
                   
                   
                   global uvEMIT as integer
                   uvEMIT=55000
                   
                   global seletri as integer
                   
                   global rotmap as integer
                   global scamap as integer
                   global movmap as integer
                   
                   global mapx as float
                   global mapy as float
                   
                   Global ALLGLOBplosh as float
                   global elementall as integer
                   
if useheightmap=1 
 load effect "shaders/Mesh/Parallaxmap.fx",15,0
else
 load effect "shaders/Mesh/Normalmap.fx",15,0
endif
effect_add(15)


load effect "shaders/Mesh/Normalmap2.fx",16,0
effect_add(16)


                   
                 
                   

load object "incmedia\3.x",5 
load image "LIB_textures\0.dds",ShotImg

global dim MATLIBnamefile(7) as string
global dim MATLIBnamefileN(7) as string
global dim MATLIBnamefileH(7) as string




object_add(5)
set object effect 5,15
scale object 5,5,5,5
GHOST OBJECT ON 5
set object ambient 5,0
position camera -200,50,-200
point camera move,0,move



newloadobject("incmedia\1.x")



load image "gui/mat.bmp",60000,1
sprite 60000,0,-65,60000
set sprite priority 60000,10000

load image "gui/POmode3.bmp",60004,1
sprite 60004,-105,sh-93,60004
load image "gui/POmode2.bmp",60005,1
sprite 60005,-105,sh-135,60005
load image "gui/POmode1.bmp",60006,1
sprite 60006,-105,sh-177,60006


load image "gui/PTmodeSel.bmp",60007,1
sprite 60007,-100,sh-182,60007
load image "gui/PTmodeSel.bmp",60008,1
sprite 60008,-100,sh-182,60008

load image "gui/matSel.bmp",60009,1
sprite 60009,86,-100,60009




load image "gui/Transpmode.bmp",60011,1












load image "gui/PTmodePANEL.bmp",60777,1
sprite 60777,0,sh,60777
load image "gui/PTmode1.bmp",60001,1
sprite 60001,sprite x(60777)+5,sprite y(60777)+10,60001
load image "gui/PTmode2.bmp",60002,1
sprite 60002,sprite x(60777)+46,sprite y(60777)+10,60002
load image "gui/PTmode3.bmp",60003,1
sprite 60003,sprite x(60777)+88,sprite y(60777)+10,60003
load image "gui/BURN.bmp",62000,1
sprite 62000,sprite x(60777)+130,sprite y(60777)+10,62000
load image "gui/DODGE.bmp",62001,1
sprite 62001,sprite x(60777)+172,sprite y(60777)+10,62001
sprite STAMPsprite,sprite x(60777)+214,sprite y(60777)+10,STAMPsprite
load image "gui/PTmode4.bmp",62002,1
sprite 62002,sprite x(60777)+256,sprite y(60777)+10,62002






load image "gui/PTmode10.bmp",64000,1
sprite 64000,sprite x(60777)+298,sprite y(60777)+10,64000

load image "gui/PTmode11.bmp",64030,1
sprite 64030,sprite x(60777)+340,sprite y(60777)+10,64030




load image "gui/loadobject.bmp",60010,1
sprite 60010,-60,340,60010


load image "gui/triselpanel.bmp",66201,1
sprite 66201,-60,350,66201
set sprite priority 66201,10000

load image "gui/DNSHApanel.bmp",62300,1
sprite 62300,-60,490,62300



load image "gui/RGBASNH.bmp",60016,1

load image "gui/lr.bmp",60017,1

load image "gui/Don.bmp",60020,1
load image "gui/Non.bmp",60021,1
load image "gui/Son.bmp",60022,1
load image "gui/Hon.bmp",60023,1
load image "gui/Aon.bmp",60024,1
load image "gui/Doff.bmp",60030,1
load image "gui/Noff.bmp",60031,1
load image "gui/Soff.bmp",60032,1
load image "gui/Hoff.bmp",60033,1
load image "gui/Aoff.bmp",60034,1

load image "gui/SAVEDNSA.bmp",60180,1

load image "gui/gal.bmp",60035,1

load image "gui/UV.bmp",60050,1

load image "gui/UV2.bmp",60051,1

load image "gui/UVM.bmp",60061,1
load image "gui/UVM2.bmp",60062,1
load image "gui/UVR.bmp",60063,1
load image "gui/UVR2.bmp",60064,1
load image "gui/UVS.bmp",60065,1
load image "gui/UVS2.bmp",60066,1

load image "gui/auto.bmp",60070,1
load image "gui/auto1.bmp",60071,1
load image "gui/auto2.bmp",60072,1

load image "gui/onA.bmp",70000,1
load image "gui/offA.bmp",70001,1

load image "gui/onb.bmp",70002,1
load image "gui/offb.bmp",70003,1

load image "gui/onc.bmp",70004,1
load image "gui/offc.bmp",70005,1



load image "gui/SAVE.bmp",60080,1
load image "gui/OBJECTTEXTURE.bmp",60081,1
load image "gui/EXIT.bmp",60082,1
load image "gui/scale.bmp",60083,1

sprite 60080,-66,200,60080

global backupimage as integer
backupimage=60088
load image "gui/backup.bmp",backupimage,1
sprite backupimage,-100,100,backupimage


set object effect UVobject,16
setbatch()
BatchADDcompound()

object_add(UVobject)
set object filter UVobject,0


 

                   




global UI_lib as integer
`UI_lib= createPanel( sw  ,  sh , 600, 270, mainbb )
UI_lib= createWindow( sw  ,  sh , 600, 270, "", WINDOWtoolWINDOW , WINDOWtoolWINDOW, 0, mainbb )
 setGadgetVisible UI_lib,0
 positionGadget UI_lib, gadgetX(mainbb)+gadgetwidth(mainbb)-605  ,  gadgety(mainbb)+gadgetheight(mainbb)-270 

global UI_listView as integer
`Create the new ListView gadget
global listView as integer
listView=createListView(0,0,590,256,UI_lib)
global imageList as integer
imageList=createImageList(32,32)
set dir Left$(BrushDIR,len(BrushDIR)-1)
global dim cats(2000) as string
find first
repeat
 BrushName=get file name$()
 if get file type()<>-1 and file exist(BrushDIR+BrushName+"\ICO.bmp")=1 
   cats(count)= get file name$()+"\"
   load image BrushDIR+cats(count)+"ICO.bmp",90000
   addImageListItem imageList,90000  
   count=count+1
 endif
 find next
until get file type()=-1
set dir glavcat
setListViewImageList listView,imageList
for i=0 to count
       addListViewItem listView,left$(cats(i),len(cats(i))-1 ),i
next i 



global matPATH as string
matPATH=extract filepath$(APPNAME$())+"LIB_textures"




endfunction

MEAT:
do 
GetFrameTimes()
  oldmouseongui=mouseongui
  oldmcli=mcli
  McLi =MOUSECLICK()  
  MX   =MOUSEX()
  my   =MOUSEY()
  mMX  =MOUSEMOVEX()
  mMy  =MOUSEMOVEY()
  mMz  =MOUSEMOVEZ()
  shftKEY=shiftkey()
  cntrl=controlkey()
  alt=keystate(56)
  mouseongui=MOG() 
  IF MCLI=0 THEN cirkmode=0
  spacePUSH=keystate(57)
  

  text sprite x(60080)+48,sprite y(60080)+75,str$(transpmode) 
  

if keystate(63)=1 then saveUVmap()
if keystate(64)=1 then loadUVmap("temp.UVdata")
if direct=1

      if shftKEY=1 then TimeOfDay#=TimeOfDay#+0.0005+mmz*0.01
      if TimeOfDay#>24 then TimeOfDay#=0
      if TimeOfDay#<0 then TimeOfDay#=23.9
      TimeOfDay_SetTime(TimeOfDay#)
endif

if inkey$()="/"
 rotateBrush()
endif

if inkey$()="."
 FlipHBrush()
endif

if inkey$()=","
 FlipVBrush()
endif


if keystate(62)=1 then refilter()
if keystate(36)=1
   position camera 0,0,0,0
   rotate camera 0,0,0,0
   position object look_PointObj,0,0,0
   rotate object look_PointObj,0,0,0
   OLDCDIST#=0.0
   look_selobjX#=0
   look_selobjy#=0
   look_selobjz#=0
   look_newCamDist#=0
   look_dist#=0
   look_speed#=0
   look_uskor#=0
   look_dx#=0
   look_dy#=0
   look_dz#=0
endif


if OLDCDIST#<1000 
  
  d3d_line3d -50,0,-50,-50,0,50,rgb(50,250,250,250),1
  d3d_line3d -50,0,-50,50,0,-50,rgb(50,0,250,250),1
  d3d_line3d 50,0,50,-50,0,50,rgb(50,250,0,250),1
  d3d_line3d 50,0,50,50,0,-50,rgb(50,250,250,0),1
  
  d3d_line3d -50,100,-50,-50,100,50,rgb(50,250,250,250),1
  d3d_line3d -50,100,-50,50,100,-50,rgb(50,0,250,250),1
  d3d_line3d 50,100,50,-50,100,50,rgb(50,250,0,250),1
  d3d_line3d 50,100,50,50,100,-50,rgb(50,250,250,0),1
  
  d3d_line3d -50,0,-50,-50,100,-50,rgb(50,250,250,250),1
  d3d_line3d -50,0,50,-50,100,50,rgb(50,0,250,250),1
  d3d_line3d 50,0,-50,50,100,-50,rgb(50,250,0,250),1
  d3d_line3d 50,0,50,50,100,50,rgb(50,250,250,0),1
  
endif

d3d_line 0,0,sw-1,0
d3d_line 0,0,0,sh-1
d3d_line sw-1,0,sw-1,sh-1
d3d_line 0,sh-1,sw-1,sh-1






if inkey$()="o" or inkey$()="p" 
 if inkey$()="o" then lightangle=lightangle-(0.1*Elapsed)
 if inkey$()="p" then lightangle=lightangle+(0.1*Elapsed)
 position object lightorient,0,0,0
 yrotate object lightorient,lightangle
 move object lightorient,100
endif
PointLight_Set_Position(pl1,object position x(lightorient),100,object position z(lightorient)) 
PointLight_Set_Position(pl2,CAMERA position x(),CAMERA position y(),CAMERA position z())       




     GETEVENT
     EVT    = EVENTTYPE()
     sou    = EVENTSOURCE()
     datF   = eventData()
     dat    = EVENTDATAEX()
     undmou = GADGETUNDERMOUSE()   
     
     
     if evt=LEFTBUTTONDOUBLECLICK
      if sou=listView
       
       item=selectedListViewItem(listView) 
       BrushName=cats(item)
       
       load image BrushDIR+BrushName+"DIFFUSE.DDS",origBrushDiffIMGnum      
       load image BrushDIR+BrushName+"NORMAL.DDS",origBrushNormalIMGnum     
       load image BrushDIR+BrushName+"ALPHA.DDS",origBrushAlphaIMGnum       
       load image BrushDIR+BrushName+"ICO.bmp",STAMPsprite      
       sprite STAMPsprite,214,sh-42,STAMPsprite                             
       IK copy image EditBrushDiffIMGnum , origBrushDiffIMGnum              
       IK copy image EditBrushNormalIMGnum , origBrushNormalIMGnum          
       IK copy image EditBrushAlphaIMGnum , origBrushAlphaIMGnum    
       IK resize image EditBrushDiffIMGnum,BRUSHSIZE,BRUSHSIZE,0            
       IK resize image EditBrushNormalIMGnum,BRUSHSIZE,BRUSHSIZE,0          
       IK resize image EditBrushAlphaIMGnum,BRUSHSIZE,BRUSHSIZE,0
       setGadgetVisible UI_lib,0 
       sleep 300:mcli=0
       
      endif
     endif
     



  
  IF UVMODE=0 
        sprite 60050,SW-32,0,60050
        
        IF SPRITE EXIST(60061)=1 THEN DELETE SPRITE 60061 
        IF SPRITE EXIST(60062)=1 THEN DELETE SPRITE 60062 
        IF SPRITE EXIST(60063)=1 THEN DELETE SPRITE 60063 
        IF SPRITE EXIST(60064)=1 THEN DELETE SPRITE 60064 
        IF SPRITE EXIST(60065)=1 THEN DELETE SPRITE 60065 
        IF SPRITE EXIST(60066)=1 THEN DELETE SPRITE 60066  
        IF SPRITE EXIST(60070)=1 THEN DELETE SPRITE 60070
        IF SPRITE EXIST(60071)=1 THEN DELETE SPRITE 60071 
         IF SPRITE EXIST(60072)=1 THEN DELETE SPRITE 60072 
  ELSE
        SPRITE 60070,SW-98,0,60070
        SPRITE 60071,SW-66,34,60071
         SPRITE 60072,SW-66,68,60072
        if mx>SW-66 and mx<SW-66+32 and my>34 and my<66
         if mcli=1 then fliphorizontal():tmmp()
        endif
        if mx>SW-66 and mx<SW-66+32 and my>68 and my<100
         if mcli=1 then flipvertical():tmmp()
        endif
        if mx>SW-98 and mx<SW-98+64 and my>0 and my<32
          if mcli=1
             AutoUVMapping(1,0,0,TECimagesize,TECimagesize,TXscaX,TXscaY,TXPOSX,TXPOSY)
             tmmp()
          endif
        endif
        ink rgb(255,255,255)

        if mcli=1 
          if pick object(MX,MY,UVOBJECT,UVOBJECT+1)>0 
           dis=get pick distance()
           pick screen MX,MY,dis
           TX#=((get pick vector x()+camera position x()))*(TECimagesize/200.0)
           TY#=(200-(get pick vector y()+camera position Y() ) )*(TECimagesize/200.0)
           for fc=1 to tri
                Ax0#=tris(fc).u1*TECimagesize
                Ax1#=tris(fc).u2*TECimagesize
                Ax2#=tris(fc).u3*TECimagesize
                Ay0#=tris(fc).v1*TECimagesize
                Ay1#=tris(fc).v2*TECimagesize
                Ay2#=tris(fc).v3*TECimagesize
                Az0#=100
                Az1#=100
                Az2#=100
              w# = onplane( Ax0#,Ay0#,Az0#  ,Ax1#,Ay1#,Az1#  ,Ax2#,Ay2#,Az2#  ,TX#,TY#,100  )
              if abs(w#)<= tolerance#   
                 dde=PinTRI()
                 if dde>0 and shftKEY=0 and cntrl=1 and alt=0
                    SELECTelementUV=tris(fc).elementTRI
                    SELECTelementPLUS(SELECTelementUV)
                    goto extseltrimouse
                 endif
                 if dde>0 and shftKEY=0 and cntrl=0 and alt=1
                     IF tris(fc).SEL=0
                      tris(fc).SEL=1
                      tmmpexitTriangle(fc)
                     ELSE
                      tris(fc).SEL=0
                      tmmpexitTriangleZERO(fc)
                     endif
                     setbatch()
                     BatchADDcompound()
                 endif

                 
              endif
           next fc
          endif
        endif
extseltrimouse:
        if PTmode2=0  
          if pick object(MX,MY,UVOBJECT,UVOBJECT+1)>0 
              dis=get pick distance()
              pick screen MX,MY,dis
              TX#=((get pick vector x()+camera position x()))*(TECimagesize/200.0)
              TY#=(200-(get pick vector y()+camera position Y() ) )*(TECimagesize/200.0)
            
              TEXT MX+50,MY+50,STR$(TX#)
              TEXT MX+50,MY+70,STR$(TY#)                           
              
              if startlelect=1 and spacePUSH=1 and mouseongui=0 
                selXsc2=TX#:selYsc2=TY#:startlelect=0 
                triselect(selXsc1/TECimagesize,selysc1/TECimagesize,selXsc2/TECimagesize,selYsc2/TECimagesize):sleep 500
                spacePUSH=0
                
                tmmp()
              ENDIF
              if startlelect=0 and spacePUSH=1 and mouseongui=0 
                selXsc1=TX#:selYsc1=TY#:startlelect=1:sleep 500
                spacePUSH=0
              ENDIF     
              
              if keystate(1)=1 then startlelect=0
         
               if startlelect=1
                  
                  d3d_line3D selXsc1/(TECimagesize/200.0),200-selYsc1/(TECimagesize/200.0),100,TX#/(TECimagesize/200.0),200-selYsc1/(TECimagesize/200.0),100,RGB(255,255,255,255),0
                  d3d_line3D TX#/(TECimagesize/200.0),200-selYsc1/(TECimagesize/200.0),100,TX#/(TECimagesize/200.0),200-TY#/(TECimagesize/200.0),100,RGB(255,255,255,255),0
                  d3d_line3D selXsc1/(TECimagesize/200.0),200-selYsc1/(TECimagesize/200.0),100,selXsc1/(TECimagesize/200.0),200-TY#/(TECimagesize/200.0),100,RGB(255,255,255,255),0
                  d3d_line3D selXsc1/(TECimagesize/200.0),200-TY#/(TECimagesize/200.0),100,TX#/(TECimagesize/200.0),200-TY#/(TECimagesize/200.0),100,RGB(255,255,255,255),0
                  
               endif
          ENDIF 
        endif
        sprite 60050,SW-32,0,60051
        
        IF UVmMM=1 
         sprite 60061,SW-32,34,60061
        else
         sprite 60061,SW-32,34,60062
        endif
        IF UVmMr=1 
         sprite 60063,SW-32,68,60063
        else
         sprite 60063,SW-32,68,60064
        endif
        IF UVmMs=1 
         sprite 60065,SW-32,102,60065
        else
         sprite 60065,SW-32,102,60066
        endif
         
        IF UVmMM=1 and mouseongui=0
            if mcli=1 and movmap=0 then movmap=1
            if mcli=0 and oldmcli=1 and movmap=2
             updateUVmodify()
             tmmp() 
            endif
            if mcli=0 then movmap=0
            if movmap>0 then posUVdata()
        endif
        IF UVmMR=1 and mouseongui=0
          
            if mcli=1 and rotmap=0 then rotmap=1
            if mcli=0 and oldmcli=1 and rotmap=2
             updateUVmodify()
             tmmp()
            endif
            if mcli=0 then rotmap=0
            if rotmap>0 then rotUVdata()            
        endif
        IF UVmMS=1 and mouseongui=0
            
            if mcli=1 and scamap=0 then scamap=1
            if mcli=0 and oldmcli=1 and scamap=2
             updateUVmodify()
             tmmp()
            endif
            if mcli=0 then scamap=0
            if scamap>0 then scaUVdata()
        endif
  endif
  
  




  if PTmode=M_color
   sprite 60007,sprite x(60777),sprite y(60777)+4,60007
   sprite 60016,sw-350,sh-120,60016
   RGBASNH()
  else
   if sprite exist(60016)=1 then delete sprite 60016
   if sprite exist(60200)=1 then delete sprite 60200
   if sprite exist(60201)=1 then delete sprite 60201
   if sprite exist(60202)=1 then delete sprite 60202
   if sprite exist(60203)=1 then delete sprite 60203
   if sprite exist(60204)=1 then delete sprite 60204
   if sprite exist(60035)=1 then delete sprite 60035
   if sprite exist(60036)=1 then delete sprite 60036
   if sprite exist(60037)=1 then delete sprite 60037
   if sprite exist(60038)=1 then delete sprite 60038
   if sprite exist(60039)=1 then delete sprite 60039
   if sprite exist(60040)=1 then delete sprite 60040
   if sprite exist(60041)=1 then delete sprite 60041
  endif 
  

  if PTmode=M_image
   sprite 60007,sprite x(60777)+41,sprite y(60777)+4,60007
  else
   if sprite exist(60800)=1 then delete sprite 60800
  endif
  
  if PTmode=M_BURN
    sprite 60007,sprite x(60777)+125,sprite y(60777)+4,60007 
  endif
  if PTmode=M_FLY
    sprite 60007,sprite x(60777)+167,sprite y(60777)+4,60007 
  endif
  if PTmode=M_STAMP
    sprite 60007,sprite x(60777)+209,sprite y(60777)+4,60007
  endif
MODE_TEXT:
  if PTmode=M_TEXT
    sprite 60007,sprite x(60777)+294,sprite y(60777)+4,60007
  endif
  
  if PTmode=M_PLimg
    sprite 60007,sprite x(60777)+336,sprite y(60777)+4,60007
  endif
  
  
  sprite 60001,sprite x(60777)+5,sprite y(60777)+10,60001
  sprite 60002,sprite x(60777)+46,sprite y(60777)+10,60002
  sprite 60003,sprite x(60777)+88,sprite y(60777)+10,60003
  sprite 62000,sprite x(60777)+130,sprite y(60777)+10,62000
  sprite 62001,sprite x(60777)+172,sprite y(60777)+10,62001
  sprite STAMPsprite,sprite x(60777)+214,sprite y(60777)+10,STAMPsprite
  sprite 62002,sprite x(60777)+257,sprite y(60777)+10,62002
  sprite 64000,sprite x(60777)+299,sprite y(60777)+10,64000
  sprite 64030,sprite x(60777)+340,sprite y(60777)+10,64030
  
  if POmode=M_sel
   sprite 60008,sprite x(66201)+6,sprite y(66201)+94,60008
  endif 
  if POmode=M_desel
   sprite 60008,sprite x(66201)+6,sprite y(66201)+50,60008
  endif
  if POmode=M_all
   sprite 60008,sprite x(66201)+6,sprite y(66201)+8,60008
  endif
  
  
  sprite 60500,sprite x(60000)+5,sprite y(60000)+3,60500   
  set sprite priority 60500,1
    
  
  if editD=1
   SPRITE 60020,sprite x(62300)+10,sprite y(62300),60020
  else
   SPRITE 60020,sprite x(62300)+10,sprite y(62300),60030
  endif
  if editN=1
   SPRITE 60021,sprite x(62300)+10,sprite y(62300)+35,60021
  else
   SPRITE 60021,sprite x(62300)+10,sprite y(62300)+35,60031
  endif
  if editS=1
   SPRITE 60022,sprite x(62300)+10,sprite y(62300)+70,60022
  else
   SPRITE 60022,sprite x(62300)+10,sprite y(62300)+70,60032
  endif
//  if editH=1
//   SPRITE 60023,sprite x(62300)+10,sprite y(62300)+105,60023
//  else
//   SPRITE 60023,sprite x(62300)+10,sprite y(62300)+105,60033
//  endif
  if editA=1
   SPRITE 60024,sprite x(62300)+10,sprite y(62300)+105,60024
  else
   SPRITE 60024,sprite x(62300)+10,sprite y(62300)+105,60034
  endif
  
  sprite 60180,sprite x(62300)+3,sprite y(62300)+145,60180 
   
 
   
  if inkey$()="q" then hide object 2:exclude object on 2
  if inkey$()="Q" then show object 2:exclude object off 2
  
    

  
  D3D_ROUNDED_BOX sprite x(60777)+5, sprite y(60777)-20 , sprite x(60777)+115 , sprite y(60777)-3 , 3 , 1,rgb(255,150,150,10)
  D3D_ROUNDED_BOX sprite x(60777)+5, sprite y(60777)-20 , sprite x(60777)+115 , sprite y(60777)-3 , 3 , 0
  sprite 60075,intensiveBRUSH+sprite x(60777)+5,sprite y(60777)-20,60017
  D3D_ROUNDED_BOX sprite x(60777)+75, sprite y(60777)-38 , sprite x(60777)+115 , sprite y(60777)-22 , 3 , 1 ,rgb(255,150,150,10)
  D3D_ROUNDED_BOX sprite x(60777)+75, sprite y(60777)-38 , sprite x(60777)+115 , sprite y(60777)-22 , 3 , 0 ,rgb(255,250,250,250)
  text sprite x(60777)+79, sprite y(60777)-37 , str$(intensiveBRUSH)
  text sprite x(60777)+10, sprite y(60777)-18 , "intensive"
  
  if mx>sprite x(60777)+5 and mx<sprite x(60777)+115 and my>sprite y(60777)-20 and my<sprite y(60777)-2 
   if mouseongui=9531 or mouseongui=987987456
     mouseongui=9531
     if mmz>0 then intensiveBRUSH=intensiveBRUSH+1
     if mmz<0 then intensiveBRUSH=intensiveBRUSH-1
     if mcli=1 and mmx<>0
      if mmx>0 then intensiveBRUSH=intensiveBRUSH+1
      if mmx<0 then intensiveBRUSH=intensiveBRUSH-1
      if intensiveBRUSH>100 then intensiveBRUSH=100
      if intensiveBRUSH<1 then intensiveBRUSH=1
      position mouse sprite x(60075)+5,sprite y(60075)+9
     endif
   endif
  endif
  
  D3D_ROUNDED_BOX sprite x(60777)+120, sprite y(60777)-20 , sprite x(60777)+233 , sprite y(60777)-3 , 3 , 1 ,rgb(255,150,150,10)
  D3D_ROUNDED_BOX sprite x(60777)+120, sprite y(60777)-20 , sprite x(60777)+233 , sprite y(60777)-3 , 3 , 0 ,rgb(255,250,250,250)
  sprite 60175,(BRUSHsize/(512/100))+sprite x(60777)+121,sprite y(60777)-20,60017
  D3D_ROUNDED_BOX sprite x(60777)+120, sprite y(60777)-38 , sprite x(60777)+160 , sprite y(60777)-22 , 3 , 1 ,rgb(255,150,150,10)
  D3D_ROUNDED_BOX sprite x(60777)+120, sprite y(60777)-38 , sprite x(60777)+160 , sprite y(60777)-22 , 3 , 0 ,rgb(255,250,250,250)
  text sprite x(60777)+124, sprite y(60777)-37 , str$(BRUSHsize)
  text sprite x(60777)+125, sprite y(60777)-18 , "brush size"
  
  if mx>sprite x(60777)+120 and mx<sprite x(60777)+233 and my>sprite y(60777)-20 and my<sprite y(60777)-2 
   if mouseongui=9531 or mouseongui=987987456
              mouseongui=9531
              if mmz>0 
                BRUSHsize=BRUSHsize+1
                if BRUSHsize>512 then BRUSHsize=512
                position mouse sprite x(60175)+5,sprite y(60175)+9
                circMAXnum=BRUSHsize/2

                set current bitmap -30
                cls rgb(0,0,0,0)

                  D3D_CIRCLE (sh/TECimagesize)*xxx,(sh/TECimagesize)*yyy, (sh/TECimagesize)*(brushsize/2.0) , 0,rgb(rgba(paintcolor),rgbr(paintcolor),rgbg(paintcolor),rgbb(paintcolor))

                
                 IF PTmode=M_STAMP
                  ik copy image EditBrushDiffIMGnum+1020,EditBrushDiffIMGnum
                  ik resize image EditBrushDiffIMGnum+1020,(sh/TECimagesize)*((brushsize)),(sh/TECimagesize)*((brushsize)),0
                  paste image EditBrushDiffIMGnum+1020,((sh/TECimagesize)*xxx)-(sh/TECimagesize)*((brushsize)/2.0),((sh/TECimagesize)*yyy)-(sh/TECimagesize)*((brushsize)/2.0),1
                 endif
                set current bitmap 0
                texture object 2,0,30
                if PTmode=M_STAMP 
                 delete image EditBrushDiffIMGnum
                 delete image EditBrushNormalIMGnum
                 delete image EditBrushAlphaIMGnum           
                 IK copy image EditBrushDiffIMGnum , origBrushDiffIMGnum     
                 IK copy image EditBrushNormalIMGnum , origBrushNormalIMGnum 
                 IK copy image EditBrushAlphaIMGnum , origBrushAlphaIMGnum 
                 IK resize image EditBrushDiffIMGnum,BRUSHSIZE,BRUSHSIZE,0   
                 IK resize image EditBrushNormalIMGnum,BRUSHSIZE,BRUSHSIZE,0          
                 IK resize image EditBrushAlphaIMGnum,BRUSHSIZE,BRUSHSIZE,0 
                endif 
              endif
               
              if mmz<0 
                BRUSHsize=BRUSHsize-1
                if BRUSHsize<1 then BRUSHsize=1
                position mouse sprite x(60175)+5,sprite y(60175)+9
                circMAXnum=BRUSHsize/2
           ` Acirc    
                set current bitmap -30
                cls rgb(0,0,0,0) 
                `FcircleCOLOR(xxx,yyy)
                D3D_CIRCLE (sh/TECimagesize)*xxx,(sh/TECimagesize)*yyy, (sh/TECimagesize)*(brushsize/2.0) , 0,RGB(RGBA(paintcolor),RGBR(paintcolor),RGBG(paintcolor),RGBB(paintcolor))
                `if cirkmode=1 then cirk(xxx,yyy)
                  
                 IF PTmode=M_STAMP
                  ik copy image EditBrushDiffIMGnum+1020,EditBrushDiffIMGnum
                  ik resize image EditBrushDiffIMGnum+1020,(sh/TECimagesize)*((brushsize)),(sh/TECimagesize)*((brushsize)),0
                  paste image EditBrushDiffIMGnum+1020,((sh/TECimagesize)*xxx)-(sh/TECimagesize)*((brushsize)/2.0),((sh/TECimagesize)*yyy)-(sh/TECimagesize)*((brushsize)/2.0),1
                 endif
                set current bitmap 0
                texture object 2,0,30
               if PTmode=M_STAMP 
                delete image EditBrushDiffIMGnum
                delete image EditBrushNormalIMGnum
                delete image EditBrushAlphaIMGnum           
                IK copy image EditBrushDiffIMGnum , origBrushDiffIMGnum  
                IK copy image EditBrushNormalIMGnum , origBrushNormalIMGnum 
                IK copy image EditBrushAlphaIMGnum , origBrushAlphaIMGnum 
                IK resize image EditBrushDiffIMGnum,BRUSHSIZE,BRUSHSIZE,0 
                IK RESIZE IMAGE EditBrushNormalIMGnum,brushsize,brushsize,0          
                IK resize image EditBrushAlphaIMGnum,BRUSHSIZE,BRUSHSIZE,0 
               endif 
              endif  
              if mcli=1 and mmx<>0
               if mmx>0 then BRUSHsize=BRUSHsize+5
               if mmx<0 then BRUSHsize=BRUSHsize-5
               if BRUSHsize>512 then BRUSHsize=512
               if BRUSHsize<1 then BRUSHsize=1
               circMAXnum=BRUSHsize/2
               position mouse sprite x(60175)+5,sprite y(60175)+9
               
           ` Acirc  
                set current bitmap -30
                cls rgb(0,0,0,0)
                `FcircleCOLOR(xxx,yyy)
                  D3D_CIRCLE (sh/TECimagesize)*xxx,(sh/TECimagesize)*yyy, (sh/TECimagesize)*(brushsize/2.0) , 0,rgb(rgba(paintcolor),rgbr(paintcolor),rgbg(paintcolor),rgbb(paintcolor))
                `if cirkmode=1 then cirk(xxx,yyy)
           
                IF PTmode=M_STAMP
                 ik copy image EditBrushDiffIMGnum+1020,EditBrushDiffIMGnum
                 ik resize image EditBrushDiffIMGnum+1020,(sh/TECimagesize)*((brushsize)),(sh/TECimagesize)*((brushsize)),0
                 paste image EditBrushDiffIMGnum+1020,((sh/TECimagesize)*xxx)-(sh/TECimagesize)*((brushsize)/2.0),((sh/TECimagesize)*yyy)-(sh/TECimagesize)*((brushsize)/2.0),1
                endif
               set current bitmap 0
               texture object 2,0,30
               if PTmode=M_STAMP 
                delete image EditBrushDiffIMGnum
                delete image EditBrushNormalIMGnum
                delete image EditBrushAlphaIMGnum           
                IK copy image EditBrushDiffIMGnum , origBrushDiffIMGnum     
                IK copy image EditBrushNormalIMGnum , origBrushNormalIMGnum 
                IK copy image EditBrushAlphaIMGnum , origBrushAlphaIMGnum 
                IK resize image EditBrushDiffIMGnum,BRUSHSIZE,BRUSHSIZE,0   
                IK resize image EditBrushNormalIMGnum,BRUSHSIZE,BRUSHSIZE,0          
                IK resize image EditBrushAlphaIMGnum,BRUSHSIZE,BRUSHSIZE,0 
               endif 
              endif
   endif
  endif
  
  
`text 200,200,str$(OLDCDIST#)    
 if OLDCDIST#<1000 
  distAAA# = abs(Sqrt((object position x(1)-OBJECT POSITION X(look_PointObj))^2)+((object position y(1)-OBJECT POSITION y(look_PointObj))^2)+((object position z(1)-OBJECT POSITION z(look_PointObj))^2))
  distBBB# = abs(Sqrt((object position x(UVobject)-OBJECT POSITION X(look_PointObj))^2)+((object position y(UVobject)-OBJECT POSITION y(look_PointObj))^2)+((object position z(UVobject)-OBJECT POSITION z(look_PointObj))^2))
  
  if distAAA#<distBBB#
     D3D_BATCH_DRAW_LINE3D 0, 1, 0
     D3D_BATCH_DRAW_DOT3D 0, 1, 0
  else
     D3D_BATCH_DRAW_LINE3D 0, 0, 0
     D3D_BATCH_DRAW_DOT3D 0, 0, 0
  endif
 endif
  dis=0
  if pick object(mx,my,1,1)>0
     dis=get pick distance()
     xp=get pick vector x():yp=get pick vector y():zp=get pick vector z()
  endif
  pick screen mx,my,dis
  dx=get pick vector x()+camera position x():dy=get pick vector y()+camera position y():dz=get pick vector z()+camera position z()
  intriangle=0
  if dis>0 and mouseongui=0 and UVMODE=0
    for jjj=1 to tri 
    w# = onplane( tris(jjj).xa1,tris(jjj).ya1,tris(jjj).za1,tris(jjj).xa2,tris(jjj).ya2,tris(jjj).za2,  tris(jjj).xa3,tris(jjj).ya3,tris(jjj).za3,(dx-move),dy,(dz-move)   )
    if abs(w#)<= tolerance#
     dde=PinTRI()
     `print "------- OK"
     if dde>0 then intriangle=jjj:goto ext
     `if dde=2 then end:exit
    endif         
    next jjj
    goto ext2
ext:
           if mcli<>4
             d3d_line3d (tris(intriangle).xa1) ,(tris(intriangle).ya1),(tris(intriangle).za1)  ,(tris(intriangle).xa2) ,(tris(intriangle).ya2),(tris(intriangle).za2) ,rgb(150,150,150),0
             d3d_line3d (tris(intriangle).xa2) ,(tris(intriangle).ya2),(tris(intriangle).za2)  ,(tris(intriangle).xa3) ,(tris(intriangle).ya3),(tris(intriangle).za3) ,rgb(150,150,150),0
             d3d_line3d (tris(intriangle).xa3) ,(tris(intriangle).ya3),(tris(intriangle).za3)  ,(tris(intriangle).xa1) ,(tris(intriangle).ya1),(tris(intriangle).za1) ,rgb(150,150,150),0
           endif
           set vector3 11, tris(intriangle).xa1, tris(intriangle).ya1, tris(intriangle).za1
           set vector3 12, tris(intriangle).xa2, tris(intriangle).ya2, tris(intriangle).za2
           set vector3 13, tris(intriangle).xa3, tris(intriangle).ya3, tris(intriangle).za3
           subtract vector3 15, 12, 11
           subtract vector3 16, 13, 11
           cross product vector3 14,15,16
           normalize vector3 14,14
           UAm#=(tris(intriangle).u1)
           UBm#=(tris(intriangle).u2)
           UCm#=(tris(intriangle).u3)
           VAm#=(tris(intriangle).v1)
           VBm#=(tris(intriangle).v2)
           VCm#=(tris(intriangle).v3)
           UPt# = (UAm# + u# * (UBm#-UAm#) + v# * (UCm#-UAm#))*TECimagesize
           LFt# = (VAm# + u# * (VBm#-VAm#) + v# * (VCm#-VAm#))*TECimagesize
           xxx=upt#
           yyy=lft# 
           XPX =XXX
           YPY =YYY
` Acirc1         
          if PTMode2<>M_Line
               set current bitmap -30
               cls rgb(0,0,0,0)
              D3D_CIRCLE (sh/TECimagesize)*xxx,(sh/TECimagesize)*yyy, (sh/TECimagesize)*(brushsize/2.0) , 0,rgb(rgba(paintcolor),rgbr(paintcolor),rgbg(paintcolor),rgbb(paintcolor))
              if PTmode=M_STAMP
               ik copy image EditBrushDiffIMGnum+1020,EditBrushDiffIMGnum
               ik resize image EditBrushDiffIMGnum+1020,(sh/TECimagesize)*((brushsize)),(sh/TECimagesize)*((brushsize)),0
               paste image EditBrushDiffIMGnum+1020,((sh/TECimagesize)*xxx)-(sh/TECimagesize)*((brushsize)/2.0),((sh/TECimagesize)*yyy)-(sh/TECimagesize)*((brushsize)/2.0),1
              endif
              set current bitmap 0
              texture object 2,0,30
              position object 5,(tris(intriangle).xa1) ,(tris(intriangle).ya1),(tris(intriangle).za1)  
              if mcli=1
                if PTmode=M_STAMP
                 if POmode=M_all
                   brushSTAMP(xxx,yyy)        
                 endif
                 if POmode=M_sel
                  if tris(intriangle).SEL=1              
                   brushSTAMPYES(xxx,yyy)
                  endif
                 endif
                 if POmode=M_desel
                  if tris(intriangle).SEL=0
                   brushSTAMPNO(xxx,yyy)
                  endif
                 endif
                endif
                if PTmode=M_BURN
                 if POmode=M_all
                   brushBURN(xxx,yyy)            
                 endif
                 if POmode=M_sel
                  if tris(intriangle).SEL=1              
                   brushBURNYES(xxx,yyy)
                  endif
                 endif
                 if POmode=M_desel
                  if tris(intriangle).SEL=0
                   brushBURNNO(xxx,yyy)
                  endif
                 endif
                endif
                if PTmode=M_fly
                 if POmode=M_all
                   brushFLY(xxx,yyy)            
                 endif
                 if POmode=M_sel
                  if tris(intriangle).SEL=1              
                   brushFLYYES(xxx,yyy)
                  endif
                 endif
                 if POmode=M_desel
                  if tris(intriangle).SEL=0
                   brushFLYNO(xxx,yyy)
                  endif
                 endif
                endif
                if PTmode=M_image
                 if POmode=M_all
                   brushimage(xxx,yyy)            
                 endif
                 if POmode=M_sel
                  if tris(intriangle).SEL=1              
                   brushimageYES(xxx,yyy)
                  endif
                 endif
                 if POmode=M_desel
                  if tris(intriangle).SEL=0
                   brushimageNO(xxx,yyy)
                  endif
                 endif
                endif
                if PTmode=M_color
                 if POmode=M_all 
                  brushcolor( xxx,yyy  )
                 endif
                 if POmode=M_sel
                  if tris(intriangle).SEL=1              
                   brushcolorYES( xxx,yyy  )             
                  endif
                 endif
                 if POmode=M_desel
                  if tris(intriangle).SEL=0              
                   brushcolorNO( xxx,yyy  )             
                  endif
                 endif
                endif
              endif
              if mouseongui=0 
                if keystate(57)=1 and PTmode2<>M_element and PTmode<>M_PLimg
                 tris(intriangle).SEL=1
                 setbatch()
                 BatchADDcompound()
                 tmmpexitTriangle(intriangle)
                endif          
                if shftKEY=1           
                 tris(intriangle).SEL=0
                 setbatch()
                 BatchADDcompound()
                 tmmpexitTriangleZERO(intriangle)
                endif 
              endif
          endif 
  endif
  ext2:
  if PTmode2=M_Line
     sprite 60025,252,sprite y(60777)+4,60007
     TX#=XPX
     TY#=YPY
     TEXT MX+50,MY+50,STR$(TX#)
     TEXT MX+50,MY+70,STR$(TY#)
     if startlelect=1 and mcli=1 and mouseongui=0 and oldmcli=0
       selXsc2=TX#:selYsc2=TY#:startlelect=0 :sleep 500
       LineDraw(selXsc1,selysc1,selXsc2,selYsc2)
       mcli=0
           set current bitmap -30
           cls rgb(0,0,0,0)
           set current bitmap 0
           texture object 2,0,30
     ENDIF
     if startlelect=0 and mcli=1 and mouseongui=0 and oldmcli=0
       selXsc1=TX#:selYsc1=TY#:startlelect=1:sleep 500
       mcli=0
     ENDIF
     if keystate(1)=1 then startlelect=0
     if startlelect=1
           set current bitmap -30
           cls rgb(0,0,0,0)
           d3d_line (sh/TECimagesize)*selXsc1,(sh/TECimagesize)*selYsc1,(sh/TECimagesize)*TX#,(sh/TECimagesize)*TY#,RGB(255,255,100,100),RGB(255,100,255,100)           
           set current bitmap 0
           texture object 2,0,30
     endif

  else 
    if sprite exist(60025)=1  AND PTmode2=0 then delete sprite 60025
  endif
 
  if PTmode=M_PLimg
     PTmode2=0
   
     TX#=XPX
     TY#=YPY
         
       
         TEXT MX+50,MY+50,STR$(TX#)
         TEXT MX+50,MY+70,STR$(TY#)
         
              
         if startlelect=1 and spacePUSH=1 and mouseongui=0 
           selXsc2=TX#:selYsc2=TY#:startlelect=0 
           if selXsc1>selXsc2 
              At1#=selXsc1
              selXsc1=selXsc2
              selXsc2 =At1#
           endif
           if selysc1>selYsc2
              At2#=selysc1
              selYsc1=selysc2
              selysc2 =At2#
           endif
           PLACEIMAGE(selXsc1,selysc1,selXsc2,selYsc2):sleep 500
           spacePUSH=0
         ENDIF
         if startlelect=0 and spacePUSH=1 and mouseongui=0 
           selXsc1=TX#:selYsc1=TY#:startlelect=1:sleep 500
           spacePUSH=0
         ENDIF
         if keystate(1)=1 then startlelect=0
    
          if startlelect=1
             set current bitmap -30
             cls rgb(0,0,0,0)
             d3d_line (sh/TECimagesize)*selXsc1,(sh/TECimagesize)*selYsc1,(sh/TECimagesize)*TX#,(sh/TECimagesize)*selYsc1,RGB(255,255,100,100),RGB(255,100,255,100)
             d3d_line (sh/TECimagesize)*selXsc1,(sh/TECimagesize)*selYsc1,(sh/TECimagesize)*selXsc1,(sh/TECimagesize)*TY#,RGB(255,255,100,100),RGB(255,100,255,100)
             d3d_line (sh/TECimagesize)*TX#,(sh/TECimagesize)*selYsc1,(sh/TECimagesize)*TX#,(sh/TECimagesize)*TY#,RGB(255,255,100,100),RGB(255,100,255,100)
             d3d_line (sh/TECimagesize)*selXsc1,(sh/TECimagesize)*TY#,(sh/TECimagesize)*TX#,(sh/TECimagesize)*TY#,RGB(255,255,100,100),RGB(255,100,255,100)
             
             set current bitmap 0
             texture object 2,0,30
           
          endif
  endif
  
   
  if PTmode2=M_element
   sprite 60025,83,sprite y(60777)+4,60007
   
     TX#=XPX
     TY#=YPY
         
       
         TEXT MX+50,MY+50,STR$(TX#)
         TEXT MX+50,MY+70,STR$(TY#)
         
              
         if startlelect=1 and spacePUSH=1 and mouseongui=0 
           selXsc2=TX#:selYsc2=TY#:startlelect=0 
           if selXsc1>selXsc2 
              At1#=selXsc1
              selXsc1=selXsc2
              selXsc2 =At1#
           endif
           if selysc1>selYsc2
              At2#=selysc1
              selYsc1=selysc2
              selysc2 =At2#
           endif
           fillselect(selXsc1,selysc1,selXsc2,selYsc2):sleep 500
           spacePUSH=0
         ENDIF
         if startlelect=0 and spacePUSH=1 and mouseongui=0 
           selXsc1=TX#:selYsc1=TY#:startlelect=1:sleep 500
           spacePUSH=0
         ENDIF
         if keystate(1)=1 then startlelect=0
    
          if startlelect=1
             set current bitmap -30
             cls rgb(0,0,0,0)
             d3d_line (sh/TECimagesize)*selXsc1,(sh/TECimagesize)*selYsc1,(sh/TECimagesize)*TX#,(sh/TECimagesize)*selYsc1,RGB(255,255,100,100),RGB(255,100,255,100)
             d3d_line (sh/TECimagesize)*selXsc1,(sh/TECimagesize)*selYsc1,(sh/TECimagesize)*selXsc1,(sh/TECimagesize)*TY#,RGB(255,255,100,100),RGB(255,100,255,100)
             d3d_line (sh/TECimagesize)*TX#,(sh/TECimagesize)*selYsc1,(sh/TECimagesize)*TX#,(sh/TECimagesize)*TY#,RGB(255,255,100,100),RGB(255,100,255,100)
             d3d_line (sh/TECimagesize)*selXsc1,(sh/TECimagesize)*TY#,(sh/TECimagesize)*TX#,(sh/TECimagesize)*TY#,RGB(255,255,100,100),RGB(255,100,255,100)
             
             set current bitmap 0
             texture object 2,0,30
           
          endif
 
   
  else 
    if sprite exist(60025)=1 AND PTmode2=0 then delete sprite 60025
  endif
  
  center text sw/2+200,0, "FPS- "+str$(screen fps())
  center text sw/2+200,20, "object triangles- "+str$(tri)
  center text sw/2+200,40, "vc count- "+str$(vc)
  center text sw/2+200,60, "ic count- "+str$(ic)
  
  IF UVMODE=0 
       if inkey$()="1" then matimg=1: scIMTL( matimg ):sprite 60009,86+((matimg-1)*60),0,60009
       if inkey$()="2" then matimg=2: scIMTL( matimg ):sprite 60009,86+((matimg-1)*60),0,60009
       if inkey$()="3" then matimg=3: scIMTL( matimg ):sprite 60009,86+((matimg-1)*60),0,60009
       if inkey$()="4" then matimg=4: scIMTL( matimg ):sprite 60009,86+((matimg-1)*60),0,60009
       if inkey$()="5" then matimg=5: scIMTL( matimg ):sprite 60009,86+((matimg-1)*60),0,60009
       if inkey$()="6" then matimg=6: scIMTL( matimg ):sprite 60009,86+((matimg-1)*60),0,60009
       if inkey$()="7" then matimg=7: scIMTL( matimg ):sprite 60009,86+((matimg-1)*60),0,60009
       set sprite priority 60009,10100
  endif
  

           if keystate(28)=1 or keystate(156)=1
            coltri=0
            tectri=0
            dim temptri(tri) as integer
            for h=1 to tri 
             if tris(H).SEL=1 then inc coltri : temptri(coltri)=h        
            next h
//////            ik create image SelectTRIimage,TECimagesize,TECimagesize
//////            av as vect : bv as vect : cv as vect : pv as vect
//////            altrtec=0
//////            for f=1 to coltri
//////             inc altrtec
//////             ll=4096
//////             up=4096
//////             rr=0
//////             dd=0
//////              if (tris(temptri(f)).u1*TECimagesize)<=ll then ll=tris(temptri(f)).u1*TECimagesize
//////              if (tris(temptri(f)).u2*TECimagesize)<=ll then ll=tris(temptri(f)).u2*TECimagesize
//////              if (tris(temptri(f)).u3*TECimagesize)<=ll then ll=tris(temptri(f)).u3*TECimagesize
//////              if (tris(temptri(f)).u1*TECimagesize)>=rr then rr=tris(temptri(f)).u1*TECimagesize
//////              if (tris(temptri(f)).u2*TECimagesize)>=rr then rr=tris(temptri(f)).u2*TECimagesize
//////              if (tris(temptri(f)).u3*TECimagesize)>=rr then rr=tris(temptri(f)).u3*TECimagesize
//////              if (tris(temptri(f)).v1*TECimagesize)<=up then up=tris(temptri(f)).v1*TECimagesize
//////              if (tris(temptri(f)).v2*TECimagesize)<=up then up=tris(temptri(f)).v2*TECimagesize
//////              if (tris(temptri(f)).v3*TECimagesize)<=up then up=tris(temptri(f)).v3*TECimagesize
//////              if (tris(temptri(f)).v1*TECimagesize)>=dd then dd=tris(temptri(f)).v1*TECimagesize
//////              if (tris(temptri(f)).v2*TECimagesize)>=dd then dd=tris(temptri(f)).v2*TECimagesize
//////              if (tris(temptri(f)).v3*TECimagesize)>=dd then dd=tris(temptri(f)).v3*TECimagesize
//////              for XXX=ll-2 to rr+2
//////               for YYY= up-2 to dd+2
//////                 pv.x=xxx : pv.y=yyy
//////                 av.x=tris(temptri(f)).u1*TECimagesize : av.y=tris(temptri(f)).v1*TECimagesize
//////                 bv.x=tris(temptri(f)).u2*TECimagesize : bv.y=tris(temptri(f)).v2*TECimagesize
//////                 cv.x=tris(temptri(f)).u3*TECimagesize : cv.y=tris(temptri(f)).v3*TECimagesize 
//////                 if PointInTRI(pv ,av ,bv ,cv )
//////                  image dot SelectTRIimage, XXX,YYY , rgb(255,255,255,255)
//////                 endif 
//////               next YYY
//////              next XXX
//////              if altrtec=coltri/16
//////                  altrtec=0
//////                  set object effect UVobject,16
//////                  texture object UVobject ,0,SelectTRIimage
//////                  McLi =MOUSECLICK()  
//////                  MX   =MOUSEX()
//////                  my   =MOUSEY() 
//////                  inc tectri      
//////                  D3D_ROUNDED_BOX sw/2-105 ,sh/2-55 ,sw/2+105 ,sh/2+55 , 1,0
//////                  D3D_PROGRESS_BAR sw/2-100, sh/2-50, 200, 100, 1, coltri, tectri, matimg       
//////                  D3D_ROUNDED_BOX sw/2-50 ,(sh/2)-20+100 ,sw/2+50 ,(sh/2)+20+100 , 3,1
//////                  ink rgb(255,0,0)
//////                  center text sw/2 ,(sh/2)+90 ,"STOP filling"       
//////                  if mcli=1
//////                   if mx>sw/2-50 and mx<sw/2+50 and my>(sh/2)-20+100 and my<(sh/2)+20+100 then f=coltri
//////                   mcli=1
//////                  ENDIF
//////                  sync 
//////               endif
//////
//////            next f
            ik copy image 8000,SelectTRIimage
            if BRUSHsize>10 
              ik blur image SelectTRIimage,25 
            else 
              ik blur image SelectTRIimage,BRUSHsize-1
            endif
            altrtec=0
            for yyy=1 to TECimagesize
              inc altrtec
              for xxx=1 to TECimagesize
                 if image point (SelectTRIimage, XXX,YYY )<> rgb(0,0,0,0)
                       if PTmode=M_image 
                         pdot( XXX,YYY,matimg,ShotImg,intensiveBRUSH )
                       endif
                       if PTmode=M_color 
                         pcol( XXX,YYY,intensiveBRUSH )
                       endif
                 endif
              next xxx 
              if altrtec=TECimagesize/10
                 altrtec=0     
                 set object effect UVobject,16
                 texture object UVobject ,0,ShotImg
                 inc tectri      
                 D3D_ROUNDED_BOX sw/2-105 ,sh/2-55 ,sw/2+105 ,sh/2+55 , 1,0
                 D3D_PROGRESS_BAR sw/2-100, sh/2-50, 200, 100, 1, TECimagesize, yyy, matimg       
                 D3D_ROUNDED_BOX sw/2-50 ,(sh/2)-20+100 ,sw/2+50 ,(sh/2)+20+100 , 3,1
                 ink rgb(255,0,0)
                 center text sw/2 ,(sh/2)+90 ,"STOP RENDER"       
                 sync 
              endif 
              McLi =MOUSECLICK()  
              MX   =MOUSEX()
              my   =MOUSEY() 
              if mcli=1
                  if mx>sw/2-50 and mx<sw/2+50 and my>(sh/2)-20+100 and my<(sh/2)+20+100 then yyy=TECimagesize
              ENDIF
            next yyy
            set dir glavcat
            undim temptri()
            ik copy image SelectTRIimage,8000
            ik resize image ShotImg,TECimagesize,TECimagesize,0
            ik resize image normalmap,TECimagesize,TECimagesize,0
            if useheightmap=1 then ik resize image heightmap,TECimagesize,TECimagesize,0
           
            texture object 1,0,ShotImg
            texture object 1,1,normalmap
            if useheightmap=1 then texture object 1,2,heightmap
            setbatch()
            BatchADDcompound()
            ink rgb(255,255,255)
           endif  
  

  
  
  
  
  
  
if mouseongui=0 then gosub look

if AdvancedLightingEnabled=1
   if POSTEFF=1
    `Control motion blur
       if Bloom=1 or DOF=1
          fpsg#=screen fps()
          set effect constant float FrameTarget(FrameTarget).Effect,"PixelBlur",fpsg#/100
       endif
   endif
  
   `Set wireframe
   if keystate(59)=1 then execute file glavcat+"\help\Page-1.html","",""
   if keystate(60)=1 then Global_Set_Wireframe(1):backdrop on FrameCamera:color backdrop FrameCamera,0
   if keystate(61)=1 then Global_Set_Wireframe(0):backdrop off FrameCamera
   hide object 2:exclude object on 2
   AdvancedLighting_Update()
   show object 2:exclude object off 2
endif

 
if keystate(68)=1 then AdvancedLightingEnabled=1-AdvancedLightingEnabled:sleep 300


BT()
mult() 
sync
loop

function MOG()
 if oldmcli<>0 then exitfunction mouseongui
 if mcli=1 and oldTdbc>timer()-500
  oldTdbc=timer():MDclick=1
 else
  MDclick=0  
 endif
 mouseongui=0
if PANEL_A=0
 sprite 70101,sprite x(60080)+sprite width(60080)+5,sprite y(60080)-102,70000
else
 sprite 70101,sprite x(60080)+sprite width(60080)+5,sprite y(60080)-102,70001
endif
if mx>sprite x(60080) and mx<sprite x(60080)+sprite width(60080)+15 and my>sprite y(60080)-106 and my<sprite y(60080)+136
     x=sprite x(60080)
               inc x,10
               if x>0 then x=0
               sprite 60080,x,sprite y(60080),60080
     set sprite priority 60080,20100
     if mx>sprite x(60010) and mx<sprite x(60010)+sprite width(60010) and my>sprite y(60010) and my<sprite y(60010)+sprite height(60010)
      if mcli=1 AND OLDMCLI=0
         
         tmpff$=opendialog("Load object","Open 3D Objects (*.DBO, *..x)|*.DBO;*.x|Load All (*.*)|*.*",0,olddir(2))
         olddir(2)=extract filepath$(tmpff$)
         if lower$(right$(tmpff$,2))=".x" then newloadobject(tmpff$)  
         if lower$(right$(tmpff$,4))=".dbo" then newloadobject(tmpff$)
      endif
     endif
     if mcli=1
           if my>sprite y(60011) and my<sprite y(60011)+32
            mouseongui=99811
            inc transpmode,1
            if transpmode>6 then transpmode=6
            set object transparency 1,transpmode
           endif
           
     endif
     if mcli=2
           if my>sprite y(60011) and my<sprite y(60011)+32
            mouseongui=99911
            dec transpmode,1
            if transpmode<0 then transpmode=0
            set object transparency 1,transpmode
           endif
     endif
     `texture object                          /
     if mx>sprite x(60081) and mx<sprite x(60081)+sprite width(60081) and my>sprite y(60081) and my<sprite y(60081)+sprite height(60081)
      if mcli=1 AND OLDMCLI=0
          Filename$ = OpenPicBox(olddir(3),"select image please","Open texture file (*.dds)|*.dds")
          if file exist(Filename$)=0 then goto notTEXTURE
          olddir(3)=extract filepath$(Filename$)
          delete image ShotImg
          load image Filename$,ShotImg
          nm$=left$(Filename$,len(Filename$)-4)+"_n.dds"
          if file exist(nm$)=1 then load image nm$,normalmap
          if useheightmap=1 
            Hm$=left$(Filename$,len(Filename$)-4)+"_H.dds"
            if file exist(nm$)=1 then load image Hm$,heightmap
          ENDIF
          ik resize image ShotImg,TECimagesize,TECimagesize,0
          ik resize image normalmap,TECimagesize,TECimagesize,0
     if useheightmap=1 then ik resize image heightmap,TECimagesize,TECimagesize,0
          TEXTURE OBJECT 1,0,ShotImg
          TEXTURE OBJECT 1,1,normalmap
     if useheightmap=1 then TEXTURE OBJECT 1,2,heightmap
          TEXTURE OBJECT UVOBJECT,0,ShotImg
          TEXTURE OBJECT UVOBJECT,1,normalmap
      endif
     endif
notTEXTURE:
     if mx>sprite x(backupimage) and mx<sprite x(backupimage)+sprite width(backupimage) and my>sprite y(backupimage) and my<sprite y(backupimage)+sprite height(backupimage)
      if mcli=1 AND OLDMCLI=0
aretback:
        fback$=repl$(get date$()+"-"+get time$(),":","_")
        fback$=repl$(fback$,"/","_")
        if file exist(glavcat+"\PaintBackup\"+fback$+".dds")=0
         save image glavcat+"\PaintBackup\"+fback$+".dds",ShotImg
         save image glavcat+"\PaintBackup\"+fback$+"_n.dds",normalmap
        else
         goto aretback
        endif
      endif
     endif
     ` exit                              /
     if mx>sprite x(60082) and mx<sprite x(60082)+sprite width(60082) and my>sprite y(60082) and my<sprite y(60082)+32
       if mcli=1 AND OLDMCLI=0
        if file exist(glavcat+"\dirs.old")=1 then DELETE FILE glavcat+"\dirs.old"
        SAVE array glavcat+"\dirs.old",olddir()
           save array glavcat+"\mats1.oldmt",MATLIBnamefile()
           save array glavcat+"\mats2.oldmt",MATLIBnamefileN()
           save array glavcat+"\mats3.oldmt",MATLIBnamefileH()
        EXIT
        END
       endif
     endif     
     ` scale                              /
     if mx>sprite x(60083) and mx<sprite x(60083)+sprite width(60083) and my>sprite y(60083) and my<sprite y(60083)+32
       if mcli=1 AND OLDMCLI=0
        if mx<sprite x(60083)+(sprite width(60083)/2)
         Globscale=Globscale+25.0
        else
         Globscale=Globscale-25.0
        endif
        scale object 1,Globscale,Globscale,Globscale
        scale object 2,Globscale,Globscale,Globscale
        `CALCULATE OBJECT BOUNDS 1
        Globscale=100.0
        ` weld_vertices(1,1)
        make mesh from object 1,1
        Object_Remove(1)
        delete object 1
        make object 1,1  
        object_add(1)
        Object_Set_Dynamic(1)
        set1()
        Object_Remove(2)
        if object exist(2)=1 then delete object 2
        clone object 2,1
        object_add(2)
        Object_Set_Dynamic(2)
        set2()
        GetVertexPOS() 
        SetBatch()  
        BatchADDcompound()             
       endif
     endif
     ` export                              /
     if mx>sprite x(60080) and mx<sprite x(60080)+sprite width(60080) and my>sprite y(60080) and my<sprite y(60080)+32
        OBJSAVE()
     endif 
else  
           if mx>0 and my>0 and PANEL_A=0
               x=sprite x(60080)
             dec x,10
             if x<sprite width(60080)*-1 then x=sprite width(60080)*-1
             sprite 60080,x,sprite y(60080),60080
             set sprite priority 60080,20100
           endif
endif
sprite 60010,sprite x(60080),sprite y(60080)-102,60010
SPRITE 60081,sprite x(60080),sprite y(60080)-68,60081
SPRITE 60083,sprite x(60080),sprite y(60080)-34,60083
SPRITE backupimage,sprite x(60080),sprite y(60080)+34,backupimage
sprite 60011,sprite x(60080),sprite y(60080)+68,60011
SPRITE 60082,sprite x(60080),sprite y(60080)+102,60082
`triselpanel
sprite 60004,sprite x(66201)+12,sprite y(66201)+10 ,60004
sprite 60005,sprite x(66201)+12,sprite y(66201)+52,60005
sprite 60006,sprite x(66201)+12,sprite y(66201)+94,60006
if PANEL_C=0
 sprite 70103,sprite x(66201)+sprite width(66201),sprite y(66201),70000
else
 sprite 70103,sprite x(66201)+sprite width(66201),sprite y(66201),70001
endif

 if mx>sprite x(66201) and mx<sprite x(66201)+sprite width(66201)+15 and my>sprite y(66201) and my<sprite y(66201)+sprite height(66201)
  mouseongui=9998
     x=sprite x(66201)
               inc x,10
               if x>0 then x=0
               sprite 66201,x,sprite y(66201),66201
     set sprite priority 66201,20100
  
  if mcli=1
      oldTdbc=timer()
      if my>sprite y(66201)+94 and my<sprite y(66201)+136
       mouseongui=103 : ` select mode 
       POmode=M_sel
      endif
      if my>sprite y(66201)+53 and my<sprite y(66201)+94
       mouseongui=104 : ` deselect mode 
       POmode=M_desel
      endif
      if my>sprite y(66201)+10 and my<sprite y(66201)+52
          mouseongui=105 : ` all mode 
          POmode=M_all
          if MDclick=1
              selalll=0
              for gf= 1 to tri
               if tris(GF).SEL=1 then selalll=gf
              next gf
              if selalll=0
               for cb=1 to tri
                   tris(CB).SEL=1
               next cb
               setbatch()
               BatchADDcompound()
               tmmp22()
              endif
              if selalll>0
               for cb=1 to tri
                if tris(CB).SEL=1 then tris(CB).SEL=0       
               next cb
               setbatch()
               BatchADDcompound()
               tmmp()
              endif
          endif
      endif
  endif
 else
         if mx>0 and my>0 and PANEL_C=0
             x=sprite x(66201)
           dec x,10
           if x<(sprite width(66201)-5 )*-1 then x=(sprite width(66201)-5 )*-1
           sprite 66201,x,sprite y(66201),66201
           set sprite priority 66201,20100
          endif
    endif 
  set sprite priority 60004,500000
  set sprite priority 60005,500000
  set sprite priority 60006,500000 
`DNSApanel
if PANEL_D=0
 sprite 70104,sprite x(62300)+sprite width(62300),sprite y(62300),70000
else
 sprite 70104,sprite x(62300)+sprite width(62300),sprite y(62300),70001
endif
 if mx>sprite x(62300) and mx<sprite x(62300)+sprite width(62300)+15 and my>sprite y(62300) and my<sprite y(62300)+sprite height(62300)
  mouseongui=7758
     x=sprite x(62300)
               inc x,10
               if x>0 then x=0
               sprite 62300,x,sprite y(62300),62300
     set sprite priority 62300,20100
     if my>sprite y(60180) and my<sprite y(60180)+sprite height(60180) and mx>sprite x(60180) and mx<sprite x(60180)+ sprite width(60180)
      if mcli=1
         tmpff$=savedialog("Save chanels ","direct X (*.dds)|*.dds|jpeg (*.jpg)|*.jpg|PNG (*.png)|*.png|Bitmap (*.bmp)|*.bmp","")
         if tmpff$<>""
//////   CHANNEL_ALPHA
//////   CHANNEL_RED  
//////   CHANNEL_GREEN
//////   CHANNEL_BLUE 
          name$= left$(tmpff$,len(tmpff$)-4)
          ex$= right$(tmpff$,4)
          if editD=1
           ik create image 9876541,TECimagesize,TECimagesize
           IK Paste Image Channel 9876541, shotimg, CHANNEL_RED  , CHANNEL_RED   ,0,0
           IK Paste Image Channel 9876541, shotimg, CHANNEL_GREEN, CHANNEL_GREEN ,0,0
           IK Paste Image Channel 9876541, shotimg, CHANNEL_BLUE , CHANNEL_BLUE  ,0,0
           IK Set Image Channel 9876541, CHANNEL_ALPHA, 255
           save image name$+"_D"+ex$,9876541
          endif
          if editN=1 
           `normalmap
           ik create image 9876541,TECimagesize,TECimagesize
           IK Paste Image Channel 9876541, normalmap, CHANNEL_RED  , CHANNEL_RED   ,0,0 
           IK Paste Image Channel 9876541, normalmap, CHANNEL_GREEN, CHANNEL_GREEN ,0,0 
           IK Paste Image Channel 9876541, normalmap, CHANNEL_BLUE , CHANNEL_BLUE  ,0,0 
           IK Set Image Channel 9876541, CHANNEL_ALPHA, 255
           save image name$+"_N"+ex$,9876541
          endif
          if editS=1
           ik create image 9876541,TECimagesize,TECimagesize
           IK Paste Image Channel 9876541, normalmap, CHANNEL_RED  , CHANNEL_ALPHA ,0,0  
           IK Paste Image Channel 9876541, normalmap, CHANNEL_GREEN, CHANNEL_ALPHA ,0,0 
           IK Paste Image Channel 9876541, normalmap, CHANNEL_BLUE , CHANNEL_ALPHA ,0,0 
           IK Set Image Channel 9876541, CHANNEL_ALPHA, 255
           save image name$+"_S"+ex$,9876541
          endif
          if editA=1
           ik create image 9876541,TECimagesize,TECimagesize
           IK Paste Image Channel 9876541, shotimg, CHANNEL_RED  , CHANNEL_ALPHA  ,0,0  
           IK Paste Image Channel 9876541, shotimg, CHANNEL_GREEN, CHANNEL_ALPHA  ,0,0 
           IK Paste Image Channel 9876541, shotimg, CHANNEL_BLUE , CHANNEL_ALPHA  ,0,0 
           IK Paste Image Channel 9876541, shotimg, CHANNEL_ALPHA , CHANNEL_ALPHA ,0,0 
           save image name$+"_A"+ex$,9876541
          endif
         endif
      endif
     endif
     if my>sprite y(62300) and my<sprite y(62300)+35 and mx<sprite width(62300)
      if mcli=1
       oldTdbc=timer()
       if editD=1 
        editD=0
       else
        editD=1
       endif 
      endif
     endif  
     if my>sprite y(62300)+35 and my<sprite y(62300)+70 and mx<sprite width(62300)
      if mcli=1
       oldTdbc=timer()
       if editN=1 
        editN=0
       else
        editN=1
       endif 
      endif
     endif 
     if my>sprite y(62300)+70 and my<sprite y(62300)+105 and mx<sprite width(62300)
      if mcli=1
       oldTdbc=timer()
       if editS=1 
        editS=0
       else
        editS=1
       endif 
      endif
     endif 
     if my>sprite y(62300)+105 and my<sprite y(62300)+140 and mx<sprite width(62300)
      if mcli=1
       oldTdbc=timer()
       if editA=1 
        editA=0
       else
        editA=1
       endif 
      endif
     endif
 else
         if mx>0 and my>0 and PANEL_D=0
             x=sprite x(62300)
           dec x,10
           if x<0-sprite width(62300)+5 then x=0-sprite width(62300)+5
           sprite 62300,x,sprite y(62300),62300
           set sprite priority 62300,20100
          endif
    endif
` materialPanel 
if PANEL_E=0
 sprite 70105,sprite x(60000)+sprite width(60000),sprite y(60000)+sprite height(60000)+5,70002
else
 sprite 70105,sprite x(60000)+sprite width(60000),sprite y(60000)+sprite height(60000)+5,70003
endif
for gj=1 to 7   
  SPRITE 60500+gj,sprite x(60000)+90+((gj-1)*60),sprite y(60000)+3,60500+gj   
next gj
sprite 60009,sprite x(60000)+87+((matimg-1)*60),sprite y(60000),60009
set sprite priority 60009,10100
 if mx>sprite x(60000) and mx<sprite x(60000)+sprite width(60000)+20 and my>sprite y(60000) and my<sprite y(60000)+sprite height(60000)+20
  mouseongui=9999
     y=sprite y(60000)
               inc y,10
               if y>0 then y=0
               sprite 60000,sprite x(60000),y,60000
  if mx<60 and mx>0
     if mcli=1
       if sprite exist(50111)=0 then sprite 50111,0,90,matimg
     else
       if sprite exist(50111)=1 then delete sprite 50111 
     endif
  endif
  if mcli=1
   oldTdbc=timer()
   if mx>sprite x(60000)+86 and mx<sprite x(60000)+146
    matimg=1: scIMTL(matimg)
   endif
   if mx>sprite x(60000)+146 and mx<sprite x(60000)+206
    matimg=2: scIMTL(matimg)
   endif
   if mx>sprite x(60000)+206 and mx<sprite x(60000)+266
    matimg=3: scIMTL(matimg)
   endif
   if mx>sprite x(60000)+266 and mx<sprite x(60000)+326
    matimg=4: scIMTL(matimg)
   endif
   if mx>sprite x(60000)+326 and mx<sprite x(60000)+386
    matimg=5: scIMTL(matimg)
   endif
   if mx>sprite x(60000)+386 and mx<sprite x(60000)+446
    matimg=6: scIMTL(matimg)
   endif
   if mx>sprite x(60000)+446 and mx<sprite x(60000)+506
    matimg=7: scIMTL(matimg)
   endif  
  endif
  if mcli=4
   if mx>sprite x(60000)+86 and sprite x(60000)+mx<146
     matimg=1
     openLISTmat(matimg)
   endif
   if mx>sprite x(60000)+146 and mx<sprite x(60000)+206
     matimg=2
     openLISTmat(matimg)
   endif
   if mx>sprite x(60000)+206 and mx<sprite x(60000)+266
     matimg=3
     openLISTmat(matimg)
   endif
   if mx>sprite x(60000)+266 and mx<sprite x(60000)+326
     matimg=4
     openLISTmat(matimg)
   endif
   if mx>sprite x(60000)+326 and mx<sprite x(60000)+386
     matimg=5
     openLISTmat(matimg)
   endif
   if mx>sprite x(60000)+386 and mx<sprite x(60000)+446
     matimg=6
     openLISTmat(matimg)
   endif
   if mx>sprite x(60000)+446 and mx<sprite x(60000)+506
     matimg=7
     openLISTmat(matimg)
   endif 
  endif
    else
         if mx>0 and my>0 and PANEL_E=0
             y=sprite y(60000)
           dec y,10
           if y<(sprite height(60000)-1 )*-1 then y=(sprite height(60000)-1 )*-1
           sprite 60000,sprite x(60000),y,60000
          endif
    endif
if PANEL_F=0
 sprite 70106,sprite x(60777)+330,sprite y(60777)-20,70004
else
 sprite 70106,sprite x(60777)+330,sprite y(60777)-20,70005
endif 
 if mx>sprite x(60777) and mx<sprite x(60777)+382 and my>sprite y(60777)-60 and my<sprite y(60777)+sprite height(60777)
  mouseongui=987987456
   y=sprite y(60777)
         dec y,10
         if y<sh-50 then y=sh-50
         sprite 60777,sprite x(60777),y,60777
   if my>sprite y(60777)-2
               if mcli=1   
                oldTdbc=timer()
                if mx>sprite x(60777) and mx<sprite x(60777)+41
                 mouseongui=100 : ` color mode 
                 PTmode=M_color
                 if MDclick=1
                  paintcolor=COLORBOX2("select color"):red=GetRed():green=GetGreen():blue=GetBlue():alpha=255:paintcolor=rgb(alpha,red,green,blue):upcolview()
                 endif
                endif
                if mx>sprite x(60777)+42 and mx<sprite x(60777)+83
                 mouseongui=101 : ` image mode 
                 PTmode=M_image
                endif
                if mx>sprite x(60777)+84 and mx<sprite x(60777)+126
                 mouseongui=102 : ` element mode 
                 if PTmode2=M_Line then PTmode2=0
                 PTmode2=abs(PTmode2-3)
                 sleep 500
                endif
                if mx>sprite x(60777)+212 and mx<sprite x(60777)+252
                 mouseongui=100 : ` STAMP mode 
                 PTmode=M_STAMP    
                 if MDclick=1 then setGadgetVisible UI_lib,1 :mcli=0: sleep 500
                endif
                if mx>sprite x(60777)+127 and mx<sprite x(60777)+168
                 mouseongui=100 : ` BURN mode 
                 PTmode=M_BURN    
                endif
                if mx>sprite x(60777)+170 and mx<sprite x(60777)+212
                 mouseongui=100 : ` FLY mode 
                 PTmode=M_FLY    
                endif
                
                if mx>sprite x(60777)+252 and mx<sprite x(60777)+292
                 mouseongui=103 : ` Line mode 
                 if PTmode2=M_Element then PTmode2=0
                 PTmode2=abs(PTmode2-M_Line)
                 sleep 500
                endif
                ` M_TEXT
                if mx>sprite x(60777)+298 and mx<sprite x(60777)+330
                 mouseongui=44 : ` TEXT mode 
                 PTmode=M_TEXT
                 BrushText()
                 PTmode=M_STAMP
                endif
                
                if mx>sprite x(60777)+340 and mx<sprite x(60777)+382
                 mouseongui=55 : ` PLACE IMAGE mode 
                 PTmode=M_PLimg
                 PTmode2=0
                 imageOPENforPLACE()               
                endif
               endif
   endif
 else
         if mx>0 and my>0 and PANEL_F=0
              y=sprite y(60777)
            inc y,10
            if y>sh-4 then y=sh-4
            sprite 60777,sprite x(60777),y,60777
          endif
    endif
eee:
 if PTmode=M_color
  if sprite exist(60016)=1
    if mx>sprite x(60016) and mx<sprite x(60016)+355 and my>sprite y(60016) and my<sprite y(60016)+305
     mouseongui=9599
       if my>sprite y(60200) and my<sprite y(60200)+20 and mx<sprite x(60016)+30
        if mcli=1 AND OLDMCLI=0
         if coleditdR=1 then coleditdR=0 else coleditdR=1
         exitfunction mouseongui
        endif
       endif
       if my>sprite y(60201) and my<sprite y(60201)+20 and mx<sprite x(60016)+30
        if mcli=1 AND OLDMCLI=0
         if coleditdg=1 then coleditdg=0 else coleditdg=1
         exitfunction mouseongui
        endif
       endif
       if my>sprite y(60202) and my<sprite y(60202)+20 and mx<sprite x(60016)+30
        if mcli=1 AND OLDMCLI=0
         if coleditdb=1 then coleditdb=0 else coleditdb=1
         exitfunction mouseongui
        endif
       endif
       if my>sprite y(60203) and my<sprite y(60203)+20 and mx<sprite x(60016)+30
        if mcli=1 AND OLDMCLI=0
         if coledita=1 then coledita=0 else coledita=1
         exitfunction mouseongui
        endif
       endif
       if my>sprite y(60204) and my<sprite y(60204)+20 and mx<sprite x(60016)+30
        if mcli=1 AND OLDMCLI=0
         if coledits=1 then coledits=0 else coledits=1
         exitfunction mouseongui
        endif
       endif
`RGBASNH
       if my>sprite y(60200) and my<sprite y(60200)+20  and mx>sprite x(60016)+20 
        mouseongui=9500
        if mcli=1
         if mx>sprite x(60016)+34 and mx<sprite x(60016)+35+256  then  red=mx-(sprite x(60016)+35)
         if red<0 then red=0
         if red>255 then red=255
         upcolview()
         mcli=0
         exitfunction mouseongui
        endif
       endif
       if my>sprite y(60201) and my<sprite y(60201)+20  and mx>sprite x(60016)+20 
        mouseongui=9501
        if mcli=1
         if mx>sprite x(60016)+34 and mx<sprite x(60016)+35+256  then  green=mx-(sprite x(60016)+35)
         if green<0 then green=0
         if green>255 then green=255
         upcolview()
         mcli=0
         exitfunction mouseongui
        endif
       endif
       if my>sprite y(60202) and my<sprite y(60202)+20  and mx>sprite x(60016)+20 
        mouseongui=9502
        if mcli=1
         if mx>sprite x(60016)+34 and mx<sprite x(60016)+35+256  then  blue=mx-(sprite x(60016)+35)
         if blue<0 then blue=0
         if blue>255 then blue=255
         upcolview()
         mcli=0
         exitfunction mouseongui
        endif
       endif
       if my>sprite y(60203) and my<sprite y(60203)+20  and mx>sprite x(60016)+20 
        mouseongui=9503
        if mcli=1
         if mx>sprite x(60016)+34 and mx<sprite x(60016)+35+256  then  alpha=mx-(sprite x(60016)+35)
         if alpha<0 then alpha=0
         if alpha>255 then alpha=255
         upcolview()
         mcli=0
         exitfunction mouseongui
        endif
       endif
       if my>sprite y(60204) and my<sprite y(60204)+20  and mx>sprite x(60016)+20 
        mouseongui=9504
        if mcli=1
         if mx>sprite x(60016)+34 and mx<sprite x(60016)+35+256  then  spec=mx-(sprite x(60016)+35)
         if spec<0 then spec=0
         if spec>255 then spec=255
         mcli=0
         exitfunction mouseongui
        endif
       endif
    endif
  endif
 endif
 if mx>sw-32 and mx<sw and my>0 and my<32
  mouseongui=7000
  IF MCLI=1 
   oldTdbc=timer()
   IF UVMODE=1
    UVMODE=0
     setbatch()
     BatchADDcompound()
     hide object UVobject
    ELSE
      inselect=0
      for kk=1 to tri
       if tris(kk).sel=1 then inselect=inselect+1
      next kk
      if inselect>0
       UVMODE=1:setbatch()
       BatchADDcompound()
       show object UVobject
      else
       for kkDS=1 to tri
        tris(kkDS).sel=1
       next kkDS
       UVMODE=1:setbatch()
       BatchADDcompound()
       show object UVobject
       tmmp22()
      endif
   ENDIF
  endif
 ENDIF
 IF UVMODE=1 AND OLDMCLI=0
  if mx>SW-32 and mx<sw and my>34 and my<66
   mouseongui=7501
   IF MCLI=1 
     oldTdbc=timer()
     UVmMm =1-UVmMm
     UVmMr =0
     UVmMs =0
   endif  
  endif
  if mx>SW-32 and mx<sw and my>68 and my<100
   mouseongui=7502
   IF MCLI=1 
     oldTdbc=timer()
     UVmMr =1-UVmMr
     UVmMm =0
     UVmMs =0
   endif
  endif
  if mx>SW-32 and mx<sw and my>102 and my<134
   mouseongui=7503
   IF MCLI=1 
    oldTdbc=timer()
    UVmMs =1-UVmMs
    UVmMr =0
    UVmMm =0
   endif
  endif
 endif
if mx>sprite x(70101) and mx<sprite x(70101)+sprite width(70101)+3 and my>sprite y(70101) and my<sprite y(70101)+sprite height(70101)+3 
 if mcli=1
  mouseongui=7999
  PANEL_A=1-PANEL_A
  sleep 300
 endif
endif
if mx>sprite x(70103) and mx<sprite x(70103)+sprite width(70103)+3 and my>sprite y(70103) and my<sprite y(70103)+sprite height(70103)+3
 if mcli=1
  mouseongui=7999
  PANEL_C=1-PANEL_C
  sleep 300
 endif
endif
if mx>sprite x(70104) and mx<sprite x(70104)+sprite width(70104)+3 and my>sprite y(70104) and my<sprite y(70104)+sprite height(70104)+3 
 if mcli=1
  mouseongui=7999
  PANEL_D=1-PANEL_D
  sleep 300
 endif
endif
if mx>sprite x(70105) and mx<sprite x(70105)+sprite width(70105)+3 and my>sprite y(70105) and my<sprite y(70105)+sprite height(70105)+3
 if mcli=1
  mouseongui=7999
  PANEL_e=1-PANEL_e
  sleep 300
 endif
endif
if mx>sprite x(70106) and mx<sprite x(70106)+sprite width(70106)+3 and my>sprite y(70106) and my<sprite y(70106)+sprite height(70106)+3 
 if mcli=1
  mouseongui=7999
  PANEL_f=1-PANEL_f
  sleep 300
 endif
endif
endfunction mouseongui
function repl$( st as string , rp as string , Trp as string  )
 for g=1 to len(st)
  if mid$(st,g)=rp
   ex$=ex$+Trp
  else
   ex$=ex$+mid$(st,g)
  endif
 next g
endfunction ex$
function RGBASNH()  
  sprite 60200,sprite x(60016)+35+red  ,sprite y(60016)   ,60017      :text sw-35,sprite y(60016)   +1  ,str$(red)
  sprite 60201,sprite x(60016)+35+green ,sprite y(60016)+20 ,60017  :text sw-35,sprite y(60016)+20+1  ,str$(green)
  sprite 60202,sprite x(60016)+35+blue ,sprite y(60016)+40 ,60017  :text sw-35,sprite y(60016)+40+2  ,str$(blue)
  sprite 60203,sprite x(60016)+35+alpha ,sprite y(60016)+60 ,60017  :text sw-35,sprite y(60016)+60+2  ,str$(alpha)
  sprite 60204,sprite x(60016)+35+spec ,sprite y(60016)+80 ,60017  :text sw-35,sprite y(60016)+80+3  ,str$(spec)
  paintcolor=rgb(alpha,red,green,blue)
  if coleditDR=1 then sprite 60035,sprite x(60016),sprite y(60016)    ,60035 else if sprite exist(60035)=1 then delete sprite 60035
  if coleditDG=1 then sprite 60036,sprite x(60016),sprite y(60016)+20 ,60035 else if sprite exist(60036)=1 then delete sprite 60036
  if coleditDB=1 then sprite 60037,sprite x(60016),sprite y(60016)+40 ,60035 else if sprite exist(60037)=1 then delete sprite 60037
  if coleditA=1 then  sprite 60038,sprite x(60016),sprite y(60016)+60,60035 else if sprite exist(60038)=1 then delete sprite 60038
  if coleditS=1 then  sprite 60039,sprite x(60016),sprite y(60016)+80,60035 else if sprite exist(60039)=1 then delete sprite 60039
endfunction
function upcolview()
  for zx=6 to 25
   for zy=6 to 25
    image dot 60001, zx,zy , paintcolor
   next zy
  next zx
endfunction

function AutoUVMapping(obj,lm,stage,TSizex#,TSizey#,ScaleU#,ScaleV#,ScrollU#,ScrollV#)


Null=make matrix4(31)
Null=make matrix4(32)
Null=make matrix4(33)
Null=make matrix4(34)
Null=make vector3(35)
rotate x matrix4 31,TXrotX
rotate y matrix4 32,TXrotY
rotate z matrix4 33,TXrotZ
multiply matrix4 34,31,32
multiply matrix4 34,34,33
xsca#=1.0
ysca#=1.0
zsca#=1.0

scale matrix4 31,xsca#,ysca#,zsca#
multiply matrix4 34,34,31
transpose matrix4 34,34
translate matrix4 31,object position x(obj),object position y(obj),object position z(obj)
multiply matrix4 34,34,31
   
lock vertexdata for mesh 1

for v =1 to tri
      if tris(v).SEL=1
        set vector3 11, tris(v).xa1, tris(v).ya1, tris(v).za1
        set vector3 12, tris(v).xa2, tris(v).ya2, tris(v).za2
        set vector3 13, tris(v).xa3, tris(v).ya3, tris(v).za3
        
    subtract vector3 15, 12, 11
    subtract vector3 16, 13, 11
    cross product vector3 14,15,16
    normalize vector3 14,14
    
    set vector3 35,x vector3(14),y vector3(14),z vector3(14)
    transform normals vector3 35,35,34
    normalize vector3 35,35
         
          if z vector3(35)>=0.495 then UvProj=1
          if z vector3(35)<=-0.495 then UvProj=2
          if x vector3(35)>=0.495 then UvProj=3
          if x vector3(35)<=-0.495 then UvProj=4
          if y vector3(35)>=0.495 then UvProj=5
          if y vector3(35)<=-0.495 then UvProj=6

      tris(v).group=UvProj
      set vector3 35,tris(v).xa1, tris(v).ya1, tris(v).za1
          transform coords vector3 35,35,34
          select UvProj
             case 1
                U#=(x vector3(35)+ScrollU#)/TSizex#
                V#=(y vector3(35)+ScrollV#)/TSizey#
                set vertexdata uv tris(v).index1,0,(U#)*ScaleU#+0.25,(-V#)*ScaleV#+0.75
             endcase
             case 2
                U#=(x vector3(35)+ScrollU#)/TSizex#
                V#=(y vector3(35)+ScrollV#)/TSizey#
                set vertexdata uv tris(v).index1,0,(U#)*ScaleU#+0.5,(-V#)*ScaleV#+0.75
             endcase
             case 3
                U#=(z vector3(35)+ScrollU#)/TSizex#
                V#=(y vector3(35)+ScrollV#)/TSizey#
                set vertexdata uv tris(v).index1,0,(U#)*ScaleU#+0.75,(-V#)*ScaleV#+0.75
             endcase
             case 4
                U#=(z vector3(35)+ScrollU#)/TSizex#
                V#=(y vector3(35)+ScrollV#)/TSizey#
                set vertexdata uv tris(v).index1,0,(U#)*ScaleU#+0.25,(-V#)*ScaleV#+0.25
             endcase
             case 5
                U#=(z vector3(35)+ScrollU#)/TSizex#
                V#=(x vector3(35)+ScrollV#)/TSizey#
                set vertexdata uv tris(v).index1,0,(U#)*ScaleU#+0.5,(-V#)*ScaleV#+0.25
             endcase
             case 6
                U#=(z vector3(35)+ScrollU#)/TSizex#
                V#=(x vector3(35)+ScrollV#)/TSizey#
                set vertexdata uv tris(v).index1,0,(U#)*ScaleU#+0.75,(-V#)*ScaleV#+0.25
             endcase
          endselect
      set vector3 35,tris(v).xa2, tris(v).ya2, tris(v).za2
          transform coords vector3 35,35,34
          select UvProj
             case 1
                U#=(x vector3(35)+ScrollU#)/TSizex#
                V#=(y vector3(35)+ScrollV#)/TSizey#
                set vertexdata uv tris(v).index2,0,(U#)*ScaleU#+0.25,(-V#)*ScaleV#+0.75 
             endcase                                                                    
             case 2                                                                     
                U#=(x vector3(35)+ScrollU#)/TSizex#                                     
                V#=(y vector3(35)+ScrollV#)/TSizey#                                     
                set vertexdata uv tris(v).index2,0,(U#)*ScaleU#+0.5,(-V#)*ScaleV#+0.75  
             endcase                                                                    
             case 3                                                                     
                U#=(z vector3(35)+ScrollU#)/TSizex#                                     
                V#=(y vector3(35)+ScrollV#)/TSizey#                                     
                set vertexdata uv tris(v).index2,0,(U#)*ScaleU#+0.75,(-V#)*ScaleV#+0.75 
             endcase                                                                    
             case 4                                                                     
                U#=(z vector3(35)+ScrollU#)/TSizex#                                     
                V#=(y vector3(35)+ScrollV#)/TSizey#                                     
                set vertexdata uv tris(v).index2,0,(U#)*ScaleU#+0.25,(-V#)*ScaleV#+0.25 
             endcase                                                                    
             case 5                                                                     
                U#=(z vector3(35)+ScrollU#)/TSizex#                                     
                V#=(x vector3(35)+ScrollV#)/TSizey#                                     
                set vertexdata uv tris(v).index2,0,(U#)*ScaleU#+0.5,(-V#)*ScaleV#+0.25  
             endcase                                                                    
             case 6                                                                     
                U#=(z vector3(35)+ScrollU#)/TSizex#                                     
                V#=(x vector3(35)+ScrollV#)/TSizey#                                     
                set vertexdata uv tris(v).index2,0,(U#)*ScaleU#+0.75,(-V#)*ScaleV#+0.25 
             endcase
          endselect
      set vector3 35,tris(v).xa3, tris(v).ya3, tris(v).za3
          transform coords vector3 35,35,34
          select UvProj
             case 1
                U#=(x vector3(35)+ScrollU#)/TSizex#
                V#=(y vector3(35)+ScrollV#)/TSizey#
                set vertexdata uv tris(v).index3,0,(U#)*ScaleU#+0.25,(-V#)*ScaleV#+0.75 
             endcase                                                                    
             case 2                                                                     
                U#=(x vector3(35)+ScrollU#)/TSizex#                                     
                V#=(y vector3(35)+ScrollV#)/TSizey#                                     
                set vertexdata uv tris(v).index3,0,(U#)*ScaleU#+0.5,(-V#)*ScaleV#+0.75  
             endcase                                                                    
             case 3                                                                     
                U#=(z vector3(35)+ScrollU#)/TSizex#                                     
                V#=(y vector3(35)+ScrollV#)/TSizey#                                     
                set vertexdata uv tris(v).index3,0,(U#)*ScaleU#+0.75,(-V#)*ScaleV#+0.75 
             endcase                                                                    
             case 4                                                                     
                U#=(z vector3(35)+ScrollU#)/TSizex#                                     
                V#=(y vector3(35)+ScrollV#)/TSizey#                                     
                set vertexdata uv tris(v).index3,0,(U#)*ScaleU#+0.25,(-V#)*ScaleV#+0.25 
             endcase                                                                    
             case 5                                                                     
                U#=(z vector3(35)+ScrollU#)/TSizex#                                     
                V#=(x vector3(35)+ScrollV#)/TSizey#                                     
                set vertexdata uv tris(v).index3,0,(U#)*ScaleU#+0.5,(-V#)*ScaleV#+0.25  
             endcase                                                                    
             case 6                                                                     
                U#=(z vector3(35)+ScrollU#)/TSizex#                                     
                V#=(x vector3(35)+ScrollV#)/TSizey#                                     
                set vertexdata uv tris(v).index3,0,(U#)*ScaleU#+0.75,(-V#)*ScaleV#+0.25 
             endcase
          endselect     
      
      
      endif
next v
   unlock vertexdata
   Null=delete matrix4(31)
   Null=delete matrix4(32)
   Null=delete matrix4(33)
   Null=delete matrix4(34)
   Null=delete vector3(35)

change mesh 1,0,1
change mesh 2,0,1
 
 DBLuv()
 makeuvEMITdata(0,0)  
 getdata(0,0,0,0,0,0)
 updateUVmodify()
 
endfunction


function UVdataupdate( aasd,basd )
    lock vertexdata for MESH 1
    Ic= GET VERTEXDATA INDEX COUNT()
    Vc= GET VERTEXDATA vertex COUNT()
    tri=ic/3
    for i=1 to ic
      indecindex(i)=get indexdata(i-1)
    next i
    for h=1 to tri 
     tris(h).xa1= GET VERTEXDATA POSITION X( indecindex(h*3-2) )
     tris(h).ya1= GET VERTEXDATA POSITION y( indecindex(h*3-2) )
     tris(h).za1= GET VERTEXDATA POSITION z( indecindex(h*3-2) )
     tris(h).nxa1= GET VERTEXDATA normals X( indecindex(h*3-2) )
     tris(h).nya1= GET VERTEXDATA normals y( indecindex(h*3-2) )
     tris(h).nza1= GET VERTEXDATA normals z( indecindex(h*3-2) ) 
     tris(h).u1= GET VERTEXDATA u( indecindex(h*3-2) )
     tris(h).v1= GET VERTEXDATA v( indecindex(h*3-2) )
     tris(h).index1=indecindex(h*3-2)
       
     tris(h).xa2= GET VERTEXDATA POSITION X( indecindex(h*3-1) )
     tris(h).ya2= GET VERTEXDATA POSITION y( indecindex(h*3-1) )
     tris(h).za2= GET VERTEXDATA POSITION z( indecindex(h*3-1) )
     tris(h).nxa2= GET VERTEXDATA normals X( indecindex(h*3-1) )
     tris(h).nya2= GET VERTEXDATA normals y( indecindex(h*3-1) )
     tris(h).nza2= GET VERTEXDATA normals z( indecindex(h*3-1) )
     tris(h).u2= GET VERTEXDATA u( indecindex(h*3-1) )
     tris(h).v2= GET VERTEXDATA v( indecindex(h*3-1) )
     tris(h).index2=indecindex(h*3-1)
      
     tris(h).xa3= GET VERTEXDATA POSITION X( indecindex(h*3) )
     tris(h).ya3= GET VERTEXDATA POSITION y( indecindex(h*3) )
     tris(h).za3= GET VERTEXDATA POSITION z( indecindex(h*3) )
     tris(h).nxa3= GET VERTEXDATA normals X( indecindex(h*3) )
     tris(h).nya3= GET VERTEXDATA normals y( indecindex(h*3) )
     tris(h).nza3= GET VERTEXDATA normals z( indecindex(h*3) ) 
     tris(h).u3= GET VERTEXDATA u( indecindex(h*3) )
     tris(h).v3= GET VERTEXDATA v( indecindex(h*3) )
     tris(h).index3=indecindex(h*3)
    next h
    UNLOCK VERTEXDATA
    if aasd=1 then setbatch()
    if basd=1 then BatchADDcompound()
endfunction




function SORTINGelement()
 for ftto=1 to tri
  tris(ftto).ENDwork=0
  tris(ftto).elementTRI=0
 next ftto
 TecGroupSort=1
 TecElementSort=1
 TecTRIANGLEsort=FindFreeTriInGroup(TecGroupSort)
STRTcikl:
 for f=1 to tri
   if tris(f).group=TecGroupSort and f<>TecTRIANGLEsort
     if tris(f).elementTRI=0 and tris(f).ENDwork=0
       extELEMENT=PLUSelement( TecTRIANGLEsort , f )
       if extELEMENT>0 
         tris(f).elementTRI=TecElementSort
       endif
     endif
   endif 
 next f
 tris(TecTRIANGLEsort).ENDwork=1
 tris(TecTRIANGLEsort).elementTRI=TecElementSort
 for fOOF=1 to tri
  if tris(fOOF).elementTRI=TecElementSort and tris(fOOF).ENDwork=0 and tris(fOOF).group=TecGroupSort
   TecTRIANGLEsort=fOOF
   goto STRTcikl
  endif
 next fOOF
 TecTRIANGLEsort=FindFreeTriInGroup(TecGroupSort)
 if TecTRIANGLEsort>0
   TecElementSort=TecElementSort+1
   goto STRTcikl
 else
   TecGroupSort=TecGroupSort+1
   if TecGroupSort<7
    TecElementSort=TecElementSort+1
    TecTRIANGLEsort=FindFreeTriInGroup(TecGroupSort)
    goto STRTcikl
   else
    elementall=TecElementSort
    goto ready
   endif  
 endif
ready:

endfunction elementall

function FindFreeTriInGroup(groupIN)
EXTtri=0
 for DUFf=1 to tri
  if tris(DUFf).elementTRI=0 and tris(DUFf).ENDwork=0 and tris(DUFf).group=groupIN
   EXTtri=DUFf
   exitfunction EXTtri
  endif
 next DUFf
endfunction EXTtri

function PLUSelement( TecTriSORTb , TECtri )
plus=0 
  Au1# = tris(TECtri).u1
  Au2# = tris(TECtri).u2
  Au3# = tris(TECtri).u3
  Av1# = tris(TECtri).v1
  Av2# = tris(TECtri).v2
  Av3# = tris(TECtri).v3      
  Bu1# = tris(TecTriSORTb).u1
  Bu2# = tris(TecTriSORTb).u2
  Bu3# = tris(TecTriSORTb).u3
  Bv1# = tris(TecTriSORTb).v1
  Bv2# = tris(TecTriSORTb).v2
  Bv3# = tris(TecTriSORTb).v3
  
  Ax1# = tris(TECtri).xa1
  Ay1# = tris(TECtri).ya1
  Az1# = tris(TECtri).za1
  Ax2# = tris(TECtri).xa2
  Ay2# = tris(TECtri).ya2
  Az2# = tris(TECtri).za2
  Ax3# = tris(TECtri).xa3
  Ay3# = tris(TECtri).ya3
  Az3# = tris(TECtri).za3
  
  Bx1# = tris(TecTriSORTb).xa1
  By1# = tris(TecTriSORTb).ya1
  Bz1# = tris(TecTriSORTb).za1
  Bx2# = tris(TecTriSORTb).xa2
  By2# = tris(TecTriSORTb).ya2
  Bz2# = tris(TecTriSORTb).za2
  Bx3# = tris(TecTriSORTb).xa3
  By3# = tris(TecTriSORTb).ya3
  Bz3# = tris(TecTriSORTb).za3
  
  if (Au1#=Bu1# and Av1#=Bv1#) or (Au1#=Bu2# and Av1#=Bv2#) or (Au1#=Bu3# and Av1#=Bv3#) or (Au2#=Bu1# and Av2#=Bv1#) or (Au2#=Bu2# and Av2#=Bv2#) or (Au2#=Bu3# and Av2#=Bv3#) or (Au3#=Bu1# and Av3#=Bv1#) or (Au3#=Bu2# and Av3#=Bv2#) or (Au3#=Bu3# and Av3#=Bv3#)
     if Ax1# = Bx1#  and Ay1# = By1# and Az1# = Bz1#
      plus=1
      exitfunction plus
     endif
     if Ax1# = Bx2#  and Ay1# = By2# and Az1# = Bz2#
      plus=1
      exitfunction plus
     endif
     if Ax1# = Bx3#  and Ay1# = By3# and Az1# = Bz3#
      plus=1
      exitfunction plus
     endif
     if Ax2# = Bx1#  and Ay2# = By1# and Az2# = Bz1#
      plus=1
      exitfunction plus
     endif
     if Ax2# = Bx2#  and Ay2# = By2# and Az2# = Bz2#
      plus=1
      exitfunction plus
     endif
     if Ax2# = Bx3#  and Ay2# = By3# and Az2# = Bz3#
      plus=1
      exitfunction plus
     endif
     if Ax3# = Bx1#  and Ay3# = By1# and Az3# = Bz1#
      plus=1
      exitfunction plus
     endif
     if Ax3# = Bx2#  and Ay3# = By2# and Az3# = Bz2#
      plus=1
      exitfunction plus
     endif
     if Ax3# = Bx3#  and Ay3# = By3# and Az3# = Bz3#
      plus=1
      exitfunction plus
     endif
  endif


 
 
endfunction plus


function SELECTelement(SELECTelementUVB)
 for f=1 to tri
  if tris(f).elementTRI=SELECTelementUVB
   tris(f).sel=1
  else
   tris(f).sel=0
  endif
 next f
 
 
 
 setbatch()
 BatchADDcompound()
 
 sleep 200
endfunction

function SELECTelementPLUS(SELECTelementUVB)
 
 for f=1 to tri
   if tris(f).elementTRI=SELECTelementUVB 
     if tris(f).sel=0    
      tris(f).sel=1  
      tmmpexitTriangle(f)             
     else                
      tris(f).sel=0 
      tmmpexitTriangleZERO(f)              
     endif 
   endif
 next f
 
 setbatch()
 BatchADDcompound()
 sleep 200
endfunction


function sortElements()
local Xmin as float
local Ymin as float
local Xmax as float
local Ymax as float
local tecwidth as float
local tecHEIGHT as float 
local tecSTARTwidth as float  
local tecSTARTheight as float
local maximum as float

local sortallelement as integer
local firstELEMENT as integer
local ciclFREE as integer
local PIXtri as float
local allploshad as float
 for tmpOOO=1 to elementall
        Xmin=3.0 
        Xmax=-3.0
        Ymin=3.0 
        Ymax=-3.0
        for tmpTRI=1 to tri
            if tris(tmpTRI).elementTRI=tmpOOO
                if tris(tmpTRI).u1< Xmin then Xmin=tris(tmpTRI).u1
                if tris(tmpTRI).u1> Xmax then Xmax=tris(tmpTRI).u1
                if tris(tmpTRI).v1< Ymin then Ymin=tris(tmpTRI).v1
                if tris(tmpTRI).v1> Ymax then Ymax=tris(tmpTRI).v1
                if tris(tmpTRI).u2< Xmin then Xmin=tris(tmpTRI).u2
                if tris(tmpTRI).u2> Xmax then Xmax=tris(tmpTRI).u2
                if tris(tmpTRI).v2< Ymin then Ymin=tris(tmpTRI).v2
                if tris(tmpTRI).v2> Ymax then Ymax=tris(tmpTRI).v2
                if tris(tmpTRI).u3< Xmin then Xmin=tris(tmpTRI).u3
                if tris(tmpTRI).u3> Xmax then Xmax=tris(tmpTRI).u3
                if tris(tmpTRI).v3< Ymin then Ymin=tris(tmpTRI).v3
                if tris(tmpTRI).v3> Ymax then Ymax=tris(tmpTRI).v3
            endif
        next tmpTRI
        
        PLOSHAD(tmpOOO,5)= Xmax-Xmin                                
        PLOSHAD(tmpOOO,6)= Ymax-Ymin                                
        PLOSHAD(tmpOOO,0)= ( PLOSHAD( tmpOOO,5)*PLOSHAD(tmpOOO,6) ) * 1.0
        allploshad=allploshad+PLOSHAD(tmpOOO,0)
        for tmpTRI55=1 to tri
         if tris(tmpTRI55).elementTRI=tmpOOO
           tris(tmpTRI55).u1=tris(tmpTRI55).u1-Xmin
           tris(tmpTRI55).v1=tris(tmpTRI55).v1-Ymin
           tris(tmpTRI55).u2=tris(tmpTRI55).u2-Xmin
           tris(tmpTRI55).v2=tris(tmpTRI55).v2-Ymin
           tris(tmpTRI55).u3=tris(tmpTRI55).u3-Xmin
           tris(tmpTRI55).v3=tris(tmpTRI55).v3-Ymin
         endif
        next tmpTRI55
 next tmpooo

PIXtri=(1.0/TECimagesize)*6.0
 
sortallelement=0 
tecSTARTwidth=0 
tecSTARTheight=PIXtri 
tecwidth=0 

maximum=sqrt(allploshad*1.3)


resort:
 ciclFREE=0
for tmpOO2=1 to elementall 
    if PLOSHAD( tmpOO2 , 7 )= 0
          if firstELEMENT=1
                firstELEMENT=0
                for tmpTRI2=1 to tri
                  if tris(tmpTRI2).elementTRI=tmpOO2
                    tris(tmpTRI2).u1=tris(tmpTRI2).u1+tecSTARTwidth
                    tris(tmpTRI2).v1=tris(tmpTRI2).v1+tecSTARTheight
                    tris(tmpTRI2).u2=tris(tmpTRI2).u2+tecSTARTwidth
                    tris(tmpTRI2).v2=tris(tmpTRI2).v2+tecSTARTheight
                    tris(tmpTRI2).u3=tris(tmpTRI2).u3+tecSTARTwidth
                    tris(tmpTRI2).v3=tris(tmpTRI2).v3+tecSTARTheight
                  endif
                next tmpTRI2
                tecwidth=PLOSHAD( tmpOO2 , 5 )
                tecSTARTheight=PLOSHAD( tmpOO2 , 6 )+ PIXtri+ PIXtri
                PLOSHAD( tmpOO2 , 7 )=1
                sortallelement=sortallelement+1
                ciclFREE=1
          else
                if PLOSHAD( tmpOO2 , 5 )<=tecwidth and PLOSHAD( tmpOO2 , 6 )<=maximum-tecSTARTheight
                   for tmpTRI24=1 to tri
                     if tris(tmpTRI24).elementTRI=tmpOO2
                       tris(tmpTRI24).u1=tris(tmpTRI24).u1+tecSTARTwidth
                       tris(tmpTRI24).v1=tris(tmpTRI24).v1+tecSTARTheight
                       tris(tmpTRI24).u2=tris(tmpTRI24).u2+tecSTARTwidth
                       tris(tmpTRI24).v2=tris(tmpTRI24).v2+tecSTARTheight
                       tris(tmpTRI24).u3=tris(tmpTRI24).u3+tecSTARTwidth
                       tris(tmpTRI24).v3=tris(tmpTRI24).v3+tecSTARTheight
                     endif
                   next tmpTRI24
                   PLOSHAD( tmpOO2 , 7 )=1
                   sortallelement=sortallelement+1
                   ciclFREE=1
                   tecSTARTheight=tecSTARTheight+PLOSHAD( tmpOO2 , 6 )+PIXtri
                endif
          endif
    endif
next tmpoo2 
 

 
if sortallelement=elementall 
  exitfunction
else
 if ciclFREE=0
   firstELEMENT=1
   tecSTARTwidth=tecSTARTwidth+tecwidth+PIXtri
   tecSTARTheight=PIXtri
 endif
 goto resort
endif
 
endfunction


function secondsortELEMENT()

for tmpOO3=1 to elementall
 
 
 
 
next tmpoo3
 
 
 
 
 
endfunction







function fliphorizontal()
local Xmin as float
local Ymin as float
local Xmax as float
local Ymax as float
Xmin=3.0 
Xmax=-3.0
Ymin=3.0 
Ymax=-3.0
for tmpTRI=1 to tri
  if tris(tmpTRI).sel=1
      if tris(tmpTRI).u1< Xmin then Xmin=tris(tmpTRI).u1
      if tris(tmpTRI).u1> Xmax then Xmax=tris(tmpTRI).u1
      if tris(tmpTRI).u2< Xmin then Xmin=tris(tmpTRI).u2
      if tris(tmpTRI).u2> Xmax then Xmax=tris(tmpTRI).u2
      if tris(tmpTRI).u3< Xmin then Xmin=tris(tmpTRI).u3
      if tris(tmpTRI).u3> Xmax then Xmax=tris(tmpTRI).u3

  endif
next tmpTRI
center#= Xmin+((Xmax-Xmin)/2.0)
for tmpTRIoo=1 to tri
  if tris(tmpTRIoo).sel=1
      if tris(tmpTRIoo).u1< center# then tris(tmpTRIoo).u1=center#+(center#-tris(tmpTRIoo).u1):goto nxt001
      if tris(tmpTRIoo).u1> center# then tris(tmpTRIoo).u1=center#-(tris(tmpTRIoo).u1-center#)
nxt001:
      if tris(tmpTRIoo).u2< center# then tris(tmpTRIoo).u2=center#+(center#-tris(tmpTRIoo).u2):goto nxt002
      if tris(tmpTRIoo).u2> center# then tris(tmpTRIoo).u2=center#-(tris(tmpTRIoo).u2-center#)
nxt002:
      if tris(tmpTRIoo).u3< center# then tris(tmpTRIoo).u3=center#+(center#-tris(tmpTRIoo).u3):goto nxt003
      if tris(tmpTRIoo).u3> center# then tris(tmpTRIoo).u3=center#-(tris(tmpTRIoo).u3-center#)
nxt003:
  endif
next tmpTRIoo

makeuvEMITdata(0,0)
getdata(0,0,0,0,0,0)
updateUVmodify()



endfunction



function flipvertical()
local Xmin as float
local Ymin as float
local Xmax as float
local Ymax as float
Xmin=3.0 
Xmax=-3.0
Ymin=3.0 
Ymax=-3.0
for tmpTRI=1 to tri
  if tris(tmpTRI).sel=1

      if tris(tmpTRI).v1< Ymin then Ymin=tris(tmpTRI).v1
      if tris(tmpTRI).v1> Ymax then Ymax=tris(tmpTRI).v1
      if tris(tmpTRI).v2< Ymin then Ymin=tris(tmpTRI).v2
      if tris(tmpTRI).v2> Ymax then Ymax=tris(tmpTRI).v2
      if tris(tmpTRI).v3< Ymin then Ymin=tris(tmpTRI).v3
      if tris(tmpTRI).v3> Ymax then Ymax=tris(tmpTRI).v3
  endif
next tmpTRI
center#= ymin+((ymax-ymin)/2.0)
for tmpTRIoo=1 to tri
  if tris(tmpTRIoo).sel=1
      if tris(tmpTRIoo).v1< center# then tris(tmpTRIoo).v1=center#+(center#-tris(tmpTRIoo).v1):goto nxt001a
      if tris(tmpTRIoo).v1> center# then tris(tmpTRIoo).v1=center#-(tris(tmpTRIoo).v1-center#)
nxt001a:
      if tris(tmpTRIoo).v2< center# then tris(tmpTRIoo).v2=center#+(center#-tris(tmpTRIoo).v2):goto nxt002a
      if tris(tmpTRIoo).v2> center# then tris(tmpTRIoo).v2=center#-(tris(tmpTRIoo).v2-center#)
nxt002a:
      if tris(tmpTRIoo).v3< center# then tris(tmpTRIoo).v3=center#+(center#-tris(tmpTRIoo).v3):goto nxt003a
      if tris(tmpTRIoo).v3> center# then tris(tmpTRIoo).v3=center#-(tris(tmpTRIoo).v3-center#)
nxt003a:
  endif
next tmpTRIoo

makeuvEMITdata(0,0)
getdata(0,0,0,0,0,0)
updateUVmodify()


endfunction

function saveUVmap() 
 TMPir$=get dir$()
 set dir glavcat
 global dim UVmap(120000,2) as float 
 cnt=1
 UVmap(0,0)=tri
 UVmap(0,1)=tri*12
 UVmap(0,2)=tri
 for z=1 to tri
  UVmap(cnt,0)=tris(z).index1
  UVmap(cnt,1)=tris(z).u1
  UVmap(cnt,2)=tris(z).v1
  inc cnt
  UVmap(cnt,0)=tris(z).index2
  UVmap(cnt,1)=tris(z).u2
  UVmap(cnt,2)=tris(z).v2
  inc cnt
  UVmap(cnt,0)=tris(z).index3
  UVmap(cnt,1)=tris(z).u3
  UVmap(cnt,2)=tris(z).v3
  inc cnt 
  UVmap(cnt,0)=tris(z).elementTRI
  UVmap(cnt,1)=tris(z).sel
  UVmap(cnt,2)=1
  inc cnt   
 next z
 if file exist("temp.UVdata")=1 then delete file "temp.UVdata"
 save array "temp.UVdata",UVmap()
 undim UVmap()
 set dir TMPir$
endfunction


function loadUVmap(filetemp$) 
 TMPir$=get dir$()
 set dir glavcat
 global dim UVmap(120000,2) as float 
 load array filetemp$,UVmap()
 
 UVmap(0,0)=tri
 UVmap(0,1)=tri*12
 UVmap(0,2)=tri
 cnt=1
 for z=1 to UVmap(0,0)  
  tris(z).index1=UVmap(cnt,0)
  tris(z).u1=UVmap(cnt,1)
  tris(z).v1=UVmap(cnt,2)
  inc cnt
  tris(z).index2=UVmap(cnt,0)
  tris(z).u2=UVmap(cnt,1)
  tris(z).v2=UVmap(cnt,2)
  inc cnt
  tris(z).index3=UVmap(cnt,0)
  tris(z).u3=UVmap(cnt,1)
  tris(z).v3=UVmap(cnt,2)
  inc cnt 
  tris(z).elementTRI=UVmap(cnt,0)
  tris(z).sel=UVmap(cnt,1)
  inc cnt   
 next z
 undim UVmap()
 set dir TMPir$
 setbatch()
 BatchADDcompound()
endfunction


function dblUV()
     UVdataupdate(0,0)
     elementall=SORTINGelement()
     global dim PLOSHAD( elementall , 7 ) as float
     sortElements()
     undim PLOSHAD()
endfunction
function makeuvEMITdata(mpx#,mpy#)
     seletri=0 
     for g=1 to tri
      if tris(g).SEL=1
       seletri=seletri+1
       trUV(seletri,0)=g
       trUV(seletri,1)=indecindex(g*3-2)
       trUV(seletri,2)=indecindex(g*3-1)
       trUV(seletri,3)=indecindex(g*3)  
       trUV(seletri,4)=tris(g).u1-mpx#
       trUV(seletri,5)=tris(g).v1-mpy#
       trUV(seletri,6)=tris(g).u2-mpx#
       trUV(seletri,7)=tris(g).v2-mpy#
       trUV(seletri,8)=tris(g).u3-mpx#
       trUV(seletri,9)=tris(g).v3-mpy#
      endif
     next g
endfunction
function getDATA(cX#,cY#,scx#,scy#,rox#,roy# )
 for g=1 to seletri
    if rotmap>0
      transformROT(trUV(g,4)  , trUV(g,5) , roy# )
      trUV(g,4)=x vector3(EDITvector)
      trUV(g,5)=y vector3(EDITvector)
      trUV(g,4)= trUV(g,4)  +  cX#
      trUV(g,5)= trUV(g,5)  +  cY#
      transformROT(trUV(g,6)  , trUV(g,7) , roy# )
      trUV(g,6)=x vector3(EDITvector)
      trUV(g,7)=y vector3(EDITvector)
      trUV(g,6)= trUV(g,6)  +  cX#
      trUV(g,7)= trUV(g,7)  +  cY#
      transformROT(trUV(g,8)  , trUV(g,9) , roy# )
      trUV(g,8)=x vector3(EDITvector)
      trUV(g,9)=y vector3(EDITvector)
      trUV(g,8)= trUV(g,8)  +  cX#
      trUV(g,9)= trUV(g,9)  +  cY#
    endif 
    if scamap>0
      transformSCA(trUV(g,4)  , trUV(g,5) , scx# )
      trUV(g,4)=x vector3(EDITvector)
      trUV(g,5)=y vector3(EDITvector)
      trUV(g,4)= trUV(g,4)  +  cX#
      trUV(g,5)= trUV(g,5)  +  cY#
      transformSCA(trUV(g,6)  , trUV(g,7) , scx# )
      trUV(g,6)=x vector3(EDITvector)
      trUV(g,7)=y vector3(EDITvector)
      trUV(g,6)= trUV(g,6)  +  cX#
      trUV(g,7)= trUV(g,7)  +  cY#      
      transformSCA(trUV(g,8)  , trUV(g,9) , scx# )
      trUV(g,8)=x vector3(EDITvector)
      trUV(g,9)=y vector3(EDITvector)
      trUV(g,8)= trUV(g,8)  +  cX#
      trUV(g,9)= trUV(g,9)  +  cY#    
    endif
    if movmap>0
      trUV(g,4)= trUV(g,4)  +  cX#
      trUV(g,5)= trUV(g,5)  +  cY#
      trUV(g,6)= trUV(g,6)  +  cX#
      trUV(g,7)= trUV(g,7)  +  cY#
      trUV(g,8)= trUV(g,8)  +  cX#
      trUV(g,9)= trUV(g,9)  +  cY#
    endif
 next g
 for gjuhtt=1 to seletri
       cac=trUV(gjuhtt,0)
       tris(cac).u1=trUV(gjuhtt,4)
       tris(cac).v1=trUV(gjuhtt,5) 
       tris(cac).u2=trUV(gjuhtt,6)
       tris(cac).v2=trUV(gjuhtt,7)
       tris(cac).u3=trUV(gjuhtt,8)
       tris(cac).v3=trUV(gjuhtt,9)
 next gjuhtt
 setbatch()
endfunction
function posUVdata()
  if movmap=1 
   movmap=2
  endif
    dix# =100000.0/Abs(Sqrt((camera position x() - OBJECT POSITION X(look_PointObj)) ^ 2 + (camera position y() - OBJECT POSITION Y(look_PointObj) ) ^ 2 + (camera position z() - OBJECT POSITION Z(look_PointObj)) ^ 2))+1.0
  makeuvEMITdata(0,0)
  getDATA(mmx/dix#,mmy/dix#,scx#,scy#,rox#,roy#)
endfunction
function rotUVdata()
  if rotmap=1 
   rotmap=2
    if pick object(MX,MY,UVOBJECT,UVOBJECT+1)>0 
       dis=get pick distance()
       pick screen MX,MY,dis
       mapx=(((get pick vector x()+camera position x()))*(TECimagesize/200.0))/TECimagesize
       mapy=((200.0-(get pick vector y()+camera position Y() ) )*(TECimagesize/200.0))/TECimagesize
    endif
  endif         
  if mmy<>0 then makeuvEMITdata(mapx,mapy)
  if mmy>0 then getDATA(mapx,mapy,scx#,scy#,0,5)
  if mmy<0 then getDATA(mapx,mapy,scx#,scy#,0,-5)          
endfunction
function scaUVdata()
   if scamap=1 
    scamap=2
     if pick object(MX,MY,UVOBJECT,UVOBJECT+1)>0 
        dis=get pick distance()
        pick screen MX,MY,dis
        mapx=(((get pick vector x()+camera position x()))*(TECimagesize/200.0))/TECimagesize
        mapy=((200.0-(get pick vector y()+camera position Y() ) )*(TECimagesize/200.0))/TECimagesize
     endif 
   endif   
   makeuvEMITdata(mapx,mapy)
   getDATA(mapx,mapy,mmx/100.0,mmy/100.0,0,0)
endfunction
function transformROT(xVp as float , yVp as float , espy as float )
  ROTATE z MATRIX4 EDITmatrix, (pi()/360.0)*espy
  set vector3 EDITvector, xVp  , yVp  ,0
  TRANSFORM coords vector3 EDITvector, EDITvector, EDITmatrix
endfunction
function transformSCA(xVp as float , yVp as float , espy as float )
  SCALE MATRIX4 EDITmatrix , 1+(espy), 1+(espy), 1
  set vector3 EDITvector, xVp  , yVp  ,0
  TRANSFORM coords vector3 EDITvector, EDITvector, EDITmatrix
endfunction
function updateUVmodify()
 lock vertexdata for mesh 1
   for g=1 to seletri
     set vertexdata uv trUV(g,1),0,trUV(g,4),trUV(g,5)
     set vertexdata uv trUV(g,2),0,trUV(g,6),trUV(g,7)
     set vertexdata uv trUV(g,3),0,trUV(g,8),trUV(g,9)
   next g
 unlock vertexdata                            
change mesh 1,0,1                                                  
change mesh 2,0,1                               
set1()                                                             
set2()                                                             
UVdataupdate(1,1)
endfunction

function newloadobject(fileobj$)
Globscale=100.0
    
     if lower$(right$(fileobj$,2))=".x"
         if file exist(left$(fileobj$,len(fileobj$)-2)+".dds")=1 then load image left$(fileobj$,len(fileobj$)-2)+".dds",ShotImg:ik resize image ShotImg,TECimagesize,TECimagesize,0
         if file exist(left$(fileobj$,len(fileobj$)-2)+"_n.dds")=1 then load image left$(fileobj$,len(fileobj$)-2)+"_n.dds",normalmap:ik resize image normalmap,TECimagesize,TECimagesize,0
         if useheightmap=1 
           if file exist(left$(fileobj$,len(fileobj$)-2)+"_n.dds")=1 then load image left$(fileobj$,len(fileobj$)-2)+"_n.dds",heightmap:ik resize image heightmap,TECimagesize,TECimagesize,0 
         endif
     endif
     if lower$(right$(fileobj$,4))=".dbo"
         if file exist(left$(fileobj$,len(fileobj$)-4)+".dds")=1 then load image left$(fileobj$,len(fileobj$)-4)+".dds",ShotImg:ik resize image ShotImg,TECimagesize,TECimagesize,0
         if file exist(left$(fileobj$,len(fileobj$)-4)+"_n.dds")=1 then load image left$(fileobj$,len(fileobj$)-4)+"_n.dds",normalmap:ik resize image normalmap,TECimagesize,TECimagesize,0
         if useheightmap=1 
           if file exist(left$(fileobj$,len(fileobj$)-4)+"_h.dds")=1 then load image left$(fileobj$,len(fileobj$)-4)+"_h.dds",heightmap:ik resize image heightmap,TECimagesize,TECimagesize,0 
         endif  
     endif
    
     
     
     for cb=1 to tri
      tris(CB).SEL=0 
     next cb
     if object exist(1)=1 then object_remove(1): delete object 1
     load object fileobj$,1,1,0

`           
make mesh from object 1,1,0
delete object 1
if memblock exist(112)=1 then delete memblock 112
make memblock from mesh 112,1
make mesh from memblock 1,112
delete memblock 112
if file exist("tst.x")=1 then delete file "tst.x"
save mesh "tst.x",1
load mesh "tst.x",1
load mesh "tst.x",240
make object 1,1

`    
     

     
     
     if object exist(2)=1 then delete object 2
     clone object 2,1
     object_add(2)
     Object_Set_Dynamic(2)
     SET2()
     
     
     object_add(1)
     Object_Set_Dynamic(1)
     set1()

     
     SYNC
     
undim indecindex()   
undim tris() 
undim trUV()
lock vertexdata for mesh 1
Ic= GET VERTEXDATA INDEX COUNT()
Vc= GET VERTEXDATA vertex COUNT()
global dim indecindex(Ic) as integer
tri=ic/3
global dim tris(tri) as triangle
global dim trUV(tri,9) as float
for i=1 to ic
  indecindex(i)=get indexdata(i-1)
next i
for h=1 to tri 
  tris(h).xa1= GET VERTEXDATA POSITION X( indecindex(h*3-2) )
  tris(h).ya1= GET VERTEXDATA POSITION y( indecindex(h*3-2) )
  tris(h).za1= GET VERTEXDATA POSITION z( indecindex(h*3-2) )
  tris(h).u1= GET VERTEXDATA u( indecindex(h*3-2) )
  tris(h).v1= GET VERTEXDATA v( indecindex(h*3-2) )
  tris(h).index1=indecindex(h*3-2)
  tris(h).xa2= GET VERTEXDATA POSITION X( indecindex(h*3-1) )
  tris(h).ya2= GET VERTEXDATA POSITION y( indecindex(h*3-1) )
  tris(h).za2= GET VERTEXDATA POSITION z( indecindex(h*3-1) )
  tris(h).u2= GET VERTEXDATA u( indecindex(h*3-1) )
  tris(h).v2= GET VERTEXDATA v( indecindex(h*3-1) )
  tris(h).index2=indecindex(h*3-1)
  tris(h).xa3= GET VERTEXDATA POSITION X( indecindex(h*3) )
  tris(h).ya3= GET VERTEXDATA POSITION y( indecindex(h*3) )
  tris(h).za3= GET VERTEXDATA POSITION z( indecindex(h*3) )
  tris(h).u3= GET VERTEXDATA u( indecindex(h*3) )
  tris(h).v3= GET VERTEXDATA v( indecindex(h*3) ) 
  tris(h).index3=indecindex(h*3) 
  tris(h).nxa1= GET VERTEXDATA normals X( indecindex(h*3-2) )
  tris(h).nya1= GET VERTEXDATA normals y( indecindex(h*3-2) )
  tris(h).nza1= GET VERTEXDATA normals z( indecindex(h*3-2) ) 
  tris(h).nxa2= GET VERTEXDATA normals X( indecindex(h*3-1) )
  tris(h).nya2= GET VERTEXDATA normals y( indecindex(h*3-1) )
  tris(h).nza2= GET VERTEXDATA normals z( indecindex(h*3-1) )
  tris(h).nxa3= GET VERTEXDATA normals X( indecindex(h*3) )
  tris(h).nya3= GET VERTEXDATA normals y( indecindex(h*3) )
  tris(h).nza3= GET VERTEXDATA normals z( indecindex(h*3) ) 
next h
UNLOCK VERTEXDATA
noRIGHT=0   


   texture object 1 ,0 ,ShotImg
   texture object 1 ,1 ,normalmap
   texture object UVobject ,0 ,ShotImg
   texture object UVobject ,1 ,normalmap
   if useheightmap=1 then texture object 1,2,heightmap

delete file "tst.x"
   setbatch()
   BatchADDcompound()
   
   
   
    
 for cc=1 to tri
    if tris(cc).u1<0 or tris(cc).v1<0 or tris(cc).u2<0 or tris(cc).v2<0 or tris(cc).u3<0 or tris(cc).v3<0
     noRIGHT=1
    endif
    if tris(cc).u1>1 or tris(cc).v1>1 or tris(cc).u2>1 or tris(cc).v2>1 or tris(cc).u3>1 or tris(cc).v3>1
     noRIGHT=1
    endif 
 next cc 
 if noRIGHT=1 
    errorMessage "The object has invalid coordinates UV. (UV coordinates are outside the image). Required to rebuild the UV data." 
 endif
 
endfunction

Function OBJSAVE()
if mcli=1
        if compilemode=compilemodeFULL
               setgadgetvisible Gadget1a,1
               setgadgetText Gadget9a,"                         Press button for save image size what you want."
               do
                 GETEVENT
                 EVT    = EVENTTYPE()
                 sou    = EVENTSOURCE()
                 dat    = EVENTDATAEX()
                 undmou = GADGETUNDERMOUSE()   
               
                 if evt= MOUSE_CLICK
                   if sou=Gadget2a
                    ISize=256: goto extDO1
                   endif
                   if sou=Gadget3a
                    ISize=512: goto extDO1
                   endif
                   if sou=Gadget4a
                    ISize=1024: goto extDO1
                   endif
                   if sou=Gadget5a
                    ISize=2048: goto extDO1
                   endif
                   if sou=Gadget6a
                    ISize=4096: goto extDO1
                   endif
                   
                 endif   
                sync
               loop
extDO1:
               setgadgetvisible Gadget1a,0
        else
         ISize=compilemodebeta
        endif
         
        FILE$=""
        FILE$=SAVEDIALOG("SAVE OBJECT File","OBJECT Files (*.DBO)|*.DBO|All Files (*.*)|*.*",olddir(1))
        olddir(1)=extract filepath$(FILE$)
        
        `make mesh from object 240,1
        
        lock vertexdata for mesh 240
           for z=1 to tri
          
          set vertexdata uv tris(z).index1,tris(z).u1, tris(z).v1
          set vertexdata uv tris(z).index2,tris(z).u2, tris(z).v2
          set vertexdata uv tris(z).index3,tris(z).u3, tris(z).v3
           next z
        unlock vertexdata

        `make mesh from object 64,1   
        make object 999,240
        
        save mesh LEFT$(FILE$,LEN(FILE$)-4)+".x",240
        SAVE OBJECT FILE$,999
        
        
        
           
        ik copy image ShotImg+5000,ShotImg
        ik copy image normalmap+5000,normalmap 
        if useheightmap=1 then ik copy image heightmap+5000,normalmap 
         
        ik resize image ShotImg+5000, ISize,ISize,0
        ik resize image normalmap+5000, ISize,ISize,0
        if useheightmap=1 then ik resize image heightmap+5000, ISize,ISize,0
           
        save image LEFT$(FILE$,LEN(FILE$)-4)+".DDS"  ,ShotImg+5000
        save image LEFT$(FILE$,LEN(FILE$)-4)+"_N.DDS"  ,normalmap+5000 
        if useheightmap=1 then save image LEFT$(FILE$,LEN(FILE$)-4)+"_H.DDS"  ,heightmap+5000 
          
        delete image ShotImg+5000
        delete image normalmap+5000
        if useheightmap=1 then delete image heightmap+5000
        
        `delete mesh 64
        delete object 999
     
        setGadgetVisible glo, 1
        
              tnamebb$=extract FILENAME$(FILE$)
              tname$=LEFT$(tnamebb$,LEN(tnamebb$)-4)
              entfile$=LEFT$(FILE$,LEN(FILE$)-4)+".fpe"
              
              aimain$= "default.fpi"
              tcorrectypos=0
              tscale=100
              tcorrectyaxis=0
              tstatic=1
              tmaterial=3
              tcollision=1
              tstrength=0
              timmobile=0
              texname$=tname$+".dds"
        
        setgadgettext Gadget2,"   header :   desc= "+tname$
        
        setgadgettext Gadget5,"appear1.fpi"
        setgadgettext Gadget7,aimain$
        setgadgettext Gadget9,"disappear1.fpi"
        
        setgadgettext Gadget12,"0"
        setgadgettext Gadget14,"0"
        setgadgettext Gadget16,"0" 
        
        setGadgetText Gadget19,texname$
        setGadgetText Gadget21,""
        setGadgetText Gadget23,"0"
        
        setGadgetText Gadget39,tname$+".dbo"
        setGadgetText Gadget40,"0"
        setGadgetText Gadget41,"0"
        setGadgetText Gadget42,"0"
        setGadgetText Gadget43,"0"
        setGadgetText Gadget44,"0"
        setGadgetText Gadget45,"0"
        setGadgetText Gadget46,"100"
        setGadgetText Gadget47,"0"
        setGadgetText Gadget48,"1"
        setGadgetText Gadget49,"3"
        setGadgetText Gadget50,"1"
        setGadgetText Gadget51,"0"
        setGadgetText Gadget52,"0"
        
        do
          GETEVENT
          EVT    = EVENTTYPE()
          sou    = EVENTSOURCE()
          dat    = EVENTDATAEX()
          undmou = GADGETUNDERMOUSE()   
          
          if evt= MOUSE_CLICK
            if sou=Gadget53
             goto extDO
            endif
            if sou=Gadget54
               setgadgettext Gadget2,"   header :   desc= "+tname$ : setgadgettext Gadget5,"appear1.fpi":setgadgettext Gadget7,aimain$:setgadgettext Gadget9,"disappear1.fpi"
               setgadgettext Gadget12,"0":setgadgettext Gadget14,"0":setgadgettext Gadget16,"0" :setGadgetText Gadget19,texname$
               setGadgetText Gadget21,"":setGadgetText Gadget23,"0":setGadgetText Gadget39,tname$+".dbo":setGadgetText Gadget40,"0"
               setGadgetText Gadget41,"0":setGadgetText Gadget42,"0":setGadgetText Gadget43,"0":setGadgetText Gadget44,"0":setGadgetText Gadget45,"0"
               setGadgetText Gadget46,"100":setGadgetText Gadget47,"0":setGadgetText Gadget48,"1":setGadgetText Gadget49,"3":setGadgetText Gadget50,"1"
               setGadgetText Gadget51,"0":setGadgetText Gadget52,"0"
               selectItem combo1,0
               selectItem combo2,0
            endif
          endif
          
          if selectedItem(combo1)<>olditem1
           olditem1=selectedItem(combo1)
           setGadgetText Gadget49,str$( selectedItem(combo1)+1 )
          endif
          if selectedItem(combo2)<>olditem2
           olditem2=selectedItem(combo2)
           setGadgetText Gadget50,str$( selectedItem(combo2) )
          endif
          
         sync
        loop
     extDO:     
        setGadgetVisible glo, 0
         
              global dim datastring$(40) : i=0
              datastring$(i)=";header" : inc i
              datastring$(i)="desc          = "+tname$ : inc i
              datastring$(i)="" : inc i
              
              datastring$(i)=";ai" : inc i
              datastring$(i)="aiinit         = appear1.fpi" : inc i
              datastring$(i)="aimain         = "+aimain$ : inc i
              datastring$(i)="aidestroy      = disappear1.fpi" : inc i
              
              datastring$(i)="" : inc i
              datastring$(i)=";spawn" : inc i
              datastring$(i)="spawnmax      = "+getgadgettext(Gadget12) : inc i
              datastring$(i)="spawndelay    = "+getgadgettext(Gadget14) : inc i
              datastring$(i)="spawnqty      = "+getgadgettext(Gadget16) : inc i
              
              datastring$(i)="" : inc i
              datastring$(i)=";orientation" : inc i
              datastring$(i)="" : inc i
              datastring$(i)="model         = "+tname$+".dbo" : inc i
              datastring$(i)="offx          = "+getgadgettext(Gadget40): inc i
              datastring$(i)="offy          = "+getgadgettext(Gadget41) : inc i
              datastring$(i)="offz          = "+getgadgettext(Gadget42) : inc i
              datastring$(i)="rotx          = "+getgadgettext(Gadget43) : inc i
              datastring$(i)="roty          = "+getgadgettext(Gadget44) : inc i
              datastring$(i)="rotz          = "+getgadgettext(Gadget45) : inc i
              datastring$(i)="scale         = "+getgadgettext(Gadget46) : inc i
              datastring$(i)="fixnewy       = "+getgadgettext(Gadget47) : inc i
              datastring$(i)="defaultstatic = "+getgadgettext(Gadget48) : inc i         
              datastring$(i)="materialindex = "+getgadgettext(Gadget49) : inc i         
              datastring$(i)="collisionmode = "+getgadgettext(Gadget50) : inc i
              datastring$(i)="strength      = "+getgadgettext(Gadget51) : inc i
              datastring$(i)="isimmobile    = "+getgadgettext(Gadget52) : inc i
              
              datastring$(i)="soundset      = "+sound0$ : inc i
              datastring$(i)="soundset1     = "+sound1$ : inc i
              datastring$(i)="" : inc i
              datastring$(i)=";visualinfo" : inc i
              datastring$(i)="" : inc i
     
              datastring$(i)="textured      = "+texname$ : inc i
              datastring$(i)="effect        = " : inc i
              datastring$(i)="castshadow    = 0" : inc i
              datastring$(i)="" : inc i
              datastring$(i)=";Animationinfo" : inc i
     
              if tanimframes>0
               datastring$(i)="animmax       = 1" : inc i
              else
               datastring$(i)="animmax       = 0" : inc i
              endif
              datastring$(i)="anim0         = 0,"+str$(tanimframes) : inc i
              
              if len(entfile$)>1
               if file exist(entfile$)=1 then delete file entfile$
               save array entfile$,datastring$()
              endif
              undim datastring$()
              
              WRITE TO CLIPBOARD FILE$
              
              id=execute executable("IconShot.exe","","")
             while executable running(id)=1
              if spacekey()=1 then stop executable id
             endwhile
     
              
       
       ENDIF
endfunction

`Create User Interface
`---------------------
function UISAVEimage()
    Gadget1a=createWindow(sw/2 -181,  sh-86 ,392,86,"Press button",WINDOWNORMAL,WINDOWTOOLWINDOW,0,0)    
    Gadget2a=createButton(5,26,75,25,"256x256",0,Gadget1a)
    Gadget3a=createButton(80,26,75,25,"512x512",0,Gadget1a)
    Gadget4a=createButton(155,26,75,25,"1024x1024",0,Gadget1a)
    Gadget5a=createButton(230,26,75,25,"2048x2048",0,Gadget1a)
    Gadget6a=createButton(305,26,75,25,"4096x4096",0,Gadget1a)
    Gadget7a=createPanel(4,2,376,22,Gadget1a)
    setPanelBorderStyle Gadget7a,1    
    Gadget8a=createPanel(0,0,374,20,Gadget7a)
    setPanelBorderStyle Gadget8a,3    
    Gadget9a=createPanel(-1,-1,372,18,Gadget8a)
    setPanelBorderStyle Gadget9a,3
    setgadgetText Gadget9a,"                         Press button for export image size what you want."
    setgadgetvisible Gadget1a,0
endfunction



`Create User Interface
`---------------------
function saveUI()
  
  global glo as integer
  glo= createWindow( sw ,  sh , 434, 284, "", WINDOWNORMAL , WINDOWTOOLWINDOW, 0, mainbb )
    
    Gadget1=glo    
    Gadget2=createPanel(6,3,180,16,Gadget1) 
       setgadgettext Gadget2,"   header :   desc= "+desc$
    Gadget3=createPanel(6,22,180,62,Gadget1)
    setPanelBorderStyle Gadget3,1
    setPanelBorderStyle Gadget2,1    
    Gadget4=createPanel(3,4,50,16,Gadget3)    
    Gadget5=createEdit(55,4,120,16,0,Gadget3)
    
    Gadget6=createPanel(3,22,50,16,Gadget3)    
    Gadget7=createEdit(55,22,120,16,0,Gadget3)
    
    Gadget8=createPanel(3,40,50,16,Gadget3)    
    Gadget9=createEdit(55,40,120,16,0,Gadget3)    
    setPanelBorderStyle Gadget4,1
    setPanelBorderStyle Gadget6,1
    setPanelBorderStyle Gadget8,1
    
    Gadget10=createPanel(6,87,180,60,Gadget1)
    setPanelBorderStyle Gadget10,1    
    Gadget11=createPanel(3,3,70,16,Gadget10)    
    Gadget12=createEdit(75,3,100,16,0,Gadget10)
    
    Gadget13=createPanel(3,21,70,16,Gadget10)    
    Gadget14=createEdit(75,21,100,16,0,Gadget10)
    
    Gadget15=createPanel(3,39,70,16,Gadget10)    
    Gadget16=createEdit(75,39,100,16,0,Gadget10)
    setPanelBorderStyle Gadget11,1
    setPanelBorderStyle Gadget13,1
    setPanelBorderStyle Gadget15,1    
    
    Gadget17=createPanel(6,149,180,60,Gadget1)
    setPanelBorderStyle Gadget17,1    
    Gadget18=createPanel(3,3,70,16,Gadget17)    
    Gadget19=createEdit(75,3,100,16,0,Gadget17)
    
    Gadget20=createPanel(3,21,70,16,Gadget17)    
    Gadget21=createEdit(75,21,100,16,0,Gadget17)
    
    Gadget22=createPanel(3,39,70,16,Gadget17)    
    Gadget23=createEdit(75,39,100,16,0,Gadget17)    
    setPanelBorderStyle Gadget18,1
    setPanelBorderStyle Gadget20,1
    setPanelBorderStyle Gadget22,1
    
    setgadgettext Gadget4 ,"  aiinit"
    setgadgettext Gadget6 ,"  aimain"
    setgadgettext Gadget8 ,"  aidestroy"
    setgadgettext Gadget11,"  spawnmax"
    setgadgettext Gadget13,"  spawndelay"
    setgadgettext Gadget15,"  spawnqty"
    setgadgettext Gadget18,"  textured"
    setgadgettext Gadget20,"  effect"
    setgadgettext Gadget22,"  castshadow"
     
     
    
    Gadget24=createPanel(191,3,230,244,Gadget1)
     
    Gadget25=createPanel(3,3,100,16,Gadget24)    
    Gadget26=createPanel(3,20,100,16,Gadget24)    
    Gadget27=createPanel(3,37,100,16,Gadget24)    
    Gadget28=createPanel(3,54,100,16,Gadget24)    
    Gadget29=createPanel(3,71,100,16,Gadget24)    
    Gadget30=createPanel(3,88,100,16,Gadget24)       
    Gadget31=createPanel(3,105,100,16,Gadget24)       
    Gadget32=createPanel(3,122,100,16,Gadget24)        
    Gadget33=createPanel(3,139,100,16,Gadget24)      
    Gadget34=createPanel(3,156,100,16,Gadget24)       
    Gadget35=createPanel(3,173,100,16,Gadget24)        
    Gadget36=createPanel(3,190,100,16,Gadget24)       
    Gadget37=createPanel(3,207,100,16,Gadget24)       
    Gadget38=createPanel(3,224,100,16,Gadget24)
     
    setPanelBorderStyle Gadget24,1   
    setPanelBorderStyle Gadget25,1
    setPanelBorderStyle Gadget26,1
    setPanelBorderStyle Gadget27,1
    setPanelBorderStyle Gadget28,1
    setPanelBorderStyle Gadget29,1
    setPanelBorderStyle Gadget30,1 
    setPanelBorderStyle Gadget31,1 
    setPanelBorderStyle Gadget32,1
    setPanelBorderStyle Gadget33,1  
    setPanelBorderStyle Gadget34,1 
    setPanelBorderStyle Gadget35,1
    setPanelBorderStyle Gadget36,1 
    setPanelBorderStyle Gadget37,1 
    setPanelBorderStyle Gadget38,1
    
    setgadgettext Gadget25,"  model"
    setgadgettext Gadget26,"  offx"
    setgadgettext Gadget27,"  offy"
    setgadgettext Gadget28,"  offz"
    setgadgettext Gadget29,"  rotx"
    setgadgettext Gadget30,"  roty"
    setgadgettext Gadget31,"  rotz"
    setgadgettext Gadget32,"  scale"
    setgadgettext Gadget33,"  fixnewy"
    setgadgettext Gadget34,"  defaultstatic"
    setgadgettext Gadget35,"  materialindex"
    setgadgettext Gadget36,"  collisionmode"
    setgadgettext Gadget37,"  strength"
    setgadgettext Gadget38,"  isimmobile"
     
        
    Gadget39=createEdit(105,3,120,16,0,Gadget24)
    Gadget40=createEdit(105,20,120,16,0,Gadget24)
    Gadget41=createEdit(105,37,120,16,0,Gadget24)
    Gadget42=createEdit(105,54,120,16,0,Gadget24)
    Gadget43=createEdit(105,71,120,16,0,Gadget24)
    Gadget44=createEdit(105,88,120,16,0,Gadget24)
    Gadget45=createEdit(105,105,120,16,0,Gadget24)
    Gadget46=createEdit(105,122,120,16,0,Gadget24)
    Gadget47=createEdit(105,139,120,16,0,Gadget24)
    Gadget48=createEdit(105,156,120,16,0,Gadget24)
    Gadget49=createEdit(105,173,30,16,0,Gadget24)
    Gadget50=createEdit(105,190,30,16,0,Gadget24)
    Gadget51=createEdit(105,207,120,16,0,Gadget24)
    Gadget52=createEdit(105,224,120,16,0,Gadget24)

    setReadOnly Gadget39,1 
    setReadOnly Gadget19,1 
    
    Gadget53=createButton(5,212,75,36,"SAVE",0,Gadget1)
    Gadget54=createButton(86,212,100,36,"SET  DEFAULT",0,Gadget1)

    global combo1
    combo1=createComboBox(137,172,88,16,Gadget24)    
    addItem combo1,"soft"
    addItem combo1,"stone"
    addItem combo1,"metal"
    addItem combo1,"wood"
    addItem combo1,"glass"
    addItem combo1,"liquid"
    addItem combo1,"cloth"
    selectItem combo1,0
    global combo2
    combo2=createComboBox(137,190,88,16,Gadget24)    
    addItem combo2,"box"
    addItem combo2,"polygons"
    addItem combo2,"reduced"
    addItem combo2,"cylinder"
    addItem combo2,"sphere"
    selectItem combo2,0
    global olditem1
    global olditem2
    olditem1=-1
    olditem2=-1


endfunction

function scIMTL(matimgSCALE as integer)
 if OldMat>0 and OldMat<>matimgSCALE
  delete image OldMat
  delete image OldMat+8000
  IF USEHEIGHTMAP=1 THEN delete image OldMat+8001
  OldMat=matimgSCALE
 else
  OldMat=matimgSCALE
 endif
 matimg=matimgSCALE
 load image matlibnamefile(matimgSCALE),matimgSCALE
 load image matlibnamefileN(matimgSCALE),matimgSCALE+8000
 load image matlibnamefile(matimgSCALE),matimgSCALE+8100
 IF USEHEIGHTMAP=1 THEN load image matlibnamefileH(matimgSCALE),matimgSCALE+8001
 ik resize image matimgSCALE,TECimagesize,TECimagesize,0     
 ik resize image matimgSCALE+8000,TECimagesize,TECimagesize,0
 ik resize image matimgSCALE+8100,64,64,0
 IF USEHEIGHTMAP=1 THEN ik resize image matimgSCALE+8001,TECimagesize,TECimagesize,0
 ik copy image 60800,matimgSCALE+8100
 delete image matimgSCALE+8100
 ik copy image 60500,matimgSCALE
 IK Resize Image 60500, 55, 55, 0 
 ik copy image 60500+matimgSCALE,matimgSCALE
 IK Resize Image 60500+matimgSCALE, 55, 55, 0
 SPRITE 60500+matimgSCALE,90+((matimgSCALE-1)*60),3,60500+matimgSCALE
 set sprite priority 60500+matimgSCALE,1
endfunction

function openLISTmat(mat)
 setGadgetVisible UI_libMATICON,1
 positionGadget UI_libMATICON, 100  ,  120 
 
 matimg=mat
 do
  
     GETEVENT
     EVT    = EVENTTYPE()
     sou    = EVENTSOURCE()
     datF   = eventData()
     dat    = EVENTDATAEX()
     undmou = GADGETUNDERMOUSE()   
     
     
     if evt=LEFTBUTTONDOUBLECLICK
      if sou=listViewMATicon
       
       item=selectedListViewItem(listViewMATicon) 
       Filename$ =  matPATH + "\" +catsMATLIST(item)
       nm$=left$(Filename$,len(Filename$)-4)+"_n.dds"
       IF USEHEIGHTMAP=1 THEN Hm$=left$(Filename$,len(Filename$)-4)+"_H.dds"
       matlibnamefile(matimg)=Filename$
       matlibnamefileN(matimg)=nm$
       IF USEHEIGHTMAP=1 THEN matlibnamefileH(matimg)=Hm$
       scIMTL(matimg)
       setGadgetVisible UI_libMATICON,0
       exitfunction
      endif
     endif
  
  sync
 loop
 
 
endfunction


function creatematlist()
   global MaterialNamewithTYPE as string
   global UI_libMATICON as integer
   gw=display width()-120
   gh=display height()-240
   UI_libMATICON= createWindow( sw  ,  sh , gw, gh, "Materials list         (doubleclick for select material)", WINDOWtoolWINDOW , WINDOWtoolWINDOW, 0, mainbb )
   setGadgetVisible UI_libMATICON,0
   
   global UI_listViewMATicon as integer
   `Create the new ListView gadget
   global listViewMATicon as integer
   listViewMATicon=createListView(0,0,gw-8,gh-26 ,UI_libMATICON)
   global imageListMATICON as integer
   imageListMATICON=createImageList(64,64)
   global dim catsMATLIST(2000) as string
   
   
          set dir matPATH
          find first
          repeat
           MaterialNamewithTYPE=get file name$()
           rgh$="":nm$=""
           if right$(MaterialNamewithTYPE,4)=".dds" then nm$=left$(MaterialNamewithTYPE,len(MaterialNamewithTYPE)-4)
           rgh$=right$(nm$,2)
           if get file type()<>-1 and get file type()=0 and right$(MaterialNamewithTYPE,4)=".dds" and lower$(rgh$)<>"_n"
                countb=countb+1
           endif
           find next
          until get file type()=-1
   
   
   
   set dir matPATH   
   set text font "veranda"
   count=0
   find first
   repeat
    MaterialNamewithTYPE=get file name$()
    rgh$=""
    if right$(MaterialNamewithTYPE,4)=".dds" then nm$=left$(MaterialNamewithTYPE,len(MaterialNamewithTYPE)-4)
    rgh$=right$(nm$,2)
    if get file type()<>-1 and get file type()=0 and right$(MaterialNamewithTYPE,4)=".dds" and lower$(rgh$)<>"_n"
      catsMATLIST(count)= MaterialNamewithTYPE
      MaterialNameNoTYPE$=left$(catsMATLIST(count),len(catsMATLIST(count))-3)+"bmp"
      
      if file exist(MaterialNameNoTYPE$)=1
         load image MaterialNameNoTYPE$,38812,1
        addImageListItem imageListMATICON,38812  
        count=count+1
        
        sprite 500000,0,100,500000
        sprite 500001,(screen width()/2)-320,(screen height()/2)-240,500001
        sprite 100,10,10,38812 
        set sprite priority 100,10
        set sprite priority 500000,0
        set sprite priority 500001,0
        d3d_box 8,8,76,76
        text 90,10,"WAIT - material library create -"+str$(count)+" of "+str$(countb)
        text 90,30,MaterialNameNoTYPE$
        
        sync
      else
        load image catsMATLIST(count),38812,1
        ik resize image 38812,64,64,0
        addImageListItem imageListMATICON,38812  
        count=count+1
        save image MaterialNameNoTYPE$,38812
        
        sprite 500000,0,100,500000
        sprite 500001,(screen width()/2)-320,(screen height()/2)-240,500001
        sprite 100,10,10,38812 
        set sprite priority 100,10
        set sprite priority 500000,0
        set sprite priority 500001,0
        d3d_box 8,8,76,76
        text 90,10,"WAIT - material library create -"+str$(count)+" of "+str$(countb)
        text 90,30,MaterialNameNoTYPE$
        sync

      endif
    endif
    find next
    
   until get file type()=-1
   
   set dir glavcat
   setListViewImageList listViewMATicon,imageListMATICON
   for i=0 to count
          addListViewItem listViewMATicon,catsMATLIST(i),i
   next i 
 `positionGadget UI_libMATICON, 100  ,  120  
 delete sprite 100
endfunction

FUNCTION BatchADDcompound()

exitfunction
local dim tscheck(9) as integer
 
IF UVMODE=1
 for ppgxc=1 to tri
   if tris(ppgxc).sel=1
     for Appgas=1 to tri         
       if tris(Appgas).sel=0
         for tch=1 to 9
          tscheck(tch)=0
         next tch    
         sum1=0
         sum2=0
         ax#=0
         ay#=0
         bx#=0
         by#=0
         if tris(ppgxc).xa1=tris(Appgas).xa1 and tris(ppgxc).ya1=tris(Appgas).ya1 and tris(ppgxc).za1=tris(Appgas).za1 
         D3D_BATCH_ADD_dot3D  tris(Appgas).u1*200 ,200-( tris(Appgas).v1*200 ) ,99.99 ,  RGB(255,255,255,255)
          tscheck(1)=1
         endif
         if tris(ppgxc).xa1=tris(Appgas).xa2 and tris(ppgxc).ya1=tris(Appgas).ya2 and tris(ppgxc).za1=tris(Appgas).za2
         D3D_BATCH_ADD_dot3D  tris(Appgas).u2*200 ,200-( tris(Appgas).v2*200 ) ,99.99 ,  RGB(255,255,255,255)
          tscheck(2)=1
         endif
         if tris(ppgxc).xa1=tris(Appgas).xa3 and tris(ppgxc).ya1=tris(Appgas).ya3 and tris(ppgxc).za1=tris(Appgas).za3
         D3D_BATCH_ADD_dot3D  tris(Appgas).u3*200 ,200-( tris(Appgas).v3*200 ) ,99.99 ,  RGB(255,255,255,255)
          tscheck(3)=1
         endif 
         `                                                    
         if tris(ppgxc).xa2=tris(Appgas).xa1 and tris(ppgxc).ya2=tris(Appgas).ya1 and tris(ppgxc).za2=tris(Appgas).za1 
         D3D_BATCH_ADD_dot3D  tris(Appgas).u1*200 ,200-( tris(Appgas).v1*200 ) ,99.99 ,  RGB(255,255,255,255)
          tscheck(4)=1
         endif
         if tris(ppgxc).xa2=tris(Appgas).xa2 and tris(ppgxc).ya2=tris(Appgas).ya2 and tris(ppgxc).za2=tris(Appgas).za2
         D3D_BATCH_ADD_dot3D  tris(Appgas).u2*200 ,200-( tris(Appgas).v2*200 ) ,99.99 ,  RGB(255,255,255,255)
          tscheck(5)=1
         endif
         if tris(ppgxc).xa2=tris(Appgas).xa3 and tris(ppgxc).ya2=tris(Appgas).ya3 and tris(ppgxc).za2=tris(Appgas).za3
         D3D_BATCH_ADD_dot3D  tris(Appgas).u3*200 ,200-( tris(Appgas).v3*200 ) ,99.99 ,  RGB(255,255,255,255)
          tscheck(6)=1
         endif 
         `                                                    
         if tris(ppgxc).xa3=tris(Appgas).xa1 and tris(ppgxc).ya3=tris(Appgas).ya1 and tris(ppgxc).za3=tris(Appgas).za1 
         D3D_BATCH_ADD_dot3D  tris(Appgas).u1*200 ,200-( tris(Appgas).v1*200 ) ,99.99 ,  RGB(255,255,255,255)
          tscheck(7)=1
         endif
         if tris(ppgxc).xa3=tris(Appgas).xa2 and tris(ppgxc).ya3=tris(Appgas).ya2 and tris(ppgxc).za3=tris(Appgas).za2
         D3D_BATCH_ADD_dot3D  tris(Appgas).u2*200 ,200-( tris(Appgas).v2*200 ) ,99.99 ,  RGB(255,255,255,255)
          tscheck(8)=1
         endif
         if tris(ppgxc).xa3=tris(Appgas).xa3 and tris(ppgxc).ya3=tris(Appgas).ya3 and tris(ppgxc).za3=tris(Appgas).za3
         D3D_BATCH_ADD_dot3D  tris(Appgas).u3*200 ,200-( tris(Appgas).v3*200 ) ,99.99 ,  RGB(255,255,255,255)
          tscheck(9)=1
         endif
         for tch3=1 to 9
          if tscheck(tch3)=1 and sum1>0 
            sum2=tch3
          endif
          if tscheck(tch3)=1 and sum1=0 
            sum1=tch3
          endif          
         next tch3
         if sum1>0 and sum2>0
          if sum1=1 or sum1=4 or sum1=7
           ax#=tris(Appgas).u1
           ay#=tris(Appgas).v1
          endif
          if sum1=2 or sum1=5 or sum1=8
           ax#=tris(Appgas).u2
           ay#=tris(Appgas).v2
          endif
          if sum1=3 or sum1=6 or sum1=9
           ax#=tris(Appgas).u3
           ay#=tris(Appgas).v3
          endif
          
          if sum2=1 or sum2=4 or sum2=7
           bx#=tris(Appgas).u1
           by#=tris(Appgas).v1
          endif
          if sum2=2 or sum2=5 or sum2=8
           bx#=tris(Appgas).u2
           by#=tris(Appgas).v2
          endif
          if sum2=3 or sum2=6 or sum2=9
           bx#=tris(Appgas).u3
           by#=tris(Appgas).v3
          endif 
          D3D_BATCH_ADD_LINE3D  ax#*200,200-(ay#*200 ),99.98,bx#*200,200-(by#*200),99.98,RGB(255,255,255,255)

         endif
         
       endif
     next Appgas
   endif
 next ppgxc
endif

undim tscheck() 

endfunction




function setbatch()
  texture object UVobject ,0 ,ShotImg
  texture object UVobject ,1 ,normalmap
  set object transparency UVobject,3
  D3D_BATCH_SET_LINE3D 60000
  D3D_BATCH_SET_DOT3D 60000
  D3D_BATCH_SET_DOT3D_SIZE 6
  IF UVMODE=1
   for ppg=1 to tri
      if tris(ppg).SEL=0
        
        
        
        
        
        D3D_BATCH_ADD_LINE3D  tris(ppg).u1*200 ,200-( tris(ppg).v1*200 )    ,99.99    ,tris(ppg).u2*200     ,200-(tris(ppg).v2*200)    ,99.99    ,RGB(255,0,0,255)
        D3D_BATCH_ADD_LINE3D  tris(ppg).u2*200 ,200-( tris(ppg).v2*200 )    ,99.99    ,tris(ppg).u3*200     ,200-(tris(ppg).v3*200)    ,99.99    ,RGB(255,0,0,255)
        D3D_BATCH_ADD_LINE3D  tris(ppg).u3*200 ,200-( tris(ppg).v3*200 )    ,99.99    ,tris(ppg).u1*200     ,200-(tris(ppg).v1*200)    ,99.99    ,RGB(255,0,0,255)
 
 
      
      endif
   next ppg
  endif
  
  for HCCB=1 to tri
     if tris(HCCB).SEL=1
       IF UVMODE=1
           D3D_BATCH_ADD_LINE3D  tris(HCCB).u1*200 ,200-( tris(HCCB).v1*200 )    ,99.99    ,tris(HCCB).u2*200     ,200-(tris(HCCB).v2*200)    ,99.99    ,RGB(255,0,255,0)
        D3D_BATCH_ADD_LINE3D  tris(HCCB).u2*200 ,200-( tris(HCCB).v2*200 )    ,99.99    ,tris(HCCB).u3*200     ,200-(tris(HCCB).v3*200)    ,99.99    ,RGB(255,0,255,0)
        D3D_BATCH_ADD_LINE3D  tris(HCCB).u3*200 ,200-( tris(HCCB).v3*200 )    ,99.99    ,tris(HCCB).u1*200     ,200-(tris(HCCB).v1*200)    ,99.99    ,RGB(255,0,255,0)
        
////        D3D_BATCH_ADD_DOT3D tris(HCCB).u1*200  ,200-( tris(HCCB).v1*200 )    ,99.99   , RGB(255,255,0,0)
////        D3D_BATCH_ADD_DOT3D tris(HCCB).u2*200  ,200-( tris(HCCB).v2*200 )    ,99.99   , RGB(255,0,255,0)
////        D3D_BATCH_ADD_DOT3D tris(HCCB).u3*200  ,200-( tris(HCCB).v3*200 )    ,99.99   , RGB(255,0,0,255)
       endif
       
       D3D_BATCH_ADD_LINE3D (tris(HCCB).xa1) ,(tris(HCCB).ya1),(tris(HCCB).za1)  ,(tris(HCCB).xa2) ,(tris(HCCB).ya2),(tris(HCCB).za2) ,RGB(255,0,255,255),RGB(128,0,255,0)
       D3D_BATCH_ADD_LINE3D (tris(HCCB).xa2) ,(tris(HCCB).ya2),(tris(HCCB).za2)  ,(tris(HCCB).xa3) ,(tris(HCCB).ya3),(tris(HCCB).za3) ,RGB(255,0,255,255),RGB(128,0,255,0)
       D3D_BATCH_ADD_LINE3D (tris(HCCB).xa3) ,(tris(HCCB).ya3),(tris(HCCB).za3)  ,(tris(HCCB).xa1) ,(tris(HCCB).ya1),(tris(HCCB).za1) ,RGB(255,0,255,255),RGB(128,0,255,0)
       
       
     endif
  next HCCB 

endfunction

function refilter()
 filterMODE=1-filterMODE
 if filterMODE=0
   set object effect 1,16
   texture object 1 ,0 ,ShotImg
   texture object 1 ,1 ,normalmap
   texture object UVobject ,0 ,ShotImg
   texture object UVobject ,1 ,normalmap
   if useheightmap=1 then texture object 1,2,heightmap
   set object filter 1,filterMODE
  
 endif
 if filterMODE=1
   set object effect 1,15
   texture object 1 ,0 ,ShotImg
   texture object 1 ,1 ,normalmap
   texture object UVobject ,0 ,ShotImg
   texture object UVobject ,1 ,normalmap
   if useheightmap=1 then texture object 1,2,heightmap
   set object filter 1,filterMODE
  
 endif
 sleep 500
endfunction



function SET2()
     set object cull 2,0
     set object effect 2,16
     texture object 2,0,30
     enable object zbias 2,0,zbia2
     SET OBJECT TRANSPARENCY 2, transpmode
     set object filter 2,0
endfunction

function SET1()
     set object cull 1,0
     set object effect 1,15
     texture object 1,0,ShotImg
     texture object 1,1,normalmap
     if useheightmap=1 then texture object 1,2,heightmap
     enable object zbias 1,0,zbia1
     SET OBJECT TRANSPARENCY 1,transpmode
endfunction

function triselect(selXsc1b#,selysc1b#,selXsc2b#,selYsc2b#) 
 for g=1 to tri
   intri=0
   tris(g).SEL=0
    if tris(g).u1>selXsc1b# and tris(g).u1<selXsc2b# and tris(g).v1>selysc1b# and tris(g).v1<selYsc2b# then intri=intri+1
    if tris(g).u2>selXsc1b# and tris(g).u2<selXsc2b# and tris(g).v2>selysc1b# and tris(g).v2<selYsc2b# then intri=intri+1
    if tris(g).u3>selXsc1b# and tris(g).u3<selXsc2b# and tris(g).v3>selysc1b# and tris(g).v3<selYsc2b# then intri=intri+1
   if intri=3 then tris(g).SEL=1 : tmmpexitTriangle(g)
 next g
 setbatch()
 BatchADDcompound()
 makeuvEMITdata(0,0) 
endfunction
rem S triangle
function Stri(xap1 as float ,yap1 as float ,xap2 as float ,yap2 as float ,xap3 as float ,yap3 as float ) 
local pppa as float 
local paa as float
local pbb as float
local pcc as float 
local alltribb as float 
  paa=Sqrt((xap1-xap2)^2+(0.0-0.0)^2+(yap1-yap2)^2)
  pbb=Sqrt((xap2-xap3)^2+(0.0-0.0)^2+(yap2-yap3)^2)
  pcc=Sqrt((xap3-xap1)^2+(0.0-0.0)^2+(yap3-yap1)^2)
  pppa=(paa+pbb+pcc)/2.0
  alltribb=sqrt(pppa*(pppa-paa)*(pppa-pbb)*(pppa-pcc)) 
endfunction alltribb
function DistLineFUNC( ux1# as float, uy1# as float, uz1# as float, ux2# as float, uy2# as float, uz2# as float )
    dix# = Abs(Sqrt((ux1# - ux2#) ^ 2 + (uy1# - uy2#) ^ 2 + (uz1# - uz2#) ^ 2))
endfunction dix#
function onplane( in1 as float,in2 as float,in3 as float,in4 as float,in5 as float,in6 as float,in7 as float,in8 as float,in9 as float,in10 as float,in11 as float,in12 as float   )
  Aver.x = in1  : Aver.y = in2  : Aver.z = in3
  Bj.x = in4  : Bj.y = in5  : Bj.z = in6
  Cj.x = in7  : Cj.y = in8  : Cj.z = in9
  Pj.x = in10 : Pj.y = in11 : Pj.z = in12
  setVector3(11, Aver)
  setVector3(12, Bj)
  setVector3(13, Cj)
  setVector3(17, Pj)
  subtract vector3 15, 12, 11
  subtract vector3 16, 13, 11 
  subtract vector3 18, 17, 11 
  cross product vector3 14,15,16
  normalize vector3 14,14 
  w# = dot product vector3 (18, 14) 
endfunction w#
function PinTRI()
  A11# = dot product vector3(15, 15)
  A12# = dot product vector3(15, 16)
  A22# = dot product vector3(16, 16)
  B1# = dot product vector3(15, 18)
  B2# = dot product vector3(16, 18)  
  factor# = 100000.0/max(A11#, A22#)
  A11# = A11#*factor#
  A12# = A12#*factor#
  A22# = A22#*factor#
  B1# = B1#*factor#
  B2# = B2#*factor#  
  det# = A11#*A22# - A12#*A12#  
  if abs(det#) > tolerance#
    u# = (A22#*B1# - A12#*B2#)/det#
    v# = (-A12#*B1# + A11#*B2#)/det#    
  else
    set cursor 200,200
    ink rgb(255, 0, 0)
    print " triangle may be degenerate - check vertices:"
    print " A = ", Aver.x, " ", Aver.y, " ", Aver.z
    print " B = ", Bj.x, " ", Bj.y, " ", Bj.z
    print " C = ", Cj.x, " ", Cj.y, " ", Cj.z
  endif  
  if (u# >= -tolerance#) and (v# >= -tolerance#) and (u#+v# <= 1.0+tolerance#)
    exitfunction 1
  endif
endfunction 0
function setVector3(id, V as vertex)
  set vector3 id, V.x, V.y, V.z
endfunction
function PointInTRI(pv as vect,av as vect,bv as vect,cv as vect)
   v1 as integer:v2 as integer:v3 as integer:v1=SameSide(pv,av,bv,cv):v2=SameSide(pv,bv,av,cv):v3=SameSide(pv,cv,av,bv)
   if v1=1 and v2=1 and v3=1
      result=1
   else
      result=0
   endif
endfunction result
function SameSide(p1 as vect,p2 as vect,av as vect,bv as vect)
   t1 as vect : t2 as vect : t3 as vect
   r1 as vect : r2 as vect
   dotp as float
   t1.x=bv.x-av.x
   t1.y=bv.y-av.y
   t2.x=p1.x-av.x
   t2.y=p1.y-av.y
   t3.x=p2.x-av.x
   t3.y=p2.y-av.y
   r1.z=(t1.x*t2.y) - (t1.y*t2.x)
   r2.z=(t1.x*t3.y) - (t1.y*t3.x)
   dotp=(r1.z*r2.z)
   if dotp>=0
      result=1
   else
      result=0
   endif
endfunction result
function PointInTriangle(  x as float, y as float, x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float)
      local AB as float
      local BCa2 as float
      local CA as float   
      AB = ((y-y1)*(x2-x1)) - ((x-x1)*(y2-y1))
      BCa2 = ((y-y2)*(x3-x2)) - ((x-x2)*(y3-y2))
      if AB * BCa2 <= 0 then exitfunction 0   
      CA = (y-y3)*(x1-x3) - (x-x3)*(y1-y3)
      if BCa2 * CA <= 0 then exitfunction 0
endfunction 1
function GetVertexPOS()
   lock vertexdata for mesh 1
   for h=1 to tri 
     tris(h).xa1= GET VERTEXDATA POSITION X( indecindex(h*3-2) )
     tris(h).ya1= GET VERTEXDATA POSITION y( indecindex(h*3-2) )
     tris(h).za1= GET VERTEXDATA POSITION z( indecindex(h*3-2) )
     tris(h).xa2= GET VERTEXDATA POSITION X( indecindex(h*3-1) )
     tris(h).ya2= GET VERTEXDATA POSITION y( indecindex(h*3-1) )
     tris(h).za2= GET VERTEXDATA POSITION z( indecindex(h*3-1) )
     tris(h).xa3= GET VERTEXDATA POSITION X( indecindex(h*3) )
     tris(h).ya3= GET VERTEXDATA POSITION y( indecindex(h*3) )
     tris(h).za3= GET VERTEXDATA POSITION z( indecindex(h*3) )
   next h
   UNLOCK VERTEXDATA
endfunction
FUNCTION IntersectLineLine( LINE1p1x#,LINE1p1y#,LINE1p2x#,LINE1p2y#,LINE2p1x#,LINE2p1y#,LINE2p2x#,LINE2p2y# )
D0#=(LINE1p2y#-LINE1p1y#)*(LINE2p1x#-LINE2p2x#)-(LINE2p1y#-LINE2p2y#)*(LINE1p2x#-LINE1p1x#)
if D0# = 0 then exitfunction 100
D1#=(LINE1p2y#-LINE1p1y#)*(LINE2p1x#-LINE1p1x#)-(LINE2p1y#-LINE1p1y#)*(LINE1p2x#-LINE1p1x#)
D2#=(LINE2p1y#-LINE1p1y#)*(LINE2p1x#-LINE2p2x#)-(LINE2p1y#-LINE2p2y#)*(LINE2p1x#-LINE1p1x#)
t1#=D1#/D0#
t2#=D2#/D0# 
if ( t1#<=1 and t1#>=0 and t2#>=0 and t2#<=1 ) = 0  then  exitfunction 101
pretptx#=LINE1p1x#+(LINE1p2x#-LINE1p1x#)*t2#
pretpty#=LINE1p1y#+(LINE1p2y#-LINE1p1y#)*t2#
if pretptx#>0 and pretpty#>0 then exitfunction 1 
endfunction 0
function tmmp()
 coltri=0
 tectri=0
 altrtec=0
 av as vect : bv as vect : cv as vect : pv as vect 
 dim temptri(tri) as integer 
 for h=1 to tri 
  if tris(H).SEL=1 then inc coltri : temptri(coltri)=h        
 next h 
 ik create image SelectTRIimage,TECimagesize,TECimagesize
 for f=1 to coltri
  inc altrtec
  ll=4096
  up=4096
  rr=0
  dd=0
   if (tris(temptri(f)).u1*TECimagesize)<=ll then ll=tris(temptri(f)).u1*TECimagesize
   if (tris(temptri(f)).u2*TECimagesize)<=ll then ll=tris(temptri(f)).u2*TECimagesize
   if (tris(temptri(f)).u3*TECimagesize)<=ll then ll=tris(temptri(f)).u3*TECimagesize
   if (tris(temptri(f)).u1*TECimagesize)>=rr then rr=tris(temptri(f)).u1*TECimagesize
   if (tris(temptri(f)).u2*TECimagesize)>=rr then rr=tris(temptri(f)).u2*TECimagesize
   if (tris(temptri(f)).u3*TECimagesize)>=rr then rr=tris(temptri(f)).u3*TECimagesize
   if (tris(temptri(f)).v1*TECimagesize)<=up then up=tris(temptri(f)).v1*TECimagesize
   if (tris(temptri(f)).v2*TECimagesize)<=up then up=tris(temptri(f)).v2*TECimagesize
   if (tris(temptri(f)).v3*TECimagesize)<=up then up=tris(temptri(f)).v3*TECimagesize
   if (tris(temptri(f)).v1*TECimagesize)>=dd then dd=tris(temptri(f)).v1*TECimagesize
   if (tris(temptri(f)).v2*TECimagesize)>=dd then dd=tris(temptri(f)).v2*TECimagesize
   if (tris(temptri(f)).v3*TECimagesize)>=dd then dd=tris(temptri(f)).v3*TECimagesize
   for XXX=ll-2 to rr+2
    for YYY= up-2 to dd+2
      pv.x=xxx : pv.y=yyy
      av.x=tris(temptri(f)).u1*TECimagesize : av.y=tris(temptri(f)).v1*TECimagesize
      bv.x=tris(temptri(f)).u2*TECimagesize : bv.y=tris(temptri(f)).v2*TECimagesize
      cv.x=tris(temptri(f)).u3*TECimagesize : cv.y=tris(temptri(f)).v3*TECimagesize 
      if PointInTRI(pv ,av ,bv ,cv )
       image dot SelectTRIimage, XXX,YYY , rgb(255,255,255,255)
      endif 
    next YYY
   next XXX
 next f
undim temptri()
endfunction
function tmmpexitTriangle(nowTri)
 av as vect : bv as vect : cv as vect : pv as vect 
  ll=4096
  up=4096
  rr=0
  dd=0
   if (tris(nowTri).u1*TECimagesize)<=ll then ll=tris(nowTri).u1*TECimagesize
   if (tris(nowTri).u2*TECimagesize)<=ll then ll=tris(nowTri).u2*TECimagesize
   if (tris(nowTri).u3*TECimagesize)<=ll then ll=tris(nowTri).u3*TECimagesize
   if (tris(nowTri).u1*TECimagesize)>=rr then rr=tris(nowTri).u1*TECimagesize
   if (tris(nowTri).u2*TECimagesize)>=rr then rr=tris(nowTri).u2*TECimagesize
   if (tris(nowTri).u3*TECimagesize)>=rr then rr=tris(nowTri).u3*TECimagesize
   if (tris(nowTri).v1*TECimagesize)<=up then up=tris(nowTri).v1*TECimagesize
   if (tris(nowTri).v2*TECimagesize)<=up then up=tris(nowTri).v2*TECimagesize
   if (tris(nowTri).v3*TECimagesize)<=up then up=tris(nowTri).v3*TECimagesize
   if (tris(nowTri).v1*TECimagesize)>=dd then dd=tris(nowTri).v1*TECimagesize
   if (tris(nowTri).v2*TECimagesize)>=dd then dd=tris(nowTri).v2*TECimagesize
   if (tris(nowTri).v3*TECimagesize)>=dd then dd=tris(nowTri).v3*TECimagesize
   for XXX=ll-2 to rr+2
    for YYY= up-2 to dd+2
      pv.x=xxx : pv.y=yyy
      av.x=tris(nowTri).u1*TECimagesize : av.y=tris(nowTri).v1*TECimagesize
      bv.x=tris(nowTri).u2*TECimagesize : bv.y=tris(nowTri).v2*TECimagesize
      cv.x=tris(nowTri).u3*TECimagesize : cv.y=tris(nowTri).v3*TECimagesize 
      if PointInTRI(pv ,av ,bv ,cv )
       image dot SelectTRIimage, XXX,YYY , rgb(255,255,255,255)
      endif 
    next YYY
   next XXX
endfunction
function tmmpexitTriangleZERO(nowTri)
 av as vect : bv as vect : cv as vect : pv as vect 
  ll=4096
  up=4096
  rr=0
  dd=0
   if (tris(nowTri).u1*TECimagesize)<=ll then ll=tris(nowTri).u1*TECimagesize
   if (tris(nowTri).u2*TECimagesize)<=ll then ll=tris(nowTri).u2*TECimagesize
   if (tris(nowTri).u3*TECimagesize)<=ll then ll=tris(nowTri).u3*TECimagesize
   if (tris(nowTri).u1*TECimagesize)>=rr then rr=tris(nowTri).u1*TECimagesize
   if (tris(nowTri).u2*TECimagesize)>=rr then rr=tris(nowTri).u2*TECimagesize
   if (tris(nowTri).u3*TECimagesize)>=rr then rr=tris(nowTri).u3*TECimagesize
   if (tris(nowTri).v1*TECimagesize)<=up then up=tris(nowTri).v1*TECimagesize
   if (tris(nowTri).v2*TECimagesize)<=up then up=tris(nowTri).v2*TECimagesize
   if (tris(nowTri).v3*TECimagesize)<=up then up=tris(nowTri).v3*TECimagesize
   if (tris(nowTri).v1*TECimagesize)>=dd then dd=tris(nowTri).v1*TECimagesize
   if (tris(nowTri).v2*TECimagesize)>=dd then dd=tris(nowTri).v2*TECimagesize
   if (tris(nowTri).v3*TECimagesize)>=dd then dd=tris(nowTri).v3*TECimagesize
   for XXX=ll-2 to rr+2
    for YYY= up-2 to dd+2
      pv.x=xxx : pv.y=yyy
      av.x=tris(nowTri).u1*TECimagesize : av.y=tris(nowTri).v1*TECimagesize
      bv.x=tris(nowTri).u2*TECimagesize : bv.y=tris(nowTri).v2*TECimagesize
      cv.x=tris(nowTri).u3*TECimagesize : cv.y=tris(nowTri).v3*TECimagesize 
      if PointInTRI(pv ,av ,bv ,cv )
       image dot SelectTRIimage, XXX,YYY , rgb(0,0,0,0)
      endif 
    next YYY
   next XXX
endfunction
function tmmp22() 
ik create image SelectTRIimage,TECimagesize,TECimagesize,rgb(255,255,255,255)
endfunction

function DOTimage(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        pdot(fx,fy,matimg,ShotImg,intensiveBRUSH )
    next fy
   next fx
endfunction
function DOTcolor(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        pCOL(fx,fy,intensiveBRUSH )
    next fy
   next fx
endfunction
function brushimage(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
        IncV=IncVF(dystburn)
        if dystburn<BRUSHSIZE/2
        pdot( fx,fy,matimg,ShotImg,IncV )
        endif
    next fy
   next fx
endfunction
function brushimageYES(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        if ik point(SelectTRIimage,fx,fy)<>rgb(0,0,0,0)
           dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
           IncV=IncVF(dystburn)
           if dystburn<BRUSHSIZE/2
           pdot( fx,fy,matimg,ShotImg,IncV )
           endif
        endif
    next fy
   next fx
endfunction
function brushimageNO(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        if ik point(SelectTRIimage,fx,fy)=rgb(0,0,0,0)
           dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
           IncV=IncVF(dystburn)
           if dystburn<BRUSHSIZE/2
           pdot( fx,fy,matimg,ShotImg,IncV )
           endif
        endif
    next fy
   next fx
endfunction
function brushcolor(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
        IncV=IncVF(dystburn)
        if dystburn<BRUSHSIZE/2
        pCOL(fx,fy,IncV ) 
        endif
    next fy
   next fx
endfunction
function brushcolorYES(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
      if ik point(SelectTRIimage,fx,fy)<>rgb(0,0,0,0)    
          dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
          IncV=IncVF(dystburn)
          if dystburn<BRUSHSIZE/2
          pCOL(fx,fy,IncV ) 
          endif
        endif
    next fy
   next fx
endfunction
function brushcolorNO(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        if ik point(SelectTRIimage,fx,fy)=rgb(0,0,0,0)
          dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
          IncV=IncVF(dystburn)
          if dystburn<BRUSHSIZE/2
          pCOL(fx,fy,IncV ) 
          endif
      endif
    next fy
   next fx
endfunction
function brushBURN(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
      IncV=IncVF(dystburn)
        if dystburn<BRUSHSIZE/2
        pBURN(fx,fy,ShotImg,IncV  )
        endif
    next fy
   next fx
endfunction
function brushBURNYES(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        if ik point(SelectTRIimage,fx,fy)<>rgb(0,0,0,0)
          dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
        IncV=IncVF(dystburn)
          if dystburn<BRUSHSIZE/2
          pBURN(fx,fy,ShotImg,IncV  )
          endif
        endif
    next fy
   next fx
endfunction
function brushBURNNO(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        if ik point(SelectTRIimage,fx,fy)=rgb(0,0,0,0)
          dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
        IncV=IncVF(dystburn)
          if dystburn<BRUSHSIZE/2
          pBURN(fx,fy,ShotImg,IncV  )
          endif
        endif
    next fy
   next fx
endfunction
function brushFLY(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        
        dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
        IncV=IncVF(dystburn)
        if dystburn<BRUSHSIZE/2
        pDoDge(fx,fy,ShotImg,IncV )
        endif
    next fy
   next fx
endfunction
function brushFLYYES(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        if ik point(SelectTRIimage,fx,fy)<>rgb(0,0,0,0)
          dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
          IncV=IncVF(dystburn)
          if dystburn<BRUSHSIZE/2
          pDoDge(fx,fy,ShotImg,IncV )
          endif
        endif
    next fy
   next fx
endfunction
function brushFLYNO(xxx,yyy)
   for fx=xxx-(BRUSHSIZE/2) to xxx+(BRUSHSIZE/2)
    for fy=yyy-(BRUSHSIZE/2) to yyy+(BRUSHSIZE/2)
        if ik point(SelectTRIimage,fx,fy)=rgb(0,0,0,0)
          dystburn=Abs(Sqrt((xxx- fx) ^ 2 + (yyy - fy) ^ 2))
          IncV=IncVF(dystburn)
          if dystburn<BRUSHSIZE/2
          pDoDge(fx,fy,ShotImg,IncV )
          endif
        endif
    next fy
   next fx
endfunction
function brushSTAMP(xxx,yyy)
   for fx=0 to BRUSHSIZE
    for fy=0 to BRUSHSIZE
      pSTAMP(fx+xxx-(BRUSHSIZE/2),fy+yyy-(BRUSHSIZE/2),(intensiveBRUSH),fx,fy)
    next fy
   next fx 
endfunction
function brushSTAMPYES(xxx,yyy)
   for fx=0 to BRUSHSIZE
    for fy=0 to BRUSHSIZE
      if ik point(SelectTRIimage,fx+xxx-(BRUSHSIZE/2),fy+yyy-(BRUSHSIZE/2))<>rgb(0,0,0,0)
       pSTAMP(fx+xxx-(BRUSHSIZE/2),fy+yyy-(BRUSHSIZE/2),(intensiveBRUSH),fx,fy)
      endif
    next fy
   next fx 
endfunction
function brushSTAMPNO(xxx,yyy)
   for fx=0 to BRUSHSIZE
    for fy=0 to BRUSHSIZE
      if ik point(SelectTRIimage,fx+xxx-(BRUSHSIZE/2),fy+yyy-(BRUSHSIZE/2))=rgb(0,0,0,0)
       pSTAMP(fx+xxx-(BRUSHSIZE/2),fy+yyy-(BRUSHSIZE/2),(intensiveBRUSH),fx,fy)
      endif
    next fy
   next fx 
endfunction






function pBURN(xxx,yyy,view,intence)
    ppc=image point(view,xxx,yyy)
    if rgbr(ppc)-intence>0 then rc=rgbr(ppc)-intence
    if rgbg(ppc)-intence>0 then gc=rgbg(ppc)-intence
    if rgbb(ppc)-intence>0 then bc=rgbb(ppc)-intence
    ac=rgba(ppc)
    ppc=rgb(ac,rc,gc,bc)
    image dot view, xxx,yyy , ppc
endfunction
function pDoDge(xxx,yyy,view,intence)
    ppc=image point(view,xxx,yyy)
    rc=rgbr(ppc)+intence 
    gc=rgbg(ppc)+intence 
    bc=rgbb(ppc)+intence 
    if rc>250 then rc=250
    if gc>250 then gc=250
    if bc>250 then bc=250
    ac=rgba(ppc)
    ppc=rgb(ac,rc,gc,bc)
    image dot view, xxx,yyy , ppc
endfunction
function pcol(xxx,yyy,intence) 
    ppc=image point(SHOTIMG,xxx,yyy)
    ppc2=paintcolor
    ac=rgba(ppc):rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc)
    ac2=rgba(ppc2):rc2=rgbr(ppc2):gc2=rgbg(ppc2):bc2=rgbb(ppc2)
    if coleditDR=1 
     IF RC<RC2 
       RC=RC+intence
       if RC>RC2 then RC=RC2
     endif
     IF RC>RC2 
       RC=RC-intence
       if RC<RC2 then RC=RC2
     endif
    ENDIF
    if coleditDG=1 
     IF GC<GC2 
       GC=GC+intence
       if GC>GC2 then GC=GC2
     endif
     IF GC>GC2 
       GC=GC-intence
       if GC<GC2 then GC=GC2
     endif
    ENDIF
    if coleditDB=1 
     IF BC<BC2 
       BC=BC+intence
       if BC>BC2 then BC=BC2
     endif
     IF BC>BC2 
       BC=BC-intence
       if BC<BC2 then BC=BC2
     endif
    ENDIF
    if coleditA=1 
     AC=ac2
    ENDIF 
    ppc=rgb(ac,rc,gc,bc)
    image dot ShotImg , xxx,yyy,ppc
    if coleditS=1  
     ppc2=image point(normalmap,xxx,yyy)
     rc=rgbr(ppc2):gc=rgbg(ppc2):bc=rgbb(ppc2):ac=rgbA(ppc2)
     ac2=spec
     
     IF AC<AC2 
       AC=AC+intence
       if AC>AC2 then AC=AC2
     endif
     IF AC>AC2 
       AC=AC-intence
       if AC<AC2 then AC=AC2
     endif  
     ppc2=rgb(ac,rc,gc,bc)
     image dot normalmap, xxx,yyy , ppc2 
    endif
endfunction 
function pdot(xxx,yyy,mat,view,intence)
    if editD=1
     ppc=image point(view,xxx,yyy)
     ppc22=image point(mat,xxx,yyy)  
     rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)   
     rc2=rgbr(ppc22):gc2=rgbg(ppc22):bc2=rgbb(ppc22):ac2=rgba(ppc22)   
     IF rc<rc2 
       rc=rc+intence
       if rc>rc2 then rc=rc2
     endif
     IF gc<gc2 
       gc=gc+intence
       if gc>gc2 then gc=gc2
     endif  
     IF bc<bc2 
       bc=bc+intence 
       if bc>bc2 then bc=bc2 
     endif
     IF rc>rc2 
       rc=rc-intence
       if rc<rc2 then rc=rc2
     endif
     IF gc>gc2 
       gc=gc-intence
       if gc<gc2 then gc=gc2
     endif  
     IF bc>bc2 
       bc=bc-intence 
       if bc<bc2 then bc=bc2 
     endif  
     if editA=0 
      ppc=rgb(ac,rc,gc,bc)
     else
      ppc=rgb(ac2,rc,gc,bc)
     endif  
       image dot view, xxx,yyy , ppc
    endif
    if editD=0
     ppc=image point(view,xxx,yyy)
     rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)
     if editA=1 
      ppc2=image point(mat,xxx,yyy)
      ac2=rgba(ppc2)
      IF ac>ac2  
       ac=ac-intence 
       if ac<ac2 then ac=ac2 
      endif 
      IF ac<ac2  
       ac=ac+intence 
       if ac>ac2 then ac=ac2 
      endif
     endif
     ppc=rgb(ac,rc,gc,bc)
       image dot view, xxx,yyy , ppc
    endif 
    if editN=1
     ppc=image point(normalmap,xxx,yyy)
     ppc22=image point(mat+8000,xxx,yyy)  
     rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)   
     rc2=rgbr(ppc22):gc2=rgbg(ppc22):bc2=rgbb(ppc22):ac2=rgba(ppc22)   
     IF rc<rc2 
        rc=rc+intence
        if rc>rc2 then rc=rc2
     endif
     IF gc<gc2 
        gc=gc+intence
        if gc>gc2 then gc=gc2
     endif  
     IF bc<bc2 
        bc=bc+intence 
        if bc>bc2 then bc=bc2 
     endif
     IF rc>rc2 
        rc=rc-intence
        if rc<rc2 then rc=rc2
     endif
     IF gc>gc2 
        gc=gc-intence
        if gc<gc2 then gc=gc2
     endif  
     IF bc>bc2 
        bc=bc-intence 
        if bc<bc2 then bc=bc2 
     endif  
     if editS=0 
       ppc=rgb(ac,rc,gc,bc)
     else
       IF ac>ac2  
        ac=ac-intence 
        if ac<ac2 then ac=ac2 
       endif 
       IF ac<ac2  
        ac=ac+intence 
        if ac>ac2 then ac=ac2 
       endif
       ppc=rgb(ac,rc,gc,bc)   
     endif  
       image dot normalmap, xxx,yyy , ppc
    endif
    if editN=0
     ppc=image point(normalmap,xxx,yyy)
     rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)
     if editS=1 
      ppc2=image point(mat+8000,xxx,yyy)
      ac2=rgba(ppc2)
      IF ac>ac2  
       ac=ac-intence 
       if ac<ac2 then ac=ac2 
      endif 
      IF ac<ac2  
       ac=ac+intence 
       if ac>ac2 then ac=ac2 
      endif
     endif
     ppc=rgb(ac,rc,gc,bc)
       image dot normalmap, xxx,yyy , ppc
    endif 
   IF USEHEIGHTMAP=1 
    if editH=1
     ppc=image point(heightmap,xxx,yyy)
     ppc22=image point(mat+8001,xxx,yyy)  
     rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)   
     rc2=rgbr(ppc22):gc2=rgbg(ppc22):bc2=rgbb(ppc22):ac2=rgba(ppc22)   
     IF rc<rc2 
       rc=rc+intence
       if rc>rc2 then rc=rc2
     endif
     IF gc<gc2 
       gc=gc+intence
       if gc>gc2 then gc=gc2
     endif  
     IF bc<bc2 
       bc=bc+intence 
       if bc>bc2 then bc=bc2 
     endif
     IF rc>rc2 
       rc=rc-intence
       if rc<rc2 then rc=rc2
     endif
     IF gc>gc2 
       gc=gc-intence
       if gc<gc2 then gc=gc2
     endif  
     IF bc>bc2 
       bc=bc-intence 
       if bc<bc2 then bc=bc2 
     endif
     ppc=rgb(ac,rc,gc,bc)
       image dot heightmap, xxx,yyy , ppc
    endif 
   ENDIF
endfunction
Function pSTAMP(xxx,yyy,intence,xxx2,yyy2)
   ppc33=image point(EditBrushAlphaIMGnum,xxx2,yyy2)
   intence= intence* ( rgba(ppc33)*(1.0/255.0))
   if rgba(ppc33)=0 then exitfunction
    if editD=1
     ppc=image point(ShotImg,xxx,yyy)
     ppc22=image point(EditBrushDiffIMGnum,xxx2,yyy2)
     rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)   
     rc2=rgbr(ppc22):gc2=rgbg(ppc22):bc2=rgbb(ppc22):ac2=rgba(ppc22)
     IF rc<rc2 
       rc=rc+intence
       if rc>rc2 then rc=rc2
     endif
     IF gc<gc2 
       gc=gc+intence
       if gc>gc2 then gc=gc2
     endif  
     IF bc<bc2 
       bc=bc+intence 
       if bc>bc2 then bc=bc2 
     endif
     IF rc>rc2 
       rc=rc-intence
       if rc<rc2 then rc=rc2
     endif
     IF gc>gc2 
       gc=gc-intence
       if gc<gc2 then gc=gc2
     endif  
     IF bc>bc2 
       bc=bc-intence 
       if bc<bc2 then bc=bc2 
     endif  
     if editA=0 
      ppc=rgb(ac,rc,gc,bc)
     else
      ppc=rgb(ac2,rc,gc,bc)
     endif  
       image dot ShotImg, xxx,yyy , ppc
    endif
    if editD=0
     ppc=image point(ShotImg,xxx,yyy)
     rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)
     if editA=1 
      ppc2=image point(EditBrushDiffIMGnum,xxx2,yyy2)
      ac2=rgba(ppc2)
      IF ac>ac2  
       ac=ac-intence 
       if ac<ac2 then ac=ac2 
      endif 
      IF ac<ac2  
       ac=ac+intence 
       if ac>ac2 then ac=ac2 
      endif
     endif
     ppc=rgb(ac,rc,gc,bc)
       image dot ShotImg, xxx,yyy , ppc
    endif 
    if editN=1
     ppc=image point(normalmap,xxx,yyy)
     ppc22=image point(EditBrushNormalIMGnum,xxx2,yyy2) 
     rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)   
     rc2=rgbr(ppc22):gc2=rgbg(ppc22):bc2=rgbb(ppc22):ac2=rgba(ppc22)  
     IF rc<rc2 
        rc=rc+intence
        if rc>rc2 then rc=rc2
     endif
     IF gc<gc2 
        gc=gc+intence
        if gc>gc2 then gc=gc2
     endif  
     IF bc<bc2 
        bc=bc+intence 
        if bc>bc2 then bc=bc2 
     endif
     IF rc>rc2 
        rc=rc-intence
        if rc<rc2 then rc=rc2
     endif
     IF gc>gc2 
        gc=gc-intence
        if gc<gc2 then gc=gc2
     endif  
     IF bc>bc2 
        bc=bc-intence 
        if bc<bc2 then bc=bc2 
     endif  
     if editS=0 
       ppc=rgb(ac,rc,gc,bc)
     else
       IF ac>ac2  
        ac=ac-intence 
        if ac<ac2 then ac=ac2 
       endif 
       IF ac<ac2  
        ac=ac+intence 
        if ac>ac2 then ac=ac2 
       endif
       ppc=rgb(ac,rc,gc,bc)
     endif  
       image dot normalmap, xxx,yyy , ppc
    endif
    if editN=0
     ppc=image point(normalmap,xxx,yyy)
     rc=rgbr(ppc):gc=rgbg(ppc):bc=rgbb(ppc):ac=rgba(ppc)
     if editS=1 
      ppc2=image point(EditBrushNormalIMGnum,xxx2,yyy2)
      ac2=rgba(ppc2)
      IF ac>ac2  
        ac=ac-intence 
        if ac<ac2 then ac=ac2 
      endif 
      IF ac<ac2  
        ac=ac+intence 
        if ac>ac2 then ac=ac2 
      endif
     endif
     ppc=rgb(ac,rc,gc,bc)
       image dot normalmap, xxx,yyy , ppc
    endif
endfunction
function IncVF( dystburn )
IncV=((intensiveBRUSH)*(1.0+((BRUSHSIZE/2.0)-dystburn)))/multiplayer
endfunction IncV
function rotateBrush()
   Target=951159
   IK Create Target Image Target, 512, 512, 0x00000000
   IK Paste Image On Image Rotated origBrushDiffIMGnum , Target, 256, 256, 90
   save image glavcat+"/temp/"+"t.dds",Target
   load image glavcat+"/temp/"+"t.dds",origBrushDiffIMGnum
   IK copy image EditBrushDiffIMGnum ,   origBrushDiffIMGnum
   IK Create Target Image Target, 512, 512, 0x00000000
   IK Paste Image On Image Rotated origBrushNormalIMGnum , Target, 256, 256, 90
   save image glavcat+"/temp/"+"t_n.dds",Target
   load image glavcat+"/temp/"+"t_n.dds",origBrushNormalIMGnum
   IK copy image EditBrushNormalIMGnum , origBrushNormalIMGnum
   IK Create Target Image Target, 512, 512, 0x00000000
   IK Paste Image On Image Rotated origBrushAlphaIMGnum , Target, 256, 256, 90
   save image glavcat+"/temp/"+"t_a.dds",Target
   load image glavcat+"/temp/"+"t_a.dds",origBrushAlphaIMGnum
   IK copy image EditBrushAlphaIMGnum ,  origBrushAlphaIMGnum
   IK resize image EditBrushDiffIMGnum,BRUSHSIZE,BRUSHSIZE,0
   IK resize image EditBrushNormalIMGnum,BRUSHSIZE,BRUSHSIZE,0
   IK resize image EditBrushAlphaIMGnum,BRUSHSIZE,BRUSHSIZE,0
endfunction
function FlipHBrush()
   IK Flip Image Horizontally origBrushDiffIMGnum
   IK Flip Image Horizontally origBrushNormalIMGnum
   IK Flip Image Horizontally origBrushAlphaIMGnum
   IK copy image EditBrushDiffIMGnum ,   origBrushDiffIMGnum
   IK copy image EditBrushNormalIMGnum , origBrushNormalIMGnum
   IK copy image EditBrushAlphaIMGnum ,  origBrushAlphaIMGnum
   IK resize image EditBrushDiffIMGnum,BRUSHSIZE,BRUSHSIZE,0
   IK resize image EditBrushNormalIMGnum,BRUSHSIZE,BRUSHSIZE,0
   IK resize image EditBrushAlphaIMGnum,BRUSHSIZE,BRUSHSIZE,0
 sleep 300  
endfunction
function FlipVBrush()
   IK Flip Image Vertically origBrushDiffIMGnum
   IK Flip Image Vertically origBrushNormalIMGnum
   IK Flip Image Vertically origBrushAlphaIMGnum
   IK copy image EditBrushDiffIMGnum ,   origBrushDiffIMGnum
   IK copy image EditBrushNormalIMGnum , origBrushNormalIMGnum
   IK copy image EditBrushAlphaIMGnum ,  origBrushAlphaIMGnum
   IK resize image EditBrushDiffIMGnum,BRUSHSIZE,BRUSHSIZE,0
   IK resize image EditBrushNormalIMGnum,BRUSHSIZE,BRUSHSIZE,0
   IK resize image EditBrushAlphaIMGnum,BRUSHSIZE,BRUSHSIZE,0
 sleep 300
endfunction
function mult()
  multiplayer=BRUSHSIZE
endfunction
function imageOPENforPLACE()
     tmpff$=opendialog("Load IMAGE","Open IMAGE (*.dds, *..png, *...bmp, *....jpg)|*.dds;*.png;*.bmp;*.jpg|Load All (*.*)|*.*",0,"")
     load image tmpff$,97332
endfunction