OPENING

POSITION.BAS peut faire plus que simplement faire un palmier statique; Il peut également réduire considérablement le temps nécessaire pour faire des animations d'ouverture complexes.

Deux programmes ci-dessous, OPENING.BAS, qui vous met dans un cinéma sombre au début d'une image et FEATHER.BAS, une "scène coupée" d'une plume tombant.

Après avoir composé les images avec POSITION.BAS, les lignes de code ont été nettoyées pour supprimer les espaces et autres caractères inutiles (comme les affectations de couleurs).

Si vous voulez vraiment étirer GW-Basic à la limite hospitalière de l'interprète, essayez de coder les plans d'ouverture à certains films ou émissions de télévision classiques - une présentation de cinéma utilisable peut être produite.

Par exemple, bien qu'ils ne soient pas inclus dans cette section pour des raisons évidentes de manque de permission, j'ai réussi à utiliser POSITION.Bas pour évoquer les scènes de cinéma GW-Basic de l'ouverture de Star Wars.

Le baril de pistolet conçu par le classeur de Maurice tiré des films de James Bond, et le ricanement du dessin animé en tête de Beavis et Butt-Head.

Bien que d'autres ouvertures emblématiques puissent être codées, c'est sûrement une meilleure utilisation de votre temps pour coder vos propres ouvertures de programme fraîches et originales.

OPENING.BAS

10 VIEW PRINT: RANDOMIZE TIMER:KEY OFF:SCREEN 7:SCREEN 9:COLOR 15,0:CLS
20 FOR AX=-10 TO 640 STEP 75:PSET(AX,349),8:DRAW"U40 E1 R65 F1 D40":NEXT AX
30 PSET(0,35),7:DRAW"R640":PSET(0,255),7:DRAW"R640"
40 FOR GH=10 TO 639 STEP 75:PAINT(GH,340),8,8:NEXT GH
50 VIEW PRINT 4 TO 18:VIEW SCREEN (0,36)-(638,254)
60 LOCATE 10,23: COLOR 15:PRINT"SE PICTURES PRESENTS"
70 DIM N(500):GET(172,125)-(441,138),N
80 CLS:FOR TY=1 TO 20000:NEXT TY
82 PAINT(100,100),1,15:FOR GT=230 TO 125 STEP -1
84 PUT(172,GT), N,XOR
86 FOR TY = 1 TO 500: NEXT TY
88 PUT(172,GT), N, XOR:NEXT GT:PUT(171, GT),N,XOR
90 FOR GH=1 TO 20:FG=INT(1+629*RND(1))+1
92 GF=INT(1+215*RND(1))+37
94 PSET(F6,GF),15:DRAW"R3"
96 FOR TV=1 TO 200:NEXT TV
98 PSET(FG,GF),1:DRAW"R3":FOR CD=1 TO 200:NEXT CD:NEXT GH
95 CLS

FEATHER.BAS

10 KEY OFF:SCREEN 9:COLOR 15,0:CLS
15 FOR GH=1 TO 3000:NEXT GH
16 PSET(260,100),15:DRAW"M262,94 M281,66 M296,50 M306,43 M302,58 M307,52 M304,62 M297,73 M305,67 M293,81 M275,97 M260,100 BM279,81 M250,108"
17 PAINT(290,62),12,15
20 PSET(571,298),10:DRAW"M606,298 M606,336 M570,336 M570,298"
22 PAINT(600,333),2,10:PSET(582,303),8:DRAW"M598,303 M598,315 M594,315 M594,323 M591,324 M592,327 M591,329 M591,331 M589,333 M585,331 M585,315 M580,315 M580,303 M582,303"
25 PSET(588,305),8:DRAW"M585,307 M589,310 M592,307 M588,305":PAINT(595,311),14,8
30 FOR IK=1 TO 50:NEXT IK
35 FOR U=338 TO 297 STEP -1
40 PSET(564,U),0:DRAW"R45":FOR GH=1 TO 500:NEXT GH
45 NEXT U:DIM M(1000):GET(235,38)-(307,110),M
50 PUT(235,38),M,XOR
60 FOR UI=38 TO 250 STEP 10
70 PUT(235,UI),M,XOR:FOR TY=1 TO 200:NEXT TY
75 PUT(235,UI),M,XOR
80 NEXT UI:PUT(235,UI),M,XOR
90 FOR Y=1 TO 6:FOR GH=10 TO 0 STEP -1:COLOR,GH:NEXT GH:NEXT Y:CLS