69 lines
3.8 KiB
Plaintext
69 lines
3.8 KiB
Plaintext
_window = 1
|
|
|
|
void local fn BuildPeriodicTableArrays
|
|
|
|
CFArrayRef periodicArr = @[@"",¬
|
|
@"H", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"He",¬
|
|
@"Li", @"Be", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"B", @"C", @"N", @"O", @"F", @"Ne",¬
|
|
@"Na", @"Mg", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"", @"Al", @"Si", @"P", @"S", @"Cl", @"Ar",¬
|
|
@"K", @"Ca", @"Sc", @"Ti", @"V", @"Cr", @"Mn", @"Fe", @"Co", @"Ni", @"Cu", @"Zn", @"Ga", @"Ge", @"As", @"Se", @"Br", @"Kr",¬
|
|
@"Rb", @"Sr", @"Y", @"Zr", @"Nb", @"Mo", @"Tc", @"Ru", @"Rh", @"Pd", @"Ag", @"Cd", @"In", @"Sn", @"Sb", @"Te", @"I", @"Xe",¬
|
|
@"Cs", @"Ba", @"Lu", @"Hf", @"Ta", @"W", @"Re", @"Os", @"Ir", @"Pt", @"Au", @"Hg", @"Tl", @"Pb", @"Bi", @"Po", @"At", @"Rn",¬
|
|
@"Fr", @"Ra", @"Lr", @"Rf", @"Db", @"Sg", @"Bh", @"Hs", @"Mt", @"Ds", @"Rg", @"Cn", @"Nh", @"Fl", @"Mc", @"Lv", @"Ts", @"Og",¬
|
|
@"", @"", @"La", @"Ce", @"Pr", @"Nd", @"Pm", @"Sm", @"Eu", @"Gd", @"Tb", @"Dy", @"Ho", @"Er", @"Tm", @"Yb", @"", @"",¬
|
|
@"", @"", @"Ac", @"Th", @"Pa", @"U", @"NP", @"Pu", @"Am", @"Cm", @"Bk", @"Cf", @"Es", @"Fm", @"Md", @"No", @"", @""]
|
|
AppSetProperty( @"periodicTable", periodicArr )
|
|
|
|
CFArrayRef numbersArr = @[@"",¬
|
|
@"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", @"71", @"72", @"73", @"74", @"75", @"76", @"77", @"78", @"79", @"80", @"81", @"82", @"83", @"84", @"85", @"86",¬
|
|
@"87", @"88", @"103", @"104", @"105", @"106", @"107", @"108", @"109", @"110", @"111", @"112", @"113", @"114", @"114", @"116", @"117", @"118",¬
|
|
@"", @"", @"57", @"58", @"59", @"60", @"61", @"62", @"63", @"64", @"65", @"66", @"67", @"68", @"59", @"70", @"", @"",¬
|
|
@"", @"", @"89", @"90", @"91", @"92", @"93", @"94", @"95", @"96", @"97", @"98", @"99", @"100", @"101", @"102", @"", @""]
|
|
AppSetProperty( @"periodicNumbers", numbersArr )
|
|
end fn
|
|
|
|
void local fn BuildWindow
|
|
NSInteger i, j, row
|
|
CGRect r
|
|
CFArrayRef periodicArr, numbersArr
|
|
CFStringRef tempStr
|
|
|
|
periodicArr = fn AppProperty( @"periodicTable" )
|
|
numbersArr = fn AppProperty( @"periodicNumbers" )
|
|
|
|
window _window, @"Periodic Table", ( 0, 0, 700, 400 )
|
|
WindowSetBackgroundColor( _window, fn ColorWhite )
|
|
|
|
j = 0 : row = 350
|
|
r = fn CGRectMake( 10, row, 36, 40 )
|
|
for i = 1 to 162
|
|
if fn StringIsEqual( periodicArr[i], @"" ) then tempStr = @"" else tempStr = fn StringWithFormat( @"%@\n%@", numbersArr[i], periodicArr[i] )
|
|
textfield i,, tempStr, r, _window
|
|
TextFieldSetBackgroundColor( i, fn ColorBlue )
|
|
TextFieldSetTextColor( i, fn ColorWhite )
|
|
ControlSetFontWithName( i, @"Menlo", 12.0 )
|
|
ControlSetAlignment(i, NSTextAlignmentCenter )
|
|
r = fn CGRectOffset( r, 38, 0 )
|
|
j++
|
|
if ( j == 18 )
|
|
row = row - 42
|
|
r = fn CGRectMake( 10, row, 36, 40 )
|
|
j = 0
|
|
end if
|
|
next
|
|
|
|
for i = 1 to 162
|
|
if fn StringIsEqual( fn ControlStringValue( i ), @"" ) then ViewRemoveFromSuperview( i )
|
|
next
|
|
end fn
|
|
|
|
fn BuildPeriodicTableArrays
|
|
fn BuildWindow
|
|
|
|
HandleEvents
|