/usr/share/aqsis/shaders/light/shadowdistant.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 | lightsource
AQSIS_V 2
segment Data
USES 524352
param uniform float intensity
param uniform color lightcolor
param uniform point from
param uniform point to
param uniform string shadowname
param uniform float samples
param uniform float width
segment Init
pushif 1
pop intensity
pushif 1
setfc
pop lightcolor
pushif 0
pushif 0
pushif 0
settp
pushis "current"
pushis "shader"
transform2
pop from
pushif 1
pushif 0
pushif 0
settp
pushis "current"
pushis "shader"
transform2
pop to
pushis ""
pop shadowname
pushif 16
pop samples
pushif 1
pop width
segment Code
:0
S_CLEAR
pushif 0
pushv from
pushv to
subpp
solar2
S_JZ 1
RS_PUSH
RS_GET
pushv lightcolor
pushv intensity
mulfc
pop Cl
S_CLEAR
pushis ""
pushv shadowname
ness
S_GET
RS_PUSH
RS_GET
RS_JZ 2
pushv width
pushis "twidth"
pushv width
pushis "swidth"
pushv samples
pushis "samples"
pushv Ps
pushv shadowname
pushif 6
shadow
pushif 1
subff
setfc
pushv Cl
mulcc
pop Cl
:2
RS_POP
RS_POP
jmp 0
:1
|