/usr/share/aqsis/shaders/surface/curvetube.slx is in aqsis 1.8.2-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 | surface
AQSIS_V 2
segment Data
USES 465159
param uniform float Ka
param uniform float Kd
param uniform float Ks
param uniform float roughness
param uniform color specularcolor
param uniform float constantwidth
varying float x
varying float y
varying vector Nn
varying float radius
varying float bumpamt
varying normal Nf
segment Init
pushif 1
pop Ka
pushif 0.5
pop Kd
pushif 0.5
pop Ks
pushif 0.100000001
pop roughness
pushif 1
setfc
pop specularcolor
pushif 0.300000012
pop constantwidth
segment Code
pushif 1
pushv u
pushif 2
mulff
subff
pop x
pushv x
pushv x
mulff
pushif 1
subff
sqrt
pop y
pushv N
normalize
pop Nn
pushif 2
pushv constantwidth
divff
pop radius
pushv Nn
pushis "object"
vtransform
length
pushv y
pushv radius
mulff
divff
pop bumpamt
pushv Nn
pushv bumpamt
mulfp
pushv P
addpp
calculatenormal
pop N
pushv I
pushv N
normalize
faceforward
pop Nf
pushv Os
pop Oi
pushv roughness
pushv I
normalize
negp
pushv Nf
specular
pushv Ks
setfc
pushv specularcolor
mulcc
mulcc
pushv Nf
diffuse
pushv Kd
mulfc
ambient
pushv Ka
mulfc
addcc
pushv Cs
mulcc
addcc
pushv Os
mulcc
pop Ci
|