pouët.net

HellMood information 4246 glöps

• general:
• level: user
• personal:
• portals:
• demozoo: profile
• cdcs:
• cdc #1: Crystal Dream 2 by Triton
• cdc #2: Hydrokinetics by Prismbeings
• cdc #3: Overdrive 2 by Titan [web]
• cdc #4: Way Too Rude by Logicoma [web] & Loonies [web]
• cdc #5: There by Still [web]
• cdc #6: Hexer by LJ
• cdc #7: Second Nature by Desire [web] & The Twitch Elite

• 256b procedural graphics MS-Dos Buddhist flags by El Topo [web]
• it seems we summoned frag :O
  beautiful optimization giving me further ideas
  
  -> 39 bytes:
  
  Code:... mul di xchg dx,ax cmp al,256*5/6 jc F mov al,ah F: aam 43 mov bl,ah ...
  
  
  so with removing ESC check and switching to int10 plotting it is 34b
  
  maybe 32b possible after all?
• isokadded on the 2020-09-10 10:22:52
• 256b procedural graphics MS-Dos Buddhist flags by El Topo [web]
• quick shot: 47 bytes with ESC support
  
  Code:org 100h push 0xa000 pop es mov al,0x13 int 0x10 X:mov ax,0xcccd mul di movzx ax,dl imul ax,byte 6 cmp ah,5 jl F movzx ax,dh imul ax,byte 6 F: mov bl,ah mov al,[byte bx+si+table] stosb in al,0x60 dec ax jnz X ret table: db 32,44,40,15,42
  
  
  
  there is space for improvement or a message
  but not today ^^
• isokadded on the 2020-09-09 18:16:00
• 256b procedural graphics MS-Dos Buddhist flags by El Topo [web]
• flag&platform vote ^^
  i'll have a look into this ;)
• rulezadded on the 2020-09-09 17:46:51
• 32b procedural graphics MS-Dos lgbt19b by Desire [web]
• Since it's all about not excluding others, let's not exclude textmode
  
  Code:org 100h int 10h push 0xb800 pop es L: mov al,177 stosw mov ax,0xcccd mul di mov bl,dh mov ah,[byte bx+si+table] in al,0x60 dec ax jnz L ret table: db 4,4*14+14,14,2,1,5,0
  
  
  
  32 bytes, quits on ESC, notice that there is no orange
  it is mixed on screen via FG/BG/ASCII ;)
  
  
  
  "But what about EGA then?"
  i hear you, here you go with EGA in 31bytes
  
  Code:org 100h mov al,0x12 mov dx,380 Y: mov cx,0xff00 X: int 10h mov al,[byte si+table] mov ah,0x0c loop X inc si sub dx,byte 63 jnc Y ret table: db 5,1,2,14,12,4,0
  
  
  
  EGA is a bit tricky, but it's at least possible in <= 32 bytes
  31 bytes, selfexiting, but no clever good orange so far :/
• isokadded on the 2020-09-09 17:13:51
• 256b ZX Spectrum Dots by g0blinish
• neat
• rulezadded on the 2020-09-09 13:12:11
• 1k ZX Spectrum Colour Clash by g0blinish
• yes
• rulezadded on the 2020-09-09 13:11:57
• 256b Apple II Acid by g0blinish
• what superogue said =)
• rulezadded on the 2020-09-09 13:11:47
• 256b procedural graphics TIC-80 lgbt139 by All You Can Execute
• Revisiting my "cheaty" TIC version with what i learned,
  index unpacking and manual looping leads to a 63 bytes version
  
  Code:i=0 function TIC()i=(i+1)%6rect(0,i*23,240,23,116264//9^i%9)end
  
  
  it's a bit pale, but hey, it's a 64b prod now
  Thanks to MrsBeanbag and DevEd for getting me hooked and the unpacking idea =)
• isokadded on the 2020-09-09 10:25:02
• 256b procedural graphics TIC-80 lgbt139 by All You Can Execute
• in situ unpacking of trinary encoded palette ... 94 bytes
  
  Code:function TIC()for k=3,20 do poke(16320+k,4135835025//3^k%3*127)rect(0,k*8-28,240,8,k/3)end end
  
  if you want real fullscreen with scanlines ... 103 bytes
  
  Code:cls()function TIC()end function SCN(x)for i=1,3 do poke(16319+i,459537225//3^(x//23*3+i)%3*127)end end
  
  
• isokadded on the 2020-09-08 10:14:06
• 256b procedural graphics TIC-80 lgbt139 by All You Can Execute
• custom colors in 127 bytes ^^
  
  Code:a="~~ ~ ~a a" c={4,7,1,3,5,8} function TIC() for k=3,20 do poke(16320+k,a:byte(c[k//3]+k%3)*2) rect(0,k*8-28,240,8,k/3)end end
  
  
  
• isokadded on the 2020-09-07 13:44:53