add sample rpl rpograms
Signed-off-by: Gwenhael Le Moine <gwenhael.le.moine@gmail.com>
This commit is contained in:
parent
291db997c5
commit
a21cf92e25
2 changed files with 11 additions and 0 deletions
6
samples/dpi.rpl
Normal file
6
samples/dpi.rpl
Normal 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 /
|
5
samples/tibou-sensors.rpl
Normal file
5
samples/tibou-sensors.rpl
Normal 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" +
|
||||||
|
+
|
Loading…
Reference in a new issue