Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Correct x position of 4x4 characters

Browse Source
This commit is contained in:
Pecusx
2022-05-26 09:43:12 +02:00
parent c68ba09103
commit b11d22d1bb
2 changed files with 20 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+20 -23
View File
@@ -672,7 +672,7 @@ DoNotDrawTankNr
rts rts
;-------------------------------------------------- ;--------------------------------------------------
drawmountains .proc .proc drawmountains
;-------------------------------------------------- ;--------------------------------------------------
mwa #0 xdraw mwa #0 xdraw
@@ -691,7 +691,6 @@ NoMountain
inw xdraw inw xdraw
cpw xdraw #screenwidth cpw xdraw #screenwidth
bne drawmountainsloop bne drawmountainsloop
rts rts
;-------------------------------------------------- ;--------------------------------------------------
drawmountainspixel drawmountainspixel
@@ -713,7 +712,7 @@ drawmountainspixelloop
rts rts
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
SoilDown2 .proc .proc SoilDown2
;-------------------------------------------------- ;--------------------------------------------------
; how it is supposed to work: ; how it is supposed to work:
@@ -842,7 +841,7 @@ ColumnIsReady
rts rts
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
calculatemountains .proc .proc calculatemountains
;-------------------------------------------------- ;--------------------------------------------------
mwa #0 xdraw mwa #0 xdraw
@@ -944,7 +943,7 @@ EndDrawing
.endp .endp
; **************************************************** ; ****************************************************
;-------------------------------------------------- ;--------------------------------------------------
calculatemountains0 .proc .proc calculatemountains0
; Only for testing - makes ground flat (0 pixels) ; Only for testing - makes ground flat (0 pixels)
; and places tanks on it ; and places tanks on it
; remember to remove in final compilation :) ; remember to remove in final compilation :)
@@ -969,7 +968,7 @@ SetYofNextTank
.endp .endp
; **************************************************** ; ****************************************************
; ----------------------------------------- ; -----------------------------------------
unPlot .proc .proc unPlot
; plots a point and saves the plotted byte, reverts the previous plot. ; plots a point and saves the plotted byte, reverts the previous plot.
; ----------------------------------------- ; -----------------------------------------
ldx #0 ; only one pixel ldx #0 ; only one pixel
@@ -1073,7 +1072,7 @@ EndOfUnPlot
rts rts
.endp .endp
; ----------------------------------------- ; -----------------------------------------
plot .proc ;plot (xdraw, ydraw, color) .proc plot ;plot (xdraw, ydraw, color)
; color == 1 --> put pixel ; color == 1 --> put pixel
; color == 0 --> erase pixel ; color == 0 --> erase pixel
; this is one of the most important routines in the whole ; this is one of the most important routines in the whole
@@ -1133,12 +1132,11 @@ ClearPlot
rts rts
.endp .endp
; ----------------------------------------- ; -----------------------------------------
point .proc .proc point
; ----------------------------------------- ; -----------------------------------------
; checks state of the pixel (coordinates in xdraw and ydraw) ; checks state of the pixel (coordinates in xdraw and ydraw)
; result is in A (zero or appropriate bit is set) ; result is in A (zero or appropriate bit is set)
; let's calculate coordinates from xdraw and ydraw ; let's calculate coordinates from xdraw and ydraw
mwa xdraw xbyte mwa xdraw xbyte
@@ -1170,9 +1168,8 @@ point .proc
eor bittable,x eor bittable,x
rts rts
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
DrawLine .proc .proc DrawLine
;-------------------------------------------------- ;--------------------------------------------------
mva #0 ydraw+1 mva #0 ydraw+1
lda #screenheight lda #screenheight
@@ -1184,14 +1181,13 @@ DrawLine .proc
jmp IntoDraw ; jumps inside Draw routine jmp IntoDraw ; jumps inside Draw routine
; because one pixel is already plotted ; because one pixel is already plotted
loopdraw loopdraw
lda (xbyte),y lda (xbyte),y
and bittable2,x and bittable2,x
sta (xbyte),y sta (xbyte),y
IntoDraw adw xbyte #screenBytes IntoDraw
adw xbyte #screenBytes
dec tempbyte01 dec tempbyte01
bne loopdraw bne loopdraw
rts rts
@@ -1339,8 +1335,9 @@ EndPutChar
; ------------------------------------------ ; ------------------------------------------
.proc PutChar4x4 .proc PutChar4x4
; puts 4x4 pixels char on the graphics screen ; puts 4x4 pixels char on the graphics screen
; in: xdraw, ydraw (upper left corner of the char) ; in: xdraw, ydraw (LOWER left corner of the char)
; in: CharCode4x4 (.sbyte) ; in: CharCode4x4 (.sbyte)
; in: plot4x4color (0/1)
; all pixels are being drawn ; all pixels are being drawn
; (empty and not empty) ; (empty and not empty)
;-------------------------------------------------- ;--------------------------------------------------
@@ -1374,18 +1371,18 @@ Upper4bits
CopyChar CopyChar
lda (fontind),y ; Y must be 0 !!!! lda (fontind),y ; Y must be 0 !!!!
bit nibbler4x4 bit nibbler4x4
bmi GetLower4bits bpl GetUpper4bits
ror rol
ror rol
ror rol
ror rol
GetLower4bits GetUpper4bits
ora #$f0 ora #$0f
sta char1,x sta char1,x
lda #$ff lda #$ff
sta char2,x sta char2,x
; and 4 bytes as a mask ; and 4 bytes as a mask
lda #$0f lda #$f0
sta mask1,x sta mask1,x
lda #$00 lda #$00
sta mask2,x sta mask2,x
scorch.xex
BIN
View File
Binary file not shown.