My CNGW Chaostreff Announcements


Chaostreff 2004-12-07 (and also a little gimmick for my girlfriend):
#include <unistd.h>
int main(int argc,char**argv){char c[274]={35,34,34,43,43,43,43,34,43,
178,66,34,178,66,34,34,34,34,34,34,34,34,34,34,34,178,66,34,178,66,43,
34,34,34,34,34,34,34,34,34,34,178,66,34,187,75,50,34,187,75,35,178,65,
34,43,27,43,10,18,42,11,75,34,34,178,75,43,178,75,34,34,27,43,11,18,34,
11,75,43,42,178,74,43,178,75,34,43,27,34,11,27,43,2,65,50,27,42,1,18,43,
10,67,42,2,42,34,34,34,26,66,38,27,34,0,18,33,2,75,39,2,42,33,34,43,18,
64,33,18,43,11,26,34,11,75,42,2,38,43,43,33,18,75,50,0,34,42,43,42,18,
74,43,35,10,34,42,27,75,43,42,2,42,34,42,34,26,66,40,43,10,34,42,18,72,
43,41,2,32,43,43,34,16,66,42,43,10,34,42,18,74,50,34,11,43,33,18,66,43,
42,34,34,11,26,67,34,32,43,43,11,43,42,27,74,34,42,43,42,0,27,75,37,43,
42,32,11,43,43,17,74,43,43,43,33,0,27,75,58,43,42,2,18,64,43,43,43,42,
43,42,34,42,43,42,35,34,34,2,18,66,34,34,34,34,34,34,34,34,34,34,34,34,
34,2,18,66,51};char v[]="\\/ \n.,'`()|_";int s=argc==2&&argv[1][0]&&argv
[1][1]&&argv[1][2]&&argv[1][3]&&!argv[1][4]?argv[1][0]<<24|argv[1][1]
<<16|argv[1][2]<<8|argv[1][3]:-1,i;if(s==0x636e6777)s=0;else if(s==
0x6c656e61)s=4;else{write(2,"Usage: ct20041207 cngw|????\n",28);return
1;}for(i=0;i<274;i++)write(1,v+((c[i]>>s)&15),1);return 0;}
(
download)


Chaostreff 2004-10-12, a chaostreff linux 2.6 kernel module:
root@deejay:~# cat /proc/chaos
Bis zum naechsten CNGW Chaostreff:
0 Tage, 2 Stunden, 15 Minuten und 14 Sekunden
(
download)


Chaostreff 2004-09-14, a chaostreff announcement written on OCaml:
(requires a color-depth of at least 16 bit)
#load"graphics.cma";;open Graphics;;open_graph" 640x480";; set_window_title
"Chaostreff";;set_color(rgb 4 4 4);; fill_rect 0 0 640 480;; set_color (rgb
0 0 0);;let rec dtx i x y=if x>640 then dtx i(x-640*2)(y-15)else if y > -15
then begin draw_image i x y; dtx i(x+450)y end;; let s=Printf.sprintf"%s%s"
"Chaostreff 2004-09-14 19:00 im Kaeuzchen, Neustiftgasse Ecke Gardegasse :"
": "in moveto 15 450; draw_string s; let i=get_image 15 450 450 15 in dtx i
0 465;; let cm(a,b)(c,d)=(a*.c-.b*.d,a*.d+.b*.c);; let ca(a,b)(c,d)=(a+.c,b
+.d);;let c2(a,b)=(a*.a)+.(b*.b);;let rec mandel c n x y=if n>0 then let z=
mandel c(n-1)x y in let a=c2(z) in if a<4.0 then ca(cm z z) c else begin if
a <2000.0&&point_color x y!=black then begin let m=n mod 5 in if m = 0 then
set_color magenta; if m=1 then set_color green; if m=2 then set_color blue;
if m=3 then set_color yellow;if m=4 then set_color cyan;plot x y end;(100.0
,100.0)end else(0.0,0.0);;for x=0 to 639 do for y=0 to 479 do if c2(mandel(
(float_of_int(x-450))/.200.0,(float_of_int(y-240))/.200.0)17 x y) <4.0 then
begin set_color black;plot x y;end done done;;read_line()
(
download)


