Ответ: объект сменяющий свою глубину(задний/передний фон)
Type sprite Field order:Int Method Compare:Int(otherObject:Object) s:sprite = sprite(otherObject) If Not s Then Return 1 Return order - s.order End Method End Type ' ---------------------------- SeedRnd(MilliSecs()) Local sprite_list:TList = New TList For Local i:Int=1 To 100 s:sprite = New sprite s.order = Rand(100) ListAddLast sprite_list, s Next SortList(sprite_list) For Local s:Int = EachIn sprite_list Print s.order Next
__________________
Retry, Abort, Ignore? █
Intel Core i7-9700 4.70 Ghz; 64Gb; Nvidia RTX 3070
AMD Ryzen 7 3800X 4.3Ghz; 64Gb; Nvidia 1070Ti
AMD Ryzen 7 1700X 3.4Ghz; 8Gb; AMD RX 570
AMD Athlon II 2.6Ghz; 8Gb; Nvidia GTX 750 Ti
|