Hallo,
wie wurden nochmal die Punkte in der HiRes-Grafik berechnet?
Hat jemand zufällig paar Code-Schnipsel rumfliegen?
Also ich bräuchte nur einzelne Punkte setzen und einfach Linien.
Hallo Besucher, der Thread wurde 5,3k mal aufgerufen und enthält 28 Antworten
letzter Beitrag von schnucke am
Punkte und Linien in HiRes
- Ingo
- Erledigt
-
Hallo,
wie wurden nochmal die Punkte in der HiRes-Grafik berechnet?
Hat jemand zufällig paar Code-Schnipsel rumfliegen?
Also ich bräuchte nur einzelne Punkte setzen und einfach Linien. -
-
-
Hier ist ein altes Listing (anscheinend von mir?) für den Profiass. Ich hatte das, glaube ich, dafür vorgesehen, dass man alles per Sys aus Basic heraus aufrufen kann. Daher die Sprungtabelle am Anfang. Leider, wie damals bei mir immer, ist nichts kommentiert. Immerhin kann man an den Labels erkennen um welche Routine es sich jeweils handelt. Die "plot"-Routine heißt auch so. Ansonsten sind noch Textausgabe, Scrollen, Umschalten auf Hi-Res und Bildschirmlöschen enthalten. Vielleicht kannst Du ja was damit anfangen. Übrigens ist das das Programm mit dem mir schon mal eine 6510-CPU abgeraucht ist. Ich hoffe da gibt es keinen ursächlichen Zusammenhang (-;
@Edit: Der Code aus dem Link von Colt Seavers ist natürlich bedeutend einfacher und schneller.
Alles anzeigenCode- 2 rem * written 1988 by xxx xxx *
- 5 :
- 10 sys 36864
- 20 .opt oo
- 30 *= $c000
- 40 :
- 50 screen = $2000
- 51 charam = $0400
- 60 chkcom = $aefd
- 61 getbyt = $b79e
- 62 getadr = $b7f7
- 63 linprt = $bdcd
- 65 bserr = $b245
- 70 a = $a3
- 71 b = $a4
- 72 c = $a5
- 73 d = $a6
- 74 e = $a7
- 80 aa = $f7
- 81 bb = $f9
- 82 cc = $fb
- 83 dd = $fd
- 97 :
- 98 :
- 99 :
- 100 jmptab jmp haupt
- 101 :
- 102 :
- 104 : jmp scrll
- 105 : jmp text
- 106 : jmp hion
- 107 : jmp hioff
- 108 : jmp clear
- 110 : jmp color
- 198 :
- 199 :
- 200 hion lda $d011
- 210 : ora #$20
- 220 : sta $d011
- 230 : lda $d018
- 240 : ora #$08
- 250 : sta $d018
- 255 : rts
- 258 :
- 259 :
- 260 hioff lda $d011
- 265 : and #$ff=$20
- 270 : sta $d011
- 275 : lda $d018
- 280 : and #$ff=$08
- 285 : sta $d018
- 290 : rts
- 298 :
- 299 :
- 310 clear lda #<screen
- 320 : sta aa
- 330 : lda #>screen
- 340 : sta aa+1
- 350 : ldx #$21
- 360 : ldy #$00
- 370 : lda #$00
- 390 l1 sta (aa),y
- 400 : iny
- 410 : bne l1
- 420 : inc aa+1
- 430 : dex
- 440 : bne l1
- 450 : rts
- 498 :
- 499 :
- 500 color lda #<charam
- 510 : sta aa
- 520 : lda #>charam
- 530 : sta aa+1
- 540 : ldx #$04
- 550 : ldy #$00
- 560 : lda #$10
- 570 l2 sta (aa),y
- 580 : iny
- 590 : bne l2
- 600 : inc aa+1
- 610 : dex
- 620 : bne l2
- 630 : rts
- 998 :
- 999 :
- 1000 text lda #$00
- 1010 :
- 1020 :
- 1030 :
- 1040 : sta aa+1
- 1050 : asl aa
- 1060 : rol aa+1
- 1070 : asl aa
- 1080 : rol aa+1
- 1090 : asl aa
- 1100 : rol aa+1
- 1110 : lda #$d0
- 1120 : clc
- 1130 : adc aa+1
- 1140 : sta aa+1
- 1145 :
- 1150 :
- 1160 :
- 1170 :
- 1180 :
- 1190 :
- 1200 :
- 1210 :
- 1220 :
- 1230 :
- 1240 :
- 1250 :
- 1260 l3 lda b
- 1265 : sta bb
- 1270 : lda #$00
- 1275 : sta bb+1
- 1280 : asl bb
- 1290 : rol bb+1
- 1300 : asl bb
- 1310 : rol bb+1
- 1320 : asl bb
- 1330 : rol bb+1
- 1340 : asl bb
- 1350 : rol bb+1
- 1360 : asl bb
- 1370 : rol bb+1
- 1380 : ldx #$08
- 1390 l4 lda bb
- 1400 : clc
- 1410 : adc b
- 1420 : sta bb
- 1430 : bcc l5
- 1440 : inc bb+1
- 1450 l5 dex
- 1460 : bne l4
- 1470 : lda bb
- 1480 : clc
- 1490 : adc a
- 1500 : sta bb
- 1510 : bcc l6
- 1520 : inc bb+1
- 1530 l6 asl bb
- 1540 : rol bb+1
- 1550 : asl bb
- 1560 : rol bb+1
- 1570 : asl bb
- 1580 : rol bb+1
- 1590 : lda bb+1
- 1600 : clc
- 1610 : adc #>screen
- 1650 : sta bb+1
- 2000 : sei
- 2010 : lda #$33
- 2020 : sta $01
- 2030 : ldy #00
- 2040 l7 lda (aa),y
- 2050 : sta (bb),y
- 2060 : iny
- 2070 : cpy #$08
- 2080 : bne l7
- 2090 : lda #$37
- 2100 : sta $01
- 2200 : cli
- 2210 : rts
- 3000 scrll lda #<screen=1
- 3010 : sta aa
- 3020 : sta bb
- 3030 : lda #>screen=1
- 3040 : sta aa+1
- 3050 : sta bb+1
- 3060 : clc
- 3070 : adc #>320
- 3080 : sta bb+1
- 3090 : lda bb
- 3100 : clc
- 3110 : adc #<320
- 3120 : sta bb
- 3130 : bcc s0
- 3140 : inc bb+1
- 3150 s0 ldx #50
- 3160 s1 ldy #160
- 3170 s2 lda (bb),y
- 3180 : sta (aa),y
- 3190 : dey
- 3200 : bne s2
- 3210 : lda aa
- 3220 : clc
- 3230 : adc #160
- 3240 : sta aa
- 3250 : bcc s3
- 3260 : inc aa+1
- 3270 s3 lda bb
- 3280 : clc
- 3290 : adc #160
- 3300 : sta bb
- 3310 : bcc s4
- 3320 : inc bb+1
- 3330 s4 dex
- 3340 : bne s1
- 3350 : rts
- 4000 plot php
- 4010 : sta $fa
- 4020 : stx $fb
- 4030 : tya
- 4040 : and #$f8
- 4050 : sta $fc
- 4060 : sta $fe
- 4070 : lda #$00
- 4080 : sta $fd
- 4090 : asl $fc
- 4100 : rol $fd
- 4110 : asl $fc
- 4120 : rol $fd
- 4130 : clc
- 4140 : lda $fc
- 4150 : adc $fe
- 4160 : sta $fc
- 4170 : lda $fd
- 4180 : adc #$00
- 4190 : sta $fd
- 4200 : asl $fc
- 4210 : rol $fd
- 4220 : asl $fc
- 4230 : rol $fd
- 4240 : asl $fc
- 4250 : rol $fd
- 4260 : tya
- 4270 : and #$07
- 4280 : clc
- 4290 : adc $fc
- 4300 : sta $fc
- 4310 : lda $fd
- 4320 : adc #$00
- 4330 : sta $fd
- 4340 : clc
- 4350 : lda $fa
- 4360 : and #$f8
- 4370 : adc $fc
- 4380 : sta $fc
- 4390 : lda $fb
- 4400 : adc $fd
- 4410 : sta $fd
- 4420 : clc
- 4430 : lda #$00
- 4440 : adc $fc
- 4450 : sta $fc
- 4460 : lda #$20
- 4470 : adc $fd
- 4480 : sta $fd
- 4490 : lda $fa
- 4500 : and #$07
- 4510 : eor #$07
- 4520 : tax
- 4530 : lda #$01
- 4540 p1 dex
- 4550 : bmi p0
- 4560 : asl
- 4570 : bne p1
- 4580 p0 ldy #$00
- 4590 : plp
- 4600 : bcc p2
- 4610 : ora ($fc),y
- 4620 : bcs p3
- 4630 p2 eor #$ff
- 4640 : and ($fc),y
- 4650 p3 sta ($fc),y
- 4660 : rts
- 10000 haupt jsr hion
- 10010 : jsr color
- 10020 : jsr clear
- 10030 h lda #12
- 10040 : sta a
- 10050 : lda #$00
- 10060 : sta b
- 10070 : lda #$00
- 10080 : sta c
- 10090 h0 lda b
- 10100 : ldx #00
- 10110 : ldy c
- 10120 : sec
- 10125 : jsr plot
- 10130 : lda b
- 10140 : clc
- 10150 : adc #16
- 10160 : sta b
- 10170 : bne h0
- 10180 :
- 10190 :
- 10200 :
- 10210 : lda c
- 10220 : clc
- 10230 : adc #16
- 10240 : sta c
- 10250 : dec a
- 10260 : bne h0
- 10270 :
- 10300 : lda #$00
- 10310 : sta c
- 10320 :
- 10330 : lda #24
- 10340 : sta b
- 10350 h1 lda c
- 10355 : tay
- 10360 : clc
- 10370 : adc #$20
- 10380 : sta a
- 10390 : lda tab,y
- 10400 : sta aa
- 10410 : jsr text
- 10420 : inc c
- 10430 : lda c
- 10450 :
- 10460 : cmp #$06
- 10470 : bne h1
- 10500 : jsr scrll
- 10600 : jmp h
- 32000 tab .byt 19,1,19,3,8,1
-
So viel zu den Punkten, Linien sind wesentlich aufwändiger. Brauchste, wenn's schnell sein soll, einen Bresenham, Artikel z.B. auch in der Codebase oder in der C=Hacking 8.
-
bresenham ist speziell für den c64 toll, weil er auch mit nur ganz wenigen registern gut zu implementieren ist.... es gibt noch nen andren algo der auf grösseren maschinen besser ist (nach "very fast line algorithmn" oder sowas googlen), aufm c64 dürfte der aber eher deutlich langsamer sein.
-
Hat jemand den Bresenham-Algorithmus schon mal
in Assembler implementiert? - dann hätt ich das mal gespart...
-
der Bresenham war so ziemlich das Erste, was ich auf dem 8bitter programmiert habe, s.hier: plot pixel + bresenham + line animation
Den Source hänge ich Dir an, brauchst noch ein Makro #plotpixel das tatsächlich den Punkt an der Pos. Ax,Ay bzw. $e0,$e1 setzt. Da kannst Du ja Deine plot-Funktion reinhängen.Viel Erfolg!
-
Hat jemand den Bresenham-Algorithmus schon mal
in Assembler implementiert? - dann hätt ich das mal gespart...
Wenn du die einfachen Sachen schon nicht selber programmieren willst, wie soll das erst bei den schweren Sachen sein? -
wobei er recht hat...
-
auf dem c64 ist so ziemlich ALLES "mehr oder weniger standard". warum überhaupt noch irgendwas coden?
-
Ich geb's auf...
-
Mal abgesehen davon hab ich doch gleich den Standardcode für Dots gegeben? Und je nach Tabellen funktioniert das Ding auf Charsets, Bitmap und Sprite-Layer. Und für Linien braucht man da nur einen winzigen Bresenham-Algo herumstricken.
-
Mit BMI (branch on minus) bzw BPL (branch on plus).
Ausserdem kann man das Carry-Flag nach der Subtraktion verwenden, um festzustellen, welche der beiden Zahlen grösser ist:
BCC (branch on carry clear) verzweigt, wenn zahl1 < zahl2.
BCS (branch on carry set) verzweigt, wenn zahl1 >= zahl2.
