Conservative. Idaho. Software engineer. Historian. Trying to prevent Idiocracy from becoming a documentary.
Email complaints/requests about copyright infringement to clayton @ claytoncramer.com. Reminder: the last copyright troll that bothered me went bankrupt.
"And we know that all things work together for good to them that love God, to them who are the called according to his purpose." -- Rom. 8:28Friday, April 18, 2025
Fascinating Article About Trump and MSM
Thursday, April 17, 2025
Timeless
I Wonder How Much AID Funding Loss Influences This
"The group just announced that it’s laying off nearly all its staff—meaning 13 out of 16 full-time employees are getting the boot. The group is citing “financial challenges.”
"It appears they’re desperately trying to restructure. Their new executive director is a 24-year-old Parkland survivor and original co-founder, who now says things would’ve looked different if Trump hadn’t won."
"
When Visiting France
Who Did That?
Wednesday, April 16, 2025
Interesting Problem. Interesting Solution.
I See Trump Is Pushing to Defund PBS and NPR
I Was Told Russia Was Winning
"“A year ago there was an age amendment, and now summons are issued to young people from 18-30 years old,” Ivan Chuviliaev, spokesman for the organisation Go By The Forest, which helps people escape the ranks, told Al Jazeera.
"Previously, the maximum age for conscription was 27."
What a Bizarre Idea
Not MAGA
"The suspect, Cody Balmer, called 911 following the attack early Sunday, identified himself by name and told operators Shapiro needs to know he “…will not take part in his plans for what he wants to do to the Palestinian people,” the search warrant written by police said.
"Balmer continued, saying he needed to “stop having my friends killed” and that “...our people have been put through too much by that monster,” according to the warrant, which says Balmer’s intonation and cadence sounded like he was possibly reading from a script."
The antisemitism of the left is so troubling because it does not fit with the Republican/Trump narrative of "literally Hitler." Worse, Balmer's name and appearance do not suggest that the Palestinians are his people. The left's willingness to identify with whoever is this year's designated victim group shows how destructive identity politics is: you do not even need to be a member to acquire membership status (at least in your own mind).
Lawfare for You, and You, and You
Tuesday, April 15, 2025
Going Grab-and-Go
Setting Circles
I mentioned to my wife making setting circles and she reminded me that some years ago, I spent some time coding PostScript to produce them on paper. My thought is to use the code for cutting a 6" circle of CFC, then sticking these on and applying whatever best protects the surface. Polyurethane?
Advantages include that these markings are much finer than I can machine except with endmills so narrow that I am skeptical they will survive many strokes. I was going to need to fill in the cuts with a little white paint and wipe away the excess.
If you have not had the joy of coding in PostScript, it is very close to a write-only language.
%!
{1 exch sub} settransfer % only used for making negative images
showpage
/center {
/width exch def
/str exch def
width str stringwidth pop sub 2 div 0 rmoveto
str show
} bind def
/circletext {
circtextdict begin
/radius exch def
/centerangle exch def
/ptsize exch def
/str exch def
/xradius radius ptsize 3 div sub def
gsave
centerangle str findhalfangle sub rotate
str {
/charcode exch def
( ) dup 0 charcode put placechar
} forall
grestore
end
} bind def
/circtextdict 16 dict def
circtextdict begin
/findhalfangle {
stringwidth pop 2 div
2 xradius mul pi mul div 360 mul
} bind def
/placechar {
/char exch def
/halfangle char findhalfangle def
gsave
halfangle rotate
radius 0 translate
90 rotate
char stringwidth pop 2 div neg 0 moveto
char show
grestore
halfangle 2 mul rotate
} bind def
/pi 3.1415923 def
end
/in {72 mul} def
/LineWidth 1 def
/R 3 in def
/OriginX 4.25 in def
/OriginY 5.5 in def
/StartX {cos mul} def
/StartY {sin mul} def
/FontSize 18 def
/Times-Roman findfont FontSize scalefont setfont
/CompDegreeNbr {Angle 0 ge Angle 90 le and
{Angle} % 0-90
{Angle 90 gt Angle 180 le and %90-360
{90 Angle 90 sub sub} % 90-180
{Angle 180 gt Angle 270 le and % 180-360
{Angle 180 sub} % 180-270
{360 Angle sub} % 270-360
ifelse}
ifelse}
ifelse} def
/ComputeRotate {Angle 0 ge Angle 90 le and
{Angle 90 add} % 0-90
{Angle 90 gt Angle 180 le and %90-360
{Angle 90 sub 180 add} % 90-180
{Angle 180 gt Angle 270 le and % 180-360
{Angle 180 sub 270 add} % 180-270
{Angle 270 sub} % 270-360
ifelse}
ifelse}
ifelse} def
/CopyrightNotice
{gsave
/Times-Roman findfont 12 scalefont setfont
(Copyright Clayton E. Cramer 1989 All Rights Reserved) 12 0 1 in circletext
grestore} def
/TextLoc 1 in def
1 setlinewidth
% draw outer circle
OriginX OriginY translate 0 0 R 0 360 arc stroke
% draw center point for drill
0 0 1 0 360 arc stroke
% draw .5" cut marks
%0 0 0.25 in 0 360 arc stroke
% draw 1" cut marks
0 0 0.5 in 0 360 arc stroke
% draw 1.5" cut marks
%0 0 .75 in 0 360 arc stroke
% draw 2" cut marks
%0 0 1 in 0 360 arc stroke
% draw 2.5" cut marks
%0 0 1.25 in 0 360 arc stroke
% put out copyright notice
CopyrightNotice
% narrowest possible lines
LineWidth setlinewidth
% draw ten degree line dividers
/TenDegreeDividers 0.75 in def
/DrawTenDegreeLine {/Angle exch def R Angle StartX R Angle StartY moveto
R TenDegreeDividers sub Angle StartX
R TenDegreeDividers sub Angle StartY lineto stroke
R TextLoc sub Angle StartX
R TextLoc sub Angle StartY moveto
ComputeRotate rotate
CompDegreeNbr 10 3 string cvrs % string now computed
dup stringwidth exch -2 div exch % center string horiz
rmoveto
show ComputeRotate neg rotate} def
/FiveDegreeDividers 0.6 in def
/DrawFiveDegreeLine {/Angle exch def R Angle StartX R Angle StartY moveto
R FiveDegreeDividers sub Angle StartX
R FiveDegreeDividers sub Angle StartY lineto stroke} def
/OneDegreeDividers 0.4 in def
/DrawOneDegreeLine {/Angle exch def R Angle StartX R Angle StartY moveto
R OneDegreeDividers sub Angle StartX
R OneDegreeDividers sub Angle StartY lineto stroke} def
/HalfDegreeDividers 0.25 in def
/DrawHalfDegreeLine {/Angle exch def R Angle StartX R Angle StartY moveto
R HalfDegreeDividers sub Angle StartX
R HalfDegreeDividers sub Angle StartY lineto stroke} def
/QuarterDegreeDividers 0.25 in def
/DrawQuarterDegreeLine {/Angle exch def R Angle StartX R Angle StartY moveto
R QuarterDegreeDividers sub Angle StartX
R QuarterDegreeDividers sub Angle StartY lineto stroke} def
0 10 360 10 sub {DrawTenDegreeLine} for
0 5 360 5 sub {DrawFiveDegreeLine} for
0 1 360 1 sub {DrawOneDegreeLine} for
0 .5 360 .5 sub {DrawHalfDegreeLine} for
% 0 .25 360 .25 sub {DrawQuarterDegreeLine} for
showpage
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Draw Right Acension circle.
1 setlinewidth
% draw outer circle
OriginX OriginY translate 0 0 R 0 360 arc stroke
% draw center point for drill
0 0 1 0 360 arc stroke
% draw .5" cut marks
%0 0 0.25 in 0 360 arc stroke
% draw 1" cut marks
0 0 0.5 in 0 360 arc stroke
% draw 1.5" cut marks
%0 0 .75 in 0 360 arc stroke
% draw 2" cut marks
%0 0 1 in 0 360 arc stroke
% draw 2.5" cut marks
%0 0 1.25 in 0 360 arc stroke
% put out copyright notice
CopyrightNotice
% narrowest possible lines
LineWidth setlinewidth
% draw hour line dividers
/HourDividers 0.75 in def
/DrawHourLine {15 mul /Angle exch def R Angle StartX R Angle StartY moveto
R HourDividers sub Angle StartX
R HourDividers sub Angle StartY lineto stroke
R TextLoc sub Angle StartX
R TextLoc sub Angle StartY moveto
ComputeRotate rotate
Angle 15 div cvi 10 3 string cvrs % string now computed
dup stringwidth exch -2 div exch % center string horiz
rmoveto
show (h) show ComputeRotate neg rotate} def
/HalfHourDividers 0.6 in def
/DrawHalfHourLine {/Angle exch def R Angle StartX R Angle StartY moveto
R HalfHourDividers sub Angle StartX
R HalfHourDividers sub Angle StartY lineto stroke} def
/TenMinDividers 0.4 in def
/DrawTenMinLine {/Angle exch def R Angle StartX R Angle StartY moveto
R TenMinDividers sub Angle StartX
R TenMinDividers sub Angle StartY lineto stroke} def
/TwoMinDividers 0.2 in def
/DrawTwoMinLine {/Angle exch def R Angle StartX R Angle StartY moveto
R TwoMinDividers sub Angle StartX
R TwoMinDividers sub Angle StartY lineto stroke} def
/OneMinDividers 0.2 in def
/DrawOneMinLine {/Angle exch def R Angle StartX R Angle StartY moveto
R OneMinDividers sub Angle StartX
R OneMinDividers sub Angle StartY lineto stroke} def
0 1 23 {DrawHourLine} for
0 7.5 360 7.5 sub {DrawHalfHourLine} for
0 2.5 360 2.5 sub {DrawTenMinLine} for
0 0.5 360 0.5 sub {DrawTwoMinLine} for
%0 0.25 360 0.25 sub {DrawOneMinLine} for
showpage
Monday, April 14, 2025
Is There a Social Security Fraud Problem?
"In total, from January 1999 through June 2024, Redmond collected more than $360,000 in social security payments intended for her mother."
Preparing to Cut Setting Circle
I Feel So Stupid
C program declination.c references functions printProlog and printEpilog. These are defined in prolog.c.
INCL=/home/sherline/vhal/.
CC=gcc
CFLAGS=-I$(INCL)
MAKEFILE=Makefile
DEPS=vhal.h parseargs.h $(MAKEFILE)
Makefile includes these in the all list:
all: parseargs.o flat.nc testparseargs flat yslot yslot.nc circle.nc ycylinderslot.nc cutcircle.nc cutcircle slicex.nc slicex declination.nc declination prolog.o
elsewhereprolog.o: prolog.c $(MAKEFILE)
$(CC) -o $@ -c -g $< -I$(INCL) $(CFLAGS)
declination: declination.c vhal.h prolog.o $(MAKEFILE)
$(CC) -o $@ -g -lm declination.c prolog.c -I$(INCL) $(CFlAGS)
chmod ugo+x $@declination.nc: declination $(MAKEFILE)
./declination >declination.nc
When I run make, I get
gcc -o prolog.o -c -g prolog.c -I/home/sherline/vhal/. -I/home/sherline/vhal/.
gcc -o declination -g -lm declination.c -I/home/sherline/vhal/.
chmod ugo+x declination
./declination >declination.nc
make: *** [declination.nc] Error 255
Sunday, April 13, 2025
There Goea the Narrative
"The teenager, Nikita Casap, 17, was arrested last month in the deaths of his mother, Tatiana Casap, 35, and stepfather, Donald Mayer, 51, according to the Waukesha County Sheriff’s Department....
"According to federal documents unsealed on Friday, the fatal shootings were part of a plan by Mr. Casap, who identified with a right-wing terrorist network known as the Order of Nine Angels, to assassinate President Trump in what he believed would “foment a political revolution in the United States,” federal investigators said.
Mr. Casap also paid, at least in part, for a drone and explosives that he planned to use in an attack, according to the documents, which were filed in the U.S. District Court for the Eastern District of Wisconsin..
"A self-described “manifesto,” found on Mr. Casap’s phone and detailed in the federal documents, contained images and praise of Adolf Hitler, as well as instructions to others to make bombs.
“By getting rid of the president and perhaps the vice president, that is guaranteed to bring in some chaos,” Mr. Casap wrote."
Someone who idolizes literally Hitler wanted Trump dead.
Writing C
Imagine a Christian-Themed City Proposal in the American Redoubt
How Equity Makes Blue Cities Hellholes
"The suspects have been charged for more than 70 cases that occurred between October 2020 and this September, and hate crime enhancements have been added because the men frequently targeted Asian women, some of whom ended up injured in robberies, police said."
This was slightly remarkable in being targeted as Asians. Most victims of violent crime are neighbors of the savages. Thus, unsurprisingly, black people are the major victims of black criminals. The net effect of using kid gloves against black offenders in the name of racial equity is to disproportionately injure that vast majority of well-behaved black Americans.
I would surmise that knowledge of the disproportionate percentage of black offenders provokes racial fear. I read some years back that a black man in a suit would often have trouble getting a taxi in DC, a city whose taxi drivers are almost entirely black, often African immigrants trying to climb the ladder of success here.
Abandoning racial equity for a traditional model of locking up violent offenders would likely both reduce suffering in the black community as well as the overall society. Reducing racial fear of black people seems another likely consequence. Unsurprisingly, the left prefers reducing its white privilege guilt.