diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile index a52efccd..f161ac8d 100644 --- a/basic/appleiibot/Makefile +++ b/basic/appleiibot/Makefile @@ -17,7 +17,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \ COMBO.BAS WIRES.BAS PATTERN.BAS BALL.BAS LINES.BAS MOD9.BAS \ XOR_ZOOM.BAS MOD9_HGR.BAS SIER_HGR.BAS MOVE.BAS SINE.BAS XDRAW128.BAS \ GATOR.BAS CURSOR.BAS STARGATE.BAS TUNNEL.BAS STARFIELD.BAS \ - STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS + STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS WEB.BAS # cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk cp empty.dsk appleiibot.dsk @@ -90,6 +90,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \ $(DOS33) -y appleiibot.dsk SAVE A STAROOPS.BAS $(DOS33) -y appleiibot.dsk SAVE A HGRSTARFIELD.BAS $(DOS33) -y appleiibot.dsk SAVE A COOL_BOT.BAS + $(DOS33) -y appleiibot.dsk SAVE A WEB.BAS #### @@ -509,5 +510,10 @@ COOL_BOT.BAS: cool_bot.bas #### +WEB.BAS: web.bas + $(TOKENIZE) < web.bas > WEB.BAS + +#### + clean: rm -f *~ *.o *.lst convert_to convert_from convert_qkumba convert_vmw make_boxes convert_back convert_tgreene LOAD *.BAS diff --git a/basic/appleiibot/web.bas b/basic/appleiibot/web.bas new file mode 100644 index 00000000..15175d39 --- /dev/null +++ b/basic/appleiibot/web.bas @@ -0,0 +1,2 @@ +1FORI=0TO139:POKE1013+I,4*PEEK(2126+I)-192+(PEEK(2266+I/3)-35)/4^(I-INT(I/3)*3):NEXT +2&",clNDQnZ0FkQaW0=ioenQfA;#fmVn<-`nVm>`l2.5J*A:$Vm026D0IaNnRlBnQnemYa?oGliaW1KlYl:1>YYkBT,aZL5Ne.ZOkB@0ZZH6Km0X08=kam4fTmaeZWQmb`b4P8ZmR8ZoCj0SM'PX'4F[0>0H5EW- 64? ; XX=0 YY=R ; D=3-2*R ; GOTO6 + lda #0 sta XX - lda R - sta YY +; lda R + stx YY - asl - sta D lda #3 sec - sbc D + sbc R + sbc R sta D jmp do_plots @@ -114,7 +101,6 @@ circle_loop: asl asl clc - adc D adc #10 jmp store_D @@ -124,134 +110,95 @@ else: asl asl clc - adc D adc #6 store_D: + adc D sta D do_plots: + ; setup constants + + lda XX + eor #$FF + sta MINUSXX + inc MINUSXX + + lda YY + eor #$FF + sta MINUSYY + inc MINUSYY + ; HPLOT CX+X,CY+Y - - lda CX - clc - adc XX - tax - ldy #0 - lda CY - clc - adc YY - - jsr HPLOT0 ; plot at (Y,X), (A) - ; HPLOT CX-X,CY+Y - - lda CX - sec - sbc XX - tax - ldy #0 - lda CY - clc - adc YY - - jsr HPLOT0 ; plot at (Y,X), (A) - ; HPLOT CX+X,CY-Y - - lda CX - clc - adc XX - tax - ldy #0 - lda CY - sec - sbc YY - - jsr HPLOT0 ; plot at (Y,X), (A) - - ; HPLOT CX-X,CY-Y - - lda CX - sec - sbc XX - tax - ldy #0 - lda CY - sec - sbc YY - - jsr HPLOT0 ; plot at (Y,X), (A) - ; HPLOT CX+Y,CY+X - - lda CX - clc - adc YY - tax - ldy #0 - lda CY - clc - adc XX - - jsr HPLOT0 ; plot at (Y,X), (A) - - ; HPLOT CX-Y,CY+X - - lda CX - sec - sbc YY - tax - ldy #0 - lda CY - clc - adc XX - - jsr HPLOT0 ; plot at (Y,X), (A) - ; HPLOT CX+Y,CY-X - - lda CX - clc - adc YY - tax - ldy #0 - lda CY - sec - sbc XX - - jsr HPLOT0 ; plot at (Y,X), (A) - ; HPLOT CX-Y,CY-X - lda CX - sec - sbc YY + ; calc X co-ord + + lda #7 + sta COUNT +pos_loop: + lda COUNT + and #$4 + lsr + tay + + lda COUNT + lsr + bcc xnoc + iny +xnoc: +; lda CX + lda #128 + clc + adc XX,Y tax + + ; calc y co-ord + + lda COUNT + lsr + eor #$2 + tay + +; lda CY + lda #96 + clc + adc XX,Y + ldy #0 - lda CY - sec - sbc XX jsr HPLOT0 ; plot at (Y,X), (A) + dec COUNT + bpl pos_loop + ; IFY>=XTHEN4 lda YY cmp XX -; bcs circle_loop - bcc done + bcs circle_loop - jmp circle_loop done: - lda R - clc - adc #3 - sta R -stop: - cmp #90 - beq stop + ldx R +; sec +; sbc #3 - ; GOTO1 - jmp draw_next + dex + dex + dex + + bpl draw_next + +stop: + jsr WAIT + txa + jsr WAIT + + ; for once we get this for free, even though we don't need it + + jmp web diff --git a/graphics/hgr/vgi/README.VGI b/graphics/hgr/vgi/README.VGI index ff38ab79..55bb0d6b 100644 --- a/graphics/hgr/vgi/README.VGI +++ b/graphics/hgr/vgi/README.VGI @@ -156,3 +156,12 @@ VGI End (15) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +Size comparison: + + VGI data Captured+Compressed compressed autoconvert + ======== =================== ====================== +clock 385B 1228B +rocket 623B +door 189B +book 212B +firep 486B