2020s
TXT
gifded:gtk4::vala:
Bash together a process by mixing Python, Rebol, text or Shellscript operators... whatever works.
Used for both commercial and personal scripting projects.
This gets a lot of use, pretty happy with it.
Source is here.
Note there is no license to use this software, it exists here for my own use, should I need to obtain it via internet.
Instructions for Linux:
Currently being replaced by a branching editor, main differences are:
Used for both commercial and personal scripting projects.
This gets a lot of use, pretty happy with it.
Source is here.
Note there is no license to use this software, it exists here for my own use, should I need to obtain it via internet.
Instructions for Linux:
- extract && cd to gifded
- install vala and gtksourceview5-devel
- copy install/.local/share/gtksourceview-5 to /.local/share/
- compile using clear && valac gifded.vala --pkg gtk4 --pkg gtksourceview-5 -X -lm
- install any other dependencies it complains about, and try again
- run ./gifded
- if it looks like ass, install adw-gtk3-theme and enable via gnome-tweaks
- if it still looks like ass, SOLS: its a backward compatibility issue (being addressed in the sequel via hardcoded theme)
Currently being replaced by a branching editor, main differences are:
- customizable ui layout in desktop mode
- nodes instead of list
- script node supports compilation where applicable
- script node supports more languages (c, cpp, common lisp, rust, spark, vala)
- option for script node to use a compiled binary if it exists
- fast output viewer, scroll through millions of lines without lag
- hardcoded QOL nodes, mostly for handling 2d data and i/o
- hardcoded theme to use standardized branding, early preview below
fulltardie:gtk4::vala::wip:
Forecast complex recurring transaction rules.
Used to keep track of a large number of recurring transactions.
Also great for quickly testing future scenarios.
Currently being re-written, changes are:
- search & filter lists
- faster lists and calendar
- graph: pies, nested circles, sankey
- graph export to png or pdf
- Gnome notification integration
- hardcoded theme using consistent branding, early preview below
reexsa:gtk3::red:
Interface for testing Red-Parse.
Red [ needs 'view ]
;; interactively test parse rules
;; by c.p.brown 2021
;;
;; attempt [] may freeze the script, uncomment if its a problem
marg: 10
tabh: 0 ;; height of the statusbar (none atm)
nudgeu: func [] [
uu/offset/x: 0
uu/offset/y: min (max 200 uu/offset/y) 600
uu/size/x: tp/size/x
vv/offset/y: uu/offset/y + 10
vv/size/y: tp/size/y - ((uu/offset/y + 10) + tabh)
maa/offset/y: 0
maa/size/x: uu/size/x
mbb/offset/y: uu/offset/y + 10
mcc/offset/y: uu/offset/y + 10
maa/size/y: uu/offset/y
mbb/size/y: vv/size/y
mcc/size/y: vv/size/y
maah/offset/y: 0
mbbh/offset/y: 0
mcch/offset/y: 0
maap/offset/y: maah/size/y + marg
mbbp/offset/y: mbbh/size/y + marg
mccp/offset/y: mcch/size/y + marg
maap/size/y: maa/size/y - (maah/size/y + (2 * marg))
mbbp/size/y: mbb/size/y - (mbbh/size/y + (2 * marg))
mccp/size/y: mcc/size/y - (mcch/size/y + (2 * marg))
uu/draw: compose/deep [
pen off
fill-pen 100.100.100
circle (to-pair compose/deep [(to-integer (uu/size/x * 0.5) - 10) 5]) 2 2
circle (to-pair compose/deep [(to-integer (uu/size/x * 0.5)) 5]) 2 2
circle (to-pair compose/deep [(to-integer (uu/size/x * 0.5) + 10) 5]) 2 2
]
]
nudgev: func [] [
vv/offset/y: uu/offset/y + 10
vv/offset/x: min (max 100 vv/offset/x) (tp/size/x - 100)
if vv/offset/x < 100 [ return 0 ]
maa/offset/x: 0
mbb/offset/x: 0
mcc/offset/x: vv/offset/x + 10
mbb/size/x: vv/offset/x
mcc/size/x: (tp/size/x - mcc/offset/x)
maah/offset/x: 0
mbbh/offset/x: 0
mcch/offset/x: 0
maah/size/x: maa/size/x
mbbh/size/x: mbb/size/x
mcch/size/x: mcc/size/x
maap/offset/x: marg
mbbp/offset/x: marg
mccp/offset/x: marg
maap/size/x: maah/size/x - (marg + marg + 1)
mbbp/size/x: mbbh/size/x - (marg + marg)
mccp/size/x: mcch/size/x - (marg + marg + 1)
vv/draw: compose/deep [
pen off
fill-pen 100.100.100
circle (to-pair compose/deep [5 (to-integer (vv/size/y * 0.5) - 10)]) 2 2
circle (to-pair compose/deep [5 (to-integer (vv/size/y * 0.5))]) 2 2
circle (to-pair compose/deep [5 (to-integer (vv/size/y * 0.5) + 10)]) 2 2
]
]
view/tight/flags/options [
title "reexsa"
below
hh: panel 800x55 35.35.35 [
parsers: drop-list 200x30 font-name "consolas" font-size 10 font-color 180.180.180 bold data (collect [foreach file read %./ [ if (find (to-string file) ".parse") [keep rejoin ["./" (to-string file)]] ]]) on-change [
pfn: copy parsers/data/(parsers/selected)
pn: ""
parse pfn [ thru "./" copy pn to ".parse" ]
parsername/text: pn
pset: load to-file parsers/data/(parsers/selected)
maap/text: (reduce pset/1)
mbbp/text: (reduce pset/2)
maap/font/color: 255.0.0 s: copy mbbp/text attempt [ do maap/text mccp/text: s maap/font/color: 128.255.128 ]
]
pad 10x0
parsername: field 200x30 font-name "consolas" font-size 10 font-color 180.180.180 bold
pnew: button 80x34 "save" font-name "consolas" font-size 10 font-color 180.180.180 bold [
if (parsername/text <> "") and (parsername/text <> none) [
newparsername: rejoin [ "./" parsername/text ".parse" ]
write to-file newparsername ( reduce [ maap/text mbbp/text ])
clear parsers/data
parsers/data: (collect [foreach file read %./ [ if (find (to-string file) ".parse") [keep rejoin ["./" (to-string file)]] ]])
parsers/selected: index? find parsers/data newparsername
]
]
pad 10x0
psave: button 160x34 "save output" font-name "consolas" font-size 10 font-color 180.180.180 bold [
if (parsername/text <> "") and (parsername/text <> none) [
op: request-dir
unless none? op [
write to-file rejoin [ op parsername "_output.txt" ] mccp/text
]
]
]
]
tp: panel 800x745 [
below
maa: panel 800x300 40.40.40 [
maah: panel 45.45.45 800x55 [
text 200x30 "parse" font-name "consolas" font-size 24 font-color 80.80.80 bold
]
maap: area 800x300 40.40.40 font-name "consolas" font-size 12 font-color 128.255.128 bold with [
text: {parse s [ any [ to "^^/* " change "^^/* " "^^/<li>" pre: [ to "^^/" change "^^/" "</li>^^/" | to end change end "</li>" end ] :pre ] ]^/parse s [ any [ to "^^/<li>" not "</li>^^/<li>" change "^^/<li>" "<ul>^^/<li>" ] ]}
] on-change [ face/font/color: 255.0.0 s: copy mbbp/text attempt [ do maap/text mccp/text: s face/font/color: 128.255.128 ] ]
]
uu: panel 800x10 30.30.30 loose [] on-drag [ nudgeu ]
across
mbb: panel 390x400 40.40.40 [
mbbh: panel 390x55 45.45.45 [
text 200x30 "source" font-name "consolas" font-size 24 font-color 80.80.80 bold
]
mbbp: area 390x300 40.40.40 font-name "consolas" font-size 12 font-color 128.255.255 bold with [
text: {a list:^/* one^/* two^/* three^/end of * list^/another list^/* AAA^/* BBB^/end of the other list} ;;*/ <- emacs red-mode is screwy atm
] on-change [ face/font/color: 255.0.0 s: copy mbbp/text attempt [ do maap/text mccp/text: s face/font/color: 128.255.128 ] ]
]
vv: panel 10x390 30.30.30 loose [] on-drag [ nudgev ]
mcc: panel 390x400 40.40.40 [
mcch: panel 390x55 45.45.45 [
text 200x30 "result" font-name "consolas" font-size 24 font-color 80.80.80 bold
]
mccp: area 390x345 40.40.40 font-name "consolas" font-size 12 font-color 255.255.128 bold
]
]
do [
if exists? %./default.parse [
pset: load %./default.parse
maap/text: (reduce pset/1)
mbbp/text: (reduce pset/2)
parsername/text: "default"
parsers/selected: index? find parsers/data "./default.parse"
maap/font/color: 255.0.0 s: copy mbbp/text attempt [ do maap/text mccp/text: s maap/font/color: 128.255.128 ]
]
psave/offset/x: tp/size/x - (psave/size/x + marg)
pnew/offset/x: psave/offset/x - (pnew/size/x + marg)
parsername/offset/x: (parsers/offset/x + parsers/size/x + marg)
parsername/size/x: pnew/offset/x - (parsers/size/x + (4 * marg))
nudgeu nudgev
]
] [ resize ] [
actors: object [
on-resizing: function [ face event ] [
if face/size/x > 500 [
if face/size/y > (uu/offset/y + 200) [
hh/size/x: face/size/x
tp/size: face/size - 0x55
psave/offset/x: face/size/x - (psave/size/x + marg)
pnew/offset/x: psave/offset/x - (pnew/size/x + marg)
parsername/offset/x: (parsers/offset/x + parsers/size/x + marg)
parsername/size/x: pnew/offset/x - (parsers/size/x + (4 * marg))
nudgeu nudgev
]
]
]
]
]
REF
HEXTILE:hou::vex:
Hextile gradient inline vex (COPs).
Derivative work of various sources, most helpful was Procedural Graphics Tutorial: Hexagon Effects by Andrew Hung.
Used as a transition input for another effect.
SDFBOXMASK:hou::vex:
Rectangular sdf mask inline vex (COPs).
This is a vex translation of a polygon shader by Inigo Quilez here.
Used for masking with rounded corners.
VALA TESTS:vala:
Scratchpad of ideas/techniques tested while learning Vala.
Code is incomplete, incorrect, ill-conceived, unsafe, etc..
1DARRAYS:vala:
Use a 1d array + colcount for 2d data, as a workaround for non resizable native 2d arrays.
pros: can resize in situ; no need to duplicate data
cons: extra work
string printstringrowcol (int c, string[] s) {
string o = "{ ";
for (int i = 0; i < (s.length - 1); i++) {
o = (o + s[i]);
if (((i+1) % c) == 0) { o = o + "\n "; } else { o = o + ";"; }
}
o = (o + s[(s.length - 1)] + " }\n");
return o;
}
void main() {
string[] s = { "0", "1", "2", "3", "1", "A", "B", "C", "2", "X", "Y", "Z" };
// col 0 1 2 3 0 1 2 3 0 1 2 3
// row 0 0 0 0 1 1 1 1 2 2 2 2
// index 0 1 2 3 4 5 6 7 8 9 10 11
int colcount = 4; // note: count, not index
int rowcount = (s.length / colcount);
print("s is \n%s",printstringrowcol(colcount,s));
int row = 0;
int col = 3;
int idx = (col+(row*colcount));
print("index of row[%d] and col[%d] is %d \"%s\"\n",row,col,idx,s[idx]);
// get row and column from index
idx = 3;
row = idx / colcount;
col = idx % colcount;
print("(row,col) at index %d is (%d,%d)\n",idx,row,col);
// remove col 1
col = 1;
int lastcol = colcount - 1;
int n = 0;
for (int i = col; i < (s.length - rowcount); i++) {
if (((i-col) % lastcol) == 0) { n += 1; }
s[i] = s[i+n];
}
s.resize(s.length - rowcount);
colcount -= 1;
print("s without col[%d] is \n%s",1,printstringrowcol(colcount,s));
// get index from row and column
row = 2;
col = 1;
idx = (col+(row*colcount));
print("index of row[%d] and col[%d] is %d \"%s\"\n",row,col,idx,s[idx]);
row = idx / colcount;
col = idx % colcount;
print("(row,col) at index %d is (%d,%d)\n",idx,row,col);
// test
int[] ia = {0, 1, 2, 3, 4, 5};
ia = ia + 1;
foreach (int i in ia) { print("%d\n",i); }
}
#+RESULTS:
s is
{ 0;1;2;3
1;A;B;C
2;X;Y;Z }
index of row[0] and col[3] is 3 "3"
(row,col) at index 3 is (0,3)
s without col[1] is
{ 0;2;3
1;B;C
2;Y;Z }
index of row[2] and col[1] is 7 "Y"
(row,col) at index 7 is (2,1)
0
1
2
3
4
5
1
- row at index is (index / colcount)
- col at index is (index % colcount)
- index at (row,col) is ((row * colcount) + col)
- rowcount is (length / colcount)
pros: can resize in situ; no need to duplicate data
cons: extra work
#+RESULTS:
ASCIISORT:busted::vala:
This is being replaced by RECURSIVERADIX, will be removed.
#+RESULTS:
BIASGAIN:vala:
Biasgain test
Based on the work of Christophe Schlick : https:dept-info.labri.fr/~schlick/DOC/gem2.html
#+RESULTS:
BITWISE:vala:
Misc bitwise tests.
#+RESULTS:
CASE:vala:
String cleanup for searching.
string.down() & string.up() return copies of string.
In-place _.strip() spews a bunch of warnings, but the resulting string is valid.
#+RESULTS:
CHARCOUNT:vala:
#+RESULTS:
COLCTRL:vala:
#+RESULTS:
COLRESIZE:vala:
#+RESULTS:
COLUMNID:vala:
#+RESULTS:
COMPACT:vala:
Reduce multiple contiguous whitespaces to one single space.
Considers newline a whitespace.
#+RESULTS:
CONCAT:vala:
#+RESULTS:
CONDITIONAL:vala:
#+RESULTS:
CONTIGUOUS:vala:
#+RESULTS:
CURRENCY:vala:
#+RESULTS:
DATE2:wip::vala:
second attempt at a generic setdate()
Better provision for correction in a date sequence.
Still contains errors, this will be replaced at some point.
#+RESULTS:
DSVALIGN:vala:
Align columns of a dsv string to acommodate their content.
#+RESULTS:
DUHWADE:vala:
Get parent of relative path
#+RESULTS:
FAKESCROLL:vala:
Math for fake scrolling data where there's a variable number of lines per row.
Has to work with scaling.
Inputs are:
- line height (scaled)
- list of lines
- list of rows
- list of row indices per line
- list of lines per row
- position offset (from user, eg scroll offset)
This extends linesperrow below
#+RESULTS:
FILESEEK:vala:
Read a file as 100-char lines
Use of StringBuilder.append((string) buf) was found to prevent both buffer overflow and incorrect rendering of unicode.
#+RESULTS:
FILEBYIDX:wip::vala:
Re-arrange a string array using an int array of indices.
Requres more testing for edge cases...
#+RESULTS:
FOLD:vala:
tokenize_and_fold vs string._delimit & split...
_delimit pros
_delimit cons
// tokenize_and_fold vs _delimit & split
// by c.p.brown 2024
void main() {
string[] o;
string s = "1,2;3\"45\"\n6-78\'AB.C_DE(F)$GH{I\nJK}AB101";
int64 tts = GLib.get_monotonic_time();
string[] tkn = s.tokenize_and_fold("en_US",out o);
int64 ttl = GLib.get_monotonic_time();
print("string.tokenize_and_fold is {\n");
for (int i = 0; i < tkn.length; i++) { print("\"" + tkn[i] + "\"\n"); }
print("}\n");
print("tokenize_and_fold took %.2f microseconds\n\n",((double) (ttl - tts)));
string q = "1,2;3\"45\"\n6-78\'AB.C_DE(F)$GH{I\nJK}AB101";
string d = ",;\"\';._-$(){}\n";
char npdc = '\x1F';
string npd = "%c".printf(npdc);
tts = GLib.get_monotonic_time();
q._delimit(d,npdc);
string[] w = q.split(npd);
int[] rr = {};
for (int i = 0; i < w.length; i++) {
if ((w[i] == null) || (w[i].strip() == "") || (w[i].strip() == "\n")) {
rr += i;
}
}
if (rr.length > 1) {
int[] gaps = {693731, 270033, 133481, 7106, 3121, 1303, 701, 301, 132, 57, 23, 10, 4, 1};
int n = rr.length;
foreach (int g in gaps) {
for (int i = 0; i < n; i++) {
int t = rr[i];
int j = i;
if (j >= g) {
bool c = (rr[j - g] < t);
while (c) {
rr[j] = rr[j - g];
j -= g;
if (j < g) { break; }
c = (rr[j - g] < t);
}
}
rr[j] = t;
}
}
n = 0;
int a = rr[rr.length - 1];
int j = rr.length;
int f = 0;
for (int i = a; i < (w.length - j); i++) {
int b = (i + f);
while (b in rr) {
f += 1;
b += 1;
rr.resize(rr.length - 1);
}
w[i] = w[i + f];
}
w.resize(w.length - j);
} else {
if (rr.length == 1) {
for (int i = rr[0]; i < w.length; i++) {
if ((i + 1) < w.length) {
w[i] = w[i + 1];
}
}
w.resize(w.length - 1);
}
}
ttl = GLib.get_monotonic_time();
print("string._delimit and split is {\n");
for (int i = 0; i < w.length; i++) { print("\"" + w[i] + "\"\n"); }
print("}\n");
print("_delimit and split took %.2f microseconds\n\n",((double) (ttl - tts)));
}
#+RESULTS:
string.tokenize_and_fold is {
"1"
"2"
"3"
"45"
"6"
"78"
"ab"
"c"
"de"
"f"
"gh"
"i"
"jk"
"ab101"
}
tokenize_and_fold took 16.00 microseconds
string._delimit and split is {
"1"
"2"
"3"
"45"
"6"
"78"
"AB"
"C"
"DE"
"F"
"GH"
"I"
"JK"
"AB101"
}
_delimit and split took 5.00 microseconds
_delimit pros
- much faster, even with cleanup
- preserves case
- can choose exactly what to use as delimiters
_delimit cons
- won't work with multi-character delimiters - as with tokenize, to be fair
- will insert sequential delimiters, resulting in empty array items when split
- adds an extra empty array item at the end if the last char is a delimiter
- removing empties requires onerous cleanup work & testing,
- or handling emties every time the array is accessed
#+RESULTS:
FONTRESOURCE:busted::vala:
ugh I just want to load a font and have widgets use it...
#+RESULTS:
FORECAST:wip::vala:
Complex recurrence, revisited.
This revision intends to cover the following scenarios not handled previously:
- Every nth day (or weekday) of a single month.
- Every nth and nth day in alternation, either per-month or absolute, eg:
- The 2nd and 3rd day of March (2,3).
- The 2nd and 3rd day of March, from the 5th (7,8).
- Every 2nd then 3rd day of March (2,5,7,10,12,15,17,20,22,25,27,30).
- Every 2nd then 5th day of March, from the 10th (12,17,19,24,26).
- The 2nd and 3rd Tuesday of March 2025 (11,18).
- The 2nd and 3rd Tuesday of April 2025, from the 12th (22,29).
- Every 2nd then 3rd Tuesday of April 2025 (8,29).
- Every 90 and 91 days from July 1st 2025.
- Every nth and nth month in alternation, eg:
- The 2nd and 10th month of every year (2,10).
- The 2nd and 5th month, from the 2nd month, of every year (4,7).
- Every 2nd then 3rd month of every year (2,5,7,10,12).
- Every 2nd then 3rd month, from the 3rd month, of every year (5,8,10).
- Every 4th month from March 2025.
- Every nth year.
#+RESULTS:
GETCHAR:vala:
Getting indices of unichar characters:
for (int x = 0; x < s.char_count(); x++) { ch = s.get_char(s.index_of_nth_char(x)); }
#+RESULTS:
tests:
#+RESULTS:
GETCHARPACKET:vala:
#+RESULTS:
GETDUPES:vala:
Get rows of duplicate data in a column, using an array of row indices.
Used for re-sorting rows of data by column where the initial sort returns contiguous sequences of same-values, eg:
Unsorted data:
| I | DATA[] | |---+--------| | 0 | "CC" | | 1 | "AA" | | 2 | "EE" | | 3 | "DD" | | 4 | "DD" |
Sorted as indices (X) of DATA:
| I | DATA[] | X[] | DATA[X[I]] | |---+--------+-----+------------| | 0 | "CC" | 1 | (AA) | | 1 | "AA" | 0 | (CC) | | 2 | "EE" | 3 | (DD) | | 3 | "DD" | 4 | (DD) | | 4 | "DD" | 2 | (EE) |
Contigious ranges of duplicates in DATA[X[I]]:
| I | DUPES[] | DATA[(((DUPES[I]>>32)*COLCOUNT)+COL)] | |---+---------+---------------------------------------| | 0 | 2..3 | "DD" |
#+RESULTS:
GETFILEPARTS:vala:
#+RESULTS:
GEOCODE:busted::vala:
converting a labyrinth of id refs to csvs with the actual adresses in them.
Currently busted, needs a redesign to use postcodes instead of states, and sorting/indexing to hurry things up.
| # | 1. DETAIL | field | col | 2. find missing in | find using | in | output | |----+-----------+---------------------+-----+-----------------------------------------+---------------------+----+---------------| | 0 | | ADDRESS_SITE_NAME | 30 | [state]_ADDRESS_STIE_psv.psv | ADDRESS_SITE_PID | 4 | sitename | | 1 | | NUMBER_FIRST | 17 | | | | streetnumber | | 2 | | NUMBER_FIRST_SUFFIX | 18 | | | | streetsuffix | | 3 | | NUMBER_LAST | 20 | | | | streetnumber2 | | 4 | | NUMBER_LAST_SUFFIX | 21 | | | | streetsuffix2 | | 5 | | FLAT_NUMBER | 10 | | | | unitnumber | | 6 | | FLAT_NUMBER_SUFFIX | 11 | | | | unitsuffix | | 7 | | LEVEL_NUMBER | 14 | | | | unitlevel | | 8 | | STREET_NAME | 22 | [state]_STREET_LOCALITY_psv.psv | STREET_LOCALITY_PID | 4 | streetname | | 9 | | STREET_TYPE_CODE | 22 | [state]_STREET_LOCALITY_psv.psv | STREET_LOCALITY_PID | 5 | streettype | | 10 | | STREET_SUFFIX_CODE | 22 | [state]_STREET_LOCALITY_psv.psv | STREET_LOCALITY_PID | 6 | streetsuffix | | 11 | | LOCALITY_NAME | 24 | [state]_LOCALITY_psv.psv | LOCALITY_PID | 3 | city | | 12 | | (from file prefix) | | | | | state | | 13 | | POSTCODE | 26 | | | | postcode | | 14 | | LATITUDE | 0 | [state]_ADDRESS_DEFAULT_GEOCODE_psv.psv | ADDRESS_DETAIL_PID | 6 | latitude | | 15 | | LONGITUDE | 0 | [state]_ADDRESS_DEFAULT_GEOCODE_psv.psv | ADDRESS_DETAIL_PID | 5 | longitude |
#+RESULTS:
GTKMENU:vala:
custom gtk menu
HEAPSORT:vala:
Heapsort test.
This is derivative work, from various sources including Wikipedia & Rosetta Code.
Not entirely sure if this the correct way to do it, seems kinda onerous.
#+RESULTS:
GESTUREDRAG:gtk4::vala:
test gesture events...
// test gtk events in a bare-minimum application
// by c.p.brown 2023
using Gtk;
int main (string[] args) {
Gtk.Application wut = new Gtk.Application ("com.test.test", GLib.ApplicationFlags.FLAGS_NONE);
wut.activate.connect(() => {
double[] mdn = {0.0,0.0};
double[] moo = {0.0,0.0};
double[] mof = {0.0,0.0};
Gtk.ApplicationWindow win = new Gtk.ApplicationWindow(wut);
Gtk.DrawingArea im = new Gtk.DrawingArea();
im.margin_top = 10;
im.margin_bottom = 10;
im.margin_start = 10;
im.margin_end = 10;
Gtk.GestureDrag gd = new Gtk.GestureDrag();
im.add_controller(gd);
im.set_draw_func((da,ctx,daw,dah) => {
var bc = Gdk.RGBA();
bc.parse("#112633");
ctx.set_source_rgba(bc.red,bc.green,bc.blue,1);
ctx.paint();
bc.parse("#DDDD88DD");
ctx.set_source_rgba(bc.red,bc.green,bc.blue,bc.alpha);
ctx.set_line_width(2.0);
ctx.move_to(mof[0],0.0);
ctx.line_to(mof[0],dah);
ctx.stroke();
ctx.move_to(0.0,mof[1]);
ctx.line_to(daw,mof[1]);
ctx.stroke();
string inf = "x = %0.2f, y = %0.2f".printf(moo[0],moo[1]);
ctx.select_font_face("Monospace",Cairo.FontSlant.NORMAL,Cairo.FontWeight.BOLD);
Cairo.TextExtents extents;
ctx.text_extents (inf, out extents);
ctx.set_source_rgba(((float) 0.9),((float) 0.9),((float) 0.4),((float) 0.9));
ctx.move_to(20.0,(dah - extents.height));
ctx.show_text(inf);
});
gd.drag_begin.connect((event,x,y) => {
print("device button is %u\n", event.get_current_button());
mdn = {x,y};
});
gd.drag_update.connect((event,x,y) => {
moo = {x,y};
mof = {mdn[0] + x,mdn[1] + y};
im.queue_draw();
});
win.default_width = 300;
win.default_height = 300;
win.set_child(im);
win.present();
});
return wut.run(args);
}
#+RESULTS:
#+RESULTS:
GOLDPACT:vala:
Check char pair balance.
Used to validate expressions before parsing them.
#+RESULTS:
HEX:vala:
print hex
INHERIT:vala:
In Vala simply writing an Object inside another Object won't allow it to access stuff in the outer Object as they're two distinct Objects. Technically both Objects should be written separately and the 'parent' Object, or a subset of its properties, is passed as args to the 'child' Object, or in Gtk use parentobject myparent (parentobject) = this.get_ancestor(typeof(parentobject)); where the UI Objects are nested. An example of get_ancestor() can be seen in GTKMENU where a clicked menu-item changes other menu-items in its parent container, and also a label in a 'parameters' Object to which the menu-button belongs.
INTERLEAVE:vala:
Combine and sort two index arrays of a string array.
Used to combine segments of a multithreaded sort.
#+RESULTS:
ISDIGIT:vala:
Text to numbers
#+RESULTS:
IXLIC:fluff::vala:
Translator test
#+RESULTS:
IXLICNUMS_GFN:vala:
Convert numbers to its English description.
#+RESULTS:
JOINV:vala:
#+RESULTS:
LINESPERROW:vala:
Get a row offset given n lines per row, h height per line, y view hieght, o scroll offset...
#+RESULTS:
LOADORGARTICLE:vala:
Load a top-level article from an org file.
(Double semi-colons inserted into results here to prevent orgception, which is not fun)
#+RESULTS:
LOOKAHEAD:vala:
Lookahead for an un-quoted, un-escaped character.
#+RESULTS:
MEDIAN:vala:
#+RESULTS:
MASKARRAY:wip::vala:
Mask arrays using cell masks or bounding regions.
TODO:
- colmask mode
- rowmask mode
- render functon for boxmask, colmask and rowmask, before unrolling to local temp mask
- more dimension tests
- clean up cellmask cropping
- mask removal functions
#+RESULTS:
MODULO:vala:
Misc modulo sanity-checks go here...
#+RESULTS:
NESTEDLOGIC:vala:
Group items of a comparison list using an indent value, to emulate things like:
true AND true OR (false OR true) AND true
#+RESULTS:
NTHROW:vala:
Check math for row nth + offset in a 1D array.
Used to reduce iteration in certian cases.
#+RESULTS:
OPTYPE:vala:
Run object functions without knowing the object type.
#+RESULTS:
PACKETS:vala:
Get lists of ints in range by nth + offset, using max list size
Useful for threading x items over y threads.
Nth & offset useful for skipping items, like quoted parts of strings for example:
#+RESULTS:
PARSEXML:vala:
xml parsing.
Obsolete test:
This has since been replaced by more comprehensive multithreaded version, which is too large to put here.
#+RESULTS:
PRINT2DARRAY:vala:
#+RESULTS:
PRINTF:vala:
#+RESULTS:
RECURSIVERADIX:wip::vala:
Test Radix sort on ascii strings.
Fast for a large number of short strings of up to 3 chars, otherwise too slow due to excessive recursion.
As a fallback this program will use quicksort where the character counts are too high, or if the initial distribution of char[0] is not large enough to break it up into buckets for multithreading.
Tested on a AMD Ryzen 9 7940HS CPU.
#+RESULTS:
READLINE:vala:
Read a particular line from a huge file.
Pre-index the lines to allow multithreading.
Requested line number is 1-based.
#+RESULTS:
REDBUTTON:vala:
A button with a signal that changes its color
Try to make this code as simple as possible without golfing.
GTK OOP is great for complex interfaces, onerous for simple ones, and thus a massive hurdle for new users, especially those who were spoiled with things like:
REPLACECHAR:vala:
Test 3 methods of removing a char:
- StringBuilder.replace() : approx 5 microseconds
- manual incramental index_of() & substring() : approx 10 microseconds
- default string.replace() : approx 35 micorseconds
Not sure how stringBuilder is faster, my guess is its doing in-place char-array shuffling/resizing, while the manual method makes new substrings, then uses them to rebuild the string.
The default replace may be restarting from the beginning of the string after each replace.
Update this later with an attempt at manually manipulating a unichar array.
#+RESULTS:
REPLACEUNQUOTED:vala:
Replace text if it isn't quoted.
Includes a bonus attempt at sampling to determine if its worth multithreading, since using ThreadPool can be slower in some cases. Interestingly the average sample time was closest to actual, at 16 tasks 16 threads, as opposed to max and median. Also the difference between sample times can be used to determine the task:thread ratio, where consistently even times can be sent at 1:1, high variance should go at 2:1 or more. There is a point of diminishing returns, but not sure how to determine it. In this case doubling the task count cut the total time by at least 5x.
#+RESULTS:
RESIZE:vala:
Check array resizing.
- resizing a fixed-length array results in an overflow warning
- resizing a variable-length array does not
The overflow warning was:
‘memset’ specified size 18446744073709551568 exceeds maximum object size 9223372036854775807 [-Wstringop-overflow=]
Fixed length array stresstest was also approx 10% slower than the variable array.
#+RESULTS:
ROWCTRL:vala:
Misc row manipulation functions
#+RESULTS:
RUNNINGTOTAL:vala:
#+RESULTS:
SCRAPE:busted::vala:
Get rendered text of a html/java document.
Uses webkit, which has to display in a ui before it will do anything else.
There might be a workaround, need more testing.
#+RESULTS:
SETCSS:vala:
SETPROPERTY:vala:
#+RESULTS:
SHELLSORT:vala:
Another shellsort test.
This is derivative work, from various sources including Wikipedia & Rosetta Code.
#+RESULTS:
SORT STRING NUMBERS:vala:
#+RESULTS:
SPLIT:vala:
NOTE: split may return empty strings when the delimiter is at either end of the string
string ";1;2;3;4;5;
split ^|^|^|^|^|^
|;|;|;|;|;|;|
|?|1|2|3|4|5|?|
partitions |1|2|3|4|5|6|7|
void main(string[] args) {
string s = "| 1 | 2 | 3 | 4 | 5 |";
string[] p = s.split("|");
print("last item : %s\n",p[p.length - 1]);
print("p.length = %d\n",p.length);
}
#+RESULTS:
last item :
p.length = 7
#+RESULTS:
STRINGBUILDER:vala:
StringBuilder tests
Notes:
- erase(x,y) is from-and-including x, to-and-including x+y
- erase(x,-1) sometimes fails in real-world use
#+RESULTS:
STRFTIME:vala:
DateTime
- has time and timezone
- can get components as integers, but can't set them - at all
- has no strftime()
- has no valid()
- has add, but not subtract
Date
- can set components as integers, but can't get them as integers
- has no time
- has add and subtract
- has strftime, but is requires a char array
DateTime is a beter storage format, as it can include time & timezone, but Date is easier to manipulate & display
#+RESULTS:
SUBSTRING:vala:
Note: ASCII only.
substring(x,y), where x is from and including, y is to and excluding (x+y)-1, eg:
substring(1,2) of "012345" is
1+2 is 3, -1 is 2 ||
"12"
substring(4,2) of "012345" is
4+2 is 6, -1 is 5 ||
"45"
substring(0,2) of "012345" is
0+2 is 2, -1 is 1 ||
"01"
substring(x,(y-x)), where x is from and including, y is to and excluding, eg:
substring(1,(4-1)) of "012345" is
"123"
substring(3,(5-3)) of "012345" is
"34"
substring(x,((y-x)+1)), where x is from and including, y is to and including, eg:
substring(1,((4-1)+1)) of "012345" is
"1234"
substring(3,((5-3)+1)) of "012345" is
"345"
To get first/last n characters:
void main (string[] args) {
string s = "file.ext";
int ii = s.last_index_of(".");
print("file part .....: %s\n",s.substring(0,ii));
print("extension part : %s\n",s.substring(ii));
}
#+RESULTS:
file part .....: file
extension part : .ext
to get from-and-including 2 to-and-including 5 from "0123456789"
start....... 2 ( 01[23456789 )
12^
end......... 5+1 ( 01[234567]89 )
12 123456^
end (5+1)-start ( 01[2345]6789 )
12 1234^
int s = 2;
int e = 5;
substring(s,((e+1)-s));
substring(2,6) = "234567"
substring(2,(6-2)) = "2345"
void main (string[] args) {
string s = "012345";
string t = "ABCDE";
string u = "((AA + (BB / CC)) * EE)";
print("\"%s\".substring(1,2) is %s\n",s,s.substring(1,2));
print("\"%s\".substring(4,2) is %s\n",s,s.substring(4,2));
print("\"%s\".substring(1,(4-1)) is %s\n",s,s.substring(1,(4-1)));
print("\"%s\".substring(3,(5-3)) is %s\n",s,s.substring(3,(5-3)));
print("\"%s\".substring(1,((4-1)+1)) is %s\n",s,s.substring(1,((4-1)+1)));
print("\"%s\".substring(3,((5-3)+1)) is %s\n",s,s.substring(3,((5-3)+1)));
print("\"%s\".substring(2) is %s\n",s,s.substring(2));
int ii = u.last_index_of("(");
string m = u.substring(ii);
int oo = m.index_of(")") + 1;
print("inner expression of %s is %s\n",u,u.substring(ii,oo));
}
#+RESULTS:
Compilation succeeded - 1 warning(s)
"012345".substring(1,2) is 12
"012345".substring(4,2) is 45
"012345".substring(1,(4-1)) is 123
"012345".substring(3,(5-3)) is 34
"012345".substring(1,((4-1)+1)) is 1234
"012345".substring(3,((5-3)+1)) is 345
"012345".substring(2) is 2345
inner expression of ((AA + (BB / CC)) * EE) is (BB / CC)
Practical usage: extract a link from a paragraph
void main (string[] args) {
string p = "some paragraph\nwith a [[val:variable]] link in it\nand [[val:another]], just to be difficult";
string c = p;
string[] l = {};
int s = 0;
while (c.contains("[[val:") && c.contains("]]")) {
int ii = c.index_of("[[val:");
int oo = c.index_of("]]") + 2;
//print("ii = %d, oo = %d\n",ii,oo);
if (oo > ii) {
string e = c.substring(ii,(oo - ii));
//print("\tfound link: (%s)\n",e);
if (e != "") {
l += e.replace("]]","").split(":")[1];
c = c.replace(e,"");
//print("c = %s\n",c);
}
}
s += 1;
if (s > 10) { break; }
}
print("original paragraph:\n\t%s\n\n",p.replace("\n","\n\t"));
print("leftover paragraph:\n\t%s\n\n",c.replace("\n","\n\t"));
print("harvested linked vars:\n");
foreach (string k in l) { print("\t%s\n",k); }
}
#+RESULTS:
original paragraph:
some paragraph
with a [[val:variable]] link in it
and [[val:another]], just to be difficult
leftover paragraph:
some paragraph
with a link in it
and , just to be difficult
harvested linked vars:
variable
another
substring(x,y), where x is from and including, y is to and excluding (x+y)-1, eg:
substring(x,(y-x)), where x is from and including, y is to and excluding, eg:
substring(x,((y-x)+1)), where x is from and including, y is to and including, eg:
To get first/last n characters:
#+RESULTS:
to get from-and-including 2 to-and-including 5 from "0123456789"
substring(2,(6-2)) = "2345"
#+RESULTS:
Practical usage: extract a link from a paragraph
#+RESULTS:
TAKEROWS:vala:
#+RESULTS:
THREADS:busted::vala:
Observations on using Threadpool:
- Both of these methods of accessing data seem fine: worker.run(ref type[] data) and new worker(type[] data) then private weak type[] data; in its properties.
- Concurrently writing to a different items of fixed-size array seems to be fine.
- Breaking tasks into packets may improve speed, however its inefficient if some packets finish way before the others. Assess packet numbers/sizes on a case-by-case basis.
- Setting max_threads to -1 causes considerable delays when processing a large number of tasks, use GLib.get_num_processors() instead.
In various tests, Waiting for threads to complete was best handled by checking the last item in a verification checklist (int[]) set to the packet size, where each packet checks-off its entry in the array when its done.- The above was a dumb mistake, checking needs to be done using a packetcomplete int, incremented with the aid of mutex.
- threadpool.unprocessed() returns the number of tasks yet to be sent to the threadpool, not the number of incomplete tasks.
- threadpool.get_num_threads() was not a reliable measure of currently running threads.
#+RESULTS:
TRUNCATE:vala:
Truncate a string
#+RESULTS:
UNDO:vala:
Simple undo test using a function arg buffer.
Buffer grows as required, up to a cap, then re-uses positions.
#+RESULTS:
UINT:vala:
Check behavior of uint here.
Notes:
- uint can be used to clearly define a variable shouldn't be negative, hovever:
- casting a negaitve int to uint will wrap it around to a huge number
- subtracting two uints to negative will also wrap it
- wrapped numbers can't be checked for an invalid negative number with u > -1
Conclusion: don't use uint unless you need to store a number from 2 to 4 billion without going 64-bit, or unless some other function requires/generates it, eg string.hash().
#+RESULTS:
UNICHAR2:vala:
#+RESULTS:
UNICHAR:vala:
#+RESULTS:
UNIQUENAME:vala:
#+RESULTS:
WRITEFILE:vala:
#+RESULTS:
WHIGGLE:vala:
beekaus ixlic is y laxwidq of kaeos...
#+RESULTS:
XFORMRC:vala:
Transform sequential columns into sequential rows, with gaps in the data...
#+RESULTS:
GTKICONS:gtk4::vala:
TBLFM PARSER:vala:
#+RESULTS:
TIME:cmd:
GNU command to quickly check max physical ram usage of a command in kilobytes:
TTYPLOT:cmd:
Plot memory usage of a process with ttyplot,
ttyplot by Antoni Sawicki is here
Virtual memory:
FRWN=$(pidof "frownedupon") && while :; do pmap -x $FRWN | grep -oP '^total kB\s+\K\d+' | numfmt --from-unit K --to-unit M; sleep 5; done | ./ttyplot -u M -c "█"
#+RESULTS:
.: ttyplot :.
^ 1163.0 M █ ██
│ ███████████████████████████████
│ ███████████████████████████████
│ 872.2 M ████████████████████████████████
│ ██████████████████████████████████
│ ██████████████████████████████████
│ ██████████████████████████████████
│ 581.5 M ██████████████████████████████████
│ ██████████████████████████████████
│ ██████████████████████████████████
│ ██████████████████████████████████
│ 290.8 M ██████████████████████████████████
│ ██████████████████████████████████
│ ██████████████████████████████████
│ ██████████████████████████████████
└───────────────────────────────────────────────────────────────────────>
█ last=1155.0 min=919.0 max=1163.0 avg=1139.8 M i Apr 28 22:07:37 2023
github.com/tenox7/ttyplot 1.4
Physical memory:
FRWN=$(pidof "frownedupon") && while :; do pmap -x $FRWN | grep -oP '^total kB\s+\d+\s+\K\d+' | numfmt --from-unit K --to-unit M; sleep 5; done | ./ttyplot -u M -c "█"
.: ttyplot :.
^ 102.0 M ██████
│ █████████████████
│ █████████████████████████████████████████████
│ 76.5 M █████████████████████████████████████████████
│ ███████████████████████████████████████████████
│ ███████████████████████████████████████████████
│ ███████████████████████████████████████████████
│ 51.0 M ███████████████████████████████████████████████
│ ███████████████████████████████████████████████
│ ███████████████████████████████████████████████
│ ███████████████████████████████████████████████
│ 25.5 M ███████████████████████████████████████████████
│ ███████████████████████████████████████████████
│ ███████████████████████████████████████████████
│ ███████████████████████████████████████████████
└───────────────────────────────────────────────────────────────────────>
█ last=102.0 min=76.0 max=102.0 avg=95.3 M Fri Apr 28 22:24:43 2023
github.com/tenox7/ttyplot 1.4
ttyplot by Antoni Sawicki is here
Virtual memory:
#+RESULTS:
Physical memory:
ORGNQQ:rebol3:
gifded queue to export an orgfile to html.
Used to make this site.
Mostly written in Rebol3, a beutiful low-effort hight-payoff language... reminds me of Python before the crowds...
The queue:
Used to make this site.
Mostly written in Rebol3, a beutiful low-effort hight-payoff language... reminds me of Python before the crowds...
The queue:
preflight
shellscript node to clear out pub dirs
loader
hardcoded vala node to load a file
org title:rebol3:
org headlines:rebol3:
org tables:rebol3:
org source:rebol3:
org checkboxes:rebol3:
org lists:rebol3:
org properties:rebol3:
org dates:rebol3:
org links:rebol3:
org style:rebol3:
org include:rebol3:
insert script
html node that simply replaces <!--[lastres]--> with the incoming text
prepend css
html node that simply replaces <!--[lastres]--> with the incoming text
save fonts:rebol3:
save html
Hardcoded Vala node that saves the incoming text to index file
publish
shellscript node to copy everything to a publish location
ORG SBE:org:
#+RESULTS:
: 1.62760416666667
| ITEM | VAL | XCH | ATAX | AUD | |-------+------+------+------+-------| | AUD | 88.0 | 1.0 | 0.76 | 66.9 | | EUR | 60.0 | 1.63 | 0.52 | 50.9 | |-------+------+------+------+-------| | TOTAL | | | | 117.8 | #+TBLFM: @3$3='(org-sbe "x");%.2f :: $5=(($2*$3)*$4);%.1f :: @>$5=vsum(@I$5..@II$5);%.1f
MONO:fluff:
SPACE
|---+-----------------+-------+--------+---------------------------+-------+--------+-------------------------------------------| | ! | font | serif | width | code | table | plot | subjective note | |---+-----------------+-------+--------+---------------------------+-------+--------+-------------------------------------------| | * | FiraCode | no | med | makes assumptions | OK | OK | lighter, more readable alternative to APL | | | FreeMono | yes | med | heavy semicolon, quotes | OK | OK | clean serif, safe choice, bit light tho | | | APL385 | no | med | OK | OK | OK | very clean, too spread out for prose | | | IBMPlexMono | no | med | OK | OK | OK | clean unremarkable safe choice | | | JetBrainsMono | no | med | OK | OK | OK | unremarkable safe choice | | | TerminusTTF | no | med | OK | OK | OK | g and y are crushed, too blocky for prose | | | Monoid | no | narrow | OK | OK | WONKY | clean, need to scale it down | | | AnkaCoder | no | med | strange zero | OK | WONKY | bit too busy | | | F25BankPrinter | no | wide | OK | WONKY | WONKY | heavy, too wide | | | LibertinusMono | yes | wide | OK | OK | WONKY | feels scaled in x | | | SVBasicManual | no | med | no curly brace, open zero | GREAT | BUSTED | close to mono eurostile, worth fixing! | | | VerilySerifMono | yes | med | OK | OK | BUSTED | bit too busy | | | crystal | no | narrow | OK | OK | BUSTED | clean, not great for prose | | | Courier Prime | no | wide | OK | OK | BUSTED | clean, not great for prose | | | SomeType Mono | no | wide | OK | OK | BUSTED | clean, better for prose than the above | | * | LuxiMono | yes | wide | OK | OK | BUSTED | stodge unremarkable mono serif | | | AAActualMono | no | narrow | OK | OK | BUSTED | yeah not actual mono... | | | SelectricMono | yes | med | fucky quotes | WONKY | BUSTED | letters too spread-out | | | TeXGyreCursor | yes | med | OK | OK | BUSTED | clean light serif | | | NotCourierSans | no | wide | weird semicolon | OK | BUSTED | clean wide font | | | CutiveMono | yes | wide | OK | OK | BUSTED | too spread-out, very light | |---+-----------------+-------+--------+---------------------------+-------+--------+-------------------------------------------|
THE TAB KEY:el:
From .emacs
(setq-default indent-tabs-mode 'only)
(setq-default tab-width 4)
(setq-default tab-stop-list (number-sequence 4 120 4))
(electric-indent-mode -1)
(add-hook 'after-change-major-mode-hook (lambda() (electric-indent-mode -1)))
(global-set-key (kbd "<backspace>") 'backward-delete-char)
(defun cpb-editing-hook ()
;; tab indent unindent
;; posted by Stanley Bak
;; edited by 'mythicalcoder'
;; at: https://stackoverflow.com/questions/2249955/emacs-shift-tab-to-left-shift-the-block
(defun just-insert-tab ()
"Insert a tab char. (ASCII 9, \t)"
(interactive)
(insert "\t")
)
(defun just-insert-newline ()
"Insert a newline char"
(interactive)
(insert "\n")
)
(defun indent-region-custom(numSpaces)
(if (use-region-p)
(progn
; default to start and end of current line
(setq regionStart (line-beginning-position))
(setq regionEnd (line-end-position))
; if there's a selection, use that instead of the current line
(when (use-region-p)
(setq regionStart (region-beginning))
(setq regionEnd (region-end))
)
(save-excursion ; restore the position afterwards
(goto-char regionStart) ; go to the start of region
(setq start (line-beginning-position)) ; save the start of the line
(goto-char regionEnd) ; go to the end of region
(setq end (line-end-position)) ; save the end of the line
(indent-rigidly start end numSpaces) ; indent between start and end
(setq deactivate-mark nil) ; restore the selected region
)
)
(just-insert-tab)
)
)
(defun untab-region (N)
(interactive "p")
(indent-region-custom -4)
)
(defun tab-region (N)
(interactive "p")
(indent-region-custom 4)
)
(setq indent-tabs-mode 'only)
(setq tab-width 4)
(setq tab-stop-list (number-sequence 4 120 4))
(electric-indent-mode -1)
(local-set-key (kbd "<backspace>") 'backward-delete-char)
(local-set-key (kbd "<M-S-up>") 'move-line-up)
(local-set-key (kbd "<M-S-down>") 'move-line-down)
(local-set-key (kbd "<backtab>") 'untab-region)
(local-set-key (kbd "<tab>") 'tab-region)
(local-set-key (kbd "TAB") 'tab-region)
(local-set-key (kbd "<return>") 'just-insert-newline)
;; special cases for modes with a keymap
(define-key emacs-lisp-mode-map (kbd "<return>") 'just-insert-newline)
(define-key emacs-lisp-mode-map (kbd "TAB") 'tab-region)
(define-key emacs-lisp-mode-map (kbd "<tab>") 'tab-region)
(define-key emacs-lisp-mode-map (kbd "<backtab>") 'untab-region)
)
;; tab = tab for rebol3
(add-hook 'rebol3-mode-hook 'cpb-editing-hook)
;; tab = tab for python
(add-hook 'python-mode-hook 'cpb-editing-hook)
;; tab = tab for xml
(add-hook 'nxml-mode-hook 'cpb-editing-hook)
;; tab = tab for html
(add-hook 'html-mode-hook 'cpb-editing-hook)
;; tab = tab or vala
(add-hook 'vala-mode-hook 'cpb-editing-hook)
;; tab = tab for elsip
(add-hook 'emacs-lisp-mode-hook 'cpb-editing-hook)
;; tab = tab for shell
(add-hook 'shell-mode-hook 'cpb-editing-hook)
;; org src blocks
(setq org-src-tab-acts-natively t)
(setq org-src-preserve-indentation t)
(setq org-edit-src-content-indentation 0)
(setq org-src-fontify-natively t)
R3 RENAME:rebol3:
Batch rename with Rebol3.
sample name...: "Within Destruction - Lotus - 11 P.O.P..flac"
desired output: "within_destruction_lotus_11_pop.flac"
the crude way:
;; rename test
;; by c.p.brown 2023
f: read %./*.flac
foreach x f [
n: lowercase (to-string x)
replace n ".flac" ""
n: reword/escape n [ " " "_" "." "" "-" "" "(" "" ")" "" ] none
replace/all n "__" "_"
n: join n ".flac"
call compose [ "cp" (to-string x) (n) ]
]
the more reliable way, no duplicate underscores:
;; rename test using parse
;; by c.p.brown 2023
f: read %./*.flac
nup: charset ".-()"
foreach x f [
n: lowercase to-string x
parse n [
a: any [ [ not ".flac" ] remove nup | skip ]
:a any [ remove some #" " insert "_" | skip ]
]
print [ "renaming from:" x "^/ to:" n "^/"]
t: open/new/write to-file n
write/binary t read/binary x
]
another test:
"Within Destruction - Lotus - (.- )- 11 P.O.P..flac"
output:
"within_destruction_lotus_11_pop.flac"
sample name...: "Within Destruction - Lotus - 11 P.O.P..flac"
desired output: "within_destruction_lotus_11_pop.flac"
the crude way:
the more reliable way, no duplicate underscores:
another test:
"Within Destruction - Lotus - (.- )- 11 P.O.P..flac"
output:
"within_destruction_lotus_11_pop.flac"
LYNX CRAWL:cmd:
then convert to a xml:
wrap each line in <url><loc> ... <loc><url>
insert a header:
then append </urlset>
and save as sitemap.xml
FIREJAIL FIREFOX:cmd:
It won't take at first, so run the above command before loading firefox, open and close firefox, run the command again, wait a few seconds, run it a third time... then it should be firejailed. Check by looking at:
You should only see folders that firefox needs to use.
DUI:gtk3::red:
Dynamic ui test.
Creates fields/labels from items in a data structure.
Here for reference only. I've since moved from Red to Vala.
Red [ needs 'view ]
;; tag used for single line strings (fields), thanks to Boleslav Březovský re: "string" vs {string}
recycle/off
articledata: context[
thisis: 'articledata
name: <article name>
index: 1 ;; used for sorting
poster: %./imagefile.png
video: %./videofile.mp4
article: {article text^/goes here}
onclick: protocol://path.goes.here
credits: {credits^/* go^/* here}
references: [ protocol://url.goes.here protocol://url.goes.here ]
]
getext: func [ f ] [ last split to-string f "." ]
makeparams: func [ d ] [
k: d/thisis
w: words-of d
v: values-of d
i: 1
n: copy []
append n [ below ]
foreach p w [
switch mold type? v/:i [
"integer!" [ append n compose/deep [ across text (to-string p) text (to-string v/(i)) return below ] ]
"tag!" [
append n compose/deep [
text (to-string p) field 200x55 with [ text: (to-string v/(i)) ] on-change [
(to-set-path compose [ (k) (p) ]) to-tag face/text src/text: (quote mold ) (k)
]
] probe n
]
"string!" [
append n compose/deep [
text (to-string p) area 200x100 with [ text: (to-string v/(i)) ] on-change [
(to-set-path compose [ (k) (p) ]) face/text src/text: (quote mold ) (k)
]
]
]
"url!" [
append n compose/deep [
text (to-string p) field 200x55 with [ text: (to-string v/(i)) ] on-change [
(to-set-path compose [ (k) (p) ]) to-url face/text src/text: (quote mold ) (k)
]
]
]
"block!" [
append n compose/deep [
text (to-string p) text-list 200x100 data [(v/(i))] on-change [
(to-set-path compose [ (k) (p) ]) face/data src/text: (quote mold ) (k)
]
]
]
"file!" [
either (getext v/:i) = "png" [
append n compose/deep [
text (to-string p) image 200x200 with [ image: load (v/(i)) ] on-up [
img: request-file/filter ["pics" "*.png"]
unless none? img [
img: to-file rejoin [ "./" second split-path img ]
if exists? img [
face/image: load img
unless none? face/image [
(to-set-path compose [ (k) (p) ]) img src/text: (quote mold ) (k)
]
]
]
]
]
] [ print [ "file not a png, skipping..." ] ]
]
]
i: i + 1
]
n
]
nudgev: func [ ] [
aa/offset/x: 0
pp/offset/y: 0
vv/offset/y: 0
aa/offset/y: 0
bb/offset/y: 0
aa/size/x: vv/offset/x
src/size/x: aa/size/x - 20
bb/offset/x: vv/offset/x + vv/size/x
bb/size/x: pp/size/x - (vv/offset/x + vv/size/x)
cc/size/x: bb/size/x - 70
]
view/tight/flags/options [
title "auto param test"
pp: panel 650x600 255.0.0 [
aa: panel 300x600 30.30.30 [
below
src: area 300x510 40.40.40 font-name "consolas" font-size 10 font-color 128.255.128
doit: button 120x55 30.30.30 "update" font-name "consolas" font-size 16 font-color 128.128.128 [
tmp: do [ reduce load src/text ]
articledata: reduce copy tmp/1
src/text: (mold articledata)
clear cc/pane
append cc/pane layout/only makeparams articledata
]
]
vv: panel 10x600 15.15.15 loose on-drag [ nudgev ]
bb: panel 300x600 30.30.30 [
cc: panel 300x1000 60.60.60 loose [ ] on-drag [
face/offset/x: 10 face/offset/y: min face/offset/y 10
] on-wheel [
either event/picked > 0 [ face/offset/y: face/offset/y + 40 ] [ face/offset/y: face/offset/y - 40 ]
bo: (bb/size/y - face/size/y) - 100
bo: min bo 0
face/offset/y: max bo min face/offset/y 10
]
]
]
do [
aa/offset/x: 0
append cc/pane layout/only makeparams articledata
src/text: (mold articledata)
nudgev
]
] [ resize ] [
actors: object [
on-resizing: function [ face event ] [
if face/size/x > 500 [
if face/size/y > 300 [
pp/size: face/size
vv/size/y: face/size/y
aa/size/y: face/size/y
bb/size/y: face/size/y
vv/offset/x: face/size/x - (bb/size/x + vv/size/x)
doit/offset/y: face/size/y - (doit/size/y + 100)
src/size/y: doit/offset/y - 20
nudgev
]
]
]
]
]
Creates fields/labels from items in a data structure.
Here for reference only. I've since moved from Red to Vala.
THECOVID:cmd::py:
Script to watch the 2nd nth wave of covid in NSW 2020.
Linux: Import into org via src block, where:
arg 0 = days to check
arg 1 = column: 0 = distance, 1 = date, 2 = postcode, 3 = burb
#+name=covids
#+BEGIN_SRC sh :dir ~/Desktop/cvd/ :session :results raw :results drawer
python3 cvd_linux.py 2 1
#+END_SRC
:results:
22 new cases
| DIST | DATE | POST | SUBURB |
|----------+--------+------+------------------------|
| 56.82km | 200806 | 2046 | Canada Bay (A) |
| 50.67km | 200806 | 2560 | Campbelltown (C) (NSW) |
| 36.63km | 200806 | 2176 | Fairfield (C) |
| 39.29km | 200806 | 2145 | Cumberland (A) |
| 39.29km | 200806 | 2145 | Cumberland (A) |
| 36.63km | 200806 | 2176 | Fairfield (C) |
| 44.71km | 200806 | 2161 | Cumberland (A) |
| 140.87km | 200806 | 2303 | Newcastle (C) |
| 45.25km | 200806 | 2150 | Parramatta (C) |
| 140.87km | 200806 | 2303 | Newcastle (C) |
|----------+--------+------+------------------------|
| | | | = 10 |
|----------+--------+------+------------------------|
| 40.52km | 200805 | 2164 | Fairfield (C) |
| 140.87km | 200805 | 2303 | Newcastle (C) |
| 62.19km | 200805 | 2042 | Sydney (C) |
| 66.29km | 200805 | 2011 | Sydney (C) |
| 38.78km | 200805 | 2177 | Fairfield (C) |
| 44.33km | 200805 | 2170 | Liverpool (C) |
| 43.24km | 200805 | 2166 | Fairfield (C) |
| 65.63km | 200805 | 2017 | Sydney (C) |
| 44.71km | 200805 | 2161 | Cumberland (A) |
| 45.25km | 200805 | 2150 | Parramatta (C) |
| 45.25km | 200805 | 2150 | Parramatta (C) |
| 44.71km | 200805 | 2161 | Cumberland (A) |
|----------+--------+------+------------------------|
| | | | = 12 |
|----------+--------+------+------------------------|
:end:
import urllib.request
import datetime
import os
from math import sin, cos, sqrt, atan2, radians
import sys
# pythonista widget to show recent covid cases during the 2nd wave...
# written by c.p.brown using sources acknowledged below.
# last updated August 2020
# covid case data sourced from:
# https://data.nsw.gov.au/data/dataset/covid-19-cases-by-location
# postcode location dat sourced from Soon Van 'randomecho' : https://gist.github.com/randomecho/5020859
# ... who took and cribbed from blog.datalicious.com/free-download-all-australian-postcodes-geocod (now a 404 site)
# so this 3rd(or more)-hand data probably contains errors, use at your own risk
# getdist function posted by gwaramadze & fixed by Michael0x2a on stackexchange: https://stackoverflow.com/questions/19412462/getting-distance-between-two-points-based-on-latitude-longitude
# who got it from Andrew Hedges: # https://andrew.hedges.name/experiments/haversine/
# who got it from Bob Chamberlain (site unknown)
# distances rounded to 0.5 km for table grouping
cdr = os.path.split(os.path.realpath('cvd_linux.py'))[0]
rcsv = 'https://data.nsw.gov.au/data/dataset/97ea2424-abaf-4f3e-a9f2-b5c883f42b6a/resource/2776dbb8-f807-4fb2-b1ed-184a6fc2c8aa/download/covid-19-cases-by-notification-date-location-and-likely-source-of-infection.csv'
pcod = cdr + "/nswpostcodes.csv"
mypos = (-33.689990, 150.546212)
ago = 2 # number of prior days to check for cases
cases = []
def getdist(la, lb, oa, ob) :
# function posted by gwaramadze & fixed by Michael0x2a on stackexchange, referring to Andrew Hedges, who referred to Bob Chamberlain
# https://andrew.hedges.name/experiments/haversine/
# https://stackoverflow.com/questions/19412462/getting-distance-between-two-points-based-on-latitude-longitude
# approximate radius of earth in km
R = 6371.0
lat1 = lb
lon1 = ob
lat2 = la
lon2 = oa
dlon = radians(lon2 - lon1)
dlat = radians(lat2 - lat1)
a = (sin(dlat / 2) * sin(dlat / 2) + cos(radians(lat1)) * cos(radians(lat2)) * sin(dlon / 2) * sin(dlon / 2))
c = 2 * atan2(sqrt(a), sqrt(1 - a))
distance = R * c
return(distance)
def orgtab(s) :
# function to clean up a non-aligned org table
# intedned for editing orgfile tables in editorial (ios)
lines = s.split('\n')
mxl = []
tbl = ""
# get max column widths
for i in lines :
p = i.split('|')
c = 0
for s in p :
if s != "" :
sl = len(s)
if len(mxl) <= c :
mxl.append(sl)
else :
if sl > mxl[c] :
mxl[c] = sl
c = c + 1
# have the max column widths, now use them to pad cells...
for i in lines :
p = i.split('|')
c = 0
row = "|"
if len(i.strip()) == 0 : row = ""
for s in p :
if s != "" :
q = s.ljust(mxl[c]," ")
if s.strip() != "" :
if s[0] == "-" :
q = s.ljust(mxl[c],"-")
if s[0] == "-" :
if c < len(p) - 3 :
row = row + q + "+"
else :
row = row + q + "|"
else :
row = row + q + "|"
c = c + 1
if row.strip() != "" : row = row + "\n"
tbl = tbl + row
lines = 0
return tbl
def render(s,u,r) :
if len(cases) > 0 :
# write case count
c = str(len(cases)) + " new cases"
# sort and group cases using column key (r)
values = set(map(lambda x:x[r], cases))
if r == 1 :
values = sorted(values, reverse=True)
else :
values = sorted(values)
cg = [[y for y in cases if y[r]==x] for x in values]
# org-style table header
o = "| DIST | DATE | POST | SUBURB |\n"
o = o + "|------|------|------|--------|\n"
for g in cg :
gl = len(g)
for i in g :
o = o + "| " + "{0:.2f}".format(i[0]) + "km | " + i[1] + " | " + i[2] + " | " + i[3] + ' |\n'
o = o + "|------|------|------|--------|\n"
o = o + "| | | | = " + str(len(g)) + "|\n"
o = o + "|------|------|------|--------|\n"
# tidy-up the table.
# inefficient doing this after the fact, but testing a general-purpose text-editing function for later
o = orgtab(o)
# update ui
return[o,c]
else :
o = ""
c = "no new cases"
return[o,c]
def btap() :
r = int(sys.argv[2])
ago = int(sys.argv[1])
o = ""
c = ""
# get the covid data from csv
ug = urllib.request.urlopen(rcsv)
csv = ug.read().splitlines()[1:]
ug = 0
# extract date info
td = datetime.date.today()
tx = td.toordinal()
tw = td.strftime('%a')
tt = td.day
# get postcode locations from csv
f = open(pcod,'r')
pcsv = f.read().splitlines()
f.close()
pcc = []
loc = []
for p in pcsv :
seg = p.split(';')
if not int(seg[0]) in pcc :
pcc.append(int(seg[0]))
ploc = (float(seg[2]),float(seg[3]))
loc.append(ploc)
pcsv = 0
latest = []
# gather and format covid cases, filtered by age in days
for l in csv :
l = l.decode('utf-8')
parts = l.split(',')
if parts[1].strip() != '' :
dt = parts[0]
xo = datetime.datetime.strptime(dt,'%Y-%m-%d').date()
xx = xo.toordinal()
if tx - xx <= ago :
# match postcode to location data
try:
lidx = pcc.index(int(parts[1]))
except:
lidx = -1
if lidx > -1 :
# have a location, get its distance, append to returned data
itspos = loc[lidx]
itsdist = getdist(mypos[0],itspos[0],mypos[1],itspos[1])
# compact the date
tu = datetime.datetime.strftime(xo,'%y%m%d')
cs = [itsdist,tu,parts[1],parts[6]]
latest.append(cs)
cases.clear()
for j in latest : cases.append(j)
latest = 0
csv = 0
# if there are any cases, format and output information
if len(cases) > 0 :
return render(o,c,r)
else :
o = ""
c = "no new cases"
return[o,c]
thelist = btap()
if len(thelist[0]) == 0 :
print("\n No cases recorded since " + str(ago) + " days ago.\n This may be due to delays in providing data.\n Data sourced from:\n https://data.nsw.gov.au/data/dataset/covid-19-cases-by-location")
else:
print(thelist[1] + "\n\n" + thelist[0])
Linux: Import into org via src block, where:
arg 0 = days to check
arg 1 = column: 0 = distance, 1 = date, 2 = postcode, 3 = burb
PIC
E72:pic::glsl::demo:
SDF fragment shader
Besides the watermark, this image is sdf math, including text decals, shader is here
It is not optimized; there is no bvh. It will cook your device, view at your own risk.
Relies heavily on examples published by:
Prototyped on cpu in Houdini Vex for safety, before finishing it off in KodeLife.
Render above is from the vex version, as its trivial to output an image sequence from Houdini.
Conclusion to this test: AA kills it. Try again later with WebGPU+Vulkan...
Not made for Bahco. Chosen as its a simple product to model, has text and movable parts, had the measurements on-hand.
Besides the watermark, this image is sdf math, including text decals, shader is here
It is not optimized; there is no bvh. It will cook your device, view at your own risk.
Relies heavily on examples published by:
- Inigo Quilez
- Jamie Wong
Prototyped on cpu in Houdini Vex for safety, before finishing it off in KodeLife.
Render above is from the vex version, as its trivial to output an image sequence from Houdini.
Conclusion to this test: AA kills it. Try again later with WebGPU+Vulkan...
Not made for Bahco. Chosen as its a simple product to model, has text and movable parts, had the measurements on-hand.
