all set
global VAR1 : VAR1=50
global VAR2 : VAR2=51
global CPV : CPV=53
global AVV : AVV=54
global BVV : BVV=55
global CVV : CVV=56
global DV : DV=57
global Auv : Auv=58
global Buv : Buv=59
global Cuv : Cuv=60
global MV1 : MV1=61
global MV2 : MV2=62
global MV3 : MV3=63
global V2R : V2R=64
global NV : NV=65
make vector3 VAR1:make vector3 VAR2:make vector3 CPV
make vector3 AVV:make vector3 BVV:make vector3 CVV:make vector3 DV
make vector3 NV
make vector2 Auv:make vector2 Buv:make vector2 Cuv
make vector2 MV1:make vector2 MV2:make vector2 MV3
make vector2 V2R
set vector3 AVV ,tris(intriangle).xa1,tris(intriangle).ya1, tris(intriangle).za1
set vector3 BVV ,tris(intriangle).xa2,tris(intriangle).ya2, tris(intriangle).za2
set vector3 CVV ,tris(intriangle).xa3,tris(intriangle).ya3, tris(intriangle).za3
set vector3 DV , dx,dy, dz
set vector2 Auv,(tris(intriangle).u1), (tris(intriangle).v1)
set vector2 Buv,(tris(intriangle).u2), (tris(intriangle).v2)
set vector2 Cuv,(tris(intriangle).u3), (tris(intriangle).v3)
`--------------------------------
SUBTRACT VECTOR3 VAR1, BVV, AVV
SUBTRACT VECTOR3 VAR2, CVV, AVV
CROSS PRODUCT VECTOR3 CPV, VAR1, VAR2
NORMALIZE VECTOR3 NV, CPV
SUBTRACT VECTOR3 VAR1, BVV, AVV
SUBTRACT VECTOR3 VAR2, CVV, AVV
CROSS PRODUCT VECTOR3 CPV, VAR1, VAR2
AreaABC#=DOT PRODUCT VECTOR3(NV , CPV)
SUBTRACT VECTOR3 VAR1, BVV, DV
SUBTRACT VECTOR3 VAR2, CVV, DV
CROSS PRODUCT VECTOR3 CPV, VAR1, VAR2
AreaPBC#=DOT PRODUCT VECTOR3(NV , CPV)
SUBTRACT VECTOR3 VAR1, CVV, DV
SUBTRACT VECTOR3 VAR2, AVV, DV
CROSS PRODUCT VECTOR3 CPV, VAR1, VAR2
AreaPCA#=DOT PRODUCT VECTOR3(NV , CPV)
bcs# = AreaPCA# / AreaABC# : acs# = AreaPBC# / AreaABC#
ccs# = 1.0 - acs# - bcs#
MULTIPLY VECTOR2 MV1, Auv
MULTIPLY VECTOR2 MV2, Buv
MULTIPLY VECTOR2 MV3, Cuv
ADD VECTOR2 V2R, MV1, MV2
ADD VECTOR2 V2R, V2R, MV3
UCT#= x vector2(V2R)
VCT#= y vector2(V2R)
xxx = UCT#*1024
yyy = VCT#*1024
ppc=image point(sou,xxx,yyy)
Image Dot ShotImg, xxx,yyy , ppc
delete vector3 VAR1:delete vector3 VAR2:delete vector3 CPV
delete vector3 AVV:delete vector3 BVV:delete vector3 CVV:delete vector3 DV
delete vector3 NV
delete vector2 Auv:delete vector2 Buv:delete vector2 Cuv
delete vector2 MV1:delete vector2 MV1:delete vector2 MV1
delete vector2 V2R
.....already beside..... for all