Star Wars Text

[SMcNeill]

As was mentioned elsewhere, somebody posted a challenge to create a Star Wars text fading effect.  My initial thoughts was to simply take a normal screen of text and then map it to a trapezoidal shape before displaying it, which seems simple enough.

Theory and reality, however, just don't seem to agree with the concept, as illustrated below:

Code: QB64: [Select]

1.  DEFLNG A-Z
2.  
3. ds = _NEWIMAGE(800, 600, 32) 'display screen
4.  
5. SCREEN ds
6.  
7. 'my original screen
8. LINE (100, 100)-(300, 300), &HFFFF0000, BF 'a red square
9. _PRINTSTRING (160, 190), "Hello World" 'with words
10.  
11. 'what I want to copy to, to create a "Star Wars" fade effect
12. LINE (450, 100)-(550, 100)
13. LINE -(600, 300)
14. LINE -(400, 300)
15. LINE -(450, 100)
16. SLEEP
17.  
18. _MAPTRIANGLE (100, 100)-(100, 300)-(300, 100)TO(450, 100)-(400, 300)-(550, 100)
19.  
20. SLEEP
21.  
22. _MAPTRIANGLE (100, 300)-(300, 100)-(300, 300)TO(400, 300)-(550, 100)-(600, 300)
23.  
24.  

At first, it all appears to be working as intended with the text getting a nice slant and the screen narrowing up top to produce the "fade into distance" effect we see in the movies...

Then we do the other half of the triangle and have the text slant in the opposite direction...

Which *does* create a wild little effect when we scroll information across the screen, but it's not what we're looking for here.

So, it seems my "simple" little solution may not be as simple as I first imagined it would be.  Unless somebody sees something wrong with my process here, I think I'll have to rethink the whole concept.  Maybe if I broke the screen down to a series of a dozen triangles or so, and then mapped them over, it might work as it could give a gradual transition from left slope to right slope with the center simply being shrunk as it goes along, but the math for that might end up being too big a PITA for me to sit down and sort out...

Anywho, I thought I'd share my initial results so folks can see what I'm getting so far, and if you have any idea of how to fix the process, or see an obvious glitch in the works here, I'd love if you'd share it.  Seems like it'd be simple to map from a square to a trapezoid, but I'm just not having much luck with it at the moment. 

[bplus]

Yep! Same cruddy results with scrolling text example:

Code: QB64: [Select]

1. ' Star Wars Episode V: The Empire Strikes Back opening crawl?
2. ' http://www.galaxyfaraway.com/gfa/2006/02/what-is-the-text-of-the-star-wars-episode-v-the-empire-strikes-back-opening-crawl/
3.  
4. SCREEN _NEWIMAGE(800, 700, 32)
5. _SCREENMOVE 300, 20
6. swt& = _NEWIMAGE(320, 512, 32)
7. _DEST swt&
8. COLOR _RGB32(0, 180, 0)
9. nl$ = CHR$(10)
10. sw$ = "It is a dark time for the Rebellion." + nl$
11. sw$ = sw$ + "Although the Death Star has been" + nl$
12. sw$ = sw$ + "destroyed, Imperial troops have driven" + nl$
13. sw$ = sw$ + "the Rebel forces from their hidden base" + nl$
14. sw$ = sw$ + "and pursued them across the galaxy." + nl$
15. sw$ = sw$ + nl$ + nl$
16. sw$ = sw$ + "Evading the dreaded Imperial Starfleet," + nl$
17. sw$ = sw$ + "a group of freedom fighters led by Luke" + nl$
18. sw$ = sw$ + "Skywalker has established a new secret" + nl$
19. sw$ = sw$ + "base on the remote ice world of Hoth." + nl$
20. sw$ = sw$ + nl$ + nl$
21. sw$ = sw$ + "The evil lord Darth Vader, obsessed with" + nl$
22. sw$ = sw$ + "finding young Skywalker, has dispatched" + nl$
23. sw$ = sw$ + "thousands of remote probes into the" + nl$
24. sw$ = sw$ + "far reaches of space.... " + nl$
25. LOCATE 20, 1
26. PRINT sw$
27.  
28. _DEST 0
29.  
30. '                                         Disaster!!!!!!!!!!!
31. FOR y = 0 TO 512
32.     '_MAPTRIANGLE [{_SEAMLESS}] (sx1, sy1)-(sx2, sy2)-(sx3, sy3), source& TO (dx1, dy1)-(dx2, dy2)-(dx3, dy3)[, destination&][{_SMOOTH|_SMOOTHSHRUNK|_SMOOTHSTRETCHED}]]
33.     _MAPTRIANGLE (0, y)-(319, y)-(0, y + 319), swt& TO(350, 0)-(449, 0)-(0, 699), 0
34.     _MAPTRIANGLE (319, y)-(0, y + 319)-(319, y + 319), swt& TO(449, 0)-(0, 699)-(799, 699), 0, _SMOOTHSHRUNK
35.     _DISPLAY
36.     _LIMIT 15
37. NEXT
38.  

