1

; Unfinished entry, the main idea was to draw another plane and draw a fake shadow of the sphere, but have not time at all.; It features: wait for the ESC key and it also restores the video mode!! its wonderful!! and with only 219 bytes!! WOW!! :P; ; really, this suxxxx. made just for fun. the source code sux too (if you could understand something let me know :D);;; support spanish demoscene.;; compile: nasm16 attrib.asm -o attrib.com;;
bp
/ fuzzion;; http://www.fuzzion.org%defineBACKGROUND0%defineMOSAIC32%defineSPHERE38section.textorg0x100start:moval,0x13int0x10pushword 0x0a000popesmovbx,datamovsi,tempfxordi,difildword [bx+2];ymovdx,200.yRTflddword [bx+12];.23yfmulst0,st1;.23yyfiaddword [bx+22];.23y+ky;v3yflddword [bx+16];.94v3yfmulst0,st2;.94yv3yfisubword [bx+20];.94y-cv3y;v2v3yfildword [bx+4];xv2v3yfmuldword [bx+8]movcx,320.xRT;xv2v3ymoval,BACKGROUNDfldst1;v2xv2v3yfimulword [bx+6];-60v2xv2v3yfldst3;v3-60v2xv2v3yfimulword [bx];400v3-60v2xv2v3yfsubrpst1,st0;bxv2v3yfaddst0,st0fmulst0,st0;b^2xv2v3yfldst1;xb^2xv2v3yfmulst0,st0;v1^2b^2xv2v3yfldst3;v2v1^2b^2xv2v3yfmulst0,st0;v2^2v1^2b^2xv2v3yfaddpst1,st0;v1+v2b^2xv2v3y;v1+v2 == v1^2+v2^2fldst4;v3v1+v2b^2xv2v3yfmulst0,st0;v3^2v1+v2b^2xv2v3yfaddpst1,st0;ab^2xv2v3yfimulword [bx];acb^2xv2v3yfimulword [bx];acb^2xv2v3yfaddst0,st0;2acb^2xv2v3yfaddst0,st0;4acb^2xv2v3yfsubpst1,st0;discxv2v3yfistpdword [si];xv2v3yandbyte [si
+3
],0x80jnz.nospheremoval,SPHEREjmp.okCol.nospherefxchst1;v2xv3yfistword [si]fxchst1;xv2v3yandbyte [si+1],0x80jz.okColmoval,MOSAICfldst0;v1xv2v3yfdivst0,st2;v1/v2xv2v3y;X*100/100frndint;Xxv2v3yfldst3;v3Xxv2v3yfdivst0,st3;v3/v2Xxv2v3yfimulword [bx];ZXxv2v3yfidivword [bx+2];Z/-100Xxv2v3yfchs;Z/100Xxv2v3yfaddpst1,st0;Z+Xxv2v3yfistpword [si];xv2v3yandbyte [si],1jz.okColdecal.okColstosbfadddword [bx+8];x+0.97v2v3yloop.xRTfcompp;v3yfstpst0;yfld1;1.0yfaddpst1,st0;y+1.0decdxjnznear .yRT;fstpst0;blaehmain:movcl,28;ch should be 0 here but who knows with the evil windows :Ppocafeina:movdx,msgmovah,9int0x21looppocafeinatestforKey:xorax,axinal,0x60decaxjnztestforKeymoval,3int0x10retdata:dw400,-100,-160,-60dd0.9701,-0.2352,-0.9412dw54,-215msgdb'bp sux $'section.bsstempfresd1