pouët.net

Party coding 2 by Řrřola [web]
[nfo]
screenshot added by Pirx on 2010-09-12 14:53:17
platform :
type :
release date : september 2010
release party : Function 2010
compo : pc 256b
ranked : 2nd
  • rulez 13
  • is ok 1
  • sucks 0
popularity : 0%
 0%
  • rulez 0.93
alltime top: #8059
added on the 2010-09-12 14:49:13 by diver diver

popularity helper

increase the popularity of this prod by spreading this URL:

or via: facebook twitter google+ pinterest tumblr

comments

pretty polys
rulez added on the 2010-09-12 14:55:23 by bfx bfx
download => 404
added on the 2010-09-12 14:57:21 by vibrator vibrator
Ah. File got moved.

This one runs nicely in JPS. Sweet anti-alias!
rulez added on the 2010-09-12 15:02:50 by vibrator vibrator
If it comes to blur and lines, Mixer still number 1.
rulez added on the 2010-09-12 15:10:20 by Pirx Pirx
still nice for 256b!
rulez added on the 2010-09-12 15:13:17 by diver diver
Source code:
Code:; Party coding 2 (done at Function 2010 in exactly 100 minutes) ;Set graphics mode and backbuffer mov al,13h int 10h add dh,al mov ds,dx push 0A000h pop es ;Randomize point positions and directions (LCG) R imul bx,21 inc bx push bx or sp,sp js R ;Awesome gradient palette (green-blue-red-yellow-white) mov dx,03C8h out dx,al inc dx P pusha shr al,2 Q out dx,al adc al,al sub al,37 imul al shr ax,7 inc di jpe Q popa inc ax jnz P xor cx,cx ;Main loop: animate 50 points M mov bp,-8*50 ;Update coordinate, bounce from edges (-8000, 7FFF) N movsx ax,byte[bp+2] add [bp],ax jno O sub [bp],ax not byte[bp+2] O test bp,4 jz Z ;Draw a line between successive points push word[bp-4] push word[bp] pusha ;bx,si = difference/256 mov bx,[bp+4] mov ax,[bp-4] add bx,32768 add ax,32768 sub bx,ax rcr bx,1 sar bx,7 mov si,[bp+8] mov ax,[bp] add si,32768 add ax,32768 sub si,ax rcr si,1 sar si,7 ;Draw them with a small border to prevent overflow mov cx,256 G mov ax,300 imul word[bp-4] push dx mov ax,187 imul word[bp] imul di,dx,320 pop dx add di,dx mov byte[di+320*100+160],255 ;Move along the line between the points add [bp-4],bx add [bp],si loop G popa pop word[bp] pop word[bp-4] Z add bp,4 js N ;Blur: (1 2 1 : 2 4 2 : 1 2 1) / 16 ;Fade out, use fadeout overflow to keep multiple levels stable mov bx,321 B std A lodsb add [bx+si],al rcr byte[bx+si],1 mov al,[bx+si] add al,23 shr al,6 sub [bx+si],al loop A neg bx cld js A shr bx,7 jnz B ;Copy screen xor si,si xor di,di mov cx,4000h rep movsd ;Wait for retrace: 70 fps cap mov dx,3DAh V in al,dx and al,8 jz V ;Exit on ESC in al,60h dec al jnz M int 20h
added on the 2010-09-12 19:38:15 by rrrola rrrola
thx! ;)
rulez added on the 2010-09-12 22:59:42 by T$ T$
Looks nice & smooth
rulez added on the 2010-09-13 13:22:56 by -SP- -SP-
Party coding or not, this rulez
rulez added on the 2010-09-15 23:03:50 by Trauma Zero Trauma Zero
Quite stylish for a 256 byter :)
rulez added on the 2010-09-16 22:36:33 by Alpha C Alpha C
wow, cool
rulez added on the 2010-09-20 02:46:48 by Chainsaw Chainsaw
great lines
rulez added on the 2010-09-29 22:10:16 by devreci devreci
Undervalued production, absolutely stunning for party coding!
rulez added on the 2011-04-04 21:26:57 by jack-3d jack-3d
Looks very nice!
rulez added on the 2011-09-10 10:24:35 by Optimus Optimus
strange. here no thumb on a rrrola prod too. stupid me. rocks my socks.
rulez added on the 2012-12-01 21:04:30 by sensenstahl sensenstahl

submit changes

if this prod is a fake, some info is false or the download link is broken,

do not post about it in the comments, it will get lost.

instead, click here !

[previous edits]

add a comment