Alexa Amundson
78fbe80f2a
bin/ 230 CLI tools (ask-*, br-*, agent-*, roadid, carpool) scripts/ 99 automation scripts fleet/ Node configs and deployment workers/ Cloudflare Worker sources (roadpay, road-search, squad webhooks) roadc/ RoadC programming language roadnet/ Mesh network (5 APs, WireGuard) operator/ Memory system scripts config/ System configs dotfiles/ Shell configs docs/ Documentation BlackRoad OS — Pave Tomorrow. RoadChain-SHA2048: d1a24f55318d338b RoadChain-Identity: alexa@sovereign RoadChain-Full: d1a24f55318d338b24b60bad7be39286379c76ae5470817482100cb0ddbbcb97e147d07ac7243da0a9f0363e4e5c833d612b9c0df3a3cd20802465420278ef74875a5b77f55af6fe42a931b8b635b3d0d0b6bde9abf33dc42eea52bc03c951406d8cbe49f1a3d29b26a94dade05e9477f34a7d4d4c6ec4005c3c2ac54e73a68440c512c8e83fd9b1fe234750b898ef8f4032c23db173961fe225e67a0432b5293a9714f76c5c57ed5fdf35b9fb40fd73c03ebf88b7253c6a0575f5afb6a6b49b3bda310602fb1ef676859962dad2aebbb2875814b30eee0a8ba195e482d4cbc91d8819e7f38f6db53e8063401649c77bb994371473cabfb917fb53e8cbe73d60
78 lines
2.3 KiB
Bash
Executable File
78 lines
2.3 KiB
Bash
Executable File
#!/bin/bash
|
|
# BR-Sphere - Rotating wireframe sphere
|
|
clear
|
|
trap 'printf "\033[?25h\033[0m"; clear; exit' INT TERM EXIT
|
|
printf '\033[?25l'
|
|
COLS=$(tput cols) LINES=$(tput lines)
|
|
CX=$((COLS/2)) CY=$((LINES/2))
|
|
R=10
|
|
T=0
|
|
COLORS=(205 135 69 214 82)
|
|
|
|
while true; do
|
|
printf '\033[2J\033[H'
|
|
ROT=$(echo "$T * 0.05" | bc -l)
|
|
SR=$(echo "s($ROT)" | bc -l)
|
|
CR=$(echo "c($ROT)" | bc -l)
|
|
|
|
# Latitude lines
|
|
for lat in -60 -30 0 30 60; do
|
|
for ((lon=0;lon<360;lon+=8)); do
|
|
SLAT=$(echo "s($lat * 0.0174)" | bc -l)
|
|
CLAT=$(echo "c($lat * 0.0174)" | bc -l)
|
|
SLON=$(echo "s($lon * 0.0174)" | bc -l)
|
|
CLON=$(echo "c($lon * 0.0174)" | bc -l)
|
|
|
|
x=$(echo "$CLAT * $CLON" | bc -l)
|
|
y=$SLAT
|
|
z=$(echo "$CLAT * $SLON" | bc -l)
|
|
|
|
# Rotate Y
|
|
rx=$(echo "$x * $CR + $z * $SR" | bc -l)
|
|
rz=$(echo "-$x * $SR + $z * $CR" | bc -l)
|
|
|
|
# Project
|
|
px=$(echo "scale=0; $CX + $rx * $R * 2" | bc)
|
|
py=$(echo "scale=0; $CY + $y * $R" | bc)
|
|
|
|
if [[ -n "$px" && -n "$py" ]] && (( px>0 && px<COLS && py>0 && py<LINES )); then
|
|
# Depth shading
|
|
if (( $(echo "$rz > 0" | bc -l) )); then
|
|
printf '\033[%d;%dH\033[38;5;205m●\033[0m' "$py" "$px"
|
|
else
|
|
printf '\033[%d;%dH\033[38;5;240m·\033[0m' "$py" "$px"
|
|
fi
|
|
fi
|
|
done
|
|
done
|
|
|
|
# Longitude lines
|
|
for lon in 0 45 90 135; do
|
|
for ((lat=-90;lat<=90;lat+=8)); do
|
|
SLAT=$(echo "s($lat * 0.0174)" | bc -l)
|
|
CLAT=$(echo "c($lat * 0.0174)" | bc -l)
|
|
SLON=$(echo "s($lon * 0.0174)" | bc -l)
|
|
CLON=$(echo "c($lon * 0.0174)" | bc -l)
|
|
x=$(echo "$CLAT * $CLON" | bc -l)
|
|
y=$SLAT
|
|
z=$(echo "$CLAT * $SLON" | bc -l)
|
|
rx=$(echo "$x * $CR + $z * $SR" | bc -l)
|
|
rz=$(echo "-$x * $SR + $z * $CR" | bc -l)
|
|
px=$(echo "scale=0; $CX + $rx * $R * 2" | bc)
|
|
py=$(echo "scale=0; $CY + $y * $R" | bc)
|
|
if [[ -n "$px" && -n "$py" ]] && (( px>0 && px<COLS && py>0 && py<LINES )); then
|
|
if (( $(echo "$rz > 0" | bc -l) )); then
|
|
printf '\033[%d;%dH\033[38;5;69m●\033[0m' "$py" "$px"
|
|
else
|
|
printf '\033[%d;%dH\033[38;5;237m·\033[0m' "$py" "$px"
|
|
fi
|
|
fi
|
|
done
|
|
done
|
|
|
|
printf '\033[1;1H\033[38;5;135m◎ BR-Sphere \033[38;5;69m[q=quit]\033[0m'
|
|
T=$((T+1))
|
|
sleep 0.1
|
|
read -rsn1 -t 0.01 K && [[ "$K" == "q" ]] && exit
|
|
done
|