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

tbg_ug

自己原创的，如果有什么要改进和好的建议请给我留言.
% ]! h7 u7 J% n! r* i4 f; x$$=================
$$  实体面自动着色
1 u7 T8 J  ~/ ?+ z( ]* k$$=================
ENTITY/face
NUMBER/B(3)
  }  r" j# R# d; ]3 z$$=================
$ j1 y4 U" J5 F* g" HSTART:
  ifthen/&ACTPRT==1
  messg/'请打开一个部件!'
( t2 Y& R7 ?' M, |/ X& v  jump/end:
; B9 a, U! n  R" j  endif
; V2 u7 N/ ]" _' c& z- ?2 x" G# ~$$=================
mask/71
/ E7 _. X9 f  v4 Ninexte
! O* X# u/ y1 `$ [( b3 @7 H9 o6 v5 P" rL00:
    face=nexte/ifend,end:
    B=SNORF(face,0.5,0.5)
1 o5 Q% I# {3 W1 i0 B( t6 q        if/B(3)>=-1 and B(3)<0,jump/L211:
        if/B(3)==0,jump/L1:
        if/B(3)==1,jump/L108:
9 s# p& v; l+ \6 t: o0 Q+ {        if/B(3)<1 and B(3)>=0.9,jump/L109:
: M5 X* c8 B* \' N+ P: ~        if/B(3)<0.9 and B(3)>=0.8,jump/L110:
# r$ \' J8 U. C& o9 g        if/B(3)<0.8 and B(3)>=0.7,jump/L111:
5 c6 `0 ^6 Z* K: b6 x( _        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:
5 s% g, H" u- ]/ O7 }0 H        if/B(3)<0.4 and B(3)>=0.3,jump/L116:
6 k+ ^  x& m1 J' q4 o        if/B(3)<0.3 and B(3)>=0.2,jump/L117:
        if/B(3)<0.2 and B(3)>=0.1,jump/L118:
* n! k4 D0 z0 y; K  U8 M$ D        if/B(3)<0.1 and B(3)>0,jump/L119:
    jump/L00:
      
6 `4 `, b7 r7 C3 j: L' S5 QL211:
    &COLOR(face)=211
    jump/L00:
L1:
. A5 o5 D" X7 L& W! r/ x+ g    &COLOR(face)=1
    jump/L00:
L108:
* ]$ B" L7 Q6 E6 G* q( M7 c. F    &COLOR(face)=108
! E+ O  B% @* i3 X5 U    jump/L00:
L109:
( ?" g2 C4 X" |6 z    &COLOR(face)=109
    jump/L00:
& [" t5 m1 e' W1 nL110:
    &COLOR(face)=110
    jump/L00:
L111:
, A7 w5 Y( O7 n2 k+ t$ @    &COLOR(face)=111
1 `# Z3 i  ]9 Q; S$ G$ O    jump/L00:
9 _+ a& T4 S, N, p7 r: bL112:
    &COLOR(face)=112
    jump/L00:
L113:
% o% K6 v$ k$ u# @    &COLOR(face)=113
    jump/L00:
L114:
    &COLOR(face)=114
    jump/L00:
L115:
    &COLOR(face)=115
7 o  b  h, q' X    jump/L00:
L116:
    &COLOR(face)=116
& X- X" `1 B9 m4 |0 ]: V) D+ _1 D    jump/L00:
L117:
    &COLOR(face)=117
. k* b* c4 ?7 }, I    jump/L00:
L118:
1 x' o5 M7 Q* j; h    &COLOR(face)=118
% T1 R2 j, A! R( R    jump/L00:
L119:
    &COLOR(face)=119
2 i" B) h* T7 F    jump/L00:
2 _3 s7 A% q+ G. ~end:
  halt