add sample rpl rpograms

Signed-off-by: Gwenhael Le Moine <gwenhael.le.moine@gmail.com>
This commit is contained in:
Gwenhael Le Moine 2022-11-15 14:27:56 +01:00
parent 291db997c5
commit a21cf92e25
No known key found for this signature in database
GPG key ID: FDFE3669426707A7
2 changed files with 11 additions and 0 deletions

6
samples/dpi.rpl Normal file
View file

@ -0,0 +1,6 @@
@ ( resx resy diaginches -- dpi )
@ Naive version
@ 'diag' lsto 'y' lsto 'x' lsto y x / 'ratio' lsto diag sq 1 ratio sq + / sqrt 'xd' lsto x xd /
sq rot rot over / sq 1 + rot swap / sqrt /

View file

@ -0,0 +1,5 @@
"cpu: "
"/sys/class/hwmon/hwmon3/temp1_input" fread str→ 1000 / + "⁰C" +
" | " +
"gpu: " "/sys/class/hwmon/hwmon4/temp1_input" fread str→ 1000 / + "⁰C" +
+