I have created a list of black key numbers:
Code: Select all
// draw selected key
$blck = new(36)
clean($blck)
$blck[0]=2
$blck[1]=5
$blck[2]=7
$blck[3]=10
$blck[4]=12
$blck[5]=14
$blck[6]=17
$blck[7]=19
$blck[8]=22
$blck[9]=24
$blck[10]=26
$blck[11]=29
$blck[12]=31
$blck[13]=34
$blck[14]=36
$blck[15]=38
$blck[16]=41
$blck[17]=43
$blck[18]=46
$blck[19]=48
$blck[20]=50
$blck[21]=53
$blck[22]=55
$blck[23]=58
$blck[24]=60
$blck[25]=62
$blck[26]=65
$blck[27]=67
$blck[28]=69
$blck[29]=71
$blck[30]=73
$blck[31]=76
$blck[32]=78
$blck[33]=81
$blck[34]=84
$blck[35]=86
Code: Select all
if x in $blck:
# do something