Added progress to showcases

pull/1038/merge
Nikita Prokopov 2021-04-10 17:40:37 +02:00
rodzic e7d9385716
commit e9f9cd3b76
3 zmienionych plików z 33 dodań i 12 usunięć

Wyświetl plik

@ -7,4 +7,4 @@
Mozilla Foundation (https://www.mozilla.org/en-US/contact/)
Telefonica S.A.
Nikita Prokopov (prokopov@gmail.com) github.com/tonsky
Nikita Prokopov (niki@tonsky.me) github.com/tonsky

Wyświetl plik

@ -307,17 +307,18 @@ _| |_ _||_ __| ___| |__ |___
# Progress bars
[>----------]
[=>---------]
[==>--------]
[===>-------]
[====>------]
[=====>-----]
[======>----]
[=======>---]
[========>--]
[=========>-]
[==========>]
[...........] [-----------] 
[#..........] [>----------] 
[##.........] [=>---------] 
[###........] [==>--------] 
[####.......] [===>-------] 
[#####......] [====>------] 
[######.....] [=====>-----] 
[#######....] [======>----] 
[########...] [=======>---] 
[#########..] [========>--] 
[##########.] [=========>-] 
[###########] [==========>] 
# Sanity check

Wyświetl plik

@ -0,0 +1,20 @@
#! bb
(def chars ["\uee06" "\uee07" "\uee08" "\uee09" "\uee0a" "\uee0b"])
(loop [i 0]
(print
(str
\u001b \u000d ;; ESC CR Moves the cursor to column zero
(if (= 0 i) \uee00 \uee03) ;; Progress start
(str/join
(for [j (range 2 17)]
(if (<= j i) \uee04 \uee01)))
(if (= 17 i) \uee05 \uee02)
" "
(nth chars (mod i 6))
" "
(-> i (/ 17.0) (* 100) (int)) "% "))
(flush)
(Thread/sleep 200)
(recur (mod (inc i) 18)))