Показать сообщение отдельно
Старый 31.03.2010, 17:50   #4
Randomize
[object Object]
 
Аватар для Randomize
 
Регистрация: 01.08.2008
Адрес: В России
Сообщений: 4,374
Написано 2,478 полезных сообщений
(для 6,866 пользователей)
Ответ: что-то страшное и непонятное

Ать.
Function LoadTiledImage:TImage(url:Object, tile_w:Int, tile_h:Int)
    
Local img:TImage = LoadImage(url)
    If 
img = Null
        RuntimeError
("<ERROR> Image '" + url.ToString() + "'")
        
End
    
EndIf
    
    
Local iw:Int = ImageWidth(img)
    
Local ih:Int = ImageHeight(img)
    
Local c:Int = (iw / tile_w) * (ih / tile_h)
    Return 
LoadAnimImage(url, tile_w, tile_h, 0, c)
EndFunction 
__________________
Retry, Abort, Ignore? █
Intel Core i7-9700 4.70 Ghz; 64Gb; Nvidia RTX 4090 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
(Offline)
 
Ответить с цитированием