commit 7b9d22eef3d771cb5a54d6b6a824b0b1979eec95
parent f82f8b91820c5c5b2208fb80c0f8bd7f15081453
Author: Alex Balgavy <a.balgavy@gmail.com>
Date: Mon, 13 Jan 2020 15:16:41 +0100
qlobe: a globe screensaver quine
Former-commit-id: 227d3abca528a61c5a93a0d758d9c9ee8bfdc27d
Diffstat:
2 files changed, 37 insertions(+), 0 deletions(-)
diff --git a/scripts/qlobe b/scripts/qlobe
@@ -0,0 +1,12 @@
+#!/usr/bin/env bash
+# this should have low priority
+renice 20 $$
+while :; do
+ clear;
+ for ((;;)); do
+ for i in {1..360}; do
+ tput cup 0 0;
+ ruby qlobe_quine.rb $i;
+ done;
+ done;
+done 2>/dev/null
diff --git a/scripts/qlobe_quine.rb b/scripts/qlobe_quine.rb
@@ -0,0 +1,24 @@
+v=0000;eval$s=%q~d=%!^Lcf<LK8, _@7gj*LJ=c5nM)Tp1g0%Xv.,S[<>YoP
+4ZojjV)O>qIH1/n[|2yE[>:ieC "%.#% :::##" 97N-A&Kj_K_><wS5rtWk@*a+Y5
+yH?b[F^e7C/56j|pmRe+:)B "##% ::##########" O98(Zh)'Iof*nm.,$C5Nyt=
+PPu01Avw^<IiQ=5$'D-y? "##: ###############" g6`YT+qLw9k^ch|K'),tc
+6ygIL8xI#LNz3v}T=4W "# #. .####:#######" lL27FZ0ij)7TQCI)P7u
+}RT5-iJbbG5P-DHB<. " ##### # :############" R,YvZ_rnv6ky-G+4U'
+$*are@b4U351Q-ug5 " #######################" 00x8RR%`Om7VDp4M5
+PFixrPvl&<p[]1IJ " ############:#### %#####" EGgDt8Lm#;bc4zS^
+y]0`_PstfUxOC(q " .#############:##% .## ." /,}.YOIFj(k&q_V
+zcaAi?]^lCVYp!; " %% .################. #. " ;s="v=%04o;ev"%
+(;v=(v-($*+[45, ":####: :##############% : " ])[n=0].to_i;)%
+360)+"al$s=%q#{ "%######. ######### " ;;"%c"%126+$s<<
+126}";d.gsub!(/ "##########. #######% " |\s|".*"/,"");;
+require"zlib"|| "########### :######. " ;d=d.unpack"C*"
+d.map{|c|n=(n|| ":#########: .######: . " )*90+(c-2)%91};
+e=["%x"%n].pack " :#######% :###### #: " &&"H*";e=Zlib::
+Inflate.inflate( " ######% .####% :: " &&e).unpack("b*"
+)[0];22.times{|y| " ####% %### " ;w=(Math.sqrt(1-(
+(y*2.0-21)/22)**(; " .###: .#% " ;2))*23).floor;(w*
+2-1).times{|x|u=(e+ " %## " )[y*z=360,z]*2;u=u[
+90*x/w+v+90,90/w];s[( " #. " ;y*80)+120-w+x]=(""<<
+32<<".:%#")[4*u.count(( " . " ;"0"))/u.size]}};;puts\
+s+";_ The Qlobe#{" "*18+ ( "# :#######" ;"Copyright(C).Yusuke End\
+oh, 2010")}";exit~;_ The Qlobe Copyright(C).Yusuke Endoh, 2010+
\ No newline at end of file