/dports/graphics/pgplot/pgplot/src/ |
H A D | pgptxt.f | 42 REAL XBOX(4), YBOX(4) local 54 CALL GRQTXT (ANGLE, XP, YP, TEXT(1:L), XBOX, YBOX) 57 YBOX(I) = (YBOX(I)-PGYORG(PGID))/PGYSCL(PGID) 61 CALL GRFA(4, XBOX, YBOX)
|
H A D | grqtxt.f | 3 SUBROUTINE GRQTXT (ORIENT,X0,Y0,STRING, XBOX, YBOX) argument 15 REAL XBOX(4), YBOX(4) local 26 YBOX(I) = Y0 139 YBOX(1) = YORG + (SINA*XGMIN + COSA*YGMIN) 141 YBOX(2) = YORG + (SINA*XGMIN + COSA*YGMAX) 143 YBOX(3) = YORG + (SINA*XGMAX + COSA*YGMAX) 145 YBOX(4) = YORG + (SINA*XGMAX + COSA*YGMIN)
|
H A D | pgqtxt.f | 5 SUBROUTINE PGQTXT (X, Y, ANGLE, FJUST, TEXT, XBOX, YBOX) argument 8 REAL XBOX(4), YBOX(4) local 44 YBOX(I) = Y 56 YBOX(I) = (YPBOX(I) - PGYORG(PGID))/PGYSCL(PGID)
|
H A D | pgmtxt.f | 51 REAL ANGLE, D, X, Y, RATIO, XBOX(4), YBOX(4) local 94 CALL GRQTXT (ANGLE, X, Y, TEXT(1:L), XBOX, YBOX) 97 YBOX(I) = (YBOX(I)-PGYORG(PGID))/PGYSCL(PGID) 101 CALL GRFA(4, XBOX, YBOX)
|
H A D | pgcl.f | 26 REAL ANGLE, XO, YO, XP, YP, DINDX, DINDY, XBOX(4), YBOX(4) local 66 CALL PGQTXT(XC, YC, ANGLE, 0.5, PGCLAB, XBOX, YBOX) 68 YO = 0.5*(YBOX(1)+YBOX(3))
|
/dports/graphics/xd3d/xd3d-8.3.1/src/graphic/ |
H A D | axes.f | 81 YBOX2 = TY*YBOX/TX 177 YECH = YMIMI - YBOX 178 YECHL1 = YMIMI - YBOX*.6 179 YECHL2 = YMIMI - YBOX*1.1 645 YINPUT(1) = YLL - YBOX*.3 686 YINPUT(1) = YLL - YBOX*.5 693 YINPUT(3) = YLL -.5*YBOX 710 YINPUT(1) = YLL -.5*YBOX 713 YINPUT(1) = YLL -.5*YBOX 735 YLL = YFMIN+.2*YBOX [all …]
|
H A D | ecrcom.f | 1 SUBROUTINE ECRCOM(LEG,LONG,X,Y,XMB,YMB,YBOX,IGROS,IOPT,FRANCAIS) argument 28 DY = YBOX + 1.2*YMB
|
H A D | trace.f | 28 YBOX = TX*3.65*SIZCAR 238 YBOXR = YBOX 241 YBOXR = YBOX*.65 244 YBOXR = YBOX*.45 247 YBOXR = YBOX*.3 288 YC = YMAX-(REAL(NCOURB)+.25)*YBOXR-YBOX 290 YC = YMIN+.75*YBOX
|
H A D | leg.f | 33 YLEG = (NCOURB*YBOX+2.*TX)*FAC 169 YY1 = YY0 - (YBOX*(REAL(I)-.5) + TX)*FAC 170 YYY1 = YY1 - YBOX*.25*FAC
|
H A D | lectur.f | 303 YPTC = YINPUT(1) + TAILL + .5*YBOX 312 CALL GSMOVE(XPTC,YINPUT(1)+.1*YBOX) 313 CALL GSLINE(XPTC,YINPUT(3)-.1*YBOX) 412 ERR = ABS(YINPUT(1) + .5*YBOX - YCUR) 417 E = ABS(YINPUT(1) + TAILL + .5*YBOX - YCUR)
|
H A D | param.f | 39 & ,TX,TY,XBOX,YBOX,XMB,YMB,HXA4,HYA4 local
|
H A D | graph.f | 1000 & ,XMB,YMB,YBOX,IGROS,0,FRANCAIS) 1077 & ,YLL2(1,NLEG2),XMB,YMB,YBOX,IGROS,1,FRANCAIS) 1081 & ,YLL2(1,NLEG2),XMB,YMB,YBOX,IGROS,1,FRANCAIS) 1115 & ,YLL2(1,NLEG2),XMB,YMB,YBOX,IGROS,1,FRANCAIS) 1176 & ,YLL2(1,NLEG2),XMB,YMB,YBOX,IGROS,2 1748 & ,YLL2(1,NLEG2),XMB,YMB,YBOX,IGROS,1,FRANCAIS)
|
/dports/science/dcl/dcl-5.4.8/demo/grph1/sgpack/ |
H A D | sgtclr.f | 10 REAL XBOX(NP),YBOX(NP) 14 DATA YBOX/ 0.0, 0.0, 1.0, 1.0, 0.0/ 45 CALL SGTNZU(NP,XBOX,YBOX,LEVEL) 46 CALL SGPLZU(NP,XBOX,YBOX,1,1)
|
H A D | sgtonz.f | 10 REAL XBOX(NP),YBOX(NP) 14 DATA YBOX/ 0.0, 0.0, 1.0, 1.0, 0.0/ 52 CALL SGTNZU(NP,XBOX,YBOX,LEVEL) 53 CALL SGPLZU(NP,XBOX,YBOX,1,1)
|
H A D | sgtcls.f | 10 REAL XBOX(NP),YBOX(NP) 14 DATA YBOX/ 0.0, 0.0, 1.0, 1.0, 0.0/ 49 CALL SGTNZU(NP,XBOX,YBOX,LEVELZ) 50 CALL SGPLZU(NP,XBOX,YBOX,1,1)
|
H A D | sgtone.f | 10 REAL XBOX(NP),YBOX(NP) 14 DATA YBOX/ 0.0, 0.0, 1.0, 1.0, 0.0/ 56 CALL SGTNZU(NP,XBOX,YBOX,LEVEL) 57 CALL SGPLZU(NP,XBOX,YBOX,1,1)
|
/dports/science/dcl/dcl-5.4.8/src/env2/dclclr/ |
H A D | dclclr.f | 10 REAL XBOX(NP),YBOX(NP) variable 14 DATA YBOX/ 0.0, 0.0, 1.0, 1.0, 0.0/ 41 CALL SGTNZU(NP,XBOX,YBOX,LEVEL) 42 CALL SGPLZU(NP,XBOX,YBOX,1,1)
|
/dports/graphics/xd3d/xd3d-8.3.1/src/X/ |
H A D | gsmb.f | 1 SUBROUTINE GSMB(XBOX,YBOX) argument 6 j2box = nint(abs(facteur_en_y*YBOX*.5)) 8 taille_mark = amin1(facteur_en_x*XBOX,facteur_en_y*YBOX)*.5
|
/dports/science/dcl/dcl-5.4.8/src/env2/dcltone/ |
H A D | dcltone.f | 10 REAL XBOX(NP),YBOX(NP) variable 14 DATA YBOX/ 0.0, 0.0, 1.0, 1.0, 0.0/ 56 CALL SGTNZU(NP,XBOX,YBOX,LEVEL) 57 CALL SGPLZU(NP,XBOX,YBOX,1,1)
|
/dports/science/dcl/dcl-5.4.8/demo/rakuraku/color/ |
H A D | color1.f | 10 REAL XBOX(NP), YBOX(NP) 14 DATA YBOX/ 0., 0., 1., 1. / 54 CALL SGTNU( NP, XBOX, YBOX )
|
/dports/astro/wcslib/wcslib-7.7/pgsbox/ |
H A D | pgsbox.f | 2281 CALL PGQTXT (X, Y, 0.0, FJUST, TEXT, XBOX, YBOX) 2291 YL = YBOX(2) + 0.5*YCH 2312 IF (YBOX(1).LT.BNDRY(1)) BNDRY(1) = YBOX(1) 2314 IF (YBOX(3).GT.BNDRY(3)) BNDRY(3) = YBOX(3) 2334 IF (YBOX(1).LT.CACHE(2,K)) TICKIT = .TRUE. 2503 CALL PGQTXT (X, Y, ANGL, 0.5, TEXT, XBOX, YBOX) 2514 IF (YBOX(1).LT.BNDRY(1)) BNDRY(1) = YBOX(1) 2515 IF (YBOX(3).LT.BNDRY(1)) BNDRY(1) = YBOX(3) 2518 IF (YBOX(1).GT.BNDRY(3)) BNDRY(3) = YBOX(1) 2519 IF (YBOX(3).GT.BNDRY(3)) BNDRY(3) = YBOX(3) [all …]
|
/dports/graphics/pgplot/pgplot/examples/ |
H A D | pgdemo14.f | 190 REAL XCUR, YCUR, XBOX(4), YBOX(4) local 198 CALL PGQTXT(X, Y, ANGLE, FJUST, TEXT(1:LSTR), XBOX, YBOX) 200 YCUR = YBOX(4)
|
/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/ |
H A D | legende.f | 52 YBOX = TX/0.45 53 YLEG = YBOX+2.*TY
|
/dports/misc/boxes/boxes-1.3/src/ |
H A D | parser.y | 312 %token YSHAPES YELASTIC YPADDING YSAMPLE YENDSAMPLE YBOX YEND YUNREC 390 design: YBOX WORD
|
H A D | lexer.l | 240 return YBOX;
|