New post
Article
Fabian Haupt · Dec 22, 2016 1m read

Merry XMas :)

#Object Data Model #ObjectScript #Caché

Cache rendering of an old classic:

 s enc="dQZ4nK1VzU7DMAy+I/EEveTcCWicpt3UU2VABTRA/AhBeYW+As/U7vE4VNhxypJuoAlhS1vixJ//"_
 "06TNsy5p4TppzRKTNqtMXuXQjSSrdEPSEmmtK1uZssp1l0Z3nHJ9fEQroJURlQLHNE35WPYWx7N3"_
 "YpJYkeRe4mQzkEKuGDwjkHTBP+9JW4oUsB+Y2CVj2JuttlkFAbhbfdIuRU/jhvZkryejtNok7UpO"_
 "Moww3JbdcPifW8APosVi4Q9Otwck5LMojmKOojNnDUIXe0XEvnVrdaEeiF95H8BYgXG38o6i0Vpg"_
 "lhSO00TVkN6VelRPaq1q9ehucnizrGopJ5TY+8zHzOBSPih8jjnLQWbyKSYy25Cpe+JXMTdM2dZS"_
 "cbAu3YP42EQw4GOq1a16VjfEtWoCGHJdS5dAjkPoYgRTCsw8DG4MaSAw2G++KfA6So0v9xTJVmHD"_
 "0UjTAeD4TQ7oRr1EMMbXm2N6IyO1AxtDLS2NCBqHiCIYX+9hLxGGtCxk2Me0D8Q5eknNcafW0j47"_
 "SiBNqVcYTSHEM3ASTfwvogDB4qFKc9G+YTzYg4yfqYyfqd2M6O6KqnOh3vgaK1SHIP8403/IitX/"_
 "khVb/JYVkBdCh4/53gmCHyZoh3kApk/BrNdcOsBMDzb/hCPEI+zfA/fnvjTWnn8BUo3vtEE=" 
 s enc=$SYSTEM.Util.Decompress($SYSTEM.Encryption.Base64Decode(enc))
 w enc

Share more ANSI art!

Merry XMas and a Happy New Year!

16
0 814
Discussion (11)8
Log in or sign up to continue
Ben Spead · Dec 22, 2016

Well played Fabian :)  Merry Christmas to you as well!

1 0
Fabian Haupt · Dec 22, 2016

@Ben, please remove the screenshot. We want people to run the code themselves! :) No spoilers!

1 0
Ben Spead · Dec 22, 2016

Removed as requested (although I personally think that the screenshot makes people more likely to take a look at your code rather than less likely).

2 0
Fabian Haupt · Dec 22, 2016

but we just want them to run it ;) Not spoil it :) 

1 0
Fabian Haupt · Dec 22, 2016

also, if anything, you should have made it a gif to capture the animation :)

1 0
Martin Probst · Dec 23, 2016

Fab2  (aka Fabulous Fab). You just made my day :)

1 0
Dmitry Maslennikov · Dec 23, 2016 
w #,*27,"[32m" s $lb(tw,th,twi,c,tp,l)=$lb(2,4,8,40,4,24) while (l-th>tp) { f st=0:1:th-1 { s y=tp+st,x=c-(tw/2),w=tw-1 s:w ts(y)=$lb(x,w) w *27,"[",y,";",c-(tw/2),"H/",*27,"[",y,";",c+(tw/2),"H\" s tw=twi/th*2+tw } s tp=tp+th,tw=tw-twi } w !,*27,"[0m","Press any key to exit" f { w *27,"[",y,";",x+1,"H",$j("",w) f i=1:1:y\4 { w *27,"[",$r(10)+30,"m",*27,"[",y,";",$r(w)+x+1,"Ho",*27,"[1;1H"} s y=$o(ts(y),-1,d),$lb(x,w)=d i w<5 {s y=$o(ts(""),-1) h 0.3} r q:0 q:$t } w *27,"[0m"
9 0
Alexey Maslov · Dec 26, 2016

Well done, Dima! Just my 2c: any key should be really any. The correction is easy: change exit condition to

r q:0 q:$t

Season greetings to everybody!

2 0
antonio carlos ... · Dec 31, 2016

Merry Christmas to all! (Late) and a prosperous New Year!
I miss mumps a lot, and I love cos
But currently (and unfortunately) to survive working with .net ....

0 0