X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=demos%2Fstromecek.c;fp=demos%2Fstromecek.c;h=a2d867a909c8d4f01d10a180acb7f2fee9da8de6;hb=956a4c051a02b9c65d81e644c848e4e2f098da7e;hp=0000000000000000000000000000000000000000;hpb=79c1af4ba4ce2faca03a60d9768873f494dd4c8b;p=svn%2FCll1h%2F.git

diff --git a/demos/stromecek.c b/demos/stromecek.c
new file mode 100644
index 0000000..a2d867a
--- /dev/null
+++ b/demos/stromecek.c
@@ -0,0 +1,18 @@
+#include "cll1.h"
+
+program
+{
+ const int kmen=28;
+ int jehlici=0,vetev=0,stromecek=2;
+
+ while(jehlici<=kmen)
+ {
+  repeat(kmen-jehlici) printf(" ");
+  printf("/");
+  repeat(jehlici<<1) if (jehlici<kmen && vetev<stromecek-1) then printf(" "); else printf("_");
+  printf("\\\n");
+  if(++vetev<stromecek) then jehlici++; else jehlici-=vetev>>1,vetev=0,stromecek++;
+ }
+ repeat(kmen) printf(" ");
+ printf("||\n");
+}