Re: Felippe's Locomotive

[johnno56]

This is SO cool. I love the old text animations... Well done!

[FellippeHeitor]

I love the recreation, [banned user]! I knew you'd dig that animation :-)

[bplus]

This is begging for stationary train image moving wheels with background scenery flying past or perhaps a Star Field. ;)

[Pete]

How is this better than my...

train = "  [oo][oo][oo`>  "

...from my Christmas card entry? Is it the smoke? I purposely left out smoke to conform to the "New Green Deal."

Pete :D

I love the choo choo!

[Pete]

Nice.  I think my train is your train zoomed in.  ;~)

LOL - Actually, I was thinking about posting that!

Pete

[bplus]

Quote from: bplus on Today at 10:22:59 AM
This is begging for stationary train image moving wheels with background scenery flying past or perhaps a Star Field. ;)

You have the code bplus.  Have @ it.  Sounds interesting.

Have @ it, he has!

Code: QB64: [Select]

1. _TITLE "Ghost Locomotive" 'from [banned user] post 2019-03-24 mod B+ 2019-03-26
2. RANDOMIZE TIMER
3. SCREEN _NEWIMAGE(800, 600, 32)
4. _SCREENMOVE 200, 20
5.  
6. 'background B+ mod
7. DIM SHARED scape&
8. LoadLandscape
9. scapeWidth = _WIDTH(scape&)
10. scapeHeight = _HEIGHT(scape&)
11. 'PRINT scapeWidth, scapeHeight
12.  
13. 'train stuff [banned user] and Fellippe?
14. DIM temp AS STRING
15. DIM Pattern AS STRING
16.  
17. DIM SHARED Train(7, 10) AS STRING
18. DIM SHARED Coal(10) AS STRING
19.  
20. DIM Smoke1 AS STRING
21. DIM Smoke2 AS STRING
22. DIM Smoke3 AS STRING
23. DIM Smoke4 AS STRING
24. Smoke1 = SPACE$(16) + "@@@@"
25. Smoke2 = SPACE$(16) + "          @ @ "
26. Smoke3 = SPACE$(16) + "    @@     @@     @     @     @    "
27. Smoke4 = SPACE$(16) + "       @@     @@     @     @     @ "
28. LoadTrain
29. col = 1
30. row = 7
31. Pattern = "6545321"
32. p = 6
33.  
34. le = scapeWidth - 800
35. WHILE 1
36.     CLS
37.  
38.     '    background stuff
39.     IF le + 800 > scapeWidth THEN
40.         te = scapeWidth - le
41.         _PUTIMAGE (0, 0)-(te, scapeHeight), scape&, 0, (scapeWidth - te, 0)-(scapeWidth, scapeHeight)
42.         _PUTIMAGE (te, 0)-(800, scapeHeight), scape&, 0, (0, 0)-(800 - te, scapeHeight)
43.     ELSE
44.         _PUTIMAGE (0, 0)-(800, scapeHeight), scape&, 0, (le, 0)-(le + 800, scapeHeight)
45.     END IF
46.     '_PRINTSTRING (5, 5), STR$(le)
47.     le = le - 1
48.     IF le < 0 THEN le = scapeWidth
49.  
50.  
51.     'train stuff
52.     COLOR _RGBA32(255, 255, 255, 200), _RGBA32(0, 0, 0, 0)
53.     FOR j = 0 TO 9
54.         '_PRINTSTRING (0, 16 * j + 112), MID$(Train(p, j + 1), i, 80)
55.         _PRINTSTRING (64, 16 * j + 442), MID$(Train(p, j + 1), 1, 84)
56.     NEXT
57.     IF i < LEN(Smoke4) THEN
58.         IF fcount MOD 30 < 15 THEN
59.             _PRINTSTRING (0, 96 + 300), MID$(Smoke1, i, 80)
60.             _PRINTSTRING (0, 64 + 300), SPACE$(8) + MID$(Smoke1, i, 80)
61.             _PRINTSTRING (0, 32 + 300), SPACE$(24) + MID$(Smoke3, i, 80)
62.         ELSE
63.             _PRINTSTRING (0, 80 + 280), SPACE$(4) + MID$(Smoke1, i, 80)
64.             _PRINTSTRING (0, 48 + 280), SPACE$(12) + MID$(Smoke2, i, 80)
65.             _PRINTSTRING (0, 32 + 280), SPACE$(24) + MID$(Smoke4, i, 80)
66.         END IF
67.     END IF
68.     fcount = fcount + 1
69.     IF fcount = 60 THEN fcount = 0
70.     IF fcount MOD 3 = 0 THEN
71.         col = col + 1: i = i + 1
72.         IF col = LEN(Pattern) + 1 THEN col = 1
73.         IF i > LEN(Train(1, 1)) - 80 THEN i = 1
74.         p = VAL(MID$(Pattern, col, 1))
75.     END IF
76.  
77.     _DISPLAY
78.     _LIMIT 90 '<<< EDIT
79. WEND
80.  
81. SUB LoadLandscape
82.     cur& = _DEST
83.     xmax = 800 * 6: ymax = 600
84.     scape& = _NEWIMAGE(xmax, ymax, 32)
85.     _DEST scape&
86.  
87.     FOR i = 0 TO ymax
88.         midInk 0, 0, 128, 128, 128, 200, i / ymax
89.         LINE (0, i)-(xmax, i)
90.     NEXT
91.     'the land
92.     startH = ymax - 200
93.     rr = 70: gg = 70: bb = 90
94.     FOR mountain = 1 TO 6
95.         Xright = 0
96.         y = startH
97.         COLOR _RGB(rr, gg, bb)
98.         WHILE Xright < xmax - 50
99.             ' upDown = local up / down over range, change along Y
100.             ' range = how far up / down, along X
101.             upDown = (RND * .8 - .4) * (mountain * .5)
102.             range = Xright + rand%(15, 25) * 2.5 / mountain
103.             IF range > xmax - 50 THEN range = xmax - 50
104.             lastx = Xright - 1
105.             FOR x = Xright TO range
106.                 test = y + upDown
107.                 IF ABS(test - startH) < .1 * startH THEN y = test
108.                 LINE (lastx, y)-(x, ymax), , BF 'just lines weren't filling right
109.                 lastx = x
110.             NEXT
111.             Xright = range
112.         WEND
113.         x = lastx + 1
114.         WHILE x <= xmax
115.             y = y + (startH - y) / 40
116.             LINE (lastx, y)-(x, ymax), , BF 'just lines weren't filling right
117.             lastx = x
118.             x = x + 1
119.         WEND
120.         rr = rand%(rr - 15, rr): gg = rand%(gg - 15, gg): bb = rand%(bb - 25, bb)
121.         IF rr < 0 THEN rr = 0
122.         IF gg < 0 THEN gg = 0
123.         IF bb < 0 THEN bb = 0
124.         startH = startH + rand%(5, 20)
125.     NEXT
126.     _DEST cur&
127. END SUB
128.  
129. FUNCTION rand% (lo%, hi%)
130.     rand% = INT(RND * (hi% - lo% + 1)) + lo%
131. END FUNCTION
132.  
133. SUB midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
134.     COLOR _RGB(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
135. END SUB
136.  
137.  
138. SUB LoadTrain
139.     DIM t AS STRING
140.     'DIM s AS STRING
141.     's = SPACE$(80)
142.  
143.     FOR j = 1 TO 10
144.         READ t: Coal(j) = t
145.     NEXT
146.  
147.     FOR i = 1 TO 6
148.         FOR j = 1 TO 10
149.             'READ t: Train(i, j) = s + t + Coal(j) + s
150.             READ t: Train(i, j) = t + Coal(j)
151.         NEXT
152.     NEXT
153.     EXIT SUB
154.  
155.     DATA "                             "
156.     DATA "                             "
157.     DATA "    _________________        "
158.     DATA "   _|                \_____A "
159.     DATA " =|                        | "
160.     DATA " -|                        | "
161.     DATA "__|________________________|_"
162.     DATA "|__________________________|_"
163.     DATA "   |_D__D__D_|  |_D__D__D_|  "
164.     DATA "    \_/   \_/    \_/   \_/   "
165.  
166.     DATA "      ====        ________                ___________"
167.     DATA "  _D _|  |_______/        \__I_I_____===__|_________|"
168.     DATA "   |(_)---  |   H\________/ |   |        =|___ ___|  "
169.     DATA "   /     |  |   H  |  |     |   |         ||_| |_||  "
170.     DATA "  |      |  |   H  |__--------------------| [___] |  "
171.     DATA "  | ________|___H__/__|_____/[][]~\_______|       |  "
172.     DATA "  |/ |   |-----------I_____I [][] []  D   |=======|__"
173.     DATA "__/ =| o |=-~~\  /~~\  /~~\  /~~\ ____Y___________|__"
174.     DATA " |/-=|___|=    ||    ||    ||    |_____/~\___/       "
175.     DATA "  \_/      \O=====O=====O=====O_/      \_/           "
176.  
177.     DATA "      ====        ________                ___________"
178.     DATA "  _D _|  |_______/        \__I_I_____===__|_________|"
179.     DATA "   |(_)---  |   H\________/ |   |        =|___ ___|  "
180.     DATA "   /     |  |   H  |  |     |   |         ||_| |_||  "
181.     DATA "  |      |  |   H  |__--------------------| [___] |  "
182.     DATA "  | ________|___H__/__|_____/[][]~\_______|       |  "
183.     DATA "  |/ |   |-----------I_____I [][] []  D   |=======|__"
184.     DATA "__/ =| o |=-~~\  /~~\  /~~\  /~~\ ____Y___________|__"
185.     DATA " |/-=|___|=O=====O=====O=====O   |_____/~\___/       "
186.     DATA "  \_/      \__/  \__/  \__/  \__/      \_/           "
187.  
188.     DATA "      ====        ________                ___________"
189.     DATA "  _D _|  |_______/        \__I_I_____===__|_________|"
190.     DATA "   |(_)---  |   H\________/ |   |        =|___ ___|  "
191.     DATA "   /     |  |   H  |  |     |   |         ||_| |_||  "
192.     DATA "  |      |  |   H  |__--------------------| [___] |  "
193.     DATA "  | ________|___H__/__|_____/[][]~\_______|       |  "
194.     DATA "  |/ |   |-----------I_____I [][] []  D   |=======|__"
195.     DATA "__/ =| o |=-O=====O=====O=====O \ ____Y___________|__"
196.     DATA " |/-=|___|=    ||    ||    ||    |_____/~\___/       "
197.     DATA "  \_/      \__/  \__/  \__/  \__/      \_/           "
198.  
199.     DATA "      ====        ________                ___________"
200.     DATA "  _D _|  |_______/        \__I_I_____===__|_________|"
201.     DATA "   |(_)---  |   H\________/ |   |        =|___ ___|  "
202.     DATA "   /     |  |   H  |  |     |   |         ||_| |_||  "
203.     DATA "  |      |  |   H  |__--------------------| [___] |  "
204.     DATA "  | ________|___H__/__|_____/[][]~\_______|       |  "
205.     DATA "  |/ |   |-----------I_____I [][] []  D   |=======|__"
206.     DATA "__/ =| o |=-~O=====O=====O=====O\ ____Y___________|__"
207.     DATA " |/-=|___|=    ||    ||    ||    |_____/~\___/       "
208.     DATA "  \_/      \__/  \__/  \__/  \__/      \_/           "
209.  
210.     DATA "      ====        ________                ___________"
211.     DATA "  _D _|  |_______/        \__I_I_____===__|_________|"
212.     DATA "   |(_)---  |   H\________/ |   |        =|___ ___|  "
213.     DATA "   /     |  |   H  |  |     |   |         ||_| |_||  "
214.     DATA "  |      |  |   H  |__--------------------| [___] |  "
215.     DATA "  | ________|___H__/__|_____/[][]~\_______|       |  "
216.     DATA "  |/ |   |-----------I_____I [][] []  D   |=======|__"
217.     DATA "__/ =| o |=-~~\  /~~\  /~~\  /~~\ ____Y___________|__"
218.     DATA " |/-=|___|=   O=====O=====O=====O|_____/~\___/       "
219.     DATA "  \_/      \__/  \__/  \__/  \__/      \_/           "
220.  
221.     DATA "      ====        ________                ___________"
222.     DATA "  _D _|  |_______/        \__I_I_____===__|_________|"
223.     DATA "   |(_)---  |   H\________/ |   |        =|___ ___|  "
224.     DATA "   /     |  |   H  |  |     |   |         ||_| |_||  "
225.     DATA "  |      |  |   H  |__--------------------| [___] |  "
226.     DATA "  | ________|___H__/__|_____/[][]~\_______|       |  "
227.     DATA "  |/ |   |-----------I_____I [][] []  D   |=======|__"
228.     DATA "__/ =| o |=-~~\  /~~\  /~~\  /~~\ ____Y___________|__"
229.     DATA " |/-=|___|=    ||    ||    ||    |_____/~\___/       "
230.     DATA "  \_/      \_O=====O=====O=====O/      \_/           "
231. END SUB
232.  
233.  
234.  

There is something off with the wheels action.

[Pete]

I liked it better when Space Ghost had a star ship, but apparently he fell on hard ties and now has to toddle around in a train. I blame Obama.

Nice effects with the moving mountains...

Pete

[FellippeHeitor]

sl -f gave me Back to the Future feelings.

[bplus]

Hi [banned user],

So the wheels animation was controlled by pattern, I wondered what that was about. :)

