Subversion Repositories Kolibri OS

Rev

Rev 6647 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6647 Rev 7597
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2016 Anton Krotov
 2 
    Copyright 2016, 2018 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
4 
    This program is free software: you can redistribute it and/or modify
 4 
    This program is free software: you can redistribute it and/or modify
5 
    it under the terms of the GNU Lesser General Public License as published by
 5 
    it under the terms of the GNU Lesser General Public License as published by
6 
    the Free Software Foundation, either version 3 of the License, or
 6 
    the Free Software Foundation, either version 3 of the License, or
Line 49... Line 49...
49 
  TFont* = POINTER TO TFont_desc;
 49 
  TFont* = POINTER TO TFont_desc;
Line 50... Line 50...
50 
 
 50 
 
51 
 
 51 
 
52 
PROCEDURE [stdcall] zeromem(size, adr: INTEGER);
 52 
PROCEDURE [stdcall] zeromem(size, adr: INTEGER);
53 
BEGIN
 53 
BEGIN
Line 54... Line 54...
54 
  sys.CODE("578B7D0C8B4D0833C09CFCF3AB9D5F")
 54 
  sys.CODE(057H, 08BH, 07DH, 00CH, 08BH, 04DH, 008H, 033H, 0C0H, 09CH, 0FCH, 0F3H, 0ABH, 09DH, 05FH)
55 
END zeromem;
 55 
END zeromem;
56 
 
 56 
 
Line 95... Line 95...
95 
PROCEDURE rgb(r, g, b: INTEGER): INTEGER;
 95 
PROCEDURE rgb(r, g, b: INTEGER): INTEGER;
96 
  RETURN b + LSL(g, 8) + LSL(r, 16)
 96 
  RETURN b + LSL(g, 8) + LSL(r, 16)
97 
END rgb;
 97 
END rgb;
Line 98... Line 98...
98 
 
 98 
 
99 
PROCEDURE create_glyph(VAR Font: TFont_desc; VAR glyph: Glyph; xsize, ysize: INTEGER);
 - 
 
100 
VAR res: INTEGER;
 99 
PROCEDURE create_glyph(VAR Font: TFont_desc; VAR glyph: Glyph; xsize, ysize: INTEGER);
101 
BEGIN
 100 
BEGIN
102 
  glyph.base := Font.mempos;
 101 
  glyph.base := Font.mempos;
103 
  glyph.xsize := xsize;
 102 
  glyph.xsize := xsize;
104 
  glyph.ysize := ysize;
 103 
  glyph.ysize := ysize;