summaryrefslogtreecommitdiff
path: root/windows/autohotkey/Source/Keys-Numbers.ahk
blob: 4f47afbaef79a9d60dc517c570e3dd4a748df4dc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
neo_0:
  noCaps = 1
  EbeneAktualisieren()
  if Ebene12 and !(CheckDeadUni("c1",0x2070) ; Hochgestellte 0
                or CheckDeadUni("a3",0x2080)) ; Tiefgestellte 0 
    OutputChar12(0,"”",0,"rightdoublequotemark")
   else if (Ebene = 3)
     OutputChar("’", "rightsingleqoutemark")
   else if (Ebene = 4)
     OutputChar("{NumpadSub}", "KP_Minus")
   else if (Ebene = 5)
     SendUnicodeChar(0x2080, "U2080")
   else if (Ebene = 6)
     SendUnicodeChar(0x2205, "emptyset") ; leere Menge
return

neo_1:
  noCaps=1
  EbeneAktualisieren()
  if Ebene12 and !(CheckDeadUni("c1",0x00B9) ; Hochgestellte 1
                or CheckDeadUni("a3",0x2081)) ; Tiefgestellte 1
    OutputChar12(1,"°",1,"degree")
  else if (Ebene = 3)
    OutputChar("¹", "onesuperior") ; Hochgestellte 1
  else if (Ebene = 4)
    OutputChar("º", "U00BA") ; männlicher Ordinalindikator (º)
  else if (Ebene = 5)
    SendUnicodeChar(0x2081, "U2081") ; Tiefgestellte 1
  else if (Ebene = 6)
    OutputChar("¬", "notsign") ; Nicht-Symbol
return

neo_2:
  noCaps = 1
  EbeneAktualisieren()
  if Ebene12 and !(CheckDeadUni("c1",0x00B2) ; Hochgestellte 2
                or CheckDeadUni("a3",0x2082)) ; Tiefgestellte 2
    OutputChar12(2,"§",2,"section")
  else if (Ebene = 3)
    OutputChar("²", "twosuperior") ; Hochgestellte 2
  else if (Ebene = 4)
    OutputChar("ª", "U00AA") ; weiblicher Ordinalindikator (ª)
  else if (Ebene = 5)
    SendUnicodeChar(0x2082, "U2082") ; Tiefgestellte 2
  else if (Ebene = 6)
    SendUnicodeChar(0x2228, "logicalor") ; Logisches Oder
return

neo_3:
  noCaps = 1
  EbeneAktualisieren()
  if (Ebene = 1) and !(CheckDeadUni("c1",0x00B3) ; Hochgestellte 3
                    or CheckDeadUni("a3",0x2083)) ; Tiefgestellte 3
    OutputChar(3,3)
  else if (Ebene = 2)
    SendUnicodeChar(0x2113, "U2113") ; kleines l (Skript)
  else if (Ebene = 3)
    OutputChar("³", "threesuperior") ; Hochgestellte 3
  else if (Ebene = 4)
    SendUnicodeChar(0x2116, "numerosign") ; Numero
  else if (Ebene = 5)
    SendUnicodeChar(0x2083, "U2083") ; Tiefgestellte 3
  else if (Ebene = 6)
    SendUnicodeChar(0x2227, "logicaland") ; Logisches Und
return

neo_4:
  noCaps = 1
  EbeneAktualisieren()
  if (Ebene = 1) and !(CheckDeadUni("c1",0x2074) ; Hochgestellte 4
                    or CheckDeadUni("a3",0x2084)) ; Tiefgestellte 4
    OutputChar(4,4)
  else if (Ebene = 2)
    OutputChar("»", "guillemotright")
  else if (Ebene = 3)
    OutputChar("›", "U230A") ; Single guillemot right
  else if (Ebene = 4)
    OutputChar("{PgUp}", "Prior") ; Bild auf
  else if (Ebene = 5)
    OutputChar("†", "dagger") ; Kreuz
  else if (Ebene = 6)
    SendUnicodeChar(0x22A5, "uptack") ; Senkrecht
return

neo_5:
  noCaps = 1
  EbeneAktualisieren()
  if (Ebene = 1) and !(CheckDeadUni("c1",0x2075) ; Hochgestellte 5
                    or CheckDeadUni("a3",0x2085)) ; Tiefgestellte 5
    OutputChar(5,5)
  else if (Ebene = 2)
    OutputChar("«", "guillemotleft") ; Double guillemot left
  else if (Ebene = 3)
    OutputChar("‹", "U2039") ; Single guillemot left
  else if (Ebene = 5)
    SendUnicodeChar(0x2640, "femalesymbol")
  else if (Ebene = 6)
    SendUnicodeChar(0x2221, "U2221") ; Winkel
return

neo_6:
  noCaps = 1
  EbeneAktualisieren()
  if (Ebene = 1) and !(CheckDeadUni("c1",0x2076) ; Hochgestellte 6
                    or CheckDeadUni("a3",0x2086)) ; Tiefgestellte 6
    OutputChar(6,6)
  else if (Ebene = 2)
    SendUnicodeChar(0x20AC, "EuroSign")
  else if (Ebene = 3)
    OutputChar("¢", "cent")
  else if (Ebene = 4)
    OutputChar("£", "sterling")
  else if (Ebene = 5)
    SendUnicodeChar(0x2642, "malesymbol")
  else if (Ebene = 6)
    SendUnicodeChar(0x2225, "U2225") ; parallel
return

neo_7:
  noCaps = 1
  EbeneAktualisieren()
  if Ebene12 and !(CheckDeadUni("c1",0x2077) ; Hochgestellte 7
                or CheckDeadUni("a3",0x2087)) ; Tiefgestellte 7
    OutputChar12(7,"$",7,"dollar")
  else if (Ebene = 3)
    OutputChar("¥", "yen")
  else if (Ebene = 4)
    OutputChar("¤", "currency")
  else if (Ebene = 5)
    SendUnicodeChar(0x03BA, "Greek_kappa") ; greek small letter kappa
  else if (Ebene = 6)
    SendUnicodeChar(0x2192, "rightarrow") ; Rechtspfeil
return

neo_8:
  noCaps = 1
  EbeneAktualisieren()
  if Ebene12 and !(CheckDeadUni("c1",0x2078) ; Hochgestellte 8
                or CheckDeadUni("a3",0x2088)) ; Tiefgestellte 8
    OutputChar12(8,"„",8,"doublelowquotemark")
  else if (Ebene = 3)
    OutputChar("‚", "singlelowquotemark")
  else if (Ebene = 4)
    OutputChar("{NumpadDiv}", "KP_Divide")
  else if (Ebene = 5)
    SendUnicodeChar(0x27E8, "U27E8") ; bra (öffnende spitze Klammer)
  else if (Ebene = 6)
    SendUnicodeChar(0x221E, "infinity")
return

neo_9:
  noCaps = 1
  EbeneAktualisieren()
  if Ebene12 and !(CheckDeadUni("c1",0x2079) ; Hochgestellte 9
                or CheckDeadUni("a3",0x2089)) ; Tiefgestellte 9
    OutputChar12(9,"“",9,"leftdoublequotemark")
  else if (Ebene = 3)
    OutputChar("‘", "leftsinglequotemark")
  else if (Ebene = 4)
    OutputChar("{NumpadMult}", "KP_Multiply")
  else if (Ebene = 5)
    SendUnicodeChar(0x27E9, "U27E9") ; ket (schließende spitze Klammer)
  else if (Ebene = 6)
    SendUnicodeChar(0x2226, "U2226") ; nicht parallel
return