Check-in by ben on 2025-04-11 21:05:49

Check-in by ben on 2025-04-11 21:05:49

Simplify periodic table display when multiple elements are
selected. Blur out the de-selected symbols by replacing letters
with . characters. Bump version to 3

INSERTED DELETED
23 59 periodic.awk
23 59 TOTAL over 1 changed file

Index: periodic.awk
==================================================================
--- periodic.awk
+++ periodic.awk
@@ -1,6 +1,6 @@
-# periodic.awk version 2 by Ben Collver
+# periodic.awk version 3 by Ben Collver
#
# Generate static gopher content for the periodic table of elements.
#
# Edit gopher_dir, gopher_host, and gopher_port in function main()
#
@@ -757,12 +757,12 @@

close(f)
return
}

-function print_table(f, col, cols, element, i, key, \
- row, rows, sel, sel_l, sel_r, symbol)
+function print_table(f, col, cols, element, key, row, rows, sel, \
+ symbol)
{
cols = table["cols"]
rows = table["rows"]

for (row = 1; row <= rows; row++) {
@@ -769,66 +769,26 @@
for (col = 1; col <= cols; col++) {
key = row "_" col
element = table[key]
sel = selection[key]
key = element "_Symbol"
- symbol = sprintf("%-2s", elements[key])
- if (sel) {
- sub(/ /, "_", symbol)
- }
- if (col == 1) {
- key = row "_" (col + 1)
- sel_r = selection[key]
- if (sel) {
- if (sel_r) {
- printf "[%s", symbol >>f
- } else {
- printf "[%s]", symbol >>f
- }
- } else {
- printf " %s", symbol >>f
- }
- } else if (col == cols) {
- key = row "_" (col - 1)
- sel_l = selection[key]
- if (sel) {
- if (sel_l) {
- printf "_%s]", symbol >>f
- } else {
- printf "[%s]", symbol >>f
- }
- } else {
- if (sel_l) {
- printf "%s", symbol >>f
- } else {
- printf " %s", symbol >>f
- }
- }
- } else {
- key = row "_" (col - 1)
- sel_l = selection[key]
- key = row "_" (col + 1)
- sel_r = selection[key]
- if (sel) {
- if (sel_l) {
- if (sel_r) {
- printf "_%s", symbol >>f
- } else {
- printf "_%s]", symbol >>f
- }
- } else {
- if (sel_r) {
- printf "[%s", symbol >>f
- } else {
- printf "[%s]", symbol >>f
- }
- }
- } else {
- if (sel_l) {
- printf "%s", symbol >>f
- } else {
- printf " %s", symbol >>f
+ symbol = elements[key]
+ if (selected > 1) {
+ if (!sel) {
+ gsub(/./, ".", symbol)
+ }
+ printf " %-2s", symbol >>f
+ } else {
+ if (sel) {
+ printf "[%-2s]", symbol >>f
+ } else {
+ key = row "_" (col - 1)
+ sel = selection[key]
+ if (sel) {
+ printf "%-2s", symbol >>f
+ } else {
+ printf " %-2s", symbol >>f
}
}
}
}
printf "\n" >>f
@@ -873,16 +833,20 @@

function select_atom(element, col, key, row) {
col = table_col[element]
row = table_row[element]
key = row "_" col
+ if (selection[key] != 1) {
+ selected++
+ }
selection[key] = 1
return
}

function select_clear() {
delete selection
+ selected = 0
return
}

function select_family(family_id, i, key, len) {
len = elements["length"]