SVM n°22 novembre 1985
SVM n°22 novembre 1985
  • Prix facial : 17 F

  • Parution : n°22 de novembre 1985

  • Périodicité : mensuel

  • Editeur : Excelsior Publications

  • Format : (203 x 280) mm

  • Nombre de pages : 196

  • Taille du fichier PDF : 235 Mo

  • Dans ce numéro : 5 vérités sur le TO9 de Thomson.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 104 - 105  |  Aller à la page   OK
Pages suivantes >
104 105
.../... 1280 FOR J=0 TO 224 STEP 224•FOR i=32 TO 64 STEP 32 1290 MOVE i-8+J,48 1300 FOR h=48 TO 110 STEP 2 1310 DRAWR 16,0.. 0•MOVER -16, 2 1323 tJEiT.i 1400 MOVE 0,0•DRAWR 447,0,3•DRAWR 0,110• DRAWR -448,0•DRAWR 0.. -112•DRAWR 449,0,2• DRAWR 0, 114•DRAWR -450,0•DRAWR 0.. -114 1410 MOVE 46126• DRAWR 354,0,l•DRAWR 0,1 30•DRAWR -354, 0•DRAWR 0,-130 1420 J• coordonnees de l note Jouee.. 1430 RE' ; TOl".E 1440 FOR i =1 TO 24•READ cCi)• NE XT, 1450 FOR i=1 TO 24•J=c(i.)•READ c(J), l (J) 1460 NEXT•c(53)=152• 1 (53)=70•RETURN 1470 DATA 8,20,24, 70,40,20,56,70,72,20 1480 DATA 104, 20,120,70,136, 20,152, 70 1490 DATA 168,20,184,70,200,20, 232,20 1500 DATA 248,70,264,20,280, 70, 296, 20 1510 DATA 328,20,344,70,360,20, 376, 70 1520 DATA 392,20, 408,70,424. 20 1530 CLS•PEN 1•LOCATE 5,2•PRINT CHR$(1)'LISTEDt ; S VARIABLtS Toutes les variables numériques sont entières sauf Y qui vaut 125000/440. S : section en cours HS : hauteur du pas en cours LS : durée du pas en cours NS : nombre de pas en cours pour la section S N : numéro de l enveloppe en cours de définition HSO : hauteur du pas précédent LSO : durée du pas précédent L(T) : ordonnée de la note affichée en fonction de la touche (T) appuyée C(T) : abscisse de la note affichée en fonction de la touche (T) appuyée N(T) : note jouée en fonction de la touche (T) appuyée NOl(T) : bruitjoué en fonction de la touche (T) appuyée NT(N,S) : nombre de pas de la section Set l'ENT N HT(N,S) : hauteur de pas de la section S etl'ENT N LT(N,S) : durée de pas de la section Set l'ENT N NV(N,S) : idem NV pour l'ENV N HV(N,S) : idem HT pour l'ENV N LV(N,S) : idem LT pour l'ENV N EV(N) : drapeau de définition de l'ENV (si -1, vrai) ET(N) : drapeau de définition de l'ENT (vrai si -1) Z : drapeau de validation du pas en cours par Copy. Q : octave base en cours. Q+ 1 est loctave haut. DU : paramètre de durée de SOUND. VO : volume initial de SOUND VEN : numéro de l'ENV en fonction TEN : numéro de l'ENT en fonction NOTE : drapeau de note : N(T) est jouée si NOTE=l NOIS : drapeau de bruit : NOl(T) est joué si NOIS=l TRAN$ : Code de transparence pour lécriture des caractères sur le graph: ; iue OU ESC$ : Code XOR pour le graphique (bascule on-off) NORM$ : graphique en mode normal (force le mode) OPAK$ : fin du mode transparent 104 "CHR$ (1) ", ; • PHJ 0 : PRHH" = Oct.. "le "CHR$ (171) 1540 LOCATE 5, 4 : PEtJ 1 : PF.'.rmCHR$ (l) "f " CH R$C 1) ".J, ", ; • PEt 0 : PR I tH" ='•/c• 11_1.r""" "CHF'.$ (1 71• 1550 PEtJ 1• LOCATE 5. 6•PR I tH "/ ; • Pm 0• PRitH" = OPtion. "• RETURt 1. 560)•..• OPt. i (•' !'"1 :.. 1570 TAGOFF•CLS•SPEED KEY 20,5 1580 PR I NT oF'ak$norm$ 1590 FOR i=2 TO 7•LOCATE 1,i•PEN 0 1630 PR I tH "< ".: : F'EtJ 1• PP I tH 1_v I tH: ; "#" ; i. - 1. ; 1610 F'EtJ 0 : PR Hff" >". ; • tJE•:e (El'/=3) " 1630 LOCATE 5. 3• PR I tH" Def in i t i on EtJV-EtH " 1640 LOCATE 5, 4• PRitH"Choi > EtH def i nie" 1650 LOCATE 5. 5• PRitH"Choi >• : HJV def i nie" 1603 LOCATE 5. 6• PRitH"A.. iout de 8r•J.i t" 1670 LOCATE 5, 7• PRitH"J'.et.ou.r Cl.3."iier" 1680 t$= I W•'. E"1'$• IF 1.$="" TH Et 16:3 J. 690t.='/AL 1700 ONt. GOTO 1730.. 1870, 2850, 3080,3120, 171 3 GOTO 16f:O 1720 " 1730 CHOI X DUREE CENV=0) 1740 1750 CL' ; •LOCATE 1,2•PEtJ 3•PPitH"Nou."iel le du.ree• " : PRHff"-320'.'.1(.'.1.3. 32000 :. ec/103" 1760 PEtJ 0 : Pi:ItH" d<0 : d fois EtJ".i" 1770 PJ:Hff" d=0'E J"..'connectee" 178 : 1 Pl<'. I tH" d >0 : EtJV :.u.P Pr i r"1ee"•PR I tH 1790 ItPUT " "- ; du.• IF d1_1.< - ?.i:.:10i,:1 01' : d•J.>320 30 THEt-l 1 750 1800 CLS•PEN l•LOCATE 2.. 4•IF du=0 THEN P RI tJT " EtJV tJo" ne" ! ".el ect i onnee"'v en==ne" ! 1:10 IF du. 3 THEtl PR HH"'EtJ"." deconnect.e e 11 : nev=•,/en : ven=0 1830 CALL &8806•GOTO 820 1840 " 1850 MODULE ENVELOPPES 186'.'.1 1 f:70 "..•... de.: ; in g IJ.. 3.dr ill.. 9e• 18:[1 z=0, -.=3 1890 MODE l =IW (2,12•INK 3.. 16•INr 1,26•I NK 0,0•80RDER 0•PAPER 0•GOTO 2070 1900 MODE l•INK 2,12•IW 3, 16•INK 1.. 26• ! NK 0,0•80RDEP 0•PAPER 0 1910 ORIGIN 0.. 80,0.. 640, 400, 80 1920 WINDOW #0,1.. 40, 21.. 25 1930 FOR i=20 TO 320 STEP 6 1940 MOVE 40,i•DRAW 640,i,2•NEXT 1950 FOR i=40 TO 640 STEP 6 1960 MOVEi, 20•DRAWi, 400.. 2•NEXT 1970 MOVE 40,20•DRAWR 599, 0,3• DPAWR 0,29 9•DRAWR -600,0•DRAWR 0,-300 1980 FOR i=50 TO 320 STEP 60 1990 MOVE 40,i•DRAW 640.i, 3• NEXT 2000 FOR i=40 TO 640 STEP 60 2010 MOVEi., 20•DRAWi,400,3•NEXT 2020 TAG•J=56•FOR i=-20 TO 20 STEP 10 21330 MO'./E : 1.. + 63 : tJE >•:T.i• PR I tH US I tJG.:i.$, ; AB'.:/i), ; •.i =.i 2040 J=0•FOR i=12 TO 600 STEP 60 2050 MOVEi,15•PRINT J ; •J =J+10•NEXT•TAGO FF• RETURtJ 2060'... menu des enve loPPes... 2070 CLS•PEN l•PRINT•PRINT"Voulez-vous d efiniru.ne En" ! eloPPe de•" 2 3 : 30 F'PitH TAB< 15 >"<", ; •PH 3• F'PHff"T", ; • P EtJ 1• PRitH" >on" 2090 Pl':ItH TA8015•" <" ; •PEtJ 3•PRitH""l'". ; •P HJ 1 : PR I tH" >o lu.rr,e" SCIEl'ICE lit VIE Jl'llCKO 1'1° 22• l'IOVEJl'IBIIB 1985
2100 PR I tH "ou. Peveïi ir.3. 1.1. < " F'Et : : PR I tH "C".o =PEN 1 =PRHlî ")l.3.vier•.• ? " 2110 U=HHŒ'r'$ : IF t$"" THEt-l 2110 2120 t=ASC (UPPER$Ct$)) 2130 IF t=67 THEN 800 2140 IF t=84 THEN e$=et$ =ee$=tïi$ 2150 IF t =86 THEN e$=ev$=ee$=vo$ 2160 IF t< >84 AND t <>86 THEN 2110 2170 PHI 3=PRINT=PRit.ff "tlo de l'Eïivel-:•PPe de "ee$" (1 -15) ". I tIPUT n : IF ïi (1 OF.'. ï1 > 15 THEN CLS=GOTO 2170 2180 IF Ce$=ev$ AND ev(n))0R(e$=et$ AND et< ïi)) THHI 2200 2190 GOSUB 1900=GOTO 2260 2200 PRHH b$'FHI 1 : PPHH"Etr./ELOPPE DE._IA C•EFitlIE ! !'" =PPitH=PEt 3=PPitH"Confirr•1e z-\1ou.:=.l.:i. redefinit.ii:1n. ; 2210 HIPUT U : IF UPPEP$ (t$) (>"O" THHI 21 7i3 2220 IF e$=ev$ THEN FOP i=l TO 5=nv(n,i) =0=hv(ïi,i)=0=lv(ïi,i)=0=NEXT=ev(ïi)=0 2230 IF e$=et$ THEN FOR i=1 TO 5 =nt(ïi,i) =0=ht(ïi,i)=0= l tCn.i)=0= NEXT =et(ïi)=0 22 41_1 GOTO 2190 2250)... scrutation des touches... 2260 CLS=PEN 3 =LOCATE 11, 3=PPINT e$.o =PEN 1'PF.:HlT n : LOCATE 22. 3 : PEtl 3 : P1".HIT"secti on" : PEtI 1 : MOO..iE 40, 1 713 2270t.$= HWE\'$ : IF U=" " THEt-l 2270 2280 LOCATE 29.3=PRINTs.o : t=ASC5 ORt.=92 OR t =47 THEN 2660 2300 IF t=224 THENt.=244 2310 IF t<240 OPt.>244 THEN 2270 2320 ON t-239 GOTO 2350,2410, 2470, 2520,2 230 GOTOt.270 2340...h.3.'-'.t... 2350 IF\'POS>307 THEN PRINT b$.o =GOTO ":•:7L.o : 1 2360 IF s>5 THEN 2660 2370 te=TESTRC2,0)=MOVER - 2,0 =DRAWR -6tl stz,0,te=IF hs<0 THEN tn=TESTRC0, - 2) =MOV EF 0, 2 EU: ; E tn=l 2380 hs=hs+l=DPAWR 0.. 6.. tn=DRAWR 6tls, 0,1 2390 z=l=GOTO 2270 2400'... l: ;o.3.s 2410 IF\'POS<33 THEN PPINT b$_ ; =GOTO 2270 2420 IF s >5 THEN 2660 2430 te=TESTRC2,0) : MOVEP -2,0 =DRAWP -6tl stz,0,te =IF hs>0 THEN tn=TESTP(0,2>=MOVE P ('.1, -2 ELEt.n=l 2440 hs=hs-l =DPAWP 0, -6,tn=DPAWR 6tls, 0, 1 2450 z=l=GOTO 2270 2460 J• 9auche.. 2470 IF XPOS< 41 ORls632 THEN PPINT bS ; =GOTO 227 0 2530 IF s >5 THEN 2660 2540ls.= l :.+ 1 255 13 DPAllR 6, (1, 1 2560 z=l=GOTO 2270 257i ; 1'• 1:c•P'. ! • 2580 IF z=0 THEN 2270 2590 SOUND 7,50,20.. 12.0.. 0,1 2600 IF hs=hs o AND l s=lso THENns=ïis+1 E LSE s=s+1=hso=hs=lso=ls=ns=1 2610 IF s>5 THEN 2660 2620 IF e$=ev$ THEN nv(n,s)=nshv(n,s)=h s=lv(n,s)=ls=GOTO 2640 2630nt.Cn, s)=ns =ht.Cn.s)=hs= lt.(n,s)=ls 2640 hs=O=z=0 =GOTO 2270 265:1'•. enveloPPe definie. SClt:l"ICt : lt Vif : MICRO 1"1° 22• l"IOVEMBIŒ 1985 2660 CLPPitH b$. : "EnveloPPe de "ee$" : ".) 2670 PRnne$" " -', PPnnus HJG.3.s.. n 26:31:1 PHl 3 : Pr. I tH :'.TRI tlG$ (15+LHV eeS), "_") : PEtl 1 2690 FOP J=1 TO 5=LOCATE 23+L ENCee$),J 2700 IF eS=et.S THEN 2740 2710 PPINT USING c$.onv(n,J)PRI NT USING c$.o hv(n,J)_ ; =PRINT USING cS.olv(n,J)_ ; 2720 IF lv(n,J)=0 THEN lv(ïi,J)=1 27:0 GOTO 2760 2740 PPINT USING c$.ont.Cn,J) _ ; =PR I NT USI NG c$.:ht(n,.i). ; =PF.:Hn U : mG c$ ; lt.o'.n..i).o 2750 IF lt.Cn,J) =0 THEN ltCn,J)=l 2760 NE>T 2770 IF e$=ev$ THEN ev(n)=-l =ven=n =GOTO 2B00 27B0 et.(n)=-l=teïi=n 2790 ENTn,nt.(n,1), ht.(n, 1),ltCn,1),nt.Cn, 2), ht(n,2), ltCn,2),nt.Cn, 3),ht.(n,3), lt.Cn, 3),ntCn.4),ht.(n,4),ltCn.. 4),ntCn,5),ht.Cn, 5), lt(n,5):GOTO 2B10 2800 ENVn.. nv(ïi, 1),hvCn.1),lv(n,1),nv(n, 2).• h'•/<'fi.• 2). l\,'(n.. 2).. nv(n.. 3).. h•./(n.• 3).• l v(n.• : 3)'ri..•(n.• 4 > 5). l•./(n.. 5).•h... in.• 4).• 1..- (ri.. 4 >.• nv(n.• 5).• hv (r1) 2E : 10 PEtl 1 : t.$= I tfŒ'r'S : IF U=" ". THEtl 2E : 10 2820 s=0=hs=0=ls=1 =hso=O=lso=0 =ns=l : z=0 28:30 GOTO 207(1 2840'2:50 ; 2:60'CHO !) < EtH ANALYSE DU PROGRAMME Lignes 150450 : initialisation.../... 4 70 760 : présentation (partie facultative) 780 1710 : module clavier musical 820870 : définition de la vitesse de répétition des touches en fonction de la durée de la note. Evite le hachage des ENV longues. 900960 : affectation d'une note à chacune des 24 touches supérieures du clavier, par calcul. 970 1120 : scrutation des touches du clavier musical. 1130 1410 : dessin du clavier musical. 1420 1520 : affectation des coordonnées de la note affichée en fonction de la touche appuyée. 1530 1550 : affichage de la fenêtre 1560 1710 : menu accessible par les deux barres obliques 1730 1830 : choix de la durée 18502830 : modèle de définition d'enveloppes 19002050 : dessin du quadrillage 20602240 : menu des enveloppes 22502320 : scrutation des touches 234-02390 : touche Haut 24002450 : touche Bas 24602500 : touche Gauche 25102560 : touche Droite 25702640 : touche COPY 26502830 : stockage des variables. Affichage des paramètres définis et affectation à ENV ou ENT (création d'enveloppe) 28503060 : choix d'une ENT panni celles définies 29703060 : visualisation de l'ENT ou de l'ENV choisie, si elle est définie. 30803100 : choix d'une ENV panni celles définies 31203370 : ajout de bruit 31403230 : menu (note seule, bruit seul. note + bruit) 33603370 : affectation d'une période de bruit en fonction de la touche appuyée. 33903430 : détecte l'entrée d'une durée hors-limites. 105



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


SVM numéro 22 novembre 1985 Page 1SVM numéro 22 novembre 1985 Page 2-3SVM numéro 22 novembre 1985 Page 4-5SVM numéro 22 novembre 1985 Page 6-7SVM numéro 22 novembre 1985 Page 8-9SVM numéro 22 novembre 1985 Page 10-11SVM numéro 22 novembre 1985 Page 12-13SVM numéro 22 novembre 1985 Page 14-15SVM numéro 22 novembre 1985 Page 16-17SVM numéro 22 novembre 1985 Page 18-19SVM numéro 22 novembre 1985 Page 20-21SVM numéro 22 novembre 1985 Page 22-23SVM numéro 22 novembre 1985 Page 24-25SVM numéro 22 novembre 1985 Page 26-27SVM numéro 22 novembre 1985 Page 28-29SVM numéro 22 novembre 1985 Page 30-31SVM numéro 22 novembre 1985 Page 32-33SVM numéro 22 novembre 1985 Page 34-35SVM numéro 22 novembre 1985 Page 36-37SVM numéro 22 novembre 1985 Page 38-39SVM numéro 22 novembre 1985 Page 40-41SVM numéro 22 novembre 1985 Page 42-43SVM numéro 22 novembre 1985 Page 44-45SVM numéro 22 novembre 1985 Page 46-47SVM numéro 22 novembre 1985 Page 48-49SVM numéro 22 novembre 1985 Page 50-51SVM numéro 22 novembre 1985 Page 52-53SVM numéro 22 novembre 1985 Page 54-55SVM numéro 22 novembre 1985 Page 56-57SVM numéro 22 novembre 1985 Page 58-59SVM numéro 22 novembre 1985 Page 60-61SVM numéro 22 novembre 1985 Page 62-63SVM numéro 22 novembre 1985 Page 64-65SVM numéro 22 novembre 1985 Page 66-67SVM numéro 22 novembre 1985 Page 68-69SVM numéro 22 novembre 1985 Page 70-71SVM numéro 22 novembre 1985 Page 72-73SVM numéro 22 novembre 1985 Page 74-75SVM numéro 22 novembre 1985 Page 76-77SVM numéro 22 novembre 1985 Page 78-79SVM numéro 22 novembre 1985 Page 80-81SVM numéro 22 novembre 1985 Page 82-83SVM numéro 22 novembre 1985 Page 84-85SVM numéro 22 novembre 1985 Page 86-87SVM numéro 22 novembre 1985 Page 88-89SVM numéro 22 novembre 1985 Page 90-91SVM numéro 22 novembre 1985 Page 92-93SVM numéro 22 novembre 1985 Page 94-95SVM numéro 22 novembre 1985 Page 96-97SVM numéro 22 novembre 1985 Page 98-99SVM numéro 22 novembre 1985 Page 100-101SVM numéro 22 novembre 1985 Page 102-103SVM numéro 22 novembre 1985 Page 104-105SVM numéro 22 novembre 1985 Page 106-107SVM numéro 22 novembre 1985 Page 108-109SVM numéro 22 novembre 1985 Page 110-111SVM numéro 22 novembre 1985 Page 112-113SVM numéro 22 novembre 1985 Page 114-115SVM numéro 22 novembre 1985 Page 116-117SVM numéro 22 novembre 1985 Page 118-119SVM numéro 22 novembre 1985 Page 120-121SVM numéro 22 novembre 1985 Page 122-123SVM numéro 22 novembre 1985 Page 124-125SVM numéro 22 novembre 1985 Page 126-127SVM numéro 22 novembre 1985 Page 128-129SVM numéro 22 novembre 1985 Page 130-131SVM numéro 22 novembre 1985 Page 132-133SVM numéro 22 novembre 1985 Page 134-135SVM numéro 22 novembre 1985 Page 136-137SVM numéro 22 novembre 1985 Page 138-139SVM numéro 22 novembre 1985 Page 140-141SVM numéro 22 novembre 1985 Page 142-143SVM numéro 22 novembre 1985 Page 144-145SVM numéro 22 novembre 1985 Page 146-147SVM numéro 22 novembre 1985 Page 148-149SVM numéro 22 novembre 1985 Page 150-151SVM numéro 22 novembre 1985 Page 152-153SVM numéro 22 novembre 1985 Page 154-155SVM numéro 22 novembre 1985 Page 156-157SVM numéro 22 novembre 1985 Page 158-159SVM numéro 22 novembre 1985 Page 160-161SVM numéro 22 novembre 1985 Page 162-163SVM numéro 22 novembre 1985 Page 164-165SVM numéro 22 novembre 1985 Page 166-167SVM numéro 22 novembre 1985 Page 168-169SVM numéro 22 novembre 1985 Page 170-171SVM numéro 22 novembre 1985 Page 172-173SVM numéro 22 novembre 1985 Page 174-175SVM numéro 22 novembre 1985 Page 176-177SVM numéro 22 novembre 1985 Page 178-179SVM numéro 22 novembre 1985 Page 180-181SVM numéro 22 novembre 1985 Page 182-183SVM numéro 22 novembre 1985 Page 184-185SVM numéro 22 novembre 1985 Page 186-187SVM numéro 22 novembre 1985 Page 188-189SVM numéro 22 novembre 1985 Page 190-191SVM numéro 22 novembre 1985 Page 192-193SVM numéro 22 novembre 1985 Page 194-195SVM numéro 22 novembre 1985 Page 196