[bplus]

Here I tried a bunch of _PUTIMAGE commands at 1 pixel height. It gets us closer but the text at the sides gets too distorted to read.

Code: QB64: [Select]

1. ' Star Wars Episode V: The Empire Strikes Back opening crawl?
2. ' http://www.galaxyfaraway.com/gfa/2006/02/what-is-the-text-of-the-star-wars-episode-v-the-empire-strikes-back-opening-crawl/
3.  
4. SCREEN _NEWIMAGE(800, 700, 32)
5. _SCREENMOVE 300, 20
6. swt& = _NEWIMAGE(320, 512, 32)
7. _DEST swt&
8. COLOR _RGB32(0, 180, 0)
9. nl$ = CHR$(10)
10. sw$ = "It is a dark time for the Rebellion." + nl$
11. sw$ = sw$ + "Although the Death Star has been" + nl$
12. sw$ = sw$ + "destroyed, Imperial troops have driven" + nl$
13. sw$ = sw$ + "the Rebel forces from their hidden base" + nl$
14. sw$ = sw$ + "and pursued them across the galaxy." + nl$
15. sw$ = sw$ + nl$ + nl$
16. sw$ = sw$ + "Evading the dreaded Imperial Starfleet," + nl$
17. sw$ = sw$ + "a group of freedom fighters led by Luke" + nl$
18. sw$ = sw$ + "Skywalker has established a new secret" + nl$
19. sw$ = sw$ + "base on the remote ice world of Hoth." + nl$
20. sw$ = sw$ + nl$ + nl$
21. sw$ = sw$ + "The evil lord Darth Vader, obsessed with" + nl$
22. sw$ = sw$ + "finding young Skywalker, has dispatched" + nl$
23. sw$ = sw$ + "thousands of remote probes into the" + nl$
24. sw$ = sw$ + "far reaches of space.... " + nl$
25. LOCATE 20, 1
26. PRINT sw$
27.  
28. _DEST 0
29.  
30. ''                                         Disaster!!!!!!!!!!!
31. 'FOR y = 0 TO 512
32. ''    _MAPTRIANGLE [{_SEAMLESS}] (sx1, sy1)-(sx2, sy2)-(sx3, sy3), source& TO (dx1, dy1)-(dx2, dy2)-(dx3, dy3)[, destination&][{_SMOOTH|_SMOOTHSHRUNK|_SMOOTHSTRETCHED}]]
33. '    _MAPTRIANGLE (0, y)-(319, y)-(0, y + 319), swt& TO(350, 0)-(449, 0)-(0, 699), 0
34. '    _MAPTRIANGLE (319, y)-(0, y + 319)-(319, y + 319), swt& TO(449, 0)-(0, 699)-(799, 699), 0, _SMOOTHSHRUNK
35. '    _DISPLAY
36. '    _LIMIT 15
37. 'NEXT
38.  
39.  
40. 'try a bunch of putimges
41. cx = _WIDTH / 2
42. power = 256 'TO 1 STEP -1
43. CLS
44. LOCATE 1, 1: PRINT power
45. x = (_HEIGHT - 20) ^ (1 / power)
46. dy = 1 '256 pixel height / 50 blocks across
47. FOR y = 0 TO 512
48.     CLS
49.     FOR i = 0 TO power - 1
50.         '_PUTIMAGE [STEP] [(dx1, dy1)-[STEP][(dx2, dy2)]][, sourceHandle&][, destHandle&][, ][STEP][(sx1, sy1)[-STEP][(sx2, sy2)]]
51.         _PUTIMAGE (cx - .75 * x ^ i, 10 + x ^ i)-(cx + .75 * x ^ i, 10 + x ^ (i + 1)), swt&, 0, (0, y + dy * i)-(320, y + dy * (i + 1))
52.  
53.         'LINE (cx - .75 * x ^ i, 10 + x ^ i)-(cx + .75 * x ^ i, 10 + x ^ (i + 1)), , B
54.     NEXT
55.     _DISPLAY
56.     _LIMIT 10
57. NEXT
58.  
59.  

