Zoom behavior in TSimpleGraph

by **elias** » March 22nd, 2006, 1:56 pm

Very busy but found time to test last version. Very interesting behavior of the zoom. For I've seen, it zooms taking like reference the center of control when possible.
Many time thinking around the idea (but no much time and knowledge of the zoom methods to make it working) of making a browser-Zoom. I'll explain it with these draws.

by **Kambiz** » March 22nd, 2006, 4:50 pm

Honestly, I couldn't understand the different behaviors you described. :oops:

I added the following methods to SimpleGraph:

Code: Select all: function ChangeZoom(NewZoom: Integer; Origin: TGraphZoomOrigin): Boolean; function ChangeZoomBy(Delta: Integer; Origin: TGraphZoomOrigin): Boolean;

The Origin parameter is one of the following values:

zoTopLeft
Tries to keep top left curnor of the current view visible.
zoCenter
Tries to keep center of the current view, still centered.
ZoCursor
Tries to keep point under cursor, still under cursor.

by **kokkoras** » March 23rd, 2006, 3:42 am

Kambiz wrote:I added the following methods to SimpleGraph:

Code: Select all
function ChangeZoom(NewZoom: Integer; Origin: TGraphZoomOrigin): Boolean; function ChangeZoomBy(Delta: Integer; Origin: TGraphZoomOrigin): Boolean;

The Origin parameter is one of the following values:
zoTopLeft
Tries to keep top left curnor of the current view visible.
zoCenter
Tries to keep center of the current view, still centered.
ZoCursor
Tries to keep point under cursor, still under cursor.

Is this exactly what I wanted but didn't like to ask after all that effort of yours. Now we can zoom in the way we like.

Let me add some ACAD terminology for the future:

Zoom Range: zoom to the marquee area.
Zoom Extends: zoom to the bounding rect of the graph.

by **HPW** » March 23rd, 2006, 6:42 am

Let me add some ACAD terminology for the future

Hey, nice to see another ACAD user and delphi-fan!
My main-language is still autolisp. :wink:

by **kokkoras** » March 23rd, 2006, 10:14 am

HPW wrote:
Let me add some ACAD terminology for the future

Hey, nice to see another ACAD user and delphi-fan!
My main-language is still autolisp.

I just used to teach ACAD for a long time (~5000 hours). I am out of it since 2004 though (missing it :cry:

).

EDIT: I am too old for autolisp (even my account says I am a senior member :lol:

). Besides, my favorites was always Prolog and Delphi.

by **HPW** » March 23rd, 2006, 11:28 am

.. I am too old for autolisp

I do not believe that, but I am a huge lisp-fan at all.
So I am not objective. :lol:

Through my plugin even SimpleGraph gets lispy now, because the plugin support a direct-call interface to newLISP.dll :wink:

I am quite involved on the newLISP project and its windows DLL-port.
http://www.newlisp.org :!:

Easy using even from delphi:

Code: Select all: type TNewLispCall = function(string1: PChar): PChar; stdcall; //... var DllCall: TNewLispCall; //... Handle := 0; Handle := LoadLibrary(PChar('newlisp.dll')); if Handle <> 0 then begin @DllCall := GetProcAddress(Handle, PChar('newlispEvalStr')); if Assigned(DllCall) then begin RetStr := nil; RetStr := DllCall(PChar(DllParam1)); end; end;

by **kokkoras** » March 23rd, 2006, 11:45 am

HPW wrote:
.. I am too old for autolisp

I do not believe that, but I am a huge lisp-fan at all.
So I am not objective.

Through my plugin even SimpleGraph gets lispy now, because the plugin support a direct-call interface to newLISP.dll

I mean, I don't have time to invest on new langs, unless I got paid.

I believe that at some point in the future, the nodes should store code in some interpreted lang, name it Java, Lisp, Prolog, VB, scripting Pascal, whatever.

I am a big fan of declarative langs but unfortunately we live in a C/C++ world. If MS or Borland had developed shining Prolog/Lisp IDEs the world would have been different. Even Delphi is strangling.

EDIT: of course, we are off-topic :roll:

by **HPW** » March 23rd, 2006, 11:51 am

I believe that at some point in the future, the nodes should store code in some interpreted lang, name it Java, Lisp, Prolog, VB, scripting Pascal, whatever.

Thats why I had ask Kambiz for the TStingslist-property!
The answer is the new data-property, which I want to use for this soon.

I am a big fan of declarative langs but unfortunately we live in a C/C++ world. If MS or Borland had developed shining Prolog/Lisp IDEs the world would have been different. Even Delphi is strugling.

When you mean the .NET future the answer for me is LSharp.NET
http://lsharp.sourceforge.net/
(Another Lisp-project I am involved)

PS: Sorry again to be so off-topic :oops:

by **Kambiz** » March 23rd, 2006, 6:50 pm

Do you know what? About 10-11 years ago, I used to work with ACAD too.

by **kokkoras** » March 23rd, 2006, 7:01 pm

Kambiz wrote:Do you know what? About 10-11 years ago, I used to work with ACAD too.

It is all clear to me now! It sounds like an international conspirancy theory :lol:

. I am also a die hard fan of Total Commander.
http://www.ghisler.com/

by **elias** » March 23rd, 2006, 7:15 pm

Ok, I was talking about just an algorithm; said with common words, when i have several objects at a graph, and i want to zoom one of them, I simply put the cursor over the desired point and zoom in. With this algorithm, the point starts to center at the control until it is completely centered. This corresponds to picture #2.
Zooming out cannot follow this way, so I just put the cursor where I'd want to have it (relative to the graph) after zoommig (Explained in #1).
This way pan-mode would not be necessary to browse around the graph.
¿Isn't anybody who understand me?

by **elias** » March 23rd, 2006, 7:19 pm

Well, I'll try to find any time to implement it. I think you'll see the result amazing.

by **kokkoras** » March 23rd, 2006, 7:26 pm

elias wrote:Well, I'll try to find any time to implement it. I think you'll see the result amazing.

What you want is clear now.

Try Alt+drag around your object. It is what you asked for.

You can also get the extends (bounding rect) of your object and zoom at that area with one command.

by **Kambiz** » March 23rd, 2006, 7:38 pm

elias wrote:Ok, I was talking about just an algorithm; said with common words, when i have several objects at a graph, and i want to zoom one of them, I simply put the cursor over the desired point and zoom in. With this algorithm, the point starts to center at the control until it is completely centered. This corresponds to picture #2.
Zooming out cannot follow this way, so I just put the cursor where I'd want to have it (relative to the graph) after zoommig (Explained in #1).
This way pan-mode would not be necessary to browse around the graph.
¿Isn't anybody who understand me?

I think I got what you mean.

by **kokkoras** » March 23rd, 2006, 7:53 pm

Talking about zoom, let's put them all together. IMHO the expected behaviours should be the following:

1. WheelZoom: when zooming with the mousewheel the point under the mouse should stay still.
2. Zoom Center: When clicking somewhere to zoom, that point, should become the center of the zoomed picture.
3. Zoom Extends: should maximaly zoom the graph bounds
4. Zoom Range: should maximaly zoom the selected area (Alt+Drag) trying to keep in view the the bigger dimension.
5. No zoom: should return to 100%

Kambiz, which one is currently not supported? (I mean, it's impossible/hard to implement due to library limitations)

Zoom behavior in TSimpleGraph

Zoom behavior in TSimpleGraph

Who is online