pouët.net

rrrola information 297 glöps

• general:
• level: user
• personal:
• first name: Jan
• last name: Kadlec

• 32b MS-Dos sierp2
• I approve of this prod. It's true that a few bytes can be shaved off by exploiting starting register values (even without changing looks and behavior), but it's nice overall.
• rulezadded on the 2010-10-14 21:59:20
• 256b MS-Dos this two-sixteen number by Exceed [web]
• so... many...
  constants :)
• rulezadded on the 2010-09-15 17:07:29
• 256b MS-Dos CICA by The Bad Sectors [web]
• working link Σ:3
• rulezadded on the 2010-09-15 16:54:56
• 256b MS-Dos Party coding 2 by Řrřola [web]
• 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
• isokadded on the 2010-09-12 19:38:15
• 256b MS-Dos Difúze by Řrřola [web]
• It's a cellular automaton. Each cell is represented by two fixed-point "densities" u(x,y) and v(x,y). u(x,y) is drawn each frame (interpolated from 160×200 to 320×200).
  
  Densities in the next frame are
  u += A·∆u − 3uv² + 0.04·(1−u)
  v += B·∆v + 3uv² − C·v
  
  A,B,C change for each preset. (These rules are called Gray-Scott reaction-diffusion)
• isokadded on the 2010-09-06 16:06:38
• 256b MS-Dos Symetrie by Řrřola [web]
• Yaay, my site started working again. :-)
• isokadded on the 2010-09-05 23:07:10
• 256b MS-Dos Difúze by Řrřola [web]
• Yaay, my site works again (since 2010-09-05 22:40 CET). ;-)
• isokadded on the 2010-09-05 23:06:39
• 256b MS-Dos Symetrie by Řrřola [web]
• My hosting is down for some reason, please use my school pages for now.
• isokadded on the 2010-09-05 21:10:17
• 256b MS-Dos Difúze by Řrřola [web]
• @Joghurt: .knil daolnwod evitanretlA <-
• isokadded on the 2010-09-05 20:14:26
• 256b MS-Dos Do Not by Ümlaüt Design [web]
• Xorus.
• rulezadded on the 2010-09-05 20:10:32