proc/face,facenum,pt,uppt,dis
entity/face(50)        $$條紋燈花的曲面
entity/pt              $$條紋燈花的曲面上的點(diǎn)
entity/uppt            $$條紋燈花的曲面上的點(diǎn)的偏置點(diǎn)
entity/ln              $$過原點(diǎn)沿minface的法矢量的直線
entity/minface         $$最近距離參考曲面
number/a(3),b(7)

l10:
if/facenum<>1,jump/l20:
if/facenum==1,jump/l50:

$$若曲面?zhèn)€數(shù)facenum<>1，則尋找離點(diǎn)pt最近的曲面。
l20:
i=0

l30:
i=i+1
b(1..7)=reldst/pt,face(i)
if/b(7)>=0.1,jump/l30:
if/b(7)<0.1,jump/l40:

l40:
minface=face(i)
jump/l60:

l50:
$$若曲面?zhèn)€數(shù)facenum==1，則離點(diǎn)pt最近的曲面為face(1)。
minface=face(1)
jump/l60:

l60:
$$確定pt在曲面minface中的u、v參數(shù)。
sparf/minface,pt,u,v
$$計算pt在曲面minface的法矢量。
a(1..3)=snorf(minface,u,v)
$$過原點(diǎn)沿minface的法矢量做直線。
ln=line/a(1..3),0,0,0
$$過點(diǎn)pt沿直線ln作偏置點(diǎn)uppt。
uppt=point/pt,vect,ln,zsmall,dis
delete/ln

trm:
return