实体面自动着色－UGopengrip源代码

tbg_ug

自己原创的，如果有什么要改进和好的建议请给我留言.
$$=================
( U4 s/ {/ i; R. C$$  实体面自动着色
, [* \3 V. T+ w1 u( I7 ~: Z$$=================
ENTITY/face
NUMBER/B(3)
$$=================
1 h9 Q( \7 G8 o6 F# J) n" p7 ZSTART:
  ifthen/&ACTPRT==1
  messg/'请打开一个部件!'
7 ~% j  |- u5 H  jump/end:
  endif
$$=================
; ~+ O; P2 y  A' H4 Ymask/71
+ J4 L; z4 R* w1 hinexte
0 r+ @, A: v( ~- u+ B$ SL00:
8 f" n/ K" I4 i3 t! y    face=nexte/ifend,end:
    B=SNORF(face,0.5,0.5)
5 @  ~) f2 M7 l+ o        if/B(3)>=-1 and B(3)<0,jump/L211:
; I8 N; x; G7 k/ X! A3 s        if/B(3)==0,jump/L1:
        if/B(3)==1,jump/L108:
        if/B(3)<1 and B(3)>=0.9,jump/L109:
6 a4 u! G$ M0 h! P        if/B(3)<0.9 and B(3)>=0.8,jump/L110:
' i: S  E; R6 h3 ?* R, i2 ^        if/B(3)<0.8 and B(3)>=0.7,jump/L111:
        if/B(3)<0.7 and B(3)>=0.6,jump/L112:
        if/B(3)<0.6 and B(3)>=0.5,jump/L113:
        if/B(3)<0.5 and B(3)>=0.4,jump/L114:
6 r" E! O2 x, D3 v/ _' Y6 o        if/B(3)<0.4 and B(3)>=0.3,jump/L116:
        if/B(3)<0.3 and B(3)>=0.2,jump/L117:
        if/B(3)<0.2 and B(3)>=0.1,jump/L118:
: x8 {8 V6 z+ b2 X. c4 ^! Y        if/B(3)<0.1 and B(3)>0,jump/L119:
    jump/L00:
      
L211:
8 J" B3 H& j; l7 O- o    &COLOR(face)=211
    jump/L00:
L1:
  u) q2 l+ K" M& B9 x    &COLOR(face)=1
" D( F; I) \: z    jump/L00:
L108:
1 r: e5 w8 h) E    &COLOR(face)=108
    jump/L00:
5 c4 |% k# P) U9 |; X' KL109:
    &COLOR(face)=109
. v( `+ w8 |/ d! z% e    jump/L00:
) N& ~! K0 D( ML110:
    &COLOR(face)=110
    jump/L00:
L111:
( p: c6 I- [) N& @9 ]    &COLOR(face)=111
    jump/L00:
L112:
    &COLOR(face)=112
5 f# Q5 B# `: L- T    jump/L00:
4 j" F5 Z7 g" i- ZL113:
; r/ w/ P. E9 q6 B- k9 F1 z5 G    &COLOR(face)=113
    jump/L00:
) T0 R8 M& k$ j9 l: RL114:
    &COLOR(face)=114
/ Q9 n6 Z1 n- U/ U$ \4 j    jump/L00:
& ], N9 s0 ^/ C+ I( n+ e( KL115:
    &COLOR(face)=115
: n/ N: W$ H9 V# T2 P    jump/L00:
L116:
    &COLOR(face)=116
    jump/L00:
5 j7 S; J8 {$ UL117:
* O4 O0 ?# N7 P' j9 e/ G    &COLOR(face)=117
    jump/L00:
L118:
# `  k/ y7 A" k    &COLOR(face)=118
% Z# p2 E* V/ f& ~7 ?    jump/L00:
L119:
    &COLOR(face)=119
9 w- r) |: M5 _: a! u% J    jump/L00:
end:
  halt  
' O" \% l1 {! h! |" W
% n8 h+ h+ D& O6 M/ R