Not really an announcement - my "sloagan" suggestion for the CNGW T-Shirts:
$_=q 7nz!y="Ccv'Dpgiutvcbb'oj'Pocj'*'qqq[ej`q[iv`";!|=1;!y=~t%].[%nz!z=
!1;gps]1..6[{qsjou"!z\c";tfmfdu]voefg,voefg,voefg,0.05[;!z=~t/].[/dis]p
se]!1[^!_[/fh;}qsjou !z;%fh;qsjou "\o"7;s/\n//g;y/[b-za]!/)a-z($/;eval;
(
download)


Chaostreff 2004-06-11, a chaostreff announcement with 3d graphics (using coin):
(
download)


Chaostreff 2004-05-25, another chaostreff announcement in Logo:

pr [Chaostreff am 25.5.2004]
to c :p
pu home lt 90 fd :p*130-50 pd lt 45
repeat 27 [ fd 10 rt 10 ]
rt 80 fd 25 rt 90
repeat 27 [ fd 5.8 lt 10 ]
rt 90 fd 22
end
ht c -1 c 0 c 1

(
download)


Chaostreff 2004-04-13, kind-of announcement in Algol 60 (a "Jensen's Device" mutation):

'begin'
        'integer' 'procedure' chaostreff (x);
        'integer' x;
                chaostreff := x*3 - 28;

        'integer' 'procedure' heute (treffen, hacker);
        'integer' hacker, treffen;
        'begin'
                'integer' cngw;
                cngw := 0;
                'for' hacker := hacker 'step' -1 'until' 0 'do'
                        cngw := cngw + treffen;
                heute := cngw;
        'end';

        'integer' im kaeuzchen;
        im kaeuzchen := 20;

        outinteger (1, heute(chaostreff(im kaeuzchen), im kaeuzchen));
        outstring (1, "\n");
'end'

(
download)


Chaostreff 2004-02-03, announcement in good old Fortran 77:
c23456789--snip--
      program wie
      jeden zweiten dienstag = 2992142
chaostreff am 3. Februar ab 19:00 im
      keuzchen = 841959

      do 10 immer wieder = 1, 10
        kommen die hacker dort hin =
     +jeden zweiten dienstag - (jeden zweiten dienstag / 20) * 20
        write(*,*) char(kommen die hacker dort hin+65)
        jeden zweiten dienstag = jeden zweiten dienstag / 20
        if (jeden zweiten dienstag .EQ. 0)
     +jeden zweiten dienstag = keuzchen
 10   continue

      stop
      end
c23456789--snap--
(
download)


Chaostreff 2004-01-06, created using this program:
(This announcement does only work on x86 Linux.)
int main() {
        unsigned char x[] = "31C031DB31D2B00443E8000000005983C10FB233CD8"
        "031C031DB40CD804469656E737461672C2030362E30312E204368616F735472"
        "65666620696D204B6165757A6368656E2061622031393A30302E0A8B",i=0,j;
        while(x[i]){j=x[i+2];x[i+2]=0;x[i/2]=strtol(x+i,0,16);x[i+=2]=j;}
        return ((int(*)())x)();
}
(
download)


Chaostreff 2003-11-25:
perl -e '$_=101795849658212;$_=0*(print(chr(65+$_%30)))+($_-$_%30)/30while$_;print"\n";'
(
download)


Chaostreff 2003-11-11 (b), created by this program:

  +>+++   +++[    <+++    ++++   ++++>  -]<.+   >++++  [<+++  +++++    +>-]
 <       .    -  -    -  -    -    -    -    .  +      +      +       +    +
 +       +    +  +    +   ++       +    +.+++   +.     +.--   .---    -    -
 -       ------  -    .     +.     .    >  >    +++    +      +        [<++
 +       +    +  +    +  [    <    -    -   >   -      ]      >
  -]<<.  +    .   -->+    ++++     +    +    [  <--->  -      ]         <.

(
download)


Chaostreff 2003-11-11 (a):
int main(){char*a="7EE9777777777797777779C9C7CC7CC7ECEEC1=EG;E79CC9E7EG"
";CCE9E89P9O==O==O=CKE86OO7O9:89OP9:=EOEOQD9:;G;C;;;;;;OOOSCI5;EG;;;;G;"
";G:E:;G;;7E=9O9OOOQOOS;G;EON:EEQOQREQREDQE@EQO:EGG;G7;GGGGGFEDEE=0",*b=
"\n /_\\|";while(*a){putchar(b[(*a-'0')/6]);putchar(b[(*(a++)-48)%6]);}}
(
download)