Browse code
(mandelbrot.tal) Added fractal
neauoire authored on 08/02/2022 00:59:34
Showing 2 changed files
| ... | ... |
@@ -4,27 +4,24 @@ |
| 4 | 4 |
%< { LTH } %> { GTH } %= { EQU } %! { NEQ }
|
| 5 | 5 |
%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
|
| 6 | 6 |
%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
|
| 7 |
+ |
|
| 8 |
+%GTS2 { #8000 ++ SWP2 #8000 ++ << }
|
|
| 7 | 9 |
%AUTO-X { #01 .Screen/auto DEO }
|
| 8 | 10 |
%NEXT-LINE { #0000 .Screen/x DEO2 .Screen/y DEI2k INC2 ROT DEO2 }
|
| 9 | 11 |
|
| 12 |
+%WIDTH { #0280 }
|
|
| 13 |
+%HEIGHT { #01e0 }
|
|
| 14 |
+ |
|
| 10 | 15 |
%XMIN { #de69 } ( -8601 )
|
| 11 | 16 |
%XMAX { #0b33 } ( 2867 )
|
| 12 | 17 |
%YMIN { #ecc7 } ( -4915 )
|
| 13 | 18 |
%YMAX { #1333 } ( 4915 )
|
| 14 | 19 |
%MAXI { #20 } ( 32 )
|
| 15 |
-%DX { XMAX XMIN -- #004f // } ( (XMAX-XMIN)/79 )
|
|
| 16 |
-%DY { YMAX YMIN -- #0018 // } ( (YMAX-YMIN)/24 )
|
|
| 17 |
-%X { .x LDZ2 } %Y { .y LDZ2 }
|
|
| 20 |
+%DX { XMAX XMIN -- WIDTH // } ( (XMAX-XMIN)/W )
|
|
| 21 |
+%DY { YMAX YMIN -- HEIGHT // } ( (YMAX-YMIN)/H )
|
|
| 22 |
+%X { .x LDZ2 } %Y { .y LDZ2 }
|
|
| 18 | 23 |
%X2 { .x2 LDZ2 } %Y2 { .y2 LDZ2 }
|
| 19 | 24 |
|
| 20 |
-%GTS2 { #8000 ++ SWP2 #8000 ++ << }
|
|
| 21 |
- |
|
| 22 |
-%HALT { #010f DEO }
|
|
| 23 |
-%EMIT { #18 DEO }
|
|
| 24 |
-%PRINT { ;print-str JSR2 #0a EMIT }
|
|
| 25 |
-%DEBUG { ;print-hex/byte JSR2 #0a EMIT }
|
|
| 26 |
-%DEBUG2 { ;print-hex JSR2 #0a EMIT }
|
|
| 27 |
- |
|
| 28 | 25 |
|00 @System &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1 |
| 29 | 26 |
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |
| 30 | 27 |
|
| ... | ... |
@@ -36,17 +33,15 @@ |
| 36 | 33 |
|0100 ( -> ) |
| 37 | 34 |
|
| 38 | 35 |
( theme ) |
| 39 |
- #048c .System/r DEO2 |
|
| 40 |
- #048c .System/g DEO2 |
|
| 41 |
- #048c .System/b DEO2 |
|
| 42 |
- |
|
| 43 |
- #0280 .Screen/width DEO2 ( 640 ) |
|
| 44 |
- #01e0 .Screen/height DEO2 ( 480 ) |
|
| 36 |
+ #0f0f .System/r DEO2 |
|
| 37 |
+ #0ff0 .System/g DEO2 |
|
| 38 |
+ #00ff .System/b DEO2 |
|
| 45 | 39 |
|
| 46 |
- #0000 .Screen/x DEO2 |
|
| 47 |
- #0000 .Screen/y DEO2 |
|
| 40 |
+ WIDTH .Screen/width DEO2 ( 640 ) |
|
| 41 |
+ HEIGHT .Screen/height DEO2 ( 480 ) |
|
| 48 | 42 |
|
| 49 | 43 |
AUTO-X |
| 44 |
+ |
|
| 50 | 45 |
;draw-mandel JSR2 |
| 51 | 46 |
|
| 52 | 47 |
BRK |
| ... | ... |
@@ -62,14 +57,14 @@ BRK |
| 62 | 57 |
#0000 DUP2 DUP2 DUP2 .x STZ2 .y STZ2 .x2 STZ2 .y2 STZ2 |
| 63 | 58 |
MAXI #00 |
| 64 | 59 |
&loop |
| 65 |
- X Y ;smul2 JSR2 #0b SFT2 [ LIT2 &y $2 ] ++ .y STZ2 |
|
| 60 |
+ X Y ;smul2 JSR2 DUP2 ADD2 [ LIT2 &y $2 ] ++ .y STZ2 |
|
| 66 | 61 |
X2 Y2 -- [ LIT2 &x $2 ] ++ .x STZ2 |
| 67 |
- X X ;smul2 JSR2 #0c SFT2 .x2 STZ2 |
|
| 68 |
- Y Y ;smul2 JSR2 #0c SFT2 .y2 STZ2 |
|
| 69 |
- X2 Y2 ++ >> #4000 ,&end JCN |
|
| 62 |
+ X DUP2 ;smul2 JSR2 .x2 STZ2 |
|
| 63 |
+ Y DUP2 ;smul2 JSR2 .y2 STZ2 |
|
| 64 |
+ X2 Y2 ++ #4000 >> ,&end JCN |
|
| 70 | 65 |
INC GTHk ,&loop JCN |
| 71 | 66 |
&end |
| 72 |
- NIP POP #03 .Screen/pixel DEO |
|
| 67 |
+ NIP .Screen/pixel DEO |
|
| 73 | 68 |
DX ++ OVR2 OVR2 GTS2 ;&hor JCN2 |
| 74 | 69 |
POP2 POP2 |
| 75 | 70 |
NEXT-LINE |
| ... | ... |
@@ -78,60 +73,35 @@ BRK |
| 78 | 73 |
|
| 79 | 74 |
JMP2r |
| 80 | 75 |
|
| 81 |
-@print-hex ( value* -- ) |
|
| 82 |
- |
|
| 83 |
- SWP ,&byte JSR |
|
| 84 |
- &byte ( byte -- ) |
|
| 85 |
- STHk #04 SFT ,&parse JSR #18 DEO |
|
| 86 |
- STHr #0f AND ,&parse JSR #18 DEO |
|
| 87 |
- JMP2r |
|
| 88 |
- &parse ( byte -- char ) DUP #09 GTH ,&above JCN #30 ADD JMP2r |
|
| 89 |
- &above #57 ADD JMP2r |
|
| 90 |
- |
|
| 91 |
-JMP2r |
|
| 92 |
- |
|
| 93 | 76 |
@smul2 ( a* b* -- c* ) |
| 94 |
- |
|
| 95 |
- OVR2 POP #80 AND #07 SFT STH |
|
| 96 |
- OVR #80 AND #07 SFT STHr ADD #01 AND ,&sign STR |
|
| 97 |
- #10 SFT2 #01 SFT2 |
|
| 77 |
+ LITr 00 |
|
| 78 |
+ DUP2 #8000 LTH2 ,&b-positive JCN |
|
| 79 |
+ INCr DUP2k EOR2 SWP2 SUB2 |
|
| 80 |
+ &b-positive |
|
| 98 | 81 |
SWP2 |
| 99 |
- #10 SFT2 #01 SFT2 |
|
| 100 |
- MUL2 |
|
| 101 |
- ,&sign LDR ,&flip JCN |
|
| 102 |
- JMP2r |
|
| 103 |
- &flip |
|
| 104 |
- #0000 SWP2 -- |
|
| 82 |
+ DUP2 #8000 LTH2 ,&a-positive JCN |
|
| 83 |
+ INCr DUP2k EOR2 SWP2 SUB2 |
|
| 84 |
+ &a-positive |
|
| 85 |
+ ( ahi alo bhi blo ) |
|
| 86 |
+ LITr 00 STH ( ahi alo bhi / blo* ) |
|
| 87 |
+ OVRr STH ( ahi alo / blo* bhi* ) |
|
| 88 |
+ OVRr STH ( ahi / blo* bhi* alo* ) |
|
| 89 |
+ OVRr STH ( asign / blo* bhi* alo* ahi* ) |
|
| 90 |
+ ROT2r MUL2kr STH2r ( asign ahi-bhi* / blo* alo* ahi* bhi* ) |
|
| 91 |
+ ROT2r MUL2kr STH2r ( asign ahi-bhi* alo-bhi* / blo* ahi* bhi* alo* ) |
|
| 92 |
+ NIP2r ( asign ahi-bhi* alo-bhi* / blo* ahi* alo* ) |
|
| 93 |
+ ROT2r MUL2kr STH2r ( asign ahi-bhi* alo-bhi* alo-blo* / ahi* alo* blo* ) |
|
| 94 |
+ ROT2r MUL2r STH2r POP2r ( asign ahi-bhi* alo-bhi* alo-blo* ahi-blo* ) |
|
| 95 |
+ SWP2 ( asign ahi-bhi* alo-bhi* ahi-blo* alo-blo* ) |
|
| 96 |
+ ( 32-bit result is [ r3 r2 r1 r0 ] ) |
|
| 97 |
+ POP #00 SWP ( asign ahi-bhi* alo-bhi* ahi-blo* r21* ) |
|
| 98 |
+ ( r21 max is 00fe, ahi-blo max is 7e81, max sum is 7f7f ) |
|
| 99 |
+ ADD2 ( asign ahi-bhi* alo-bhi* r21'* ) |
|
| 100 |
+ ( r21' max is 7f7f, alo-bhi max is 7e81, max sum is fe00 ) |
|
| 101 |
+ ADD2 ( asign ahi-bhi* r21"* ) |
|
| 102 |
+ ( The result we want is bits 27-12 due to the fixed point representation we use. ) |
|
| 103 |
+ #04 SFT2 SWP2 #40 SFT2 ADD2 |
|
| 104 |
+ STHr #01 EQU JMP JMP2r |
|
| 105 |
+ DUP2k EOR2 SWP2 SUB2 |
|
| 105 | 106 |
|
| 106 | 107 |
JMP2r |
| 107 |
- &sign $1 |
|
| 108 |
- |
|
| 109 |
-@sprites |
|
| 110 |
- 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 111 |
- 0000 0018 1800 0000 0000 0000 0000 0000 |
|
| 112 |
- 0000 183c 3c18 0000 0000 0000 0000 0000 |
|
| 113 |
- 0018 3c7e 7e3c 1800 0000 0000 0000 0000 |
|
| 114 |
- 183c 7eff ff7e 3c18 0000 0000 0000 0000 |
|
| 115 |
- 3c7e ffff ffff 7e3c 0000 0000 0000 0000 |
|
| 116 |
- 7eff ffff ffff ff7e 0000 0000 0000 0000 |
|
| 117 |
- ffff ffff ffff ffff 0000 0000 0000 0000 |
|
| 118 |
- ffff ffe7 e7ff ffff 0000 0018 1800 0000 |
|
| 119 |
- ffff e7c3 c3e7 ffff 0000 183c 3c18 0000 |
|
| 120 |
- ffe7 c381 81c3 e7ff 0018 3c7e 7e3c 1800 |
|
| 121 |
- e7c3 8100 0081 c3e7 183c 7eff ff7e 3c18 |
|
| 122 |
- c381 0000 0000 81c3 3c7e ffff ffff 7e3c |
|
| 123 |
- 8100 0000 0000 0081 7eff ffff ffff ff7e |
|
| 124 |
- 0000 0000 0000 0000 ffff ffff ffff ffff |
|
| 125 |
- 0000 0018 1800 0000 ffff ffff ffff ffff |
|
| 126 |
- 0000 183c 3c18 0000 ffff ffff ffff ffff |
|
| 127 |
- 0018 3c7e 7e3c 1800 ffff ffff ffff ffff |
|
| 128 |
- 183c 7eff ff7e 3c18 ffff ffff ffff ffff |
|
| 129 |
- 3c7e ffff ffff 7e3c ffff ffff ffff ffff |
|
| 130 |
- 7eff ffff ffff ff7e ffff ffff ffff ffff |
|
| 131 |
- ffff ffff ffff ffff ffff ffff ffff ffff |
|
| 132 |
- ffff ffe7 e7ff ffff ffff ffe7 e7ff ffff |
|
| 133 |
- ffff e7c3 c3e7 ffff ffff e7c3 c3e7 ffff |
|
| 134 |
- ffe7 c381 81c3 e7ff ffe7 c381 81c3 e7ff |
|
| 135 |
- e7c3 8100 0081 c3e7 e7c3 8100 0081 c3e7 |
|
| 136 |
- c381 0000 0000 81c3 c381 0000 0000 81c3 |
|
| 137 |
- 8100 0000 0000 0081 8100 0000 0000 0081 |