[Gambas-user] an "Is this possible question" about images

Fri Apr 15 17:50:04 CEST 2011

Little helper boxes on the screen telling you where your magnifier is
at :-D

On Sat, 2011-04-16 at 00:23 +1000, Shane Powell wrote:
> On 15/04/11 22:58, richard terry wrote:
> > On Friday 15 April 2011 17:02:25 richard terry wrote:
> > Hi Kevin/List,
> >
> > I took at quick look at this, but my lame brain never functions with basic
> > mathematical problems, I enclose an embryonic code.
> >
> > This 'sort of' works, theres a drawing area into which I loaded the image of a
> > shoulder Xray and then another  on top which will be the magnifier. I put a
> > couple of textboxes on it to change some of the internal values, but can't
> > seem to figure out the magnification factors.
> >
> > If I click over this it does move around and magnify, albeit not lined up
> > properly and sometimes it seems to get lost. It would be nice to have this be
> > say a circle, with a border, and be accurate, maybe someone can modfy the code
> > to make it work.
> >
> > Any help appreciated.
> >
> > 	
> >> On Friday 15 April 2011 16:15:13 Kevin Fishburne wrote:
> >> Thanks, and to  Rolf-Werner Eilert's reply, I'll take a look at these
> >> suggestions when I go home.
> >>
> >> I need a little 'side project' to stave off the bordum of the hum-drum
> >> debugging of the main project.
> >>
> >> Will post back my  sucess or lack therof
> >>
> >> Regards
> >>
> >> Richard
> >>
> >>> On 04/15/2011 12:47 AM, richard terry wrote:
> >>>>> Do you need it to look like a fisheye-style lens effect, or just
> >>>>> box-zoom an area? If the latter this can be done easily in gb code.
> >>>> Just the box-zoom .
> >>>>
> >>>> Any change of you giving me a helping hand? I've not done anything much
> >>>> with images or drawing.
> >>>>
> >>>> I'll mail you a sample png if you want - the purpose here is to magnify
> >>>> areas of either skin, xray films or dermatascope images - all are
> >>>> images at the end of the day.
> >>>>
> >>>> Its for our open - source medical records project that Ian and I are
> >>>> chuggling slowly along with - not releasable as yet by I'm hoping that
> >>>> by the end of 2011 it will be pretty much beta.
> >>> That is very cool. I'm doing a game so I know a little about images in
> >>> gb.
> >>>
> >>> I'm going to assume that you're using Qt or GTK and not SDL or OpenGL,
> >>> but correct me if I'm wrong. For those the easiest way to do graphics is
> >>> with a DrawingArea control. After creating it on the form I'd change the
> >>> Cached property to True so it will automatically redraw itself if
> >>> something moves over it.
> >>>
> >>> You create image variables and load image files into them like this:
> >>>
> >>> Dim/Public someimage As Image
> >>> someimage = Image.Load("FleshEatingVirusNooooo.jpg")
> >>>
> >>> You write images to the DrawingArea control like this:
> >>>
> >>> Draw.Begin(DrawingArea1)
> >>>     Draw.Image(someimage, X, Y, [Width, Height, SrcX, SrcY, SrcWidth,
> >>> SrcHeight])
> >>>     ' Add more "Draw.Image" statements here to composite additional
> >>> images into the DrawingArea.
> >>> Draw.End ' Commits the composition to the DrawingArea so that it may be
> >>> seen. May need a "Wait" statement if done repeatedly.
> >>>
> >>> The [bracketed] parameters are optional. someimage is the source and the
> >>> DrawingArea is the target. You can specify a subset of the source (the
> >>> area to be zoomed) by playing with SrcX and SrcY (upper-left corner of
> >>> source to be drawn) and SrcWidth and SrcHeight (width and height
> >>> relative to SrcX and SrcY of source to be drawn). You can scale the
> >>> source by playing with Width and Height.
> >>>
> >>> So that the source image writes to the DrawingArea don't leave a trail,
> >>> I'd first draw the main (unzoomed) image to the DrawingArea, then draw
> >>> the zoomed area onto that for each "frame" that you draw. The logic
> >>> would go something like:
> >>>
> >>> ' Create your image variables.
> >>> ' Load images into your image variables.
> >>> Draw.Begin(DrawingAreaControlName)
> >>> ' Draw the main image into the DrawingArea.
> >>> ' Draw part of the main image into the DrawingArea adjusted by cursor
> >>> position, zoom area size and zoom level.
> >>> ' Draw text or whatever else you need to into the DrawingArea.
> >>> Draw.End
> >>>
> >>> To draw text, which is really cool, you may do something like this
> >>> inside the Draw.Begin/End:
> >>>
> >>> Draw.Foreground = Color.Black
> >>> Draw.Text("Look, it's text on an image with a crappy shadow!!!", X, Y)
> >>> Draw.Foreground = Color.White
> >>> Draw.Text("Look, it's text on an image with a crappy shadow!!!", X + 1,
> >>> Y - 1)
> >>>
> >>> I don't have any project examples that are simple enough to demonstrate
> >>> this, but if you're really having trouble I could put something together.
> >> ---------------------------------------------------------------------------
> >> --- Benefiting from Server Virtualization: Beyond Initial Workload
> >> Consolidation -- Increasing the use of server virtualization is a top
> >> priority.Virtualization can reduce costs, simplify management, and improve
> >> application availability and disaster protection. Learn more about boosting
> >> the value of server virtualization. http://p.sf.net/sfu/vmware-sfdev2dev
> >> _______________________________________________
> >> Gambas-user mailing list
> >> Gambas-user at lists.sourceforge.net
> >> https://lists.sourceforge.net/lists/listinfo/gambas-user
> >>
> >>
> >>
> >> ------------------------------------------------------------------------------
> >> Benefiting from Server Virtualization: Beyond Initial Workload
> >> Consolidation -- Increasing the use of server virtualization is a top
> >> priority.Virtualization can reduce costs, simplify management, and improve
> >> application availability and disaster protection. Learn more about boosting
> >> the value of server virtualization. http://p.sf.net/sfu/vmware-sfdev2dev
> >>
> >>
> >> _______________________________________________
> >> Gambas-user mailing list
> >> Gambas-user at lists.sourceforge.net
> >> https://lists.sourceforge.net/lists/listinfo/gambas-user
> this is how i would do it when the mouse cursor get to the right  or the 
> bottom of the image it starts to strech but you could just limit the 
> mouse travel and the rest you could make how you wanted easy i think 
> hope it helps
> 
> ------------------------------------------------------------------------------
> Benefiting from Server Virtualization: Beyond Initial Workload 
> Consolidation -- Increasing the use of server virtualization is a top
> priority.Virtualization can reduce costs, simplify management, and improve 
> application availability and disaster protection. Learn more about boosting 
> the value of server virtualization. http://p.sf.net/sfu/vmware-sfdev2dev
> _______________________________________________ Gambas-user mailing list Gambas-user at lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user

-------------- next part --------------
A non-text attachment was scrubbed...
Name: mag.debug.tar
Type: application/x-tar
Size: 163840 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20110415/77e794cb/attachment.tar>