GFA-BASIC3 !b!r!r!r!r!r!rbbbuuuuuuvvvvNvbvbvbvbQOLD_PALANOMBREXBPFREBUFSTARNOUVEAUECRAN2SUPERIPTBUFFEROLD1OLD2OLD3OLD4OLD5OLD6OLD7OLD8OLD9OLD10TAILLEECRAN1JEDIPOINTEURDECAOLD11OLD12OLD13OLD14OLD15OLD16OLD17OLD18OLD19OLD20OLD21OLD22OLD23OLD24OLD25OLD26OLD27OLD28OLD29OLD30OLD31OLD32OLD33OLD34OLD35OLD36OLD37OLD38OLD39OLD40OLD41OLD42OLD43OLD44OLD45OLD46OLD47OLD48OLD49OLD50OLD51OLD52OLD53OLD54OLD55OLD56OLD57OLD58OLD59OLD60OLD61OLD62OLD63OLD64OLD65OLD66OLD67OLD68OLD69OLD70OLD71OLD72OLD73OLD74OLD75OLD76OLD77OLD78OLD79OLD80OLD81OLD82OLD83OLD84OLD85OLD86OLD87OLD88OLD89OLD90OLD91OLD92OLD93OLD94OLD95OLD96OLD97OLD98OLD99OLD100THX1THX2THX3THX4THX5THX6THX7THX8THX9THX10THX11THX12THX13THX14THX15THX16THX17THX18THX19THX20THX21THX22THX23THX24THX25THX26THX27THX28THX29THX30THX31THX32THX33THX34THX35THX36THX37THX38THX39THX40THX41THX42THX43THX44THX45THX46THX47THX48THX49THX50THX51THX52THX53THX54THX55THX56THX57THX58THX59THX60THX61THX62THX63THX64THX65THX66THX67THX68THX69THX70THX71THX72THX73THX74THX75THX76THX77THX78THX79THX80THX81THX82THX83THX84THX85THX86THX87THX88THX89THX90THX91THX92THX93THX94THX95THX96THX97THX98THX99THX100THX0OLD101THXOLD102OLD103OLD104OLD105OLD106OLD107OLD108OLD109OLD110OLD111OLD112OLD113OLD114OLD115OLD116OLD117OLD118OLD119OLD120OLD121OLD122OLD123OLD124OLD125OLD126OLD127OLD128OLD129OLD130OLD131OLD132OLD133OLD134OLD135OLD136OLD137OLD138OLD139OLD140OLD141OLD142OLD143OLD144OLD145OLD146OLD147OLD148OLD149OLD150OLD151OLD152OLD153OLD154OLD155OLD156OLD157OLD158OLD159OLD160OLD161OLD162OLD163OLD164OLD165OLD166OLD167OLD168OLD169OLD170OLD171OLD172OLD173OLD174OLD175OLD176OLD177OLD178OLD179OLD180OLD181OLD182OLD183OLD184OLD185OLD186OLD187OLD188OLD189OLD190OLD191OLD192OLD193OLD194OLD195OLD196OLD197OLD198OLD199OLD200OLD201OLD202OLD203OLD204OLD205OLD206OLD207OLD208OLD209OLD210OLD211OLD212OLD213OLD214OLD215OLD216OLD217OLD218OLD219OLD220OLD221OLD222OLD223OLD224OLD225OLD226OLD227OLD228OLD229OLD230OLD231OLD232OLD233OLD234OLD235OLD236OLD237OLD238OLD239OLD240OLD241OLD242OLD243OLD244OLD245OLD246OLD247OLD248OLD249OLD250OLD251OLD252OLD253OLD254OLD255OLD256OLD257OLD258OLD259OLD260OLD261OLD262OLD263OLD264OLD265OLD266OLD267OLD268OLD269OLD270OLD271OLD272OLD273OLD274OLD275OLD276OLD277OLD278OLD279OLD280OLD281OLD282OLD283OLD284OLD285OLD286OLD287OLD288OLD289OLD290OLD291OLD292OLD293OLD294OLD295OLD296OLD297OLD298OLD299OLD300OLD301OLD302OLD303OLD304OLD305OLD306OLD307OLD308OLD309OLD310OLD311OLD312OLD313OLD314OLD315OLD316OLD317OLD318OLD319OLD320OLD321OLD322OLD323OLD324OLD325OLD326OLD327OLD328OLD329OLD330OLD331OLD332OLD333OLD334OLD335OLD336OLD337OLD338OLD339OLD340OLD341OLD342OLD343OLD344OLD345OLD346OLD347OLD348OLD349OLD350OLD351OLD352OLD353OLD354OLD355OLD356OLD357OLD358OLD359OLD360OLD361OLD362OLD363OLD364OLD365OLD366OLD367OLD368OLD369OLD370OLD371OLD372OLD373OLD374OLD375OLD376OLD377OLD378OLD379OLD380OLD381OLD382OLD383OLD384OLD385OLD386OLD387OLD388OLD389OLD390OLD391OLD392OLD393OLD394OLD395OLD396OLD397OLD398OLD399OLD400OLD401OLD402OLD403OLD404OLD405OLD406OLD407OLD408OLD409OLD410OLD411OLD412OLD413OLD414OLD415OLD416OLD417OLD418OLD419OLD420OLD421OLD422OLD423OLD424OLD425OLD426OLD427OLD428OLD429OLD430OLD431OLD432OLD433OLD434OLD435OLD436OLD437OLD438OLD439OLD440OLD441OLD442OLD443OLD444OLD445OLD446OLD447OLD448OLD449OLD450OLD451OLD452OLD453OLD454OLD455OLD456OLD457OLD458OLD459OLD460OLD461OLD462OLD463OLD464OLD465OLD466OLD467OLD468OLD469OLD470OLD471OLD472OLD473OLD474OLD475OLD476OLD477OLD478OLD479OLD480OLD481OLD482OLD483OLD484OLD485OLD486OLD487OLD488OLD489OLD490OLD491OLD492OLD493OLD494OLD495OLD496OLD497OLD498OLD499OLD500OLD501OLD502OLD503OLD504OLD505OLD506OLD507OLD508OLD509OLD510OLD511OLD512OLD513OLD514OLD515OLD516OLD517OLD518OLD519OLD520OLD521OLD522OLD523OLD524OLD525OLD526OLD527OLD528OLD529OLD530OLD531OLD532OLD533OLD534OLD535OLD536OLD537OLD538OLD539OLD540OLD541OLD542OLD543OLD544OLD545OLD546OLD547OLD548OLD549OLD550OLD551OLD552OLD553OLD554OLD555OLD556OLD557OLD558OLD559OLD560OLD561OLD562OLD563OLD564OLD565OLD566OLD567OLD568OLD569OLD570OLD571OLD572OLD573OLD574OLD575OLD576OLD577OLD578OLD579OLD580OLD581OLD582OLD583OLD584OLD585OLD586OLD587OLD588OLD589OLD590OLD591OLD592OLD593OLD594OLD595OLD596OLD597OLD598OLD599OLD600OLD601OLD602OLD603OLD604OLD605OLD606OLD607OLD608OLD609OLD610OLD611OLD612OLD613OLD614OLD615OLD616OLD617OLD618OLD619OLD620OLD621OLD622OLD623OLD624OLD625OLD626OLD627OLD628OLD629OLD630OLD631OLD632OLD633OLD634OLD635OLD636OLD637OLD638OLD639OLD640OLD641OLD642OLD643OLD644OLD645OLD646OLD647OLD648OLD649OLD650OLD651OLD652OLD653OLD654OLD655OLD656OLD657OLD658OLD659OLD660OLD661OLD662OLD663OLD664OLD665OLD666OLD667OLD668OLD669OLD670OLD671OLD672OLD673OLD674OLD675OLD676OLD677OLD678OLD679OLD680OLD681OLD682OLD683OLD684OLD685OLD686OLD687OLD688OLD689OLD690OLD691OLD692OLD693OLD694OLD695OLD696OLD697OLD698OLD699OLD700OLD701OLD702OLD703OLD704OLD705OLD706OLD707OLD708OLD709OLD710OLD711OLD712OLD713OLD714OLD715OLD716OLD717OLD718OLD719OLD720OLD721OLD722OLD723OLD724OLD725OLD726OLD727OLD728OLD729OLD730OLD731OLD732OLD733OLD734OLD735OLD736OLD737OLD738OLD739OLD740OLD741OLD742OLD743OLD744OLD745OLD746OLD747OLD748OLD749OLD750OLD751OLD752OLD753OLD754OLD755OLD756OLD757OLD758OLD759OLD760OLD761OLD762OLD763OLD764OLD765OLD766OLD767OLD768OLD769OLD770OLD771OLD772OLD773OLD774OLD775OLD776OLD777OLD778OLD779OLD780OLD781OLD782OLD783OLD784OLD785OLD786OLD787OLD788OLD789OLD790OLD791OLD792OLD793OLD794OLD795OLD796OLD797OLD798OLD799OLD800THX101THX102THX103THX104THX105THX106THX107THX108THX109THX110THX111THX112THX113THX114THX115THX116THX117THX118THX119THX120THX121THX122THX123THX124THX125THX126THX127THX128THX129THX130THX131THX132THX133THX134THX135THX136THX137THX138THX139THX140THX141THX142THX143THX144THX145THX146THX147THX148THX149THX150THX151THX152THX153THX154THX155THX156THX157THX158THX159THX160THX161THX162THX163THX164THX165THX166THX167THX168THX169THX170THX171THX172THX173THX174THX175THX176THX177THX178THX179THX180THX181THX182THX183THX184THX185THX186THX187THX188THX189THX190THX191THX192THX193THX194THX195THX196THX197THX198THX199THX200THX201THX202THX203THX204THX205THX206THX207THX208THX209THX210THX211THX212THX213THX214THX215THX216THX217THX218THX219THX220THX221THX222THX223THX224THX225THX226THX227THX228THX229THX230THX231THX232THX233THX234THX235THX236THX237THX238THX239THX240THX241THX242THX243THX244THX245THX246THX247THX248THX249THX250THX251THX252THX253THX254THX255THX256THX257THX258THX259THX260THX261THX262THX263THX264THX265THX266THX267THX268THX269THX270THX271THX272THX273THX274THX275THX276THX277THX278THX279THX280THX281THX282THX283THX284THX285THX286THX287THX288THX289THX290THX291THX292THX293THX294THX295THX296THX297THX298THX299THX300THX301THX302THX303THX304THX305THX306THX307THX308THX309THX310THX311THX312THX313THX314THX315THX316THX317THX318THX319THX320THX321THX322THX323THX324THX325THX326THX327THX328THX329THX330THX331THX332THX333THX334THX335THX336THX337THX338THX339THX340THX341THX342THX343THX344THX345THX346THX347THX348THX349THX350THX351THX352THX353THX354THX355THX356THX357THX358THX359THX360THX361THX362THX363THX364THX365THX366THX367THX368THX369THX370THX371THX372THX373THX374THX375THX376THX377THX378THX379THX380THX381THX382THX383THX384THX385THX386THX387THX388THX389THX390THX391THX392THX393THX394THX395THX396THX397THX398THX399THX400ORVBLTIMEWAITDEST EME_ECRANDEUXIEME_ECRANFININCREMDEBUTDECALRTPPOSSTARXXYYADRXADRYADRESSEDECECRAZYXWRITEINIT CALC_STARS CALC_CURVEDEMOBYE_BYEAU_CAS_O AU_CAS_OUSPRITE0 MAKE_BALL0 GOCALC_STARS GOSCALC_STARSGOSUCALC_STARSXYZDECAOFFR**************************************************************************** R** ROUTINE DE CHAMP D'ETOILES EN GFA BASIC ** R** CALCULS: CTS/NLC/ESC AFFICHAGE ET OPTIMISATIONS: THYREX/NLC/ESC ** R** ** R** Voici donc le listing illustrant l'article sur les champs d'etoiles en ** R**GFA basic. Si vous l'utilisez dans vos programmes, n'oubliez pas de dire** R** merci a THYREX et CTS de NLC-TSB ** R** ** R** CE PROGRAMME DOIT ETRE COMPILE POUR TOURNER EN 1 VBL ** R****************************************************************************  0! F@ @  "8dF  nombre d'toiles dP ! si vous changez ce nombre, changez la routine d'affichage *F F F F  F8V F # FF$V!!! F$F *8V F adresse ecran initiale &8V F notre premier ecran  6H ! ! F tableau de valeurs alatoires 8 ! voir + loin N8߀F on calcul la taille de notre buffer pour les P ! offset et decalage des etoile:2 octets=1 offset gP ! 2 octets=le decalage g$8G F memoire d'origine D F on se reserve de la place pour le 2me ecran l4 ! et pour notre buffer .8 и F on alloue la memoire au buffer b08и~ F et celle de notre 2me ecran f68! ! F ca c'est pour les STF  FF .T!!}F on efface nos deux ecrans  28W ! F on passe en superviseur  XGF2L!F on met toutes les couleurs a zero PFFFFFF 2CF on installe les couleurs '|C3FexCwFtCwF  48 FF ca c'est notre pointeur dans le buffer t (8 FF routine 'magique' de ST MAG "8 FF merci a JEDI et DENEB 8 FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8 FF 8!FF 8"FF 8#FF 8$FF 8%FF 8&FF 8'FF 8(FF 8)FF 8*FF 8+FF 8,FF 8-FF 8.FF 8/FF 80FF 81FF 82FF 83FF 84FF 85FF 86FF 87FF 88FF 89FF 8:FF 8;FF 8<FF 8=FF 8>FF 8?FF 8@FF 8AFF 8BFF 8CFF 8DFF 8EFF 8FFF 8GFF 8HFF 8IFF 8JFF 8KFF 8LFF 8MFF 8NFF 8OFF 8PFF 8QFF 8RFF 8SFF 8TFF 8UFF 8VFF 8WFF 8XFF 8YFF 8ZFF 8[FF 8\FF 8]FF 8^FF 8_FF 8`FF 8aFF 8bFF 8cFF 8dFF 8eFF 8fFF 8gFF 8hFF 8iFF 8jFF 8kFF 8lFF 8mFF 8nFF 8oFF 8pFF 8qFF 8rFF 8sFF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8F 8F 8F 8F 8F 8F 8F 8F 8F 8 F 8 F 8 F 8 F 8 F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8 F 8!F 8"F 8#F 8$F 8%F 8&F 8'F 8(F 8)F 8*F 8+F 8,F 8-F 8.F 8/F 80F 81F 82F 83F 84F 85F 86F 87F 88F 89F 8:F 8;F 8<F 8=F F !FV!!! F CFXFCF ******** merger l'effacage ici ****** t & CF on efface nos etoiles  CFCFCFCFCFCFCF CF"CF$CF&CF(CF*CF,CF.CF0CF2CF4CF6CF8CF:CFCF@CFBCFDCFFCFHCFJCFLCFNCFPCFRCFTCFVCFXCFZCF\CF^CF`CFbCFdCFfCFhCFjCFlCFnCFpCFrCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF CF CFCFCFCFCFCFCFCFCFCF CF"CF$CF&CF(CF*CF,CF.CF0CF2CF4CF6CF8CF:CFtCstXs ݀XF et la on affiche le decalage nuCsuXs XFvCsvXs ݠXFwCswXs XFxCsxXs ݐXFyCsyXs ݰXFzCszXs XF{Cs{Xs XF|Cs|Xs ݈XF}Cs}Xs ݘXF~Cs~Xs ݨXFCsXs ݸXFCsXs XFCsXs XFCsXs XFCsXs XFCsXs ݄XFCsXs ݌XFCsXs ݔXFCsXs ݜXFCsXs ݤXFCsXs ݬXFCsXs ݴXFCsXs ݼXFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs ݂XFCsXs ݆XFCsXs ݊XFCsXs ݎXFCsXs ݒXFCsXs ݖXFCsXs ݚXFCsXs ݞXFCsXs ݢXFCsXs ݦXFCsXs ݪXFCsXs ݮXFCsXs ݲXFCsXs ݶXFCsXs ݺXFCsXs ݾXFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs XFCsXs ݁XFCsXs ݃XFCsXs ݅XFCsXs ݇XFCsXs ݉XFCsXs ݋XFCsXs ݍXFCsXs ݏXFCsXs ݑXFCsXs ݓXFCsXs ݕXFCsXs ݗXFCsXs ݙXFCsXs ݛXFCsXs ݝXFCsXs ݟXFCsXs ݡXFCsXs ݣXFCsXs ݥXFCsXs ݧXFCsXs ݩXFCsXs ݫXFCsXs ݭXFCsXs ݯXFCsXs ݱXFCsXs ݳXFCsXs ݵXFCsXs ݷXFCsXs ݹXFCsXs ݻXFCsXs ݽXFCsXs ݿXFCsXs XFCsXs XFCsXs XFCsXs XF ,8 FF la routine 'magique' de ST MAG f 8 tFF 8 FF 8uFF 8FF 8vFF 8FF 8wFF 8FF 8xFF 8FF 8yFF 8FF 8zFF 8FF 8{FF 8 !FF 8!|FF 8"#FF 8#}FF 8$%FF 8%~FF 8&'FF 8'FF 8()FF 8)FF 8*+FF 8+FF 8,-FF 8-FF 8./FF 8/FF 801FF 81FF 823FF 83FF 845FF 85FF 867FF 87FF 889FF 89FF 8:;FF 8;FF 8<=FF 8=FF 8>?FF 8?FF 8@AFF 8AFF 8BCFF 8CFF 8DEFF 8EFF 8FGFF 8GFF 8HIFF 8IFF 8JKFF 8KFF 8LMFF 8MFF 8NOFF 8OFF 8PQFF 8QFF 8RSFF 8SFF 8TUFF 8UFF 8VWFF 8WFF 8XYFF 8YFF 8Z[FF 8[FF 8\]FF 8]FF 8^_FF 8_FF 8`aFF 8aFF 8bcFF 8cFF 8deFF 8eFF 8fgFF 8gFF 8hiFF 8iFF 8jkFF 8kFF 8lmFF 8mFF 8noFF 8oFF 8pqFF 8qFF 8rsFF 8sFF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8FF 8F 8F 8F 8F 8F 8F 8F 8F 8 F 8 F 8  F 8 F 8  F 8 F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8 !F 8!F 8"#F 8#F 8$%F 8%F 8&'F 8'F 8()F 8)F 8*+F 8+F 8,-F 8-F 8./F 8/F 801F 81F 823F 83F 845F 85F 867F 87F 889F 89F 8:;F 8;F 8<=F 8=F  6 ߀F on passe a la position suivante   F &8 FF ca c'est pour le bouclage $F z? FFFF . **** on rend tous ce qu'on a pris *****  W ! F user mode  !FF V!!! F4bw b bp bp b b bw bU b3 b3 bs bs b7 b7 by b FV! F FF й F й FF   F FFDdG݀F on prend des valeurs alatoires et on @X9V Fe les mets dans notre tableau "X9V FX9V F FFF 6** voici le calcul des coordonnees des etoiles ** 2 on a 100 etapes et 100 etoiles par etapes  L!F 8 FFdGcFFLY! "7FdG݀F"0 F@ FF@ FFFFdFF8 ߟF ca c'est le 'clipping' en x FF@F@ FF$F8 (F ca c'est le 'clipping' en y FF@F@ FF$F @ p ! ! F@!p F@! FF*@ s##  XFX @   Fs ca c'est pour le changement *F de couleurs selon le z de 6@V  Fp l'etoile cF$F |F 0 CF on ecrit l'offset dans notre buffer 8 ߀C F et le decalage lui correspondant  0 F on passe a la position suivante   F8 f F  ca c'est le 'clipping' en z X9F$F F FFFL!FF