D2D: Demo Star Trek Intro, German Subs & Audio

[(X)]

You might say I grew up watching Star Trek, but, it only came on Saturdays at noon and our TV reception was awful.  

Now, you can download the whole series and watch in High Definition!  What a world!

And now, for something completely different, as an exercise I found the German intro and I synched it to the subtitles that I found online in this little GFA-BASIC 32 for Windows program.

TOS_Title.ttf (13.06 KB)  // You may need to install this font.

Demo STOS Ger Intro.G32 (734.49 KB)  // Source Code

I had to whittle the files down below 1MB to post here.

You can see the demo playing on youtube here: youtu.be/I3qxh_LTtfo

This is my effort at a direct translation of the intro.:

Subtitle$(0) = ""
Subtitle$(1) = "Der Weltraum, unendliche Weiten."
Subtitle$(2) = "Wir schreiben das Jahr 2200."
Subtitle$(3) = "Dies sind die Abenteuer des Raumschiffs Enterprise,"
Subtitle$(4) = "das mit seiner 400 Mann starken Besatzung 5 Jahre lang unterwegs ist,"
Subtitle$(5) = "um neue Welten zu erforschen, neues Leben und neue Zivilisationen,"
Subtitle$(6) = "Viele Lichtjahre von der Erde entfernt dringt die Enterprise"
Subtitle$(7) = "in Galaxien vor, die nie ein Mensch zuvor gesehen hat."
Subtitle$(8) = ""

[larrybtoys]

Cool demo!

[scalion]

C'est juste génial, en fullscreen en plus. J'adooore.

[scalion]

Happy New Year, all my friends !

StarTrek.zip (974.98 KB)

Edit !

I make a big mistake....

I also said to myself, it's weird, it doesn't really display what I expected!!!

At the end of the STL_LoadFile procedure

we must have (replace all 0 by i) :

 For i = 0 To STL_HEADER.Triangles - 1
   STL_TRIANGLE_ARRAY(i).Vertex1.x = (STL_TRIANGLE_ARRAY(i).Vertex1.x - Bx0) / BSizeMax
   STL_TRIANGLE_ARRAY(i).Vertex1.y = (STL_TRIANGLE_ARRAY(i).Vertex1.y - By0) / BSizeMax
   STL_TRIANGLE_ARRAY(i).Vertex1.z = (STL_TRIANGLE_ARRAY(i).Vertex1.z - Bz0) / BSizeMax
   STL_TRIANGLE_ARRAY(i).Vertex2.x = (STL_TRIANGLE_ARRAY(i).Vertex2.x - Bx0) / BSizeMax
   STL_TRIANGLE_ARRAY(i).Vertex2.y = (STL_TRIANGLE_ARRAY(i).Vertex2.y - By0) / BSizeMax
   STL_TRIANGLE_ARRAY(i).Vertex2.z = (STL_TRIANGLE_ARRAY(i).Vertex2.z - Bz0) / BSizeMax
   STL_TRIANGLE_ARRAY(i).Vertex3.x = (STL_TRIANGLE_ARRAY(i).Vertex3.x - Bx0) / BSizeMax
   STL_TRIANGLE_ARRAY(i).Vertex3.y = (STL_TRIANGLE_ARRAY(i).Vertex3.y - By0) / BSizeMax
   STL_TRIANGLE_ARRAY(i).Vertex3.z = (STL_TRIANGLE_ARRAY(i).Vertex3.z - Bz0) / BSizeMax
 Next i

Then we must modify the draw procedure : STL_Draw 0, Sin(Frac(Timer / 8) * 6.29) * 25, 50, 250

OMG, I should be more careful when copying and pasting..

[(X)]

Hahhahahahhahaha!!!!

C'est fabuleux.  Ça fait penser a toutes sortes de possibilitées!

L'année 2024 commence en grand sourire!

[(X)]

Here is the YouTube link: youtu.be/oPFaV03rgkk

[Roger Cabo]

Very nice.. exactly what I need to rebuild Hard Drivin in gb32.

But just wondering how i can get the collision between track and 3d object..

www.myabandonware.com/game/hard-drivin-wr/play-wr
you can play in the browser!