12.07.2015 Views

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Descriptions of the Library Routines 2! Shows how to use POLYBEZIER, POLYBEZIER_W,! POLYBEZIERTO, and POLYBEZIERTO_W,TYPE(xycoord) lppoints(31)TYPE(wxycoord) wlppoints(31)TYPE(xycoord) xyTYPE(wxycoord) wxyinteger(4) iinteger(2) istat, orgx, orgyreal(8) worgx, worgyi = setcolorrgb(Z'00FFFFFF') ! graphic to blacki = settextcolorrgb(Z'00FFFFFF') ! text to blacki = setbkcolorrgb(Z'00000000') ! background to whitecall clearscreen($GCLEARSCREEN)orgx = 20orgy = 20lppoints(1).xcoord = 1+orgxlppoints(1).ycoord = 1+orgylppoints(2).xcoord = 30+orgxlppoints(2).ycoord = 120+orgylppoints(3).xcoord = 150+orgxlppoints(3).ycoord = 60+orgylppoints(4).xcoord = 180+orgxlppoints(4).ycoord = 180+orgyistat = PolyBezier(lppoints, 4)! Show tangent lines! A bezier curve is tangent to the line! from the begin point to the first control! point. It is also tangent to the line from! the second control point to the end point.do i = 1,4,2call moveto(lppoints(i).xcoord,lppoints(i).ycoord,xy)istat = lineto(lppoints(i+1).xcoord,lppoints(i+1).ycoord)2-249

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!