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;} |
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 |
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() |
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; |
Chaostreff 2004-06-11, a chaostreff announcement with 3d graphics (using coin):
|
|
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 |
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' |
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-- |
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)(); } |
|
perl -e '$_=101795849658212;$_=0*(print(chr(65+$_%30)))+($_-$_%30)/30while$_;print"\n";' |
Chaostreff 2003-11-11 (b), created by this program:
|
+>+++ +++[ <+++ ++++ ++++> -]<.+ >++++ [<+++ +++++ +>-] < . - - - - - - - . + + + + + + + + + + ++ + +.+++ +. +.-- .--- - - - ------ - . +. . > > +++ + + [<++ + + + + + [ < - - > - ] > -]<<. + . -->+ ++++ + + [ <---> - ] <. |
|
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]);}} |