From 6e3e5f5c81e04ba726121f94737a2518ffe0d25b Mon Sep 17 00:00:00 2001 From: d_m Date: Mon, 22 Apr 2024 22:44:35 -0400 Subject: [PATCH] replace tabs with spacese --- julia.tal | 174 +++++++++++++++++++++++++++--------------------------- 1 file changed, 87 insertions(+), 87 deletions(-) diff --git a/julia.tal b/julia.tal index 9118d2e..20cfb33 100644 --- a/julia.tal +++ b/julia.tal @@ -25,37 +25,37 @@ |0100 ( -> ) - ( set colors ) - #00ff .System/r DEO2 - #0ff0 .System/g DEO2 - #0f0f .System/b DEO2 + ( set colors ) + #00ff .System/r DEO2 + #0ff0 .System/g DEO2 + #0f0f .System/b DEO2 - ( set window size ) - width #10 SFT2 .Screen/width DEO2 - height #10 SFT2 .Screen/height DEO2 + ( set window size ) + width #10 SFT2 .Screen/width DEO2 + height #10 SFT2 .Screen/height DEO2 - ( starting c values ) - #0630 ;evaluate/cx STA2 #f5e0 ;evaluate/cy STA2 + ( starting c values ) + #0630 ;evaluate/cx STA2 #f5e0 ;evaluate/cy STA2 - ;on-screen .Screen/vector DEO2 - BRK + ;on-screen .Screen/vector DEO2 + BRK @on-screen ( -> BRK ) - #0000 DUP2 .Screen/x DEO2 .Screen/y DEO2 - draw-julia + #0000 DUP2 .Screen/x DEO2 .Screen/y DEO2 + draw-julia - ;evaluate/cx LDA2 - DUP2 #2000 LTH2 ?&upx - DUP2 #e000 GTH2 ?&upx - #0000 ,&dx LDR2 SUB2 ,&dx STR2 - &upx [ LIT2 &dx 0080 ] ADD2 SWP2 STA2 + ;evaluate/cx LDA2 + DUP2 #2000 LTH2 ?&upx + DUP2 #e000 GTH2 ?&upx + #0000 ,&dx LDR2 SUB2 ,&dx STR2 + &upx [ LIT2 &dx 0040 ] ADD2 SWP2 STA2 - ;evaluate/cy LDA2k - DUP2 #2000 LTH2 ?&upy - DUP2 #e000 GTH2 ?&upy - #0000 ,&dy LDR2 SUB2 ,&dy STR2 - &upy [ LIT2 &dy 0080 ] ADD2 SWP2 STA2 - BRK + ;evaluate/cy LDA2k + DUP2 #2000 LTH2 ?&upy + DUP2 #e000 GTH2 ?&upy + #0000 ,&dy LDR2 SUB2 ,&dy STR2 + &upy [ LIT2 &dy 0040 ] ADD2 SWP2 STA2 + BRK ( logical width ) @width ( -> w* ) @@ -67,28 +67,28 @@ ( draw the julia set using 4.12 fixed point numbers ) @draw-julia ( -> ) - XMAX XMIN SUB2 width DIV2 ,&dx STR2 ( ; &dx<-{xmax-min}/width ) - YMAX YMIN SUB2 height DIV2 ,&dy STR2 ( ; &dy<-{ymax-ymin}/height ) - [ LIT2 01 -Screen/auto ] DEO ( ; auto<-1 ) - LIT2r 8000 ( [8000] ) - YMAX YMIN ( ymax* ymin* [8000] ) - &yloop ( ymax* y* [8000] ) - XMAX XMIN ( ymax* y* xmax* xmin* [8000] ) - &xloop ( ymax* y* xmax* x* [8000] ) - ROT2k evaluate ( ymax* y* xmax* x* xmax* count^ [8000] ) - draw-px POP2 ( ymax* y* xmax* x* [8000] ) - [ LIT2 &dx $2 ] ADD2 ( ymax* y* xmax* x+dx* [8000] ) - OVR2 STH2kr ADD2 ( ymax* y* xmax* x+dx* 8000+xmax* [8000] ) - OVR2 STH2kr ADD2 ( ymax* y* xmax* x+dx* 8000+xmax* 8000+x+dx* [8000] ) - GTH2 ?&xloop ( ymax* y* xmax* x+dx* [8000] ) - POP2 POP2 ( ymax* y* [8000] ) - #0000 .Screen/x DEO2 ( ymax* y* [8000] ; sc/x<-0 ) - .Screen/y ;inc2 adjust ( ymax* y* [8000] ; sc/y<-sy+1 ) - [ LIT2 &dy $2 ] ADD2 ( ymax* y+dy* [8000] ) - OVR2 STH2kr ADD2 ( ymax* y+dy* 8000+ymax* [8000] ) - OVR2 STH2kr ADD2 ( ymax* y+dy* 8000+ymax* 8000+y+dy* [8000] ) - GTH2 ?&yloop ( ymax* y+dy* [8000] ) - POP2 POP2 POP2r JMP2r ( ) + XMAX XMIN SUB2 width DIV2 ,&dx STR2 ( ; &dx<-{xmax-min}/width ) + YMAX YMIN SUB2 height DIV2 ,&dy STR2 ( ; &dy<-{ymax-ymin}/height ) + [ LIT2 01 -Screen/auto ] DEO ( ; auto<-1 ) + LIT2r 8000 ( [8000] ) + YMAX YMIN ( ymax* ymin* [8000] ) + &yloop ( ymax* y* [8000] ) + XMAX XMIN ( ymax* y* xmax* xmin* [8000] ) + &xloop ( ymax* y* xmax* x* [8000] ) + ROT2k evaluate ( ymax* y* xmax* x* xmax* count^ [8000] ) + draw-px POP2 ( ymax* y* xmax* x* [8000] ) + [ LIT2 &dx $2 ] ADD2 ( ymax* y* xmax* x+dx* [8000] ) + OVR2 STH2kr ADD2 ( ymax* y* xmax* x+dx* 8000+xmax* [8000] ) + OVR2 STH2kr ADD2 ( ymax* y* xmax* x+dx* 8000+xmax* 8000+x+dx* [8000] ) + GTH2 ?&xloop ( ymax* y* xmax* x+dx* [8000] ) + POP2 POP2 ( ymax* y* [8000] ) + #0000 .Screen/x DEO2 ( ymax* y* [8000] ; sc/x<-0 ) + .Screen/y ;inc2 adjust ( ymax* y* [8000] ; sc/y<-sy+1 ) + [ LIT2 &dy $2 ] ADD2 ( ymax* y+dy* [8000] ) + OVR2 STH2kr ADD2 ( ymax* y+dy* 8000+ymax* [8000] ) + OVR2 STH2kr ADD2 ( ymax* y+dy* 8000+ymax* 8000+y+dy* [8000] ) + GTH2 ?&yloop ( ymax* y+dy* [8000] ) + POP2 POP2 POP2r JMP2r ( ) ( dithering pattern for 2x2 pixels: ) ( ) @@ -98,44 +98,44 @@ ( |[p+3]/4 [px+1]/4| ) ( |[p+0]/4 [px+2]/4| ) @draw-px ( px^ -> ) - INCk INCk INC ( p+0 p+1 p+3 ) - draw-quad draw-quad ( p+0 ; draw NW, NE ) - .Screen/y ;inc1 adjust ( ; y<-y+1 ) - .Screen/x ;sub2 adjust ( ; x<-x-2 ) - INCk INC SWP ( p+2 p+0 ) - draw-quad draw-quad ( ; draw SW, SE ) - .Screen/y ;sub1 !adjust ( ; y<-y-1 ) + INCk INCk INC ( p+0 p+1 p+3 ) + draw-quad draw-quad ( p+0 ; draw NW, NE ) + .Screen/y ;inc1 adjust ( ; y<-y+1 ) + .Screen/x ;sub2 adjust ( ; x<-x-2 ) + INCk INC SWP ( p+2 p+0 ) + draw-quad draw-quad ( ; draw SW, SE ) + .Screen/y ;sub1 !adjust ( ; y<-y-1 ) ( draw one quadrant of a 2x2 area ) @draw-quad ( p^ -> ) - #02 SFT .Screen/pixel DEO JMP2r ( ; pixel<-p/4 ) + #02 SFT .Screen/pixel DEO JMP2r ( ; pixel<-p/4 ) ( evaluate the julia function at one point ) @evaluate ( x* y* -> count^ ) - LIT2r 20 00 ( x* y* [20 00] ) - &loop ( x1* y1* [20 n^] ) - OVR2 square STH2 ( x1* y1* [20 n^ xx1*] ) - DUP2 square STH2 ( x1* y1* [20 n^ xx1* yy1*] ) - ADD2kr STH2r ( x1* y1* xx1+yy1* [20 n^ xx1* yy1*] ) - #4000 GTH2 ?&end2 ( x1* y1* [20 n^ xx1* yy1*] ) - smul2 DUP2 ADD2 ( 2x1y1* [20 n^ xx1* yy1*] ) - LIT2 [ &cy $2 ] ADD2 ( y2=2x1y1+cy* [20 n^ xx1* yy1*] ) - SUB2r STH2r ( y2* xx1-yy1* [20 n^] ) - LIT2 [ &cx $2 ] ADD2 ( y2* x2=xx1-yy1+cx* [20 n^] ) - SWP2 INCr GTHkr STHr ?&loop ( x2* y2* [20 n+1^] ) - !&end1 ( x2* y2* [20 n+1^] ) - &end2 POP2r POP2r ( x* y* [20 count^] ) - &end1 POP2 POP2 NIPr STHr JMP2r ( count^ ) + LIT2r 20 00 ( x* y* [20 00] ) + &loop ( x1* y1* [20 n^] ) + OVR2 square STH2 ( x1* y1* [20 n^ xx1*] ) + DUP2 square STH2 ( x1* y1* [20 n^ xx1* yy1*] ) + ADD2kr STH2r ( x1* y1* xx1+yy1* [20 n^ xx1* yy1*] ) + #4000 GTH2 ?&end2 ( x1* y1* [20 n^ xx1* yy1*] ) + smul2 DUP2 ADD2 ( 2x1y1* [20 n^ xx1* yy1*] ) + LIT2 [ &cy $2 ] ADD2 ( y2=2x1y1+cy* [20 n^ xx1* yy1*] ) + SUB2r STH2r ( y2* xx1-yy1* [20 n^] ) + LIT2 [ &cx $2 ] ADD2 ( y2* x2=xx1-yy1+cx* [20 n^] ) + SWP2 INCr GTHkr STHr ?&loop ( x2* y2* [20 n+1^] ) + !&end1 ( x2* y2* [20 n+1^] ) + &end2 POP2r POP2r ( x* y* [20 count^] ) + &end1 POP2 POP2 NIPr STHr JMP2r ( count^ ) ( is x a non-negative signed value? ) @non-negative ( x* -> x* x>=0^ ) - DUP2 #8000 LTH2 JMP2r + DUP2 #8000 LTH2 JMP2r ( multiply two signed 4.12 fixed point numbers ) @smul2 ( a* b* -> ab* ) - LIT2r 0001 non-negative ?{ negate SWPr } ( a* |b|* [sign*] ) - SWP2 non-negative ?{ negate SWPr } ( |b|* |a|* [sign*] ) - smul2-pos STHr ?{ negate } POPr JMP2r ( ab* ) + LIT2r 0001 non-negative ?{ negate SWPr } ( a* |b|* [sign*] ) + SWP2 non-negative ?{ negate SWPr } ( |b|* |a|* [sign*] ) + smul2-pos STHr ?{ negate } POPr JMP2r ( ab* ) ( multiply two non-negative fixed point numbers ) ( ) @@ -147,36 +147,36 @@ ( y = a1b0 >> 4 ) ( z = a0b1 >> 4 ) @smul2-pos ( a* b* -> ab* ) - aerate ROT2 aerate ( b0* b1* a0* a1* ) - STH2 ROT2k STH2 MUL2r ( b0* b1* a0* b1* a0* [a1b0*] ) - MUL2 STH2 ADD2r ( b0* b1* a0* [a1b0+a0b1*] ) - NIP2 MUL2 #07ff min #40 SFT2 ( a0b0* [y+z*] ) - STH2r #04 SFT2 ADD2 ( x* [y+z*] ) - #7fff !min ( ab* ) + aerate ROT2 aerate ( b0* b1* a0* a1* ) + STH2 ROT2k STH2 MUL2r ( b0* b1* a0* b1* a0* [a1b0*] ) + MUL2 STH2 ADD2r ( b0* b1* a0* [a1b0+a0b1*] ) + NIP2 MUL2 #07ff min #40 SFT2 ( a0b0* [y+z*] ) + STH2r #04 SFT2 ADD2 ( x* [y+z*] ) + #7fff !min ( ab* ) ( equivalent to DUP2 smul2 but faster ) @square ( a* -> aa* ) - non-negative ?{ negate } ( |a|* ) - aerate ( 00 ahi^ 00 alo^ ) - OVR2 MUL2 #03 SFT2 SWP2 ( yz* ahi* ) - DUP2 MUL2 #07ff min #40 SFT2 ( x* yz* ) - ADD2 #7fff !min ( aa* ) + non-negative ?{ negate } ( |a|* ) + aerate ( 00 ahi^ 00 alo^ ) + OVR2 MUL2 #03 SFT2 SWP2 ( yz* ahi* ) + DUP2 MUL2 #07ff min #40 SFT2 ( x* yz* ) + ADD2 #7fff !min ( aa* ) ( update a device d^ given a function f: x* -> f[x]* ) @adjust ( d^ f* -> ) - STH2 DEI2k STH2r JSR2 ROT DEO2 JMP2r + STH2 DEI2k STH2r JSR2 ROT DEO2 JMP2r ( return the minimum of two non-negative numbers. ) @min ( x* y* ) - GTH2k [ JMP SWP2 ] NIP2 JMP2r + GTH2k [ JMP SWP2 ] NIP2 JMP2r ( convert each byte of a a short into a short ) @aerate ( x* -> 00 xhi^ 00 xlo^ ) - SWP #0000 ROT SWP2 SWP JMP2r + SWP #0000 ROT SWP2 SWP JMP2r ( negate a fixed point number. doesn't work for #8000 ) @negate ( x* -> -x* ) - DUP2k EOR2 SWP2 SUB2 JMP2r + DUP2k EOR2 SWP2 SUB2 JMP2r ( useful arithmetic operations ) @inc2 ( n* -> n+2* ) INC2