Power-Programmierung/CD1.mdf/basic/library/tb/mousetb/mousecsr.def

Text File | 1993-07-29 | 5.9 KB | 300 lines

'
' MOUSECSR.DEF --> definition verschiedener Mousecursor für Grafikmodus
'
'                  Copyright (c) 1988, 89 by
'
'                        Ralf Krause
'
'                        Leuchtenberger Str. 7a
'                        D-8480 Weiden i. d. Opf.
'
DEFINT i

'
' Sanduhr
'
DIM iClock(15,1)

DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B1000000000000001
DATA &B1100000000000011
DATA &B1110000000000111
DATA &B1111000000001111
DATA &B1110000000000111
DATA &B1100000000000011
DATA &B1000000000000001
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B1111111111111111

DATA &B0000000000000000
DATA &B0111111111111110
DATA &B0110000000000110
DATA &B0011000000001100
DATA &B0001100000011000
DATA &B0000110000110000
DATA &B0000011001100000
DATA &B0001111111110000
DATA &B0000011001100000
DATA &B0000110000110000
DATA &B0001100000011000
DATA &B0011000000001100
DATA &B0110000000000110
DATA &B0111111111111110
DATA &B0000000000000000
DATA &B0000000000000000

iClockXHotSpot = 7
iClockYHotSpot = 7

FOR t = 0 TO 1
  FOR n = 0 TO 15
    READ iClock(n,t)
  NEXT n
NEXT t

'
' Pfeil
'
DIM iArrow(15,1)

DATA &B0011111111111111
DATA &B0001111111111111
DATA &B0000111111111111
DATA &B0000011111111111
DATA &B0000001111111111
DATA &B0000000111111111
DATA &B0000000011111111
DATA &B0000000001111111
DATA &B0000000000111111
DATA &B0000000000011111
DATA &B0000000011111111
DATA &B0001000011111111
DATA &B0011000011111111
DATA &B1111100001111111
DATA &B1111100001111111
DATA &B1111110000111111

DATA &B0000000000000000
DATA &B0100000000000000
DATA &B0110000000000000
DATA &B0111000000000000
DATA &B0111100000000000
DATA &B0111110000000000
DATA &B0111111000000000
DATA &B0111111100000000
DATA &B0111111110000000
DATA &B0111111111000000
DATA &B0111110000000000
DATA &B0100011000000000
DATA &B0000011000000000
DATA &B0000001100000000
DATA &B0000001100000000
DATA &B0000000110000000

iArrowXHotSpot = 0
iArrowYHotSpot = 0

FOR t = 0 TO 1
  FOR n = 0 TO 15
    READ iArrow(n,t)
  NEXT n
NEXT t

'
' Hand
'
DIM iHand(15,1)

DATA &B1111001111111111
DATA &B1110000111111111
DATA &B1110000111111111
DATA &B1110000111111111
DATA &B1110000111111111
DATA &B1110000000000001
DATA &B1110000000000000
DATA &B1110000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000

DATA &B0000110000000000
DATA &B0001001000000000
DATA &B0001001000000000
DATA &B0001001000000000
DATA &B0001001000000000
DATA &B0001001110110110
DATA &B0001001001001001
DATA &B0001001001001001
DATA &B0111001001001001
DATA &B1001001001001001
DATA &B1001001001001001
DATA &B1001001001001001
DATA &B1000000000000001
DATA &B1000000000000001
DATA &B1000000000000001
DATA &B1111111111111111

iHandXHotSpot = 5
iHandYHotSpot = 0

FOR t = 0 TO 1
  FOR n = 0 TO 15
    READ iHand(n,t)
  NEXT n
NEXT t

'
' Plus
'
DIM iPlus(15,1)

DATA &B1111110000111111
DATA &B1111110000111111
DATA &B1111110000111111
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B1111110000111111
DATA &B1111110000111111
DATA &B1111110000111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111

DATA &B0000000000000000
DATA &B0000000110000000
DATA &B0000000110000000
DATA &B0000000110000000
DATA &B0111111111111110
DATA &B0000000110000000
DATA &B0000000110000000
DATA &B0000000110000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000

iPlusXHotSpot = 7
iPlusYHotSpot = 4

FOR t = 0 TO 1
  FOR n = 0 TO 15
    READ iPlus(n,t)
  NEXT n
NEXT t

'
' Aufwärtspfeil
'
DIM iUpArrow(15,1)

DATA &B1111100111111111
DATA &B1111000011111111
DATA &B1110000001111111
DATA &B1110000001111111
DATA &B1100000000111111
DATA &B1100000000111111
DATA &B1000000000011111
DATA &B1000000000011111
DATA &B0000000000001111
DATA &B0000000000001111
DATA &B1111000011111111
DATA &B1111000011111111
DATA &B1111000011111111
DATA &B1111000011111111
DATA &B1111000011111111
DATA &B1111000011111111

DATA &B0000000000000000
DATA &B0000011000000000
DATA &B0000111100000000
DATA &B0000111100000000
DATA &B0001111110000000
DATA &B0001111110000000
DATA &B0011111111000000
DATA &B0011111111000000
DATA &B0111111111100000
DATA &B0000011000000000
DATA &B0000011000000000
DATA &B0000011000000000
DATA &B0000011000000000
DATA &B0000011000000000
DATA &B0000011000000000
DATA &B0000000000000000

iUpArrowXHotSpot = 5
iUpArrowYHotSpot = 0

FOR t = 0 TO 1
  FOR n = 0 TO 15
    READ iUpArrow(n,t)
  NEXT n
NEXT t

'
' kleiner Pfeil
'
DIM iSmallArrow(15,1)

DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111

DATA &B0100000000000000
DATA &B0111000000000000
DATA &B0111110000000000
DATA &B0111111100000000
DATA &B0110110000000000
DATA &B0000011000000000
DATA &B0000001100000000
DATA &B0000000110000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000

iSmallArrowXHotSpot = 0
iSmallArrowYHotSpot = 0

FOR t = 0 TO 1
  FOR n = 0 TO 15
    READ iSmallArrow(n,t)
  NEXT n
NEXT t