pouët.net

Zoompinski 64 by Desire [web]
screenshot added by HellMood on 2016-06-11 19:58:05
platform :
type :
release date : june 2016
  • rulez 14
  • is ok 1
  • sucks 1
popularity : 0%
 0%
  • rulez 0.81
alltime top: #9900
added on the 2016-06-11 19:58:05 by HellMood HellMood

popularity helper

increase the popularity of this prod by spreading this URL:

or via: facebook twitter google+ pinterest tumblr

comments

Quote:
this is the MSDOS port of "Zoompinski", a 512b intro from "Plush" for C64

the 63 bytes version tries to mimic every, detail (colors, alignment) as close as possible while staying inside the 64b border, because C64 =) Quit via ESCape ;)

the 31 bytes version just tries to stay inside the 32b border, while showing the basic effect, a zooming sierpinksi triangle. to my knowledge this is the first zooming sierpinski effect in the 32b category =)

as a bonus, the smallest animated sierpinski effect i know of, in 10 bytes but without zoom ;) it's derivated from "colpinski" from myself. propz to "frag" from fsqrt for helping me crunch this thing down so hard (y)

youtube video (63b version)
added on the 2016-06-11 20:01:09 by HellMood HellMood
sweeter than the cidre i am drinking atm
rulez added on the 2016-06-11 20:05:30 by sensenstahl sensenstahl
Quite the accomplishment :)
rulez added on the 2016-06-11 20:12:24 by orby orby
Congrats to quite an achievement. Great coding and execution
rulez added on the 2016-06-11 21:32:05 by whizart whizart
Screenvote as usual.
rulez added on the 2016-06-11 22:20:25 by Emod Emod
Nice
rulez added on the 2016-06-11 23:46:09 by p01 p01
Nice!
rulez added on the 2016-06-11 23:48:35 by mad mad
great job there! :)
rulez added on the 2016-06-12 01:10:15 by ɧคɾɗվ. ɧคɾɗվ.
Dat rules!
rulez added on the 2016-06-12 01:45:56 by Optimus Optimus
good port
rulez added on the 2016-06-12 05:04:25 by Flashy Flashy
Looks very nice
The 32b on is excellent with the multiple reuse of the same int10h call.
rulez added on the 2016-06-12 08:14:22 by Harekiet Harekiet
Heavily inspired by Zoompinski by Plush http://www.pouet.net/prod.php?which=67284 on C64 in May :

BB Image

Not very original.
sucks added on the 2016-06-15 06:36:26 by Baudsurfer Baudsurfer
Quote:
Heavily inspired by Zoompinski by Plush http://www.pouet.net/prod.php?which=67284 on C64 in May :

BB Image

Not very original.


Of course it's heavily inspired by Zoompinksi... it's a remake.
added on the 2016-06-15 17:02:46 by orby orby
Quote:
Heavily inspired by Zoompinski by Plush http://www.pouet.net/prod.php?which=67284 on C64 in May :

BB Image

Not very original.

Thank you, Captain Obviousness.

on the other side, nice 64 bytie :)
rulez added on the 2016-06-15 17:13:38 by wbc\\bz7 wbc\\bz7
BB Image

... anyway, i'd like to add an "aspect corrected" version, which looks even more like the original :

BB Image

still in 64 bytes, download adjusted accordingly =)
added on the 2016-06-15 18:37:24 by HellMood HellMood
Would it be possible to exchange the clean-exit stuff for e^x zoom values so the movement will be smooth? Good stuff nonetheless :)
rulez added on the 2016-06-17 10:35:55 by Krill Krill
@Krill: excellent feedback, i was wondering how you did that! Will tinker around later to see if i can slide that in =)
added on the 2016-06-17 11:10:28 by HellMood HellMood
HellMood: Simply map the exponential function to your scaling range. Its properties ensure a smooth infinite zoom.

BB Image
added on the 2016-06-17 13:51:29 by Krill Krill
thanks for the support :) ... so i had to sacrifice the ESC support and the "real" C64 colors and also to cheat with a flat quadratic function instead of a true exponential mapping, but i think it's looks quite better than before while the size of the .com file is exactly 64 bytes so there is that =)

BB Image

Code:push 0xa000-60 ; set screen origin pop es ; to y = 3 (hide crap) mov al,0x13 ; mode 13 int 0x10 ; set mode S: xor dx,dx ; dx=0 for DIV mov bx,320 ; get X and X mov ax,di ; from frame counter idiv bx ; [x,y] = [dx,ax] sub dx,160 ; center X sal dx,1 ; correct aspect push cx ; save counter imul cx,cx ; zoom smoother shr cx,9 ; with x*x / 512 mul cl ; zoom imul dx,cx ; zoom pop cx ; restore counter mov bp,dx ; rotation add dx,ax ; by 45 sub ax,bp ; degrees and ah,dh ; zoompinski ;) mov al,128 ; background color jnz F ; or mov al,56 ; foreground color F: stosb ; write pixel test di,di ; end frame ? jnz S ; next pixel cmp cl,182 ; keep jg N ; zoom mov cl,255 ; range N: loop S ; next frame
added on the 2016-06-17 22:12:51 by HellMood HellMood
You don't need to correct the aspect ratio cause it looked good enough without correction.

Nice effect.
rulez added on the 2016-07-17 11:01:13 by ham ham
Well done! Thanks for the commented source.
rulez added on the 2016-07-23 23:06:57 by cce cce

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