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

tbg_ug

自己原创的，如果有什么要改进和好的建议请给我留言.
$$=================
& n2 C9 [/ y  D4 K) |9 J$$  实体面自动着色
8 h5 n' ]# C8 I5 k# u4 g' D' y$$=================
) }0 y7 e) b/ r% k7 AENTITY/face
NUMBER/B(3)
$$=================
START:
  ifthen/&ACTPRT==1
  messg/'请打开一个部件!'
8 v) ^7 z4 g6 J  jump/end:
  endif
0 C" M8 g4 T2 W1 a0 \$$=================
mask/71
0 O$ H2 v7 S! K9 Q+ uinexte
L00:
    face=nexte/ifend,end:
    B=SNORF(face,0.5,0.5)
4 U# u: q! g! ?7 U        if/B(3)>=-1 and B(3)<0,jump/L211:
        if/B(3)==0,jump/L1:
        if/B(3)==1,jump/L108:
        if/B(3)<1 and B(3)>=0.9,jump/L109:
. n! _/ E3 K) K+ a6 T, V        if/B(3)<0.9 and B(3)>=0.8,jump/L110:
        if/B(3)<0.8 and B(3)>=0.7,jump/L111:
2 d2 q1 M3 l( H* ^        if/B(3)<0.7 and B(3)>=0.6,jump/L112:
) E' [. g8 a" c1 {        if/B(3)<0.6 and B(3)>=0.5,jump/L113:
* s' Q0 O: r0 R: G3 T        if/B(3)<0.5 and B(3)>=0.4,jump/L114:
        if/B(3)<0.4 and B(3)>=0.3,jump/L116:
' R9 {4 U! m5 f) ?( W        if/B(3)<0.3 and B(3)>=0.2,jump/L117:
$ T* ^. z4 a3 Q) @        if/B(3)<0.2 and B(3)>=0.1,jump/L118:
2 U1 {) L* O  C        if/B(3)<0.1 and B(3)>0,jump/L119:
* }/ d" F7 B9 K) C# r8 i    jump/L00:
      
L211:
    &COLOR(face)=211
    jump/L00:
L1:
    &COLOR(face)=1
/ [9 X4 n0 T# |. p6 S* B0 @' [    jump/L00:
0 ^* ]3 V0 L, r* W+ t2 hL108:
' v( r. o- b: p1 \9 W- K: K( {    &COLOR(face)=108
# k4 F% g! Y* {. u: z  i    jump/L00:
' O$ I& K# Q2 Y$ c! q% u( ?L109:
    &COLOR(face)=109
    jump/L00:
  H  S4 K* `) O& ^% H0 m. PL110:
    &COLOR(face)=110
5 m" ~# y" z0 s4 B0 D; B    jump/L00:
' v, _- D- T6 D& A; @  Q1 KL111:
    &COLOR(face)=111
    jump/L00:
+ n- s% K1 i3 T5 e: l" [2 @' ZL112:
    &COLOR(face)=112
" O2 V5 M* r6 g6 k! Z3 F& d1 w    jump/L00:
, {* f9 T/ g& _L113:
9 p" G2 @$ @1 x( p4 |    &COLOR(face)=113
& o* b0 |0 K- C1 d! F5 H* u$ b    jump/L00:
- @: F$ J8 y& e- j9 {L114:
9 f4 e$ ~6 H  ]1 U, y3 W8 ~    &COLOR(face)=114
9 v4 q" _( `6 k- ]    jump/L00:
2 P% f* j5 ^) Q) _+ ]* z& RL115:
* A3 G4 K$ Q. O7 u    &COLOR(face)=115
    jump/L00:
L116:
$ ~& Z% x7 c+ k  N* e  W    &COLOR(face)=116
    jump/L00:
  c- {. p7 h4 l6 YL117:
    &COLOR(face)=117
% z" F/ L* q5 M3 O8 l3 |) a    jump/L00:
8 Y1 i* ]1 q2 ]& rL118:
    &COLOR(face)=118
    jump/L00:
L119:
    &COLOR(face)=119
    jump/L00:
0 C! x: _7 a/ Mend:
' o& y' j2 ?2 ~3 J+ n  halt