Category: Uncategorized

On 9-17-2020 I had my orchiectomy after a long fight of trying finding a doctor willing to do it. I am currently recovering and taking the pain medicine they prescribed me. I can’t really walk well or lift heavy things until I’m healed and stitches are removed. When I have a follow up appointment Ill ask the doctor to help me fill out the paperwork for FMLA and Short Term Disability so that I only go back to work when I’m at my best.
But after recovering everything will be great because I will not be experiencing the pain I had to endure for over two years. I’ll do even better at my job when I return.
The testicles, spermatic coords, and the scrotum are all gone now and I will be able to focus on the good parts of my life.

I translated my spinning polygon routine by looking at the C version and copying everything over to BASIC syntax. It also draws a checkerboard behind the polygon because I left the code from my previous project there.

REM BASIC8 port of Chastity's Regular Polygon

'the width and height of the program
'this is set in stone by the BASIC8 creator so these never change
width=160,height=128

'declare my 2 color palette for the checkerboard
palette=list()
push(palette,rgba(0,0,0))
push(palette,rgba(255,255,255))

rem new section for declaring the polygon variables
cx=width/2 'center x of the polygon
cy=height/2 'center y of the polygon
radians=0 'the current rotation angle of the polygon
radius=height/2
polygon_points = 8
polygon_step = 3 'for how the points are stepped through,applies to star polygons
polygon_color=rgba(255,0,0)
'arrays of x and y points
dim xpoints(polygon_points)
dim ypoints(polygon_points)

'old section that does the checkerboard from my other project
rectsize=8
def update()
index=0
y=0
while y<height
index1=index
x=0
while x<width
rectfill x,y,x+rectsize,y+rectsize,palette(index))
index=BXOR(index,1)
x=x+rectsize
wend
index=BXOR(index1,1)
y=y+rectsize
wend
rem end of checkerboard section

'fill the point arrays with correct values using trigonometry
i=0
while i<polygon_points
f=i/polygon_points
angle=2*pi*f
angle=angle+radians
x=sin(angle);
y=cos(angle);
x=cx+x*radius;
y=cy-y*radius;
'print i;
'print "angle=",angle;
'print "x=",x," y=",y;
xpoints(i)=x;
ypoints(i)=y;
i=i+1;
wend
rem now all points are set up.

rem next draw triangles
i=0
while i<polygon_points
i1=(i+polygon_step) mod polygon_points;
trifill cx,cy,xpoints(i),ypoints(i),xpoints(i1),ypoints(i1),polygon_color
i=i+1;
wend

'change the rotation
radians=radians+0.03

enddef
update_with(driver())

I have a checkerboard function/program that I wrote in C and have used as the foundation of my BBM library. I translated it into BASIC8 without much effort because drawing rectangles to the screen is trivial.

REM BASIC8 port of Chastity Checker 
palette=list()
push(palette,rgba(0,0,0))
push(palette,rgba(255,255,255))
width=160,height=128
rectsize=8
def update()
index=0
y=0
while y<height
index1=index
x=0
while x<width
rectfill x,y,x+rectsize,y+rectsize,palette(index))
index=BXOR(index,1)
x=x+rectsize
wend
index=BXOR(index1,1)
y=y+rectsize
wend
enddef
update_with(driver())

Here is a screenshot of what it looks like when run inside BASIC8.

What is particularly great about this program is that it uses several elements such as while loops,x and y geometry coordinates,and a 2 element list of colors which can be changed to make all of the squares of black or white into any color combination of RGB.

I discovered BASIC8 on Steam and it allows a similar programming environment to what QBasic was for me years ago. I was 14 and able to start programming simple things including drawing circles,rectangles, and triangles. Having graphics as part of the standard library was a huge benefit to me at the time and one that I sacrificed when I switched to C as my primary language.

https://paladin-t.github.io/b8/docs/manual

But having BASIC8 could be a fun retro programming experience to allow me to relearn BASIC and perhaps even make games or cool animations with it like I do with my C programming except that I will already have a standard set of functions to save time and won’t have to translate most of my own BBM library into it.

Here is the code of my first program.

REM My first program with BASIC8
REM Hello World
width=160,height=128
def update()rectfill 0,0,width,height,rgba(0,0,0)
text width/4,height/2,”Hello World”,rgba(255, 255, 255)
enddef
update_with(driver())

Here are screenshots

Monochrome or Bilevel images contain only two colors, usually black and white.
A single bit is usually used to represent a pixel. This means a single byte can store 8 pixels. For this reason, two color images are the smallest whether compressed or uncompressed.

However there are particular differences when it comes to conventions about how the bits are stored and what they represent. Some like PBM use the value 1 to be black and 0 to be white. Others can do it either way. TIFF tag 262 determines this in a TIFF file. BMP files use a 2 color palette which allows either 0 or 1 to equal any color, not just black and white. Personally I think 0 should be used for black and 1 for white. It makes sense to me but this is also an arbitrary choice which format creators disagree on.

PBM and BMP use the high bit to be the leftmost pixel. Others like XBM and the raw monochrome data that Imagemagick reads use the low bit instead. There are two ways of going about this. One is to use either right shifting or left shifting as you place bits into a byte, the other is to simply use one method and then reverse the bits in a byte before writing it to the file. TIFF has tag 266 that determines the rule of which order they are in.