https://www.youtube.com/watch?v=6avJHaC3C2U
Very enjoyable video. I'll post some of the programs:
http://www.funiter.org/ocmjg/
#define COPY "\nObfuscated C Mandelbrot-/Julia-set generator."\
"\n(C)opyright 2000-2001 by Stijn Wolters (stijnw@xs4all.nl)"\
"\nAll rights reserved. No warranties are given, use of this"\
" code is at own risk."
#define USAGE "\nUsage (see also http://www.xs4all.nl/~stijnw/ocmjg/):"\
"\nrn rm in im xmax ymax esc maxiter type file a b invmode"
q(
r,i,a
,b,e,m)
double(
r),i,a
,b,e;{
int(
l); double(h),u,v ;
for (l=m;l>0;l--){h=r ;
u=r *r;v=i*i;if(e<=(u+ v))
break;r=u-v+a;i=(h+h)*i+b;
}return(l);}main(int(argc
), char*argv[]){FILE*f;double
a,b,e,r,i,s,t,u,v,co[4]={0,0,
0,0};long(x)=0,y=0,xm=(5<argc
)?atoi(argv[5]):300,ym=(argc> 6
)?atoi(argv[6]):300;int(c)=0,j=0,
k , l,m=(argc>8)?atoi(*(argv+8)):100
,n ,o, p;char(hx)=xm%0x100,lx=xm>>8,(hy)
=ym%0x100, ly=ym>>8;n=(argc>9)?(((*(argv+9))[
0]|0x20)== 'm'):1;o=(argc>9)?(('s'-(((*(argv+
9))[1])|0x20) )+1):0;o=(o>2||o<0)?0:o;;do{co[c]
=((argc>c+1)? atof(*(argv+c+1)):((c%2)?2:-2));}
while(++c<=3); if(!(f=fopen(((argc>=11)?argv[10]
: (n)?"Mandel.pcx":"Julia.pcx"),"wb+")))return(1);
fprintf(f,"\x0a\x5\x1\x8%c%c%c%c%c%c%c%c%c%c%c%c",
0,0,0,0,hx-1,lx,hy-1,ly,hx,lx,hy,ly);for(l=0;l<=47;l++)fputc(l<<2,f)
;fprintf(f,"%c\x01%c%c\x01",0,hx,lx);for(l=0;l<=58
; l++)fputc(0,f);e=(argc>7)?atof(*(argv+7)):4;u=(*
(co+1)-*co)/xm ;v=(*(co+3)-*(co+2))/ym;;for(y=0;
y<=ym-1;y++){ for(x=0;x<=xm-1;x++){s=*co+x*u;t=
*(co+3)-y*v;a =(n)?s:((argc>11)?atof(*(argv+11)
):-1);b=(n )?t:((argc>12)?atof(*(argv+12)):0)
;r=(!n)?s: 0;i=(!n)?t:0;l=q(r,i,a,b,e,m);(o==
2) ?(k =q(r,n?i:i-v,a,!n?b:b-v,e,m),p=!(
( ! j&&l)||(j&&!l)||(!k&&l)||(k&&!l)
)):(p=l);j=l;fputc((o)?((!p)?(0):
(63)):(!p)?(0):(63-(p%63)),f) ;
}printf("\r%3d%%",(int)((y+1)
/(ym/100.0)));}fputc(0x0C,f);
j= (argc>13)?(((*(argv+13))[0
]|0x20)=='i'):(0);for(k=0
;k<=0xFF;k++){l=(j)?0xFF-k
:k; fprintf(f,"%c%c%c" ,(l
<<2 ),(l<<2),(l<<2)); }
if( f){fclose(f); }
puts
(COPY)
;puts(
USAGE);
return(
(0));
;}