Your 2nd code commanding sl with switches reminds me of your bot, I liked the little train variation best.


Hi Fellippe,

Back to the Future? oh that's right one of the sequels did involve a train. :)


More ideas on background:
Before getting static background done, I had an idea about a background generator line routine but not sure if shifting vertical lines down screen is doable quickly enough.

After getting static background done, I immediately got an idea for parallax display which might also be done with a background generator line routine but here you have to push lines down screen at different rates. hmm...

[johnno56]

"man sl" needs either a prompt or delay. When I selected 'man sl' all I had was the 'loco' prompt. Other than that... Great job.

J

[Pete]

Man sl calls Jerry Brown's Bull#$%^ train. That's why you don't see it!

Pete

[bplus]

"man sl" needs either a prompt or delay. When I selected 'man sl' all I had was the 'loco' prompt. Other than that... Great job.

J

Add line indicated in this snip:

Code: QB64: [Select]

1. SUB man_sl
2.     PRINT "SYNOPSIS"
3.     PRINT "          sl [ -alF ]"
4.     PRINT
5.  
6.     PRINT "OPTIONS"
7.     PRINT "         -a    Accident"
8.     PRINT "         -l    Shrink"
9.     PRINT "         -F    Lift-off"
10.     PRINT
11.     INPUT "Press <enter> to continue... ", wate$ '<<<<<<<<<<<<<<<<< add this line
12. END SUB
13.  

This will delay execution until you have actually seen and read the manual.

[Pete]

I think I looked at 5 different ones when trying some of the different switches. I could be wrong, because I really wasn't keeping "TRACK."

Pete :D

[Ashish]

This ASCII animation is very cool! Good work! :)