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

tbg_ug

自己原创的，如果有什么要改进和好的建议请给我留言.
$$=================
$$  实体面自动着色
$$=================
0 j  V% d& O" }; M; YENTITY/face
NUMBER/B(3)
$$=================
$ l6 j: Z1 \' r5 C2 T! L2 ASTART:
  ifthen/&ACTPRT==1
7 B) j3 t) w& M8 {* i" @3 t; W" [$ e  messg/'请打开一个部件!'
$ H! R8 q5 s9 o7 o# I  jump/end:
  endif
" y$ @  x) a1 W* A$$=================
6 P9 }8 n- D" ?$ _" Emask/71
inexte
L00:
$ u" `7 n1 E& _8 j    face=nexte/ifend,end:
8 _( ?8 K) ~5 ^* z    B=SNORF(face,0.5,0.5)
        if/B(3)>=-1 and B(3)<0,jump/L211:
8 I! M& [% W7 s. o        if/B(3)==0,jump/L1:
        if/B(3)==1,jump/L108:
        if/B(3)<1 and B(3)>=0.9,jump/L109:
        if/B(3)<0.9 and B(3)>=0.8,jump/L110:
4 x; k7 P' e6 n+ o* T* R' w        if/B(3)<0.8 and B(3)>=0.7,jump/L111:
- k9 n1 v& C, v7 b& s# C; M- J        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:
        if/B(3)<0.4 and B(3)>=0.3,jump/L116:
* D3 }+ r  k( p        if/B(3)<0.3 and B(3)>=0.2,jump/L117:
        if/B(3)<0.2 and B(3)>=0.1,jump/L118:
        if/B(3)<0.1 and B(3)>0,jump/L119:
9 a( b2 V" J- o/ _  r    jump/L00:
% h% i: t. S. A+ n9 q. p/ Z      
& r' h- i, C3 b6 C& |: H4 m  Z' n* ZL211:
1 |9 R* n5 U6 O3 a, b    &COLOR(face)=211
# q- B8 ^: L, a1 x    jump/L00:
L1:
    &COLOR(face)=1
    jump/L00:
L108:
/ ]2 x" s6 |1 e    &COLOR(face)=108
    jump/L00:
* E/ f% i& I6 _2 x7 _L109:
) h: O9 q" \7 _: E$ j' c    &COLOR(face)=109
$ r( x1 X" n( p7 e    jump/L00:
3 Y& ?0 U( @# w; [2 eL110:
& x8 Q( ]2 v5 y$ k    &COLOR(face)=110
& Z/ b0 D  [7 Y  b  Z    jump/L00:
L111:
    &COLOR(face)=111
    jump/L00:
4 d9 a& Y7 z: D: uL112:
    &COLOR(face)=112
    jump/L00:
L113:
    &COLOR(face)=113
! `0 H- {6 m+ P6 V. L# X    jump/L00:
L114:
6 s4 `! a! J; [7 @, _/ ]    &COLOR(face)=114
$ W: ?8 s4 {7 R; K/ a    jump/L00:
L115:
3 R8 l0 G+ Z( Q8 ]( N" y. \    &COLOR(face)=115
) t, b- j" T, U. K( S    jump/L00:
L116:
    &COLOR(face)=116
" A! V1 ?9 d, h2 W7 t4 K# ^+ \    jump/L00:
, i7 l+ \& i. f( g" o9 RL117:
    &COLOR(face)=117
    jump/L00:
' X7 V/ Y; J8 Y, E8 R9 |9 U4 iL118:
    &COLOR(face)=118
7 L9 g* H; {% C    jump/L00:
L119:
    &COLOR(face)=119
) E6 x- H! L* H& g  U: |. F9 [    jump/L00:
6 n: z. R+ e2 q9 W0 c: }end:
" a4 L) e# M9 ]  halt