[eddy498]

I see what the problem is with your programs.. not that i understand but i see from the output lol.

um an idea i was gonna try was something a bit simpler but simple things usually dont always work in coding. correct me if im wrong, but cant you create multiple invisible lines every 50-100 pixels that when the text passes through that line it will change font size making it smaller giving the illusion that its fading in the distance??

again i might be wrong. and i still havnt tried it myself since im trying to figure out the simplest way to make text scroll up by itself :)

[eddy498]

Yep! Same cruddy results with scrolling text example:

Code: QB64: [Select]

1. ' Star Wars Episode V: The Empire Strikes Back opening crawl?
2. ' http://www.galaxyfaraway.com/gfa/2006/02/what-is-the-text-of-the-star-wars-episode-v-the-empire-strikes-back-opening-crawl/
3.  
4. SCREEN _NEWIMAGE(800, 700, 32)
5. _SCREENMOVE 300, 20
6. swt& = _NEWIMAGE(320, 512, 32)
7. _DEST swt&
8. COLOR _RGB32(0, 180, 0)
9. nl$ = CHR$(10)
10. sw$ = "It is a dark time for the Rebellion." + nl$
11. sw$ = sw$ + "Although the Death Star has been" + nl$
12. sw$ = sw$ + "destroyed, Imperial troops have driven" + nl$
13. sw$ = sw$ + "the Rebel forces from their hidden base" + nl$
14. sw$ = sw$ + "and pursued them across the galaxy." + nl$
15. sw$ = sw$ + nl$ + nl$
16. sw$ = sw$ + "Evading the dreaded Imperial Starfleet," + nl$
17. sw$ = sw$ + "a group of freedom fighters led by Luke" + nl$
18. sw$ = sw$ + "Skywalker has established a new secret" + nl$
19. sw$ = sw$ + "base on the remote ice world of Hoth." + nl$
20. sw$ = sw$ + nl$ + nl$
21. sw$ = sw$ + "The evil lord Darth Vader, obsessed with" + nl$
22. sw$ = sw$ + "finding young Skywalker, has dispatched" + nl$
23. sw$ = sw$ + "thousands of remote probes into the" + nl$
24. sw$ = sw$ + "far reaches of space.... " + nl$
25. LOCATE 20, 1
26. PRINT sw$
27.  
28. _DEST 0
29.  
30. '                                         Disaster!!!!!!!!!!!
31. FOR y = 0 TO 512
32.     '_MAPTRIANGLE [{_SEAMLESS}] (sx1, sy1)-(sx2, sy2)-(sx3, sy3), source& TO (dx1, dy1)-(dx2, dy2)-(dx3, dy3)[, destination&][{_SMOOTH|_SMOOTHSHRUNK|_SMOOTHSTRETCHED}]]
33.     _MAPTRIANGLE (0, y)-(319, y)-(0, y + 319), swt& TO(350, 0)-(449, 0)-(0, 699), 0
34.     _MAPTRIANGLE (319, y)-(0, y + 319)-(319, y + 319), swt& TO(449, 0)-(0, 699)-(799, 699), 0, _SMOOTHSHRUNK
35.     _DISPLAY
36.     _LIMIT 15
37. NEXT
38.  

