Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-12 15:30:55 +00:00
Code Issues Projects Releases Wiki Activity

entropy: more progress

Browse Source
This commit is contained in:
Vince Weaver 2018-05-27 11:22:38 -04:00
parent 06918747bf
commit 102565a5ad
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
two-liners/entropy.s
View File

@ -29,12 +29,6 @@ XDRAW0 = $F65D
entropy: entropy:
lda #<shape_table
sta HGR_SHAPE
lda #>shape_table
sta HGR_SHAPE+1
loop: loop:
jsr HGR2 ; HGR2 jsr HGR2 ; HGR2
@ -53,6 +47,12 @@ xloop: ; FOR X=4 to 278 STEP 6
sta HGR_SCALE sta HGR_SCALE
; SCALE=(RND(1)<E)*RND(1)*E*20+1 ; SCALE=(RND(1)<E)*RND(1)*E*20+1
; E=.08 80% of time less, so 0 + (0 to .08)*20 = 0 to 1.6
; 80% of time 1 to 2.6, 20% of time 2 to 3.6
; E=.15 65% 0+(0 to .15)*20 = 0 to 3
; 65% 1 to 4, 45% 2 to 5
ldy XPOSH ldy XPOSH
ldx XPOS ldx XPOS
@ -91,8 +91,6 @@ nexty:
bcc yloop bcc yloop
; NEXT E ; NEXT E
jmp loop jmp loop
shape_table: shape_table: