2020-10-12 08:04:14 +13:00
|
|
|
lookup hexadecimal_x {
|
|
|
|
### 0xFF
|
|
|
|
sub [zero zero.zero] x' [@Digit @HexDigit] by x.multiply;
|
|
|
|
sub [zero.tosf zero.zero.tosf zero.tosf.zero] x' [@DigitTosf @HexDigit] by x.multiply.tosf;
|
2020-05-13 11:42:49 +12:00
|
|
|
|
2020-10-12 08:04:14 +13:00
|
|
|
### 800x600
|
|
|
|
sub @Digit x' @Digit by x.multiply;
|
|
|
|
sub @DigitTosf x' @DigitTosf by x.multiply.tosf;
|
|
|
|
} hexadecimal_x;
|