If I do a search on BACKGROUND_BLUE and the others, I find nothing. Where do you find these values, my background is pure mathematics so the idea of 4 .or. 12 is not one I am used to, the idea of doing .and. on binary numbers makes sense. 011 .and. 100 is 111 so 3 .and. 4 is 8. In decimal it does not make sense. If I have had to do this sort of stuff I usually just do a set of if statements so the code may be long but it makes sense.
The problem arises from drawing bitmaps in Fortran. It is not difficult, but is tedious, we lack the large library of the .NET languages. I know I can use DISLIN, but the people who get the drawings say, we like the .NET ones, more professional.
It is easy to draw in DXF, but then one has to have AutoCAD and then plot the results, so a direct draw to bmp is quick and simple, but the subroutines ALL need to be written.
https://zserge.com/posts/tiny-font/
Provides some C code, I can get it to work, and I color coded the six pixels as they are small on a decent bmp, but the bitwise stuff has me stumped, plus it is really simpler to draw the 64 instead of saying only 26 count. Plus zserge makes each block 8 pixels, but that is trivial
I work through the 64 bit groupings logically like this -- compared to ++ this in a module so the constants are defined once as mecej4 taught me in Magni.
c.fillRect((i * 6 + (b & 1)) * px, (j * 6 + (b >> 1)) * px, px, px);
subroutine bits(rgb)
implicit none
integer i,j,b, n, px, k, l
character*1 rgb(3,ihpixf,jvpixf) ! RGB pixel data array
integer m(6)
c All possible combinations for a 2x3 bitmap font
const c = document.querySelector('canvas').getContext('2d');
px = 8
b = 0
do 140 i = 1,6
m(i) = 1
140 end do
do 130 k = 1,1
select case (k)
case (1)
write(*,*)k
case (2)
write(*,*)k
m(6) = 1
case (3)
write(*,*)k
m(6) = 0
m(5) = 1
case (4)
write(*,*)k
m(6) = 1
m(5) = 1
case (5)
write(*,*)k
m(6) = 0
m(5) = 0
m(4) = 1
case (6)
write(*,*)k
m(6) = 1
m(5) = 0
m(4) = 1
case (7)
write(*,*)k
m(6) = 0
m(5) = 1
m(4) = 1
case (8)
write(*,*)k
m(6) = 1
m(5) = 1
m(4) = 1
end select
b = 1
do 100 i = 1,2
do 110 j = 1,3
if(m(b) .eq. 1) then
if(j .eq. 1) then
if(i .eq. 1) then
call box(rgb,5*k+100+2*i,100+2*j,5*k+101+2*i,101+2*j,250,0,0)
else
call box(rgb,5*k+100+2*i,100+2*j,5*k+101+2*i,101+2*j,250,250,0)
endif
else if(j .eq. 2) then
if(i .eq. 1) then
call box(rgb,5*k+100+2*i,100+2*j,5*k+101+2*i,101+2*j,0,250,0)
else
call box(rgb,5*k+100+2*i,100+2*j,5*k+101+2*i,101+2*j,0,250,250)
endif
else if(j .eq. 3) then
if(i .eq. 1) then
call box(rgb,5*k+100+2*i,100+2*j,5*k+101+2*i,101+2*j,0,0,250)
else
call box(rgb,5*k+100+2*i,100+2*j,5*k+101+2*i,101+2*j,250,0,250)
endif
endif
endif
b = b+ 1
110 end do
100 end do
b = b + 5
130 end do
C // c.fillStyle = (n & (1 << b)) ? '#000' : '#fff';C
C c.fillRect((i * 6 + (b & 1)) * px, (j * 6 + (b >> 1)) * px, px, px);
return
end
