/[projet1]/public/atari/tools/rembrandt/DIVERS/ICONES.LST
Defence Force logotype

Contents of /public/atari/tools/rembrandt/DIVERS/ICONES.LST

Parent Directory Parent Directory | Revision Log Revision Log


Revision 67 - (show annotations)
Sat Apr 25 18:10:46 2009 UTC (10 years, 7 months ago) by dbug
File size: 2095 byte(s)
Added Rembrandt and Forgotten Bits
1 INLINE ptst%,60
2 '
3 ' D‚coupage des icones (18x18) en 256 couleurs. [Dessin‚es avec DELMPAINT !]
4 '
5 ' ½ 1993 Dbug II
6 '
7 ' VERTICAL = 256
8 ' MODE_ST = 128
9 ' OVERSCAN = 64
10 ' PAL = 32 NTSC = 0
11 ' VGA = 16 RVB = 0
12 ' L_640 = 8 L_320 = 0
13 ' C_65536 = 4
14 ' C_256 = 3
15 ' C_16 = 2
16 ' C_4 = 1
17 ' C_2 = 0
18 '
19 RESERVE 100000
20 '
21 frez=XBIOS(88,-1)
22 xb%=XBIOS(2)
23 '
24 fmode=3+32
25 ecran%=MALLOC(64000)
26 IF ecran%<=0
27 ALERT 1,"Plus de m‚moire!",1,"Gasp",rep&
28 EDIT
29 ENDIF
30 ON BREAK GOSUB fin
31 ON ERROR GOSUB fin
32 '
33 ~XBIOS(5,L:ecran%,L:ecran%,3,fmode)
34 OPEN "i",#1,"E:\PROJETS\REMBRAND\divers\icones.pi9"
35 c$=SPACE$(4096)
36 palette%=V:c$
37 BGET #1,palette%,1024
38 FOR i=0 TO 255
39 SLPOKE ADD(&HFFFF9800,i*4),LONG{ADD(palette%,i*4)}
40 NEXT i
41 BGET #1,ecran%,64000
42 CLOSE
43 '
44 RESTORE
45 '
46 FOR colonne&=0 TO 13
47 FOR ligne&=0 TO 8
48 READ n$
49 EXIT IF n$="*"
50 OPEN "o",#1,"E:\PROJETS\REMBRAND\FICHIERS.INC\ICONES\"+n$+".ICN"
51 OUT& #1,18
52 OUT& #1,18
53 col&=colonne&*22
54 lig&=ligne&*22
55 BOX col&,lig&,col&+22,lig&+22
56 FOR y&=0 TO 17
57 FOR x&=0 TO 0 !17
58 adr_col%=ADD(palette%,C:ptst%(L:ecran%,W:ADD(2,ADD(lig&,y&)),W:ADD(2,ADD(col&,x&)))*4)
59 r&=SHR(BYTE{adr_col%},3)
60 v&=SHR(BYTE{SUCC(adr_col%)},2)
61 b&=SHR(BYTE{ADD(adr_col%,3)},3)
62 OUT& #1,SHL(r&,11) OR SHL(v&,5) OR SHL(b&,0)
63 ' PRINT AT(1,20);colonne&;"-";r&;" ";v&;" ";b&;" "
64 ' ~INP(2)
65 NEXT x&
66 NEXT y&
67 CLOSE
68 NEXT ligne&
69 EXIT IF n$="**"
70 NEXT colonne&
71 '
72 fin
73 '
74 > PROCEDURE fin
75 ~XBIOS(5,L:xb%,L:xb%,3,frez)
76 ~MFREE(ecran%)
77 EDIT
78 RETURN
79 '
80 DATA "crayon ","*"
81 DATA "regle ","ligne ","kligne ","rayon ","*"
82 DATA "gomme ","gfine ","gmoyenne","*"
83 DATA "peinture","*"
84 DATA "fleche ","90gauche","90droite","hflip ","vflip ","*"
85 DATA "compas ","cercle ","disque ","*"
86 DATA "effet ","gris ","*"
87 DATA "equerre ","carre ","boite ","*"
88 DATA "aerosol ","spray_1 ","spray_2 ","*"
89 DATA "pacman ","paneau ","*"
90 DATA "**"

  ViewVC Help
Powered by ViewVC 1.1.26