create a Type of that functionality

BlitzMax Forums/BlitzMax Beginners Area/create a Type of that functionality

Dezzo (Posted 2012) [#1]

Hi, i try to make Roundedrectangle Class which draws the Rectangle according to its parameters. SuperStrict Type rect Field x:Int Field y:Int Field width:Int Field height:Int Field radius:Int Field image:Timage Function Create:rect(xp:Int,yp:Int,wid:Int,heit:Int,rad:Int) Local myRect:rect = New rect myRect.x = xp myRect.y = yp myRect.width = wid myRect.height = heit myRect.radius = rad Cls myRect.image:Timage=CreateImage(wid,heit,1,DYNAMICIMAGE|MASKEDIMAGE) myRect.grabrect() GrabImage myRect.image,xp,yp Cls Return myRect End Function Method grabRect() DrawOval(x, y, radius, radius) DrawOval(x + (width - (radius)), y, radius, radius) DrawOval(x, y + (height - (radius)), radius, radius) DrawOval(x + (width - (radius)), y + (height - (radius)), radius, radius) DrawRect(x + (radius / 2), y, width - radius, height) DrawRect(x, y + (radius / 2), width, height - radius) End Method Method draw() DrawImage image,x,y End Method Method getx:Int() Return x End Method Method getY:Int() Return y End Method Method getWidth:Int() Return width End Method Method getHeight:Int() Return height End Method Method getRadius:Int() Return radius End Method Method setImg(img:Timage) image = img End Method Method setCoord(cx:Int,cy:Int) x = cx y = cy End Method End Type Graphics 800,600 AutoMidHandle(True) SetBlend ALPHABLEND Local obj:rect = rect.Create(200,200,200,100,4) Repeat SetColor 255,255,255 Local x:Int = MouseX() If MouseDown(1) obj.setCoord(x,200) EndIf SetAlpha 0.5 obj.draw() Flip;Cls Until KeyHit(KEY_ESCAPE) Or AppTerminate() End I´m not shure if it´s efficient the way to make a snapshot of the Picture inside of the Create Function ? I also look for a Method to tell the Object to resize itself. Something like: "If Keydown then height = newValue, width = newValue " redraw Object. Any Idea how to achieve that one ? When i try to create a new Method just for that i would replicate some code which is already written....... I´m struggling a bit here...... Thx, D

col (Posted 2012) [#2]

Hiya, GrabImage is incredibly inefficient, but if used during the creation of objects/graphics and kept out of the mainloop then its not usually a problem. I personally only use Methods in a Type due to a Function being outside of the scope of that Type, but its entirely your personal preference ( there are easy ways of using a Method only approach to keep your exact same code structure ). Anyway, this is one approach to 'Resize'.... SuperStrict Type rect Field x:Int Field y:Int Field width:Int Field height:Int Field radius:Int Field image:TImage Function Create:rect(xp:Int,yp:Int,wid:Int,heit:Int,rad:Int) Local myRect:rect = New rect myRect.x = xp myRect.y = yp myRect.width = wid myRect.height = heit myRect.radius = rad myRect.CreateRect Return myRect EndFunction Method Resize(wid:Int,heit:Int) If width >= radius * 2 width :+ wid Else width = radius * 2 EndIf If height >= radius * 2 height :+ heit Else height = radius * 2 EndIf image=Null CreateRect EndMethod Method CreateRect() image:TImage=CreateImage(width,height,1,DYNAMICIMAGE|MASKEDIMAGE) Cls SetAlpha 1 DrawOval(x, y, radius, radius) DrawOval(x + (width - (radius)), y, radius, radius) DrawOval(x, y + (height - (radius)), radius, radius) DrawOval(x + (width - (radius)), y + (height - (radius)), radius, radius) DrawRect(x + (radius / 2), y, width - radius, height) DrawRect(x, y + (radius / 2), width, height - radius) GrabImage image,x,y Cls End Method Method draw() DrawImage image,x,y End Method Method getx:Int() Return x End Method Method getY:Int() Return y End Method Method getWidth:Int() Return width End Method Method getHeight:Int() Return height End Method Method getRadius:Int() Return radius End Method Method setImg(img:TImage) image = img End Method Method setCoord(cx:Int,cy:Int) x = cx y = cy End Method End Type Graphics 800,600 AutoMidHandle(True) SetBlend ALPHABLEND Local obj:rect = rect.Create(200,200,200,100,4) Repeat SetColor 255,255,255 Local x:Int = MouseX() If MouseDown(1) obj.setCoord(x,200) EndIf If KeyDown(KEY_UP) obj.Resize(0,-5) If KeyDown(KEY_DOWN) obj.Resize(0,5) If KeyDown(KEY_LEFT) obj.Resize(-5,0) If KeyDown(KEY_RIGHT) obj.Resize(5,0) SetAlpha 0.5 obj.draw() Flip;Cls Until KeyHit(KEY_ESCAPE) Or AppTerminate() End

Dezzo (Posted 2012) [#3]

Hi Dave, thx fot the fast Reply ! I never used a create Method before and in that way there is no code Rep. There is so much to learn still. The Resize Method is clever, checking that it stops at the edges, increment width or height and at the same time clearing/creating the Image. Speed is not important for this one. I got it now ! Great ! Dezzo

col (Posted 2012) [#4]

Thats cool. There are always a thousand ways to do your code :D To use a Method only approach... Method Create:rect(xp:Int,yp:Int,wid:Int,heit:Int,rad:Int) x = xp y = yp width = wid height = heit radius = rad CreateRect Return Self EndMethod And then you'd use: Local obj:rect = New rect.Create(200,200,200,100,4) to create an instance of the Type. Notice using this approach that the 'New' is used at the actual point you want a new instance and not inside the Type or a Function.

Jesse (Posted 2012) [#5]

. Last edited 2012

Dezzo (Posted 2012) [#6]

Thank you for explaining ! The Method approach is also a bit clearer to me in terms of reading. Is there an example were it can get handy ? No code , just to know when to use it. Function Create vs Method Create ? D

Dezzo (Posted 2012) [#7]

One Question left: When i draw a backgroundimage i get a flickerin thru the Buffer swapping. Is there a way to get rid of ? My Method of grabing the Picture is then not useful ? D Last edited 2012

col (Posted 2012) [#8]

Using the exact code above ? If not, can you post what you have?

Dezzo (Posted 2012) [#9]

I only added a background image. SuperStrict local back:Timage = loadimage("background.png") Type rect Field x:Int Field y:Int Field width:Int Field height:Int Field radius:Int Field image:TImage Function Create:rect(xp:Int,yp:Int,wid:Int,heit:Int,rad:Int) Local myRect:rect = New rect myRect.x = xp myRect.y = yp myRect.width = wid myRect.height = heit myRect.radius = rad myRect.CreateRect Return myRect EndFunction Method Resize(wid:Int,heit:Int) If width >= radius * 2 width :+ wid Else width = radius * 2 EndIf If height >= radius * 2 height :+ heit Else height = radius * 2 EndIf image=Null CreateRect EndMethod Method CreateRect() image:TImage=CreateImage(width,height,1,DYNAMICIMAGE|MASKEDIMAGE) Cls SetAlpha 1 DrawOval(x, y, radius, radius) DrawOval(x + (width - (radius)), y, radius, radius) DrawOval(x, y + (height - (radius)), radius, radius) DrawOval(x + (width - (radius)), y + (height - (radius)), radius, radius) DrawRect(x + (radius / 2), y, width - radius, height) DrawRect(x, y + (radius / 2), width, height - radius) GrabImage image,x,y Cls End Method Method draw() DrawImage image,x,y End Method Method getx:Int() Return x End Method Method getY:Int() Return y End Method Method getWidth:Int() Return width End Method Method getHeight:Int() Return height End Method Method getRadius:Int() Return radius End Method Method setImg(img:TImage) image = img End Method Method setCoord(cx:Int,cy:Int) x = cx y = cy End Method End Type Graphics 800,600 AutoMidHandle(True) SetBlend ALPHABLEND Local obj:rect = rect.Create(200,200,200,100,4) Repeat SetColor 255,255,255 drawimage back,0,0 Local x:Int = MouseX() If MouseDown(1) obj.setCoord(x,200) EndIf If KeyDown(KEY_UP) obj.Resize(0,-5) If KeyDown(KEY_DOWN) obj.Resize(0,5) If KeyDown(KEY_LEFT) obj.Resize(-5,0) If KeyDown(KEY_RIGHT) obj.Resize(5,0) SetAlpha 0.5 obj.draw() Flip;Cls Until KeyHit(KEY_ESCAPE) Or AppTerminate() End Last edited 2012

col (Posted 2012) [#10]

Play around with the order of drawing your images, ie try moving the 'DrawImage back,0,0' to AFTER the Resizing code and BEFORE the SetAlpha? Not on a pc at mo so can't test it, but I'm sure it will just be an draw ordering issue.

Dezzo (Posted 2012) [#11]

You´r absolutely right ! The Order was it......After a Quick Change, everything works as expected. Thank you so much ! cheers, Dezzo