File: fragment.arb

package info (click to toggle)
libopengl-perl 0.56.dfsg.1-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 1,276 kB
  • ctags: 812
  • sloc: perl: 9,134; ansic: 5,793; makefile: 107
file content (11 lines) | stat: -rw-r--r-- 293 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
!!ARBfp1.0
PARAM surfacecolor = program.local[5];
TEMP color;
MUL color, fragment.texcoord[0].y, 2.0;
ADD color, 1.0, -color;
ABS color, color;
ADD color, 1.01, -color;  # Some cards have a rounding error
MOV color.a, 1.0;
MUL color, color, surfacecolor;
MOV result.color, color;
END