Re: ASCII Animation

[Pete]

I ran it, but got this image: https://www.qb64.org/forum/index.php?topic=99.msg548#msg548''

I can't remember what episode of Star Trek that came from?

Kidding aside, nice! Very well done. ASCII art is tougher than it looks.

This si a type of application where ONKEY is arguably a better choice for responsiveness. With INKEY$, the loop has to complete before the program ends. With ONKEY, it would be spontaneous.

Code: QB64: [Select]

1. KEY(15) ON
2. KEY 15, CHR$(1)
3. ON KEY(15) GOSUB quit
4. PRINT "Press Enter to quit when cycle completes or Esc to quit instantly!"
5. DO
6.     IF INKEY$ = CHR$(13) THEN END '
7.     FOR i = 1 TO 20
8.         PRINT i;
9.         _DELAY .25
10.     NEXT
11. LOOP
12.  
13. quit:
14. END
15. RETURN
16.  

Note if you press Enter, it has to complete the FOR/NEXT loop before it quits. If you press Esc, it ends instantly.

Pete :)

[Ashish]

Good work!

[bplus]

Nice!

How were images created? from hand drawn (typed) page? or through conversion program of photo image creating all the data statements?

Ha! I think I asked this before when we were doing Christmas scenes.

[FellippeHeitor]

Cool animation, [banned user]!

[Cobalt]

This si a type of application where ONKEY is arguably a better choice for responsiveness. With INKEY$, the loop has to complete before the program ends. With ONKEY, it would be spontaneous.

GOSUB is never better..

Code: QB64: [Select]

1. TRUE = -1
2. DO
3.   IF INKEY$ = CHR$(27) THEN exitflag%% = TRUE
4.   IF NOT exitflag%% THEN
5.    FOR i = 1 TO 20
6.      PRINT i;
7.      _DELAY .25
8.      IF INKEY$ = CHR$(27) THEN exitflag%% = TRUE: i = 21 'and if your already in the FOR\NEXT
9.    NEXT
10.   END IF
11. LOOP UNTIL exitflag%%
12.  
13.  

while I like pasta myself, I really don't like it in my code. :)

[Petr]

Now I've looked at it and I'm react late - it's nice. The effect of the flight before and after the inscription is very nice

[codeguy]

Very nice transparency effect when the ships are traveling behind.