Doxygen Source Code Documentation
setlin.c File Reference
#include "f2c.h"Go to the source code of this file.
Functions | |
| int | setlin_ (integer *ntype) |
Function Documentation
|
|
Definition at line 11 of file setlin.c. References setdsh_(). Referenced by plotpak_setlin(), and setfrm_().
00012 {
00013 /* Initialized data */
00014
00015 static integer ndash[5] = { 1,2,2,6,2 };
00016 static real xdash[40] /* was [8][5] */ = { 1.f,1.f,1.f,1.f,1.f,1.f,
00017 1.f,1.f,.007f,-.007f,1.f,1.f,1.f,1.f,1.f,1.f,.002f,-.003f,1.f,1.f,
00018 1.f,1.f,1.f,1.f,.007f,-.004f,.002f,-.004f,.002f,-.004f,1.f,1.f,
00019 2e-4f,-.005f,1.f,1.f,1.f,1.f,1.f,1.f };
00020
00021 static integer nd;
00022 extern /* Subroutine */ int setdsh_(integer *, real *);
00023
00024
00025 /* Set default dash types */
00026 /* 1 = solid */
00027 /* 2 = long dash */
00028 /* 3 = short */
00029 /* 4 = long - short - short */
00030 /* 5 = very short */
00031 /* Outside this range ==> solid */
00032
00033
00034
00035 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00036 */
00037
00038 nd = *ntype;
00039 if (*ntype <= 0 || *ntype > 5) {
00040 nd = 1;
00041 }
00042
00043 setdsh_(&ndash[nd - 1], &xdash[(nd << 3) - 8]);
00044 return 0;
00045 } /* setlin_ */
|
