forums.silverfrost.com

[FK_GER]

Here the continuation:

!C drawing the unloaded cross section
CALL BIQWTO (......,XPLOT,YPLOT,LDIM,NWDM,PROJ)
.
!C drawing concrete behaviour in BI_FCM, BI_FCD
CALL BI_FCM (......,XPLOT,YPLOT,LDIM,NWDM,PROJ)
CALL BI_FCD (......,XPLOT,YPLOT,LDIM,NWDM,PROJ)
.
!C calculating the loaded cross section
CALL LAUF ( ........ )
!C drawing the results for loaded cross section
CALL BIQWTO (......,XPLOT,YPLOT,LDIM,NWDM,PROJ)
.
ctrl = 0 !!closing fr-window
call window_update@(ctrl)
END

Example for a drawing subroutine

SUBROUTINE BI_FCD (.....,xData,ydata,LDIM,IPLD,PROJ)
!C**********************************************************************
!C Drawing the concrete behaviour
INCLUDE <windows.ins>

! LDIM data sets each with IPLD values (x,y)
REAL*8 xData(IPLD,LDIM),yData(IPLD,LDIM)
CHARACTER*32 NAMEFS /'cross section and reinforcements'/
INTEGER winio@,ctrl,plopix,plopiy,plob,ploh,plox,ployo,ployu
COMMON /QWPLOT/ plopix,plopiy,plob,ploh,plox,ployo,ployu
COMMON /CONTRL/ ctrl
! Drawing the XY Graph
iw0=winio@('%sp&',plox,ployo)
iw0=winio@('%pv%aw&',ctrl)
iw0=winio@('%ww[no_border]&')
iw0=winio@('%`bg[white]&')
iw0=winio@('%ca[concrete behaviour acc. to DIN EN 1992]%pv&')
CALL winop@("%pl[title='for ULS: parabola-rectangle with f_cd']")
CALL winop@("%pl[y_min=0.,y_max=1.]")
CALL winop@("%pl[x_min=0.,x_max=3.5]")
CALL winop@("%pl[x_axis=strain]")
CALL winop@("%pl[y_axis=stress]")
CALL winop@("%pl[dx=0.5,dy=0.1]")
CALL winop@("%pl[n_graphs=2]")
CALL winop@("%pl[width=2,width=2]")
CALL winop@("%pl[pen_style=0,pen_style=2]")
CALL winop@("%pl[link=curves,link=curves]")
CALL winop@("%pl[colour=red,colour=blue]")
CALL winop@("%pl[symbol_size=2,symbol_size=2]")
CALL winop@("%pl[symbol=0,symbol=6]")
CALL winop@("%pl[x_array]")
iw0=winio@('%pl',plopix,plopiy, &
ipld,xData(1:ipld,1),yData(1:ipld,1),yData(1:ipld,2))
Return
END

I'm contented with this result of window-handling. The further issues arising at the use of the drawing routines (%pl etc.) will be discussed at a new post in the relevant forum-chapter.