home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2008 January / Cybermycha 1_2008.iso / Data.cab / _DED12140F31746B3AD1B580DFF39455C < prev    next >
Encoding:
Text File  |  2004-03-18  |  1.3 KB  |  40 lines
  1. regc(0, "TFACTOR")
  2. regc4f( 4, 0,0,0, %sunvisibility )
  3. regc4f( 5, %daycolor_r, %daycolor_g, %daycolor_b, %skycolor_a )
  4. regc4f( 7, %ambient_r, %ambient_g, %ambient_b, %ambient_a )
  5. pshader("
  6.  
  7.  
  8. ps_1_1
  9.  
  10. def    c3, 0.8, 0.7, 0.4, 0    ;RGB:Lights in windows color
  11.  
  12. tex t0 ;texture (RGB - color, A<0-127> - Opacity, A<128-255> - Specular Mask)
  13. tex t1 ;Clouds
  14. tex t2 ;Cubemap
  15.  
  16.     mul_x2_sat    r1.a, t0.a, c4.a                        ;Specular Mask extracition
  17.  
  18.     mul_sat     r1.rgb, v1,     r1.a            ;Specular * Specular Mask           = Masked Specular
  19.     +mul        r0.a,   v0.b,   1-t1.a          ;Diffuse * Clouds shadow            = Full Lighting
  20.  
  21.     mad_sat     r0.rgb, r0.a,   c7, c7.a        ;Full Lighting + Map Ambient        = Set Diffuse
  22.     +mul        r1.a,   r1.b,   1-t1.a          ;Masked Specular * Clouds shadow    = Set Specular
  23.  
  24.     mul            r1.rgb, t0, c3                        ;Coloring winows
  25.     +mov_sat    t0.a,   t0_bx2.a                    ;Cubemap Mask extraction
  26.  
  27.     mad_sat     t0, t0.a, t2, t0                ;Appling Cubemap to Color
  28.  
  29.     mad_sat     r0.rgb, t0, r0, r1.a    ;Light Texture
  30.     +mov        r0.a, c5.a
  31.  
  32.     mul         r0.rgb, r0, c5                  ;Day
  33.     +cnd        t0.a, r0.a, t0.a, c3.a
  34.  
  35.     mad_sat     r0.rgb, r1, t0.a, r0            ;Lights in window
  36.     +mov        r0.a,   c0.a                    ;Object blending
  37.  
  38. ")
  39.  
  40.