picochak

Cart File | Forum Post |

	More cartridges by Megus

More Cartridges [View All]

 

picochak

by Megus

Cart #picochak-0 | 2019-10-27 | Code ▽ | Embed ▽ | License: CC4-BY-NC-SA

59

Code: Megus
Music: n1k-o/Stardust
Graphics: Diver/Stardust

The full source code (including some tools) is available on GitHub: https://github.com/Megus/picochak

Superb ! Star for you.

Question, how do you do that dither rectangle effect with just two colors ? Could you post code please just for that ?

dither = {0x1000.0000,0x1000.8000,0x1000.8020,0x1000.a020,0x1000.a0a0,0x1000.a4a0,0x1000.a4a1,0x1000.a5a1,0x1000.a5a5,0x1000.e5a5,0x1000.e5b5,0x1000.f5b5,0x1000.f5f5,0x1000.fdf5,0x1000.fdf7,0x1000.fff7,0x1000.ffff,0x1000.ffff}

function draw_gradient(y, cols)
    local ptn = 1
    while y < 128 do
        rectfill(0, y, 127, y + 3, cols + dither[ptn])
        y += 4
        ptn = min(ptn + 1, 17)
    end
end

This is the code I use in the demo. I use "fill pattern" feature of PICO-8 and the ability to include fill pattern in color number

Thanks ! Trying it out.

Oh ... so it's not pure math ? Hmm ...

I seem to remember doing ... something ... a long time ago, a type of pyramid logo that dithered diagonally using only math and logic. Let me see if I can find it today.

Qbasic 1.0. Here it is !

'===========================================================================
' Subject: EGA LOGO                          Date: 01-14-98 (23:30)       
'  Author: dw817                             Code: QB, QBasic, PDS        
'                                            Packet: EGAVGA.ABC
'===========================================================================
DEFINT A-Z
  DIM C(10), B(10)
  C(0) = 15
  C(1) = 15
  C(2) = 11
  C(3) = 9
  C(4) = 1
  B(0) = 7
  B(1) = 8
  B(2) = 8

SCREEN 7
S = 14
N = S
T = 0
LINE (159, 0)-(32, 127), 8
LINE (160, 0)-(287, 127), 8
LINE (158, 0)-(31, 127), 7
LINE (161, 0)-(288, 127), 7

FOR I = 2 TO 159
  FOR J = 0 TO 127
    C = C(T + (D XOR -((J + I) MOD N = 0)))
    IF C > 0 THEN
      PSET (159 - J - I, J), C
      PSET (160 + J + I, J), C
    END IF
  NEXT
  A = I / 4
  B = I / 6
  C = C(T)
  IF C > 0 THEN
    PSET (160, 66 - A), C
    PSET (160, 62 + A), C
    PSET (160 - A, 64), C
    PSET (160 + A, 64), C
    PSET (162 - B, 66 - B), C
    PSET (158 + B, 66 - B), C
    PSET (162 - B, 62 + B), C
    PSET (158 + B, 62 + B), C
  END IF
  C = B(T)
  IF C > 0 THEN
    PSET (159, 64 - A), C
    PSET (161, 64 - A), C
    PSET (159, 65 + A), C
    PSET (161, 65 + A), C
    PSET (161 + A, 63), C
    PSET (161 + A, 65), C
    PSET (159 - A, 63), C
    PSET (159 - A, 65), C
    PSET (159 + B, 64 - B), C
    PSET (161 + B, 64 - B), C
    PSET (161 + B, 64 + B), C
    PSET (159 + B, 64 + B), C
    PSET (161 - B, 64 + B), C
    PSET (159 - B, 64 + B), C
    PSET (161 - B, 64 - B), C
    PSET (159 - B, 64 - B), C
  END IF
  N = N + D * 2 - 1
  IF N = 1 OR N = S THEN D = 1 - D: IF D = 0 THEN T = T + 1
NEXT

Not sure if that can be made heads of or tails today. I wrote this so long ago I'm not even sure how it works now.

I'm also not getting your code to dither. Here is the code for it:

dither = {0x1000.0000,0x1000.8000,0x1000.8020,0x1000.a020,0x1000.a0a0,0x1000.a4a0,0x1000.a4a1,0x1000.a5a1,0x1000.a5a5,0x1000.e5a5,0x1000.e5b5,0x1000.f5b5,0x1000.f5f5,0x1000.fdf5,0x1000.fdf7,0x1000.fff7,0x1000.ffff,0x1000.ffff}

function draw_gradient(y, cols)
    local ptn = 1
    while y < 128 do
        rectfill(0, y, 127, y + 3, cols + dither[ptn])
        y += 4
        ptn = min(ptn + 1, 17)
    end
end

cls()
draw_gradient(64,5)

@Megus, I appreciate the code you posted, I just wish you would've checked to make sure it would work.

In any case, I learned something new:

THIS code works:

function draw_gradient(y, cols)
    local ptn = 1
        color(cols)
    while y < 128 do
        rectfill(0, y, 127, y + 3,cols+dither[ptn])
        y += 4
        ptn = min(ptn + 1, 17)
    end
end

dither = {0x1000.0000,0x1000.8000,0x1000.8020,0x1000.a020,0x1000.a0a0,0x1000.a4a0,0x1000.a4a1,0x1000.a5a1,0x1000.a5a5,0x1000.e5a5,0x1000.e5b5,0x1000.f5b5,0x1000.f5f5,0x1000.fdf5,0x1000.fdf7,0x1000.fff7,0x1000.ffff,0x1000.ffff}

cls()
poke(24372,1)--required for
-- dual color fills
for i=-64,127 do
  draw_gradient(i,7)
  flip()
end

Now that dithering effect is a thing of beauty ! I just may do something interesting with it.

I'm... speechless...

@dw817 Yes, sorry that I forgot about that poke. I had so little sleep last days — finishing the demo, traveling to the demoparty and having fun there... :) Glad that you figured it out yourself.

BTW, I made the full source code (including some tools) available on GitHub: https://github.com/Megus/picochak

I'm also going to write a "making of" blog post soon to explain the tricks I used to fit all these effects in a single PICO-8 cartridge.

Must be fun where you are, @Megus. :)

Yes, this dither technique is quite interesting. I've only seen this on Pico-8 and that diagonal thing I did above years ago.

Will be experimenting with it most of today.

You're famous ! Well ... more famous than you already are. :)

https://www.lexaloffle.com/bbs/?tid=35781

I really like not just the quality of the effects, but I really like the creative theme here. You definitely earn a star.

Picochak 2: Revenge of the Ramen

I wrote a post about some technical challenges I faced when creating PICOCHAK: https://megus.org/2020/05/04/making-of-picochak.html

Nice write up - I ran the demo again and did not see any textured poly.
Has it been removed from the final version?

Thank you! No, it hasn't been removed. The PICOCHAK is a textured object, it first appears after the twister part. He is the main character and he defeats Megadonut :)

This cart broke on version 0.2.1b. The movement of the donuts is choppy, and eventually it crashes when it tries to catch up.

It didn't crash for me instead all of the text was messed up a long side a cutsecene or two so the people who made the game were "lets conquer th" and chalk turned evil... wonder how it broke?

Thank you for reporting! Yes, it became broken on the latest PICO-8. I'll try to fix it when I have time.

PICOCHAK (fixed for PICO-8 v0.2.2)

by rnd

Cart #picochak_fixed-0 | 2021-02-22 | Code ▽ | Embed ▽ | License: CC4-BY-NC-SA

4

I think I found the issue. The code tries to draw circles of unusually large size, and that's apparently causing the lag. I added a simple condition, and it seems to have removed the lag.

This is why you dont do donuts kids. Being addicted to donuts is bad quit now or never get addicted.
But seriously this is amazing

Thanks for pointing that out @rnd -- I've added a clipping test for large circles in 0.2.2b so that when the clip region is contained by the circle/oval, it is (almost) free, and when the clip region is contained by a filled circle/oval it costs the same as an equivalent rectfill.

I give you... THE MEGA PIE [PicoChak]