maybe something along the lines of calling out the strings each seperatly like how you did there but instead of maptriangle a transitioning code.

[bplus]

I have fiddled and hacked the 2nd method using _PUTIMAGE technique and have better results:

Code: QB64: [Select]

1. ' Star Wars Episode V: The Empire Strikes Back opening crawl?
2. ' http://www.galaxyfaraway.com/gfa/2006/02/what-is-the-text-of-the-star-wars-episode-v-the-empire-strikes-back-opening-crawl/
3.  
4. SCREEN _NEWIMAGE(800, 700, 32)
5. _SCREENMOVE 300, 20
6. swt& = _NEWIMAGE(320, 512, 32)
7. _DEST swt&
8. COLOR _RGB32(0, 180, 0)
9. nl$ = CHR$(10)
10. sw$ = "It is a dark time for the Rebellion." + nl$
11. sw$ = sw$ + "Although the Death Star has been" + nl$
12. sw$ = sw$ + "destroyed, Imperial troops have driven" + nl$
13. sw$ = sw$ + "the Rebel forces from their hidden base" + nl$
14. sw$ = sw$ + "and pursued them across the galaxy." + nl$
15. sw$ = sw$ + nl$ + nl$
16. sw$ = sw$ + "Evading the dreaded Imperial Starfleet," + nl$
17. sw$ = sw$ + "a group of freedom fighters led by Luke" + nl$
18. sw$ = sw$ + "Skywalker has established a new secret" + nl$
19. sw$ = sw$ + "base on the remote ice world of Hoth." + nl$
20. sw$ = sw$ + nl$ + nl$
21. sw$ = sw$ + "The evil lord Darth Vader, obsessed" + nl$
22. sw$ = sw$ + "with finding young Skywalker, has" + nl$
23. sw$ = sw$ + "dispatched thousands of remote probes" + nl$
24. sw$ = sw$ + "into the far reaches of space.... " + nl$
25. LOCATE 20, 1
26. PRINT sw$
27.  
28. _DEST 0
29. yy = _HEIGHT / 3
30. FOR i = 11 TO 60 STEP .5
31.     CLS
32.     yy = yy - 60 / i
33.     cText _WIDTH / 2, yy + yy, yy, _RGB32(230, 220, 50), "Star Wars"
34.     cText _WIDTH / 2, yy + yy, yy * .96, _RGB32(0, 0, 0), "Star Wars"
35.     _DISPLAY
36.     _LIMIT 15
37. NEXT
38.  
39. cx = _WIDTH / 2
40. power = 1024 'TO 1 STEP -1
41. x = (_HEIGHT - 20) ^ (1 / power)
42. dy = 1 '256 pixel height / 50 blocks across
43. FOR y = -840 TO -270
44.     CLS
45.     FOR i = 0 TO power - 1
46.         '_PUTIMAGE [STEP] [(dx1, dy1)-[STEP][(dx2, dy2)]][, sourceHandle&][, destHandle&][, ][STEP][(sx1, sy1)[-STEP][(sx2, sy2)]]
47.         _PUTIMAGE (cx - .75 * x ^ i, 10 + x ^ i)-(cx + .75 * x ^ i, 10 + x ^ (i + 1)), swt&, 0, (0, y + dy * i)-(319, y + dy * (i + 1))
48.  
49.         'LINE (cx - .75 * x ^ i, 10 + x ^ i)-(cx + .75 * x ^ i, 10 + x ^ (i + 1)), , B
50.     NEXT
51.     PRINT y
52.     _DISPLAY
53.     _LIMIT 15
54. NEXT
55. yy = 80
56. FOR i = 60 TO 0 STEP -.5
57.     CLS
58.     yy = yy + 60 / i
59.     cText _WIDTH / 2, yy + yy, yy, _RGB32(230, 220, 50), "Star Wars"
60.     cText _WIDTH / 2, yy + yy, yy * .96, _RGB32(0, 0, 0), "Star Wars"
61.     _DISPLAY
62.     _LIMIT 75
63. NEXT
64.  
65. SUB cText (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
66.     fg = _DEFAULTCOLOR
67.     'screen snapshot
68.     cur& = _DEST
69.     I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
70.     _DEST I&
71.     COLOR K, _RGBA32(0, 0, 0, 0)
72.     _PRINTSTRING (0, 0), txt$
73.     mult = textHeight / 16
74.     xlen = LEN(txt$) * 8 * mult
75.     _PUTIMAGE (x - .5 * xlen, y - .5 * textHeight)-STEP(xlen, textHeight), I&, cur&
76.     COLOR fg
77.     _FREEIMAGE I&
78. END SUB
79.  

[SMcNeill]

Here's a semi-decent test run of Star Wars type text.  (Note, there's actually no scrolling going on yet, but it illustrates how to create a similar effect.)

