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

tbg_ug

自己原创的，如果有什么要改进和好的建议请给我留言.
$$=================
$$  实体面自动着色
$$=================
ENTITY/face
NUMBER/B(3)
+ s9 ^  F9 P' a- _6 s$$=================
1 y* A* A4 T- i' KSTART:
  ifthen/&ACTPRT==1
  messg/'请打开一个部件!'
  jump/end:
3 k: \6 F. W) ^4 n8 H  endif
, U" U. o* x. c- g5 G/ x$$=================
mask/71
* \3 j8 s5 s( t6 f, r& Linexte
L00:
    face=nexte/ifend,end:
9 X7 e4 p* X. [    B=SNORF(face,0.5,0.5)
/ v, A3 _8 F4 t        if/B(3)>=-1 and B(3)<0,jump/L211:
5 h. N+ J5 i0 @& k+ z- P        if/B(3)==0,jump/L1:
5 h- L$ A+ c) V0 K9 k3 ?4 ]9 @8 F        if/B(3)==1,jump/L108:
1 @% w: x) K2 h4 b# }        if/B(3)<1 and B(3)>=0.9,jump/L109:
        if/B(3)<0.9 and B(3)>=0.8,jump/L110:
        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:
) G& n4 |% }; a' C- L        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:
8 \$ a! L7 f" x* r6 T        if/B(3)<0.1 and B(3)>0,jump/L119:
    jump/L00:
. q5 [. e. i+ X  ?% _% n      
L211:
( k. B9 B/ p* j' u    &COLOR(face)=211
    jump/L00:
L1:
" }# e: |! O+ g0 `9 C+ o    &COLOR(face)=1
+ y5 L) N( M0 E5 [9 [5 k/ x" |0 I    jump/L00:
5 \9 j1 J! h" q5 D/ }L108:
* E6 ^7 S8 m6 V% z; `    &COLOR(face)=108
    jump/L00:
L109:
- g% z7 P1 i/ t    &COLOR(face)=109
7 G& Q, ^8 j1 ]3 D    jump/L00:
+ A" S' b% B5 a! o- z- C/ @8 O$ wL110:
7 I0 w# V) t  x4 \& z5 d- ?* M    &COLOR(face)=110
    jump/L00:
2 G/ v; S, A& ~% `% pL111:
    &COLOR(face)=111
. s9 R- @6 U! K0 P- k3 v% v# W    jump/L00:
0 a# y$ W0 C& E& b* j* `( CL112:
    &COLOR(face)=112
- X- i+ b9 Y* i' J2 v    jump/L00:
L113:
: w: r% g3 f- `    &COLOR(face)=113
    jump/L00:
L114:
    &COLOR(face)=114
    jump/L00:
2 \3 N/ T$ f' T4 LL115:
7 i5 c7 |4 t- g- q    &COLOR(face)=115
    jump/L00:
- H5 X% ~- x) l$ M2 C3 fL116:
    &COLOR(face)=116
: p$ M0 c$ c' m6 V    jump/L00:
1 h) Z4 o9 P/ U5 B7 _% @& ZL117:
    &COLOR(face)=117
, X$ R) j5 O7 x; c, J4 W    jump/L00:
; s* s8 p/ y$ F! s. O3 O" sL118:
    &COLOR(face)=118
    jump/L00:
& Y$ W. A* d$ |  E" d! BL119:
    &COLOR(face)=119
    jump/L00:
end:
  halt  

6 W. V: c& J/ }# ]8 |, @- A