blob: 3b1ff4193fe922444c560f3ac33857298b42fab4 (
plain) (
tree)
|
|
type rgb {
# components normalized to within [0.0, 1.0]
r: float
g: float
b: float
}
# print translating to [0, 256)
fn print-rgb screen: (addr screen), _c: (addr rgb) {
var c/esi: (addr rgb) <- copy _c
var n/ecx: int <- copy 0xff
var xn/xmm1: float <- convert n
var tmp/xmm0: float <- copy xn
var tmp-a/eax: (addr float) <- get c, r
tmp <- multiply *tmp-a
var tmp2/edx: int <- convert tmp
print-int32-decimal screen, tmp2
print-string screen, " "
tmp-a <- get c, g
tmp <- copy xn
tmp <- multiply *tmp-a
tmp2 <- convert tmp
print-int32-decimal screen, tmp2
print-string screen, " "
tmp-a <- get c, b
tmp <- copy xn
tmp <- multiply *tmp-a
tmp2 <- convert tmp
print-int32-decimal screen, tmp2
print-string screen, "\n"
}
|