screen.auto.tal (4827B)
1 ( All five portraits should look right ) 2 3 |00 @System &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1 4 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 5 6 |0100 7 ( | size ) 8 #00a0 .Screen/width DEO2 9 #0020 .Screen/height DEO2 10 ( | theme ) 11 #05ae .System/r DEO2 12 #0a9f .System/g DEO2 13 #097f .System/b DEO2 14 ( | normal horizontal ) 15 #0000 .Screen/x DEO2 16 #0000 .Screen/y DEO2 17 [ LIT2 35 -Screen/auto ] DEO 18 ;img-hor .Screen/addr DEO2 19 #85 <draw-4times> 20 ( | normal vertical ) 21 #0020 .Screen/x DEO2 22 #0000 .Screen/y DEO2 23 [ LIT2 36 -Screen/auto ] DEO 24 ;img-ver .Screen/addr DEO2 25 #85 <draw-4times> 26 ( | flipped horizontal ) 27 #0058 .Screen/x DEO2 28 #0000 .Screen/y DEO2 29 [ LIT2 36 -Screen/auto ] DEO 30 ;img-x-flipped .Screen/addr DEO2 31 #95 <draw-4times> 32 ( | flipped vertical ) 33 #0060 .Screen/x DEO2 34 #0018 .Screen/y DEO2 35 [ LIT2 36 -Screen/auto ] DEO 36 ;img-y-flipped .Screen/addr DEO2 37 #a5 <draw-4times> 38 ( | flipped horizontal/vertical ) 39 #0098 .Screen/x DEO2 40 #0018 .Screen/y DEO2 41 [ LIT2 36 -Screen/auto ] DEO 42 ;img-xy-flipped .Screen/addr DEO2 43 #b5 <draw-4times> 44 BRK 45 46 @<draw-4times> ( color -- ) 47 .Screen/sprite DEOk DEOk DEOk DEO 48 JMP2r 49 50 @draw-fast ( w h addr* color -- ) 51 ,&color STR 52 .Screen/addr DEO2 53 SWP #01 SUB #40 SFT #06 ORA .Screen/auto DEO 54 #00 SWP SUB 55 × ( -- ) 56 [ LIT2 &color $1 -Screen/sprite ] DEO 57 INC DUP ?× 58 POP JMP2r 59 60 ( 61 @|assets ) 62 63 @img-ver [ 64 0000 0008 0404 0501 ffff fff7 fbfa f9f9 65 0000 1000 21ff ffff ffff efde 21ff ffff 66 2020 0060 f8ff fffc dfdf 9f67 f8ff fffc 67 0703 2110 0888 c851 e7fb ddee 76b6 d64d 68 0307 0617 172f 080c fbf7 f6e5 e7cf e8ec 69 ffef 1fff ff1f 0f37 f7ef 1fff 8f07 0733 70 fbff ffff fcf8 f3f7 fbf7 fff8 f0f0 f1f1 71 d3d7 c783 0100 0040 8bc7 d79b 1d3e 3e5e 72 0e06 0301 0101 0505 eef6 fbfd fdfd f9f9 73 7bfb 3fff ffff ffff 3b3b 3fff ffff ffff 74 f7f7 f7ff fff7 fffb f3ff fff3 fbff ffe3 75 c0e0 e0e4 e5e3 c7cf feee eeea e9eb f7cf 76 3800 0103 c7ff ffff c6fe fd3b c7ff ffff 77 ff7f 3f0f a0b8 bebf ff7f 3f5f b1bf bfbf 78 dfbf fefd fb07 0fdf c387 fefd fb07 efdf 79 bf7f ffff ffff ffff bf7f ffff ffff ffff ] 80 81 @img-hor [ 82 0000 0008 0404 0501 ffff fff7 fbfa f9f9 83 0307 0617 172f 080c fbf7 f6e5 e7cf e8ec 84 0e06 0301 0101 0505 eef6 fbfd fdfd f9f9 85 3800 0103 c7ff ffff c6fe fd3b c7ff ffff 86 0000 1000 21ff ffff ffff efde 21ff ffff 87 ffef 1fff ff1f 0f37 f7ef 1fff 8f07 0733 88 7bfb 3fff ffff ffff 3b3b 3fff ffff ffff 89 ff7f 3f0f a0b8 bebf ff7f 3f5f b1bf bfbf 90 2020 0060 f8ff fffc dfdf 9f67 f8ff fffc 91 fbff ffff fcf8 f3f7 fbf7 fff8 f0f0 f1f1 92 f7f7 f7ff fff7 fffb f3ff fff3 fbff ffe3 93 dfbf fefd fb07 0fdf c387 fefd fb07 efdf 94 0703 2110 0888 c851 e7fb ddee 76b6 d64d 95 d3d7 c783 0100 0040 8bc7 d79b 1d3e 3e5e 96 c0e0 e0e4 e5e3 c7cf feee eeea e9eb f7cf 97 bf7f ffff ffff ffff bf7f ffff ffff ffff ] 98 99 @img-x-flipped [ 100 e0c0 8408 1011 138a e7df bb77 6e6d 6bb2 101 0404 0006 1fff ff3f fbfb f9e6 1fff ff3f 102 0000 0800 84ff ffff ffff f77b 84ff ffff 103 0000 0010 2020 a080 ffff ffef df5f 9f9f 104 cbeb e3c1 8000 0002 d1e3 ebd9 b87c 7c7a 105 dfff ffff 3f1f cfef dfef ff1f 0f0f 8f8f 106 fff7 f8ff fff8 f0ec eff7 f8ff f1e0 e0cc 107 c0e0 60e8 e8f4 1030 dfef 6fa7 e7f3 1737 108 0307 0727 a7c7 e3f3 7f77 7757 97d7 eff3 109 efef efff ffef ffdf cfff ffcf dfff ffc7 110 dedf fcff ffff ffff dcdc fcff ffff ffff 111 7060 c080 8080 a0a0 776f dfbf bfbf 9f9f 112 fdfe ffff ffff ffff fdfe ffff ffff ffff 113 fbfd 7fbf dfe0 f0fb c3e1 7fbf dfe0 f7fb 114 fffe fcf0 051d 7dfd fffe fcfa 8dfd fdfd 115 1c00 80c0 e3ff ffff 637f bfdc e3ff ffff ] 116 117 @img-y-flipped [ 118 ffff ffc7 0301 0038 ffff ffc7 3bfd fec6 119 bfbe b8a0 0f3f 7fff bfbf bfb1 5f3f 7fff 120 df0f 07fb fdfe bfdf dfef 07fb fdfe 87c3 121 ffff ffff ffff 7fbf ffff ffff ffff 7fbf 122 0505 0101 0103 060e f9f9 fdfd fdfb f6ee 123 ffff ffff ff3f fb7b ffff ffff ff3f 3b3b 124 fbff f7ff fff7 f7f7 e3ff fffb f3ff fff3 125 cfc7 e3e5 e4e0 e0c0 cff7 ebe9 eaee eefe 126 0c08 2f17 1706 0703 ece8 cfe7 e5f6 f7fb 127 370f 1fff ff1f efff 3307 078f ff1f eff7 128 f7f3 f8fc ffff fffb f1f1 f0f0 f8ff f7fb 129 4000 0001 83c7 d7d3 5e3e 3e1d 9bd7 c78b 130 0105 0404 0800 0000 f9f9 fafb f7ff ffff 131 ffff ff21 0010 0000 ffff ff21 deef ffff 132 fcff fff8 6000 2020 fcff fff8 679f dfdf 133 51c8 8808 1021 0307 4dd6 b676 eedd fbe7 ] 134 135 @img-xy-flipped [ 136 ffff ffff ffff fefd ffff ffff ffff fefd 137 fbf0 e0df bf7f fdfb fbf7 e0df bf7f e1c3 138 fd7d 1d05 f0fc feff fdfd fd8d fafc feff 139 ffff ffe3 c080 001c ffff ffe3 dcbf 7f63 140 f3e3 c7a7 2707 0703 f3ef d797 5777 777f 141 dfff efff ffef efef c7ff ffdf cfff ffcf 142 ffff ffff fffc dfde ffff ffff fffc dcdc 143 a0a0 8080 80c0 6070 9f9f bfbf bfdf 6f77 144 0200 0080 c1e3 ebcb 7a7c 7cb8 d9eb e3d1 145 efcf 1f3f ffff ffdf 8f8f 0f0f 1fff efdf 146 ecf0 f8ff fff8 f7ff cce0 e0f1 fff8 f7ef 147 3010 f4e8 e860 e0c0 3717 f3e7 a76f efdf 148 8a13 1110 0884 c0e0 b26b 6d6e 77bb dfe7 149 3fff ff1f 0600 0404 3fff ff1f e6f9 fbfb 150 ffff ff84 0008 0000 ffff ff84 7bf7 ffff 151 80a0 2020 1000 0000 9f9f 5fdf efff ffff ] 152