gstreamer/subprojects/gst-plugins-bad/gst/gaudieffects/gstgaudieffectsorc.orc

26 lines
812 B
Text

.function gaudi_orc_burn
.dest 4 dest guint32
.source 4 src guint32
.param 4 adj gint
.const 1 c255 255
.const 1 c7 7
.const 1 c1 1
.temp 4 tmp guint32
.temp 8 tmp2 guint32
.temp 8 a2 gint
x4 copyb tmp, src # tmp <- src
x4 convubw tmp2, tmp # convert from size 1 to 2
x4 addw a2, tmp2, adj # a = tmp + adjustment
x4 shruw a2, a2, c1 # a = a / 2
x4 subb tmp, c255, tmp # tmp = 255 - tmp
#x4 mulubw tmp2, tmp, c127 # tmp = tmp * 127
x4 convubw tmp2, tmp # convert from size 1 to 2
x4 shlw tmp2, tmp2, c7 # tmp = tmp * 128
x4 divluw tmp2, tmp2, a2 # tmp = tmp / a
x4 subw tmp2, c255, tmp2 # tmp = 255 - tmp
x4 convwb tmp, tmp2 # convert from size 2 to 1
storel dest, tmp