· Text 7359 · w8 · inlagg
Om någon med 806-a och färgskärm är nyfiken på hur de omtalade mix-
färgerna ser ut, så kan han köra nedanstående program. Man kan själv
ta fram alla de 56 mixfärger, där v-färg <> h-färg. De 'rena' färgerna
ligger för jämförelse också i bild. Programmet arbetar med 256*240-
grafik.
Om man studerar principerna (raderna 20,30,70,100), så kan man lätt
själv i sina program använda mixfärger. Varför inte söka rätt på en
bra hudfärg, så att inte Linda i LINDA.PIC behöver se ut som om hon
led av gulsot.
Dumpa inlägget till fil, ladda senare in det till ted och radera ut
allt utom programmet. Spara det sedan som MIXFÄRG.BAS. Det kan köras
direkt.
10 INTEGER : EXTEND : ; CHR¤(12);
20 FGCTL BLK+BLK+RED+GRN+YEL+BLU+MAG+CYA+WHT ! 256*240-mode
30 FGPOINT 0,0 : FGFILL 255,239,1 ! Fyll grafikskärmen med färgval 1
40 ; CUR(0,0) "Program för att demonstrera mixfärger.";
50 DATA Svart,Rött,Grönt,Gult,Blått,Magenta,Cyan,Vitt
60 FOR I=0 TO 7 : READ F¤(I) : ; CUR(14+I,70) I F¤(I) : NEXT I
70 F1=2 : F2=6 ! Vi inleder med mixfärg Grönt+Cyan
80 ! ------------------------------------------------------
90 !
100 ON ERROR GOTO : OUT 7,F1*16+F2
110 FOR I=0 TO 8
120 FGPOINT I*25+10,225,I : FGFILL (I+1)*25+10,130,I
130 NEXT I
140 ; CUR(12,0) " Mixfärg:";
150 FOR I=1 TO 7 : ; TAB(13+8*I) F¤(I); : NEXT I
160 ; CUR(15,0) "Avbryt med godtycklig Pf-tangent!"
170 ; CUR(13,1) F¤(F1)+"+"+F¤(F2)+" "
180 ; CUR(17,0) SPACE¤(65) CUR(17,0); : ON ERROR GOTO 220
190 ; "Ange (med siffror och komma emellan) två önskade mixfärger: ";
200 INPUT ""F1,F2
210 IF F1>7 OR F2>7 GOTO 180 ELSE GOTO 100
220 IF ERRCODE<>53 GOTO 180
Mvh Lars