LoadImage from different locations

Monkey Forums/Monkey Programming/LoadImage from different locations

Raz	(Posted 2011) [#1]

I'm wondering...

Class Animal
Field Image1:Image
Field Image2:Image
Method New()
Image1 = LoadImage("dog.png")
Image2 = LoadImage("dog.png")
End
End

If dog.png has already been loaded, does the second loadimage call load it into memory at a different location, or simply refer to the existing instance in memory?

Thanks
-Chris

Shinkiro1

(Posted 2011) [#2]

It will load it into a different memory area.

You can design your own image loading function that checks if an image is already loaded. I've posted code how to do this somewhere on the boards here (sorry, don't know where).
Basically you use a Map<path:String,image:Image>.

Raz	(Posted 2011) [#3]

Thanks Shinkiro, that's a good idea. I use the same image for lots of different things and that seems the easiest way of dealing with it :)

therevills

(Posted 2011) [#4]

Or you can just do this:

Class Animal
	Field Image1:Image
	Field Image2:Image

	Method New()
		Image1 = LoadImage("dog.png")
		Image2 = Image1
	End
End

Raz	(Posted 2011) [#5]

Hi therevills, the above was just a very simple example. I'm actually loading the same image across a few different classes so I don't want one class to rely on another.

therevills

(Posted 2011) [#6]

Ah... in that case you need a resource manager of some kind like what Shinkiro1 has suggested, we've got something similar in Diddy - either that or heaps of globals ;)

Field images:ImageManager = New ImageManager

Class ImageManager Extends StringMap<Image>
	Method Load:Image(file:String)
		Local i:Image = LoadImage(file)
		Local name:String = file.ToUpper()
		name = StripAll(name)
		Self.Set(name, i)
		Return i
	End

	Method Find:Image(name:String)
		Local i:Image = Self.Get(name)
		If i = Null Then Error("Image '" + name + "' not found in the ImageManager")
	End
End

Function StripAll$( path$ )
	Return StripDir( StripExt( path ) )
End

Function StripDir$( path$ )
	Local i:=path.FindLast( "/" )
	If i<>-1 Return path[i+1..]
	Return path
End

Function StripExt$( path$ )
	Local i:=path.FindLast( "." )
	If i<>-1 And path.Find( "/",i+1 )=-1 Return path[..i]
	Return path
End