Code: QB64: [Select]

1. DEFLNG A-Z
2.  
3. ds = _NEWIMAGE(1280, 960, 32)
4. bs = _NEWIMAGE(1280, 960, 32)
5.  
6. SCREEN ds
7. _SCREENMOVE (_DESKTOPWIDTH - 1280) / 2, (_DESKTOPHEIGHT - 960) / 2
8.  
9.  
10. CONST FH = 48 'Fontheight
11. font = _LOADFONT("Starjout.ttf", FH) 'Note: Non-Monospaced font in use.
12.  
13.  
14. _DEST bs
15. _FONT font
16.  
17. PRINT "Star Wars, the farce continues, Part 27.4"
18. FOR i = 2 TO 20
19.     LOCATE i, 1: PRINT "LiNE"; i; " this is just junk to test formatting";
20. NEXT
21.  
22.  
23. FOR i = 0 TO 19 '20 lines of text on the screen
24.     _MAPTRIANGLE (0, i * FH)-(_WIDTH - 1, i * FH)-(0, FH * (i + 1)), bs TO_
25.                  (20 * (19 - i), i * FH)-(_WIDTH - 20 * (19 - i), i * FH)-(20 * (19 - i), FH * (i + 1)), ds
26.     _MAPTRIANGLE (0, (i + 1) * FH)-(_WIDTH - 1, (i + 1) * FH)-(_WIDTH - 1, FH * i), bs TO_
27.                  (20 * (19 - i), (i +1)* FH)-(_WIDTH - 20 * (19 - i), (i+1) * FH)-(_WIDTH - 20 * (19 - i), FH * i), ds
28.     SLEEP
29. NEXT
30.  
31. 'Do shading to black
32. _DEST ds
33. FOR i = 1 TO 15
34.     LINE (0, 0)-(1280, 48 * i), _RGBA32(0, 0, 0, 15), BF
35.     SLEEP
36. NEXT
37.  
38.  
39. DO
40.     _LIMIT 30
41. LOOP UNTIL _KEYDOWN(27) 'escape to end program
42. SYSTEM
43.  

Star Wars Jedi Font is needed to run this properly, but it can be downloaded from below.

Sceenshot of final output is attached.

[Pete]

I have fiddled and hacked the 2nd method using _PUTIMAGE technique and have better results:

WOW! It's just like Star Wars, without all the stupid crap to put up with. Great Job!!!

Pete

[TempodiBasic]

yes It is fine
I have tested code using Lucon.ttf, it works the same also with minor effect.

[Cobalt]

In regards to your first example Steve, you did realize your mapping 2 different sized triangles from the square to the trapezoid right? the first triangle that you place(which I think you said was correct) is smaller than the second triangle that you place which distorts the results. would there be anyway to use more triangles to get the sizes closer to equal?
/\ \/ /\  - something like that with 3 triangles maybe? but I'm not sure how you would divide the square into 3 triangles though.

[SMcNeill]

In regards to your first example Steve, you did realize your mapping 2 different sized triangles from the square to the trapezoid right? the first triangle that you place(which I think you said was correct) is smaller than the second triangle that you place which distorts the results. would there be anyway to use more triangles to get the sizes closer to equal?
/\ \/ /\  - something like that with 3 triangles maybe? but I'm not sure how you would divide the square into 3 triangles though.

I tested with that, but still had no luck.  As easy as _MAPTRIANGLE sounds, it just doesn’t work as needed in this instance.  _PUTIMAGE and scale by line is definitely the way to go, as bplus has working.  ;)

[Cobalt]

Far from perfect but sticking with MapTriangle check this one out Steve,

Code: QB64: [Select]

1. DEFLNG A-Z
2.  
3. ds = _NEWIMAGE(640, 480, 32) 'display screen
4. mx = _NEWIMAGE(640, 480, 32) 'mix layer
5.  
6. SCREEN ds
7. _PRINTMODE _KEEPBACKGROUND , mx
8. _DEST mx
9. 'my original screen
10. FOR i% = 220 TO -200 STEP -1
11.  LINE (0, 0)-(200, 200), &HFFFF0000, BF 'a red square
12.  LINE (0, 201)-(200, 480), &HFF000000, BF 'a red square
13.  _PRINTSTRING (60, i%), "Hello World" 'with words
14.  _PRINTSTRING (60, 40 + i%), " Star Wars " 'with words
15.  _PRINTSTRING (60, 60 + i%), "  Scroll!" 'with words
16.  _PRINTSTRING (60, 100 + i%), " Lets All" 'with words
17.  _PRINTSTRING (50, 120 + i%), "Marvel at the" 'with words
18.  _PRINTSTRING (45, 140 + i%), "Magic of BASIC" 'with words
19.  _PRINTSTRING (45, 180 + i%), "Thank you for" 'with words
20.  _PRINTSTRING (45, 200 + i%), "your Time long" 'with words
21.  _PRINTSTRING (45, 220 + i%), "Long ago, on a" 'with words
22.  _PRINTSTRING (45, 240 + i%), "Screen Far Far" 'with words
23.  _PRINTSTRING (45, 260 + i%), "    AWAY!" 'with words
24.  
25.  TriCopy
26.  LINE (300, 0)-(600, 180), &HFF000000, BF 'a red square
27.  _PUTIMAGE , mx, ds
28.  _DELAY .045
29. NEXT i%
30. '_PRINTSTRING (101, 190), "    He   llo  Wo   rld" 'with words
31.  
32.  
33. 'LINE (400, 400)-(600, 400), &HFFFFFFFF
34. 'LINE -(500, 0), &HFFFFFFFF
35. 'LINE -(400, 400), &HFFFFFFFF
36.  
37. 'what I want to copy to, to create a "Star Wars" fade effect
38. 'LINE (450, 200)-(550, 200), &HFFFF0000
39. 'LINE -(600, 400), &HFFFFFF00
40. 'LINE -(400, 400), &HFFFF00FF
41. 'LINE -(450, 200), &HFFFFFFFF
42.  
43. END
44. 'SLEEP
45. 'right side
46. '_MAPTRIANGLE (200, 300)-(300, 100)-(300, 300)TO(500, 300)-(550, 100)-(600, 300)
47.  
48. 'SLEEP
49. 'left side
50. '_MAPTRIANGLE (100, 300)-(200, 300)-(100, 100)TO(400, 300)-(500, 300)-(450, 100)
51.  
52. 'SLEEP
53. 'center
54. '_MAPTRIANGLE (100, 100)-(200, 300)-(300, 100)TO(450, 100)-(500, 300)-(550, 100)
55.  
56. SUB TriCopy
57.  FOR i%% = 0 TO 100
58.   _MAPTRIANGLE (0 + i%% * 2, 0)-(0 + i%% * 2, 200)-(1 + i%% * 2, 200)TO(500, 0)-(400 + i%% * 2, 400)-(401 + i%% * 2, 400)
59.  NEXT i%%
60. END SUB
61.  
62.  

[bplus]

Hi Cobalt,

Persistence pays! This is very interesting result.

[Cobalt]

Thanks B+, odd thing is I can't seem to get it to enlarge with _putimage. Justs gives me a blank screen, double checked my position and if I wait till the end of the for/next or exit it mid way I can get it to show but trying in the loop fails.
If you run this as is everything seems great and at the end it will show the 'zoomed' area correctly(if you hit ESC with text on the scroll area its show up) BUT if you change the 'mx' in the second _PUTIMAGE to 'fs' all you see is blank screen! but the first _PUTIMAGE must work cause it shows when you esc the loop, or the loop ends normally. So I'm getting the correct area of screen but its just not working inside the loop. Has me baffled at the moment.
I cleaned the code up a bit and tweaked a few things, I think I liked the stretched texted a little better though.

 

Code: QB64: [Select]

1. DEFLNG A-Z
2.  
3. ds = _NEWIMAGE(640, 480, 32) 'display screen
4. mx = _NEWIMAGE(640, 480, 32) 'mix layer
5. fs = _NEWIMAGE(640, 480, 32) 'full screen layer
6. SCREEN ds
7.  
8. _SETALPHA 255, , fs
9. _PRINTMODE _KEEPBACKGROUND , mx
10. _DEST mx
11.  
12. 'my original screen
13. FOR i% = 420 TO -200 STEP -1
14.  LINE (0, 0)-(200, 400), &HFFFF0000, BF 'a red square
15.   _PRINTSTRING (60, i%), "Hello World" 'with words
16.  _PRINTSTRING (60, 40 + i%), " Star Wars " 'with words
17.  _PRINTSTRING (60, 60 + i%), "  Scroll!" 'with words
18.  _PRINTSTRING (60, 100 + i%), " Lets All" 'with words
19.  _PRINTSTRING (50, 120 + i%), "Marvel at the" 'with words
20.  _PRINTSTRING (45, 140 + i%), "Magic of BASIC" 'with words
21.  _PRINTSTRING (45, 180 + i%), "Thank you for" 'with words
22.  _PRINTSTRING (41, 200 + i%), "your Time. Long" 'with words
23.  _PRINTSTRING (45, 220 + i%), "Long ago, on a" 'with words
24.  _PRINTSTRING (45, 240 + i%), "Screen Far Far" 'with words
25.  _PRINTSTRING (45, 260 + i%), "    AWAY!" 'with words
26. LINE (0, 401)-(200, 480), &HFF000000, BF 'a black area
27.  
28.  TriCopy
29.  LINE (300, 0)-(600, 180), &HFF000000, BF 'a black area
30.  _PUTIMAGE (0, 0)-STEP(639, 479), mx, fs, (400, 180)-STEP(200, 220)
31.  _PUTIMAGE , mx, _DISPLAY
32.  IF INKEY$ = CHR$(27) THEN EXIT FOR
33.  _DELAY .045
34. NEXT i%
35. _PUTIMAGE , fs, _DISPLAY
36.  
37. END
38.  
39. SUB TriCopy
40.  FOR i%% = 0 TO 100
41.   _MAPTRIANGLE (0 + i%% * 2, 0)-(0 + i%% * 2, 400)-(1 + i%% * 2, 400)TO(500, 0)-(400 + i%% * 2, 400)-(401 + i%% * 2, 400)
42.  NEXT i%%
43. END SUB
44.