📄 node107.html

📁 htmdoc for html coding
💻 HTML
字号:
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2 Final//FR"><!-- Converted with LaTeX2HTML 95.1 (Fri Jan 20 1995) --><!-- by Nikos Drakos (nikos@cbl.leeds.ac.uk), CBLU, University of Leeds --><!-- Modified Simulog 03/97 --><HTML><HEAD><TITLE>9.1 Creating 2D geometric figures</TITLE><LINK REL=STYLESHEET TYPE="text/css"	HREF="./Modulef.css" TITLE="Modulef CSS"><meta name="description" value="9.1 Creating 2D geometric figures"><meta name="keywords" value="Guide6"><meta name="resource-type" value="document"><meta name="distribution" value="global"></HEAD><BODY BGCOLOR="#FFFFFF"><P> <IMG SRC="../icons/smallmod.gif" WIDTH=211 HEIGHT=50 ALIGN=BOTTOM	ALT="Modulef"><A NAME=tex2html1719 HREF="node106.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif"	ALT="previous"></A><A NAME=tex2html1725 HREF="node106.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif"	ALT="up"></A><A NAME=tex2html1727 HREF="node108.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif"	ALT="next"></A><A NAME=tex2html1729 HREF="node2.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif"	ALT="contents"></A><A HREF="../Guide6-18/node107.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM	ALT="[BIG]"></A><A HREF="../Guide6-14/node107.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM	ALT="[Normal]"></A><A HREF="../Guide6-10/node107.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM	ALT="[small]"></A><BR><B> Next: </B> <A NAME=tex2html1728 HREF="node108.html">9.2 Creating 3D geometric figures</A><B>Up: </B> <A NAME=tex2html1726 HREF="node106.html">9 Examples</A><B> Prev: </B> <A NAME=tex2html1720 HREF="node106.html">9 Examples</A><B><A HREF="node2.html"	>Contents</A></B><HR SIZE=3 WIDTH="75&#37;"><H1><A NAME=SECTION05910000000000000000>9.1 Creating 2D geometric figures</A></H1><P><P><P>The following subroutine uses only the 2D graphics instructions.<P><PRE>       PROGRAM IMAG2DC  --- PLOT FIGURES        REAL PI       PARAMETER (PI=3.14152)       INTEGER ITERM,PAROUT(10), PARIN(10)        CHARACTER*80 STRING       REAL PAS,R1,R2,A,B,ALPHA,X,Y,Z,XMIN,XMAX,YMIN,YMAX       REAL CX,CY,PX,XX,YY,DIMFEN,CX1,CX2,TAILLE,PY1,PY2,O,R,CY1,CY2       LOGICAL BID       INTEGER IBID,NBCIN       CHARACTER*1 REPC  --- INTERACTIVE DEFINITION OF THE TERMINAL       ITERM = 0       CALL DEFDEV(ITERM, PAROUT, PARIN,STRING)C  --- SCREEN DIMENSIONS       CALL SZSCRN(XMIN, XMAX, YMIN, YMAX)  C  --- COMPUTATION OF A SQUARE WINDOW FOR THE PLOT       DIMFEN = MIN(XMAX-XMIN, YMAX-YMIN) / 2.        CX = (XMIN + XMAX) / 2.       CY = (YMIN + YMAX) / 2.        CX1 = CX - DIMFEN       CX2 = CX + DIMFEN       CY1 = CY - DIMFEN       CY2 = CY + DIMFEN       CALL FENTR2(XMIN, XMAX, YMIN, YMAX)       CALL MASQU2(XMIN, XMAX, YMIN, YMAX)C  --- TEXT SIZE       TAILLE = MIN((YMAX-YMIN)/10. , 0.5)       CALL DRW3TX(TAILLE, 0., O)C  --- TEXT POSITION        PX = XMIN + (XMAX-XMIN) / 20.       PY1 = YMAX - 2.*TAILLE       PY2 = YMIN + 2.*TAILLEC  --- INPUT STEP       PAS=0.5   2   CONTINUE       CALL CLEANC  --- CURRENT COLOR = WHITE       CALL SETCOL(1., 1., 1.)       CALL GETNUM('DONNEZ LE PAS DU LA SPIRALE ENTRE 0. ET 1. : ',     + PX, PY1, PAS, IBID, BID, 1, 1, 0, 0, 0.001, 1.)C  --- MASK DEPENDING ON PLOT       CALL FENTR2(CX1, CX2, CY1, CY2)       CALL MASQU2(-100., 100., -100., 100.) C  --- INITIAL CURSON POSITION        CALL MOV2TO(0., 0.) C  --- PLOT OF OBJECT       R = 0.        DO 1 A = 0. , 8.*PI ,2.*PI/200          R = R + PAS/10.          X = R * COS(A)          Y = R * SIN(A)          CALL LIN2TO(X, Y)    1  CONTINUE C  --- END OF PLOT       CALL FENTR2(XMIN, XMAX, YMIN, YMAX)       CALL MASQU2(XMIN, XMAX, YMIN, YMAX)       CALL SETCOL(1., 1., 1.)       XX = PX       YY = PY2        CALL GETEXT('&gt; CONTINUER (Y/N) ? ', XX, YY, 1, REP, NBCIN)       IF (REP.EQ.'O'.OR.REP.EQ.'Y') THEN C         --- CONTINUE          GOTO 2       ELSEC         --- DO NOT CONTINUE          CALL ENDDEV(ITERM)       ENDIF       END</PRE><P><P><P><HR SIZE=3 WIDTH="75&#37;"><IMG SRC="../icons/smallmod.gif" WIDTH=211 HEIGHT=50 ALIGN=BOTTOM	ALT="Modulef"><A NAME=tex2html1719 HREF="node106.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif"	ALT="previous"></A><A NAME=tex2html1725 HREF="node106.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif"	ALT="up"></A><A NAME=tex2html1727 HREF="node108.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif"	ALT="next"></A><A NAME=tex2html1729 HREF="node2.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif"	ALT="contents"></A><A HREF="../Guide6-18/node107.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM	ALT="[BIG]"></A><A HREF="../Guide6-14/node107.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM	ALT="[Normal]"></A><A HREF="../Guide6-10/node107.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM	ALT="[small]"></A><BR><B> Next: </B> <A NAME=tex2html1728 HREF="node108.html">9.2 Creating 3D geometric figures</A><B>Up: </B> <A NAME=tex2html1726 HREF="node106.html">9 Examples</A><B> Prev: </B> <A NAME=tex2html1720 HREF="node106.html">9 Examples</A><B><A HREF="node2.html"	>Contents</A></B><BR> <HR><P><ADDRESS></ADDRESS></BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -