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

tbg_ug

自己原创的，如果有什么要改进和好的建议请给我留言.
$$=================
$$  实体面自动着色
9 i% x5 a  i1 L# J% o/ s8 N1 M8 p$$=================
# k1 q+ v5 U; h( E% q% _) @. C" v2 PENTITY/face
NUMBER/B(3)
6 |1 M+ n- b4 l/ W$ F$$=================
* T% j- ^" m4 E) ~! [START:
  ifthen/&ACTPRT==1
7 ^. @& f# c# L5 p+ Y  messg/'请打开一个部件!'
6 C5 f" a/ r+ X  jump/end:
" g( `! g+ e3 M3 z2 i  P  endif
$$=================
mask/71
inexte
0 M$ Z& x4 Z' Z" D  P* QL00:
5 f( R3 v9 U3 R" t9 M5 Z    face=nexte/ifend,end:
; w" M' v* s( h; h9 g    B=SNORF(face,0.5,0.5)
0 E) c1 V- v& K4 R6 g7 R/ `        if/B(3)>=-1 and B(3)<0,jump/L211:
        if/B(3)==0,jump/L1:
9 _/ p7 Q+ f# w8 o  U        if/B(3)==1,jump/L108:
        if/B(3)<1 and B(3)>=0.9,jump/L109:
1 d, P. {6 f; C: B% X& `        if/B(3)<0.9 and B(3)>=0.8,jump/L110:
        if/B(3)<0.8 and B(3)>=0.7,jump/L111:
- [! c; z, U0 R0 E0 w        if/B(3)<0.7 and B(3)>=0.6,jump/L112:
        if/B(3)<0.6 and B(3)>=0.5,jump/L113:
* `; ]+ m' d0 n        if/B(3)<0.5 and B(3)>=0.4,jump/L114:
        if/B(3)<0.4 and B(3)>=0.3,jump/L116:
: K4 A# H8 |  J' ?7 m8 N        if/B(3)<0.3 and B(3)>=0.2,jump/L117:
: [8 A. d# R9 m- p5 T' T" z        if/B(3)<0.2 and B(3)>=0.1,jump/L118:
        if/B(3)<0.1 and B(3)>0,jump/L119:
+ }2 i+ O, d+ F1 g    jump/L00:
; V# J+ d( f" s      
L211:
    &COLOR(face)=211
8 q+ l& A3 O* p* b+ @    jump/L00:
L1:
    &COLOR(face)=1
! F* s9 r, X4 T" k7 x. \    jump/L00:
/ B9 ^. f) i# n" uL108:
. M2 u! i1 v. d8 V$ ^; d! a    &COLOR(face)=108
+ E  Q( n  E9 W& N7 ]( k) M/ t% f    jump/L00:
L109:
& e8 u5 @# D0 d. H1 ^1 k    &COLOR(face)=109
    jump/L00:
4 b3 B4 D9 j% {% R1 A) @6 @4 u% qL110:
6 ]# V/ b  ~% `- y3 v& I4 T    &COLOR(face)=110
7 q( M5 O$ F% P4 {2 x    jump/L00:
L111:
& z( m+ J: Q, K    &COLOR(face)=111
! A: h5 t* [+ Y% R: N6 F    jump/L00:
L112:
    &COLOR(face)=112
    jump/L00:
L113:
    &COLOR(face)=113
" S3 p8 a9 d5 m- a    jump/L00:
, G7 }$ P. [: D6 lL114:
    &COLOR(face)=114
  s2 h% c2 x4 X1 x; j0 G    jump/L00:
L115:
+ w% `8 z+ T) T7 z    &COLOR(face)=115
    jump/L00:
6 n; X/ u$ C+ h7 y! O: rL116:
    &COLOR(face)=116
* a, ?5 E0 I& u- x6 V6 F    jump/L00:
4 x: F! F: R! o4 d, jL117:
: Q  m+ {6 P+ l$ j" I    &COLOR(face)=117
$ Z- l- t' H8 L. Q5 R2 @, m    jump/L00:
2 {) z1 W& r  c$ S( hL118:
    &COLOR(face)=118
    jump/L00:
1 `' {$ M, ?- A* ]% UL119:
% f5 w3 j1 M! B5 i6 [, e    &COLOR(face)=119
    jump/L00:
* m8 k- d8 C" x+ ~5 {. O( k/ Qend:
  halt  

) w& V; c- C; _. _& e. A4 O