It is the 1708th of March 2020 (aka the 2nd of November 2024)
You are 3.233.242.216,
pleased to meet you!
mailto:blog-at-heyrick-dot-eu
Scrambled egg and chips
I mowed some grass yesterday. As I went shopping and got home for just after six, which became half six when everything was sorted out, it wasn't able to be finished as I had to stop by 8pm. I finished today, and also turned the part of the potato patch that didn't have anything growing on it.
Anyway, as I was tired last night, I wanted a simple meal that was also "nice".
Here it is.
Scrambled egg and chips.
The scrambled egg was cooked in the microwave, then covered with cheddar and a little pepper.
The chips are homemade - a few store bought potatoes, peeled, chipped, and cooked in the air fryer. Before cooking they were tossed in sunflower oil, and during cooking shaken regularly.
Today? Probably pasta and chicken nuggets.
Daily backdrop - part one
Rather than having a single fixed backdrop all the time, I felt that it would be nice to have a selection of backdrops, which are changed randomly. But remain the same through the course of the day.
Here is an example of some of my backdrops, all the result of numerous Google searches and wandering around crappy advert-laden sites (yay for UBlock Origin!).
You might notice a shift in emphasis towards something more in keeping with the sort of music I listen to (today's preferred track: Deadlocked by Tristania).
In my defence, I started out looking for backdrops for Halloween and.... got a bit sidetracked.
Andrew, of R-Comp fame, suggested Pinboard2. I tried it and... it does a lot. I'll keep it installed as it's a pretty useful upgrade on the existing pinboard ... best bit, it will scale images to the size of the screen and not the size of the work area (screen minus iconbar) which always results in oddly squished images.
There's also an option to make the iconbar slightly transparent. Not sure how it actually does that, but it's a pretty nifty effect, as can be seen from this screenshot.
My current desktop, featuring Cthulhu.
Now, Pinboard2 almost does what I want. In a manner of speaking. It can be set to have an automatic carousel of images randomly selected from a directory, and if you set it to change after 86400 seconds, then it'll be a new daily backdrop.
However, upon rebooting, it will pick a new random backdrop.
Now I tried to get Pinboard2 to compile, but it will not on my system. It is set up to work with the OS build environment, which is rather different to the DDE build environment. For example, the DDE doesn't have "amu_machine". It's easy to alias that to "amu -E %%*0", but everything falls apart when trying to reference the exported headers.
So rather than banging my head on the wall looking to get that built, and try to work out where exactly to place my modifications in the scheme of things, I decided instead to write some proof-of-concept code to pick a new backdrop every day when the machine is booted.
This does not change the backdrop if the machine remains on. I'll do something for that in a few days. It'll probably be "mostly this code" in a polling loop that checks the date once every minute, and makes the change if it's changed to a new day.
This program is called ChooseBD and should be placed into !Boot.Choices.Boot.PreDesk.
What it does is it checks the current day number, and if it's different than the one we have remembered, it will check a directory (currently $.Documents.backdrops) for any sprite and JPEG images. These will be enumerated, one will be picked at random, and then the PinSetup file modified to load the chosen image.
It contains sufficient comments that it shouldn't be too hard to follow. The only thing that might need explanation is the maths around the date calculation. We're basically extracting the current date as ordinals (that is to say, individual values for the day, month, and year) and then translating it into a Julian Date, which is a unique number for each day.
REM >ChooseBD
REM
REM Choose Backdrop - version 0.01
REM by Rick Murray, 17th September 2022
REM
ON ERROR PRINT REPORT$+" at "+STR$(ERL) : END
maxentries% = 64
ourentries% = 0
imgdir$ = "Boot:^.Documents.backdrops"
currf$ = "<Choices$Write>.Boot.Tasks.PinSetup"
copyf$ = "<Choices$Write>.Boot.Tasks.__PinSetup"
settings$ = "<Choices$Write>.HeyRick.ChooseBD"
DIM entry$(maxentries%)
DIM buffer% 255
REM Sanitise
REM Images directory must exist and be a directory
SYS "XOS_File", 17, imgdir$ TO type%
IF (type% <> 2) THEN END
REM PinSetup file must exist and be an Obey file
SYS "XOS_File", 23, currf$ TO type%,,,,,,ftype%
IF (type% <> 1) THEN END
IF (ftype% <> &FEB) THEN END
REM Now check the current date
buffer%?64 = 3
SYS "OS_Word", 14, buffer%+64
SYS "Territory_ConvertTimeToOrdinals", -1, buffer%+64, buffer%
yy% = buffer%!&18
mm% = buffer%!&14
dd% = buffer%!&10
jj% = (1461*(yy%+4800+(mm%-14)/12))/4+(367*(mm%-2-12*((mm%-14)/12)))/12-(3*((yy%+4900+(mm%-14)/12)/100))/4+dd%-32075
REM Does our settings file exist?
SYS "XOS_File", 17, settings$ TO type%
IF (type% = 1) THEN
fp% = OPENIN(settings$)
line$ = GET$#fp%
CLOSE#fp%
IF (VAL(line$) = jj%) THEN END : REM Same day
ENDIF
SYS "XOS_CLI", "CDir <Choices$Write>.HeyRick"
fp% = OPENOUT(settings$)
BPUT#fp%, STR$(jj%)
CLOSE#fp%
REM Enumerate the available files
start% = 0
REPEAT
SYS "OS_GBPB", 12, imgdir$, buffer%, 1, start%, 255, 0 TO ,,,num%,start%
IF (num% <> 0) THEN
REM We have something, but we only want Sprites of JPEGs.
IF ( ( buffer%!20 = &FF9) OR ( buffer%!20 = &C85) ) THEN
SYS "XOS_GenerateError", buffer%+24 TO buffer$ : REM So very lame
entry$(ourentries%) = buffer$
ourentries% += 1
ENDIF
ENDIF
UNTIL (start% = -1)
REM Sanitise - we do have images, right?
IF (ourentries% = 0) THEN END
REM Pick one at random
which% = RND(ourentries%)
which% -= 1 : REM Counting from zero
REM Obtain it's canonical name
SYS "OS_FSControl", 37, "Boot:^.Documents.backdrops."+entry$(which%), buffer%, 0, 0, 255
SYS "XOS_GenerateError", buffer% TO canoname$
REM Now update the PinSetup file accordingly
currf$ = "<Choices$Write>.Boot.Tasks.PinSetup"
copyf$ = "<Choices$Write>.Boot.Tasks.__PinSetup"
SYS "XOS_FSControl", 25, currf$, copyf$
in% = OPENIN(copyf$) : REM Read from the copy
out% = OPENOUT(currf$) : REM Write to the in-use
REM Copy across the file verbatim except the part we're changing
WHILE NOT EOF#in%
line$ = GET$#in%
REM Lowercase a copy for matching
linecopy$ = line$
FOR scan% = 1 TO LEN(line$)
MID$(linecopy$, scan%, 1) = CHR$(ASC(MID$(linecopy$, scan%, 1)) OR 32)
NEXT
IF (INSTR(linecopy$, "backdrop ")) THEN
REM This is the part we want to alter.
REM Look for "::"
posn% = INSTR(line$, "::")
IF (posn% = 0) THEN
REM The user has entered a relative path here.
posn% = INSTR(line$, "<")
ELSE
WHILE ( MID$(linecopy$, posn%, 1) <> " ")
posn% -= 1
ENDWHILE
posn% += 1 : REM Step over the space
ENDIF
REM We know where the filename begins, so find the end
end% = posn%
len% = LEN(linecopy$)
WHILE ( ( MID$(linecopy$, posn%, 1) <> " " ) AND ( end% <= len% ) )
end% += 1
ENDWHILE
REM Was it not actually found?
IF (posn% = 0) THEN
REM Neither an absolute path nor a relative one.
REM Might be something like Boot:^... but we'll
REM just overwrite the line and too bad. PinSetup
REM does NOT create these sorts of things.
BPUT#out%, "X Backdrop -Colour &00000000 -TextColour &ffffff00 "+canoname$
ELSE
IF (end% >= len%) THEN
REM We only need to extract out the beginning
linecopy$ = MID$(line$, 1, (posn% - 1)) + " "+canoname$
ELSE
REM We have information on both sides to deal with
linecopy$ = MID$(line$, 1, (posn% - 1)) + " "+canoname$ + MID$(line$, (end% + 1))
ENDIF
BPUT#out%, linecopy$
ENDIF
ELSE
BPUT#out%, line$
ENDIF
ENDWHILE
CLOSE#in%
CLOSE#out%
REM Tidy up
SYS "XOS_CLI", "SetType "+currf$+" Obey"
SYS "XOS_FSControl", 27, copyf$, , 0, 0, 0, 0, 0
Please note that while I check this page every so often, I am not able to control what users write; therefore I disclaim all liability for unpleasant and/or infringing and/or defamatory material. Undesired content will be removed as soon as it is noticed. By leaving a comment, you agree not to post material that is illegal or in bad taste, and you should be aware that the time and your IP address are both recorded, should it be necessary to find out who you are. Oh, and don't bother trying to inline HTML. I'm not that stupid! ☺ ADDING COMMENTS DOES NOT WORK IF READING TRANSLATED VERSIONS.
You can now follow comment additions with the comment RSS feed. This is distinct from the b.log RSS feed, so you can subscribe to one or both as you wish.
VinceH, 18th September 2022, 15:43
Your scrambled egg looks to me more like a really deep omelette, without anything added.
Although TBH, I haven't had an omelette in a very long time, so that's based on a very very old memory of what one looks like. I've never made one myself, whereas I do on rare occasions make scrambled egg* but I think the basic method has a lot in common with making scrambled egg - so a similarity may be understandable.
* I rarely buy eggs unless I fancy a fry up for breakfast, and when I do, *if* I happen to have bought milk at any point (which I also rarely buy), I sometimes also do scrambled eggs at some point.
Another random backdrop changer that you didn't mention (may not be aware of?) is Stuart Halliday's BgrdImage (hosted on RISCOSitory). This was what I used for many years, and had it set to download and use the Astronomy Picture of the Day. A flaw was that those images would have different sizes and aspect ratios from one day to the next - but the ability to fetch an image from a specific site and use that was quite cool.
IIRC, though, you needed to know enough to be able to configure it to recognise the right image link in the source html page - and to be able to update that configuration if the page design changed - so probably not the most user friendly. I suspect (but can't remember for sure) the reason I stopped using it is that some component or other wasn't 32-bit.
When I was still using RISC OS more frequently, I thought about a random backdrop changer, but never ever sat down to commit my thoughts even to notes, let alone code. One of the ideas I had was a 'rules' file so that you could say (for example) normally pick one from 'this' folder, but on specific dates (or date ranges) use 'this other' folder instead - so in the run up to Halloween for example (as you mentioned it) you could have random horror films, in the run up to Christmas (if you're that way inclined) you could have festive images, and so on.
Steve Drain, 18th September 2022, 17:02
I was intrigued by the random background program, although I just use a simple tiling. My effort is at: http://www.kappa.me.uk/Micellaneous.swBackdrop001.zip if you are interested. It has a simple approach, but it has an attempt at 24 changes - untested.
Not my fault you didn't copy paste from a link. 😋
No, I don't do editing. While it can be useful, some people can use this to go back and alter what they have written. I'd like to support an ElReg style "10 minute editing window" but this comments system is very simple and doesn't require login, cookies, etc.
As your consolation prize, I've made your URL a clickable link.
J.G.Harston, 19th September 2022, 14:01
In my Choices directory, I have a directory Backdrops with: 10 REM > Backdrops.!Run 20 REM Set a random backdrop 30 ON ERROR PROCCloseAll:END 40 SYS "OS_GetEnv" TO A$ 50 A$=MID$(A$,1+INSTR(A$," ",1+INSTR(A$," ",1+INSTR(A$," ")))) 60 Path$=A$:IFA$="":Path$="Choices:Backdrops." 70 in%=OPENIN(Path$+"!List"):IF in%=0:END 80 A%=RND(-(TIME EOR RND(65535))) 90 REPEAT 100 REPEAT 110 PTR#in%=RND(EXT#in%) 120 REPEAT:UNTIL BGET#in%<32 130 UNTIL NOTEOF#in% 140 A$=GET$#in% 150 UNTIL LEFT$(A$,1)<>"|" 160 CLOSE#in%:in%=0 170 OSCLI "Backdrop "+Path$+A$:END 180 : 190 DEF PROCCloseAll 200 in%=in%:IF in%:A%=in%:in%=0:CLOSE#A% 210 ENDPROC 220 230 Backdrop -S ADFS::IDEDisc4.$.!Boot.Choices.Backdrops.Arcadia
and | > Backdrop.!Run | List of *Backdrop commands for bootup | One is randomly selected on bootup to set a backdrop image | Likelyhood is proportional to number of duplicate entries | | Mode 40 backdrop - 896 or 448 pixels x 640 or 320 or 160 pixels | Thinking -S tcf640x8b -S Arcadia -S Bunny/spr -T Whitby -S |
This web page is licenced for your personal, private, non-commercial use only. No automated processing by advertising systems is permitted.
RIPA notice: No consent is given for interception of page transmission.