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

tbg_ug

自己原创的，如果有什么要改进和好的建议请给我留言.
$$=================
; y- R- i- h4 l6 S, H8 h& Y/ C$$  实体面自动着色
# ^& X, {9 V( ]% K; U$$=================
% t6 u2 ^+ Y" U/ U2 H% j9 h  CENTITY/face
0 h8 g+ b: z& n5 B( y. v) A6 L2 MNUMBER/B(3)
$$=================
3 d$ }% u. Z" X: S& k0 xSTART:
  ifthen/&ACTPRT==1
- `" W: L0 P0 R) J  messg/'请打开一个部件!'
+ W  C" E+ i- H  n7 ]  jump/end:
  endif
( T+ p1 {8 T/ Q, Y  x$$=================
3 j/ _! h$ C/ I7 g* Fmask/71
& ]( @) v  u5 {inexte
( V% O; w' h5 s% ^L00:
, e4 ~" I  L# W5 b    face=nexte/ifend,end:
    B=SNORF(face,0.5,0.5)
* ?7 u- Q2 ^- |  n. F+ {. [7 t' Y        if/B(3)>=-1 and B(3)<0,jump/L211:
        if/B(3)==0,jump/L1:
0 o+ e8 _' R, B  Y- H        if/B(3)==1,jump/L108:
- m% S& k" n; K. [' `        if/B(3)<1 and B(3)>=0.9,jump/L109:
        if/B(3)<0.9 and B(3)>=0.8,jump/L110:
8 v" _% N; Z5 S: R7 S        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:
3 ]% E# ^" [4 ?" t: i        if/B(3)<0.5 and B(3)>=0.4,jump/L114:
1 B' F" U( D5 a6 _7 ]& k; ~2 z" 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:
        if/B(3)<0.1 and B(3)>0,jump/L119:
' ~; \9 _& t( |1 n& G    jump/L00:
      
L211:
    &COLOR(face)=211
    jump/L00:
L1:
6 ]$ ^5 h( g/ N    &COLOR(face)=1
$ X4 B+ O  @' i( s. T3 ]    jump/L00:
' _! N+ y( J8 x+ yL108:
    &COLOR(face)=108
  S' w2 e/ X, E4 z  ~    jump/L00:
8 M# J1 B8 `0 t: s7 m' lL109:
    &COLOR(face)=109
    jump/L00:
L110:
    &COLOR(face)=110
$ P2 Y- S+ {4 _& r/ b8 a; u    jump/L00:
L111:
$ Q# y# H% q8 Q    &COLOR(face)=111
( I# }9 ?! `$ L( r# i* \0 r    jump/L00:
L112:
3 R" @( o- T/ w0 P/ O4 W/ W/ j    &COLOR(face)=112
    jump/L00:
& B: w' n3 G* }L113:
- j4 r6 A2 E& r! P0 v' Y8 d. @    &COLOR(face)=113
    jump/L00:
L114:
    &COLOR(face)=114
9 p  T( U) p, |    jump/L00:
% j. a1 l* x" o- ZL115:
' w1 `7 F8 G/ g! T/ W) {. ^    &COLOR(face)=115
    jump/L00:
/ I  Q- J% C' g6 xL116:
    &COLOR(face)=116
    jump/L00:
L117:
9 X& W% C8 g& Q. |- I$ k' K8 M2 Z    &COLOR(face)=117
    jump/L00:
, Z4 x/ Z' q/ M8 I: B) f' lL118:
. z$ C4 s# h" x    &COLOR(face)=118
    jump/L00:
L119:
% S) B: h2 |2 y3 S. o$ n6 n    &COLOR(face)=119
; T" P! y( Q7 j* L3 e% P5 s    jump/L00:
end:
  halt  
1 o. J$ \; r$ K: n: g. u5 R