Jump to content
IGNORED

Gorf: Space Warp


sometimes99er

Recommended Posts

And now you can compile the goofy gorfy spiral thingy. It's not perfect or anything, but it works pretty well for a few seconds.

 

I'm using the CALL SOUND(1,110,30) to introduce a pause, so that the loop is only executed once per frame (updates 60 times a second). That's of course with the compiled version in mind.

 

If you press and hold the spacebar, the calculation loop will pause, and the sprite will drift.

 

Also you can press FCTN 4 to break the program, and type RUN to rerun it. FCTN QUIT also works.

 

 

 

:)

 

 

 

 

 

 

 

 

Edited by sometimes99er
  • Like 1
Link to comment
Share on other sites

  • 1 month later...

Inspired by Owen ;)

 

https://youtu.be/adN1P_8Scks?t=156

 

! init
100 call screen(2)::call clear::call char(33,"8199BDFFBD9981")

! velocity, sine waves between -10 and 10
110 dx=0::dy=10

! acceleration
120 ddx=1::ddy=1

! create sprite
130 call sprite(#1,33,12,192/2,256/2)

! loop entry point
! time
200 t=t+.05

! change velocity
210 dx=dx+ddx::dy=dy+ddy

! apply velocity with more intensity over time
220 call motion(#1,t*dx,t*dy)

! check acceleration direction shift, the change of pull in sine waves
230 if abs(dx)>10 then ddx=-ddx
240 if abs(dy)>10 then ddy=-ddy

! do the loop
250 goto 200

Brilliant!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...