forums.silverfrost.com

[danieletom-ramb]

Hi!

On the Plato3 FTN95 help I found:

As an alternative to the automatic mode described above, %pl can take the form:

winio@('%pl[user_drawn]’,width,height)

width and height give the pixel dimensions of a SIMPLEPLOT graphics region. There are no other arguments to go with %pl. Direct calls can be made to the SIMPLEPLOT library from within a %sc call-back. Alternatively you could use %lw and put the library calls after the set of winio@ statements that describe the window.

Here is a simple example that illustrates this approach.

c--Simple3.for
WINAPP
INTEGER winio@,i,StartCB
EXTERNAL StartCB
i=winio@('%sy[no_border]%ca[User drawn]&')
i=winio@('%pl[user_drawn]&',400,300)
i=winio@('%sc',StartCB)
END
c--The start-up callback
INTEGER FUNCTION StartCB()
INCLUDE 'CLEARWIN.INS'
INTEGER N,i
PARAMETER(N=101)
REAL x(N),y(N)
c--Create the data.
DO i=1,N
x(i)=i-1
y(i)=x(i)**2
ENDDO
c--Call SIMPLEPLOT routines to plot the graph.
CALL INITSP
CALL PAGE(12.0,10.0)
CALL CHSET(-11)
CALL NEWPAG
CALL TITLE7('Higher','Centre','Sample')
CALL SCALES(0.0,10.0,1,0.0,100.0,1)
CALL AXGRID('*Cartesian',1,-1)
CALL NEWPIC
CALL AXIS7('XCartesian','x-axis')
CALL AXIS7('YCartesian','y-axis')
CALL BRKNCV(x,y,N,-1)
CALL SIMPLEPLOT_REDRAW@
StartCB=1
END

When you link this program you must link with simple.dll.

Now, could you tell me how should I do to link with simple.dll?

(Sorry this will seem trivial for the most of you, but I never used that before)

Thanks!

[PaulLaidler]

Create a project if you have not already done so and then use the Project Explorer window to add a reference to the DLL.

Alternatively, from a command line in a DOS box, use SLINK. For example in interactive mode the commands are something like....

SLINK
lo prog.obj
lo simple.dll
file

[danieletom-ramb]

Thanks Paul, I added simple.dll at Project ---> Add References, Is it enough?

[PaulLaidler]

Yes it should be enough.