tomaes
/ flatenthemout.pde
Last active
April 11, 2016 12:51
Sierpinsky Carpet bömbing; stylish fractal things + parallax scrolling
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // PDE 3.02 | |
| // Sierpinski's Carpet bömbing (v3) | |
| // updt: better, faster, interactive | |
| PImage img = createImage(729,729, RGB); | |
| void setup() | |
| { | |
| size( 729, 729, P2D ); //729 243 324 | |
| } |
tomaes
/ northern_lights
Last active
August 29, 2015 14:02
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; working title: sea changes near wallpaper city | |
| *= $801 | |
| byte $0B, $08, $0A, $00, $9E, $34, $30, $39, $36, $00, $00, $00 | |
| chars | |
| byte 78, 77, 73, 75, 242, 66, 97, 72 | |
| txt | |
| byte 13, 5; color | |
| text "E-SIRAMIS " ; 10b |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 s=4^5:f=55296:w=40:c=85:h=198:z=z+.05:fory=.to24:forx=.to39 | |
| 1 v=abs(atn(sin(x*y*z)*.5)*3):pokes+y*w+x,c+v:pokef+y*w+x,4+v:nextx,y | |
| 3 print"{home}[key]":pokeh,.:waith,1:goto |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 rem c128 heart curve | |
| 2 color 4,5: rem bg | |
| 4 color 0,1: rem screen | |
| 6 color 1,3: rem drawing color | |
| 8 graphic 1,1:h=200:hh=100:wh=160:cw=10:ch=6 | |
| 10 forx=-.99to1step.06 | |
| 20 q=sqr(1-x*x) | |
| 22 y0=sqr(x*x)-q | |
| 24 y1=sqr(x*x)+q | |
| 44 xa=int((x+1)*wh):ya=h-int((y0+1)*hh) |
tomaes
/ micro note
Last active
August 29, 2015 14:01
mini note file viewer. rev2 with multi-page support. (c64)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; | |
| ; a minimal noter example with generated audio, BASIC header and multi-page support | |
| ; | |
| * = $801 | |
| ; 0 SYS4096 | |
| byte $0B, $08, $00, $00, $9E, '4', '0', '9', '6', $00, $00, $00 | |
| * = $1000 |
tomaes
/ flower tower
Last active
August 29, 2015 14:01
54 wasteful bytes; looks kinda neat though. interactive. (c64)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; | |
| ; wallpaper scroll / flower tower (interactive) | |
| ; | |
| * = 4096 | |
| lda #6 | |
| sta $d020 | |
| start ; | |
| ; user input to init field color and width | |
| ; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 n=54296:geti:s(i)=(s(i)+1)and7:fori=1to8:poke1024+i,s(i):next:p=(p+1)and7 | |
| 2 poke1065+p,30:fori=.to99:next:poke1065+p,32:poken,s(p+1):poken,.:goto |
tomaes
/ feng shui 64
Last active
August 29, 2015 14:01
61 bytes to visually bubble sort the contents of your screen; yes, this takes a while. ("speed optimised" version (r=.:fori=4^5to2022-r:r=r+1: ...) would take 74 bytes of memory) (c64)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 fori=4^5to2022:a=peek(i):b=peek(i+1):poke-(a>b)+i,a:pokei+1+(a>b),b:next:run |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 12 s = 2^10+40*3: w = 40: h = 20: mi = 10: co = 108: ti$="000000": print"{clear}" | |
| 20 fory=-1to1step.1: forx=-3to1step.1 | |
| 45 xn = 0: yn = 0: i = 0 | |
| 47 if (xn*xn+yn*yn)<4 then if (i<mi) then t=(xn*xn)-(yn*yn)+x: yn=2*x*y+y: xn=t: i=i+1: goto47 | |
| 49 px=(x+3.)/4*w: py=(y+1.)/2*h | |
| 50 poke s + py*w + px, co+((i+x+y)and127) | |
| 58 print"{home}t:"ti$", x:"str$(px)", y:"str$(py)", i:"str$(i)"{space*9}" | |
| 60 next x,y:poke198,.:wait198,1 |
tomaes
/ pre-alpha-bet
Last active
August 29, 2015 14:01
Random letters. Type in the one that precedes it in the alphabet. Better hurry. Try not to fail like a 5 year old. ;)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 c=int(rnd(1)*25)+66:printchr$(c);:fori=.toc*30:next:geta$:iflen(a$)>.thenif((c-1)=asc(a$))goto |