Changeset 495 for trunk/SRC/ToBeReviewed/PLOTS/LABEL
- Timestamp:
- 04/17/14 10:49:43 (10 years ago)
- Location:
- trunk/SRC/ToBeReviewed/PLOTS/LABEL
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/PLOTS/LABEL/label.pro
r479 r495 2 2 ; 3 3 ; @file_comments 4 ; Allows to choose the type of the label we want to use at the time of a 4 ; Allows to choose the type of the label we want to use at the time of a 5 5 ; contour. 6 6 ; -
trunk/SRC/ToBeReviewed/PLOTS/LABEL/label_date.pro.new
r39 r495 119 119 ; Added AM_PM and DAYS_OF_WEEK keywords, '%A' and '%W' codes. 120 120 ;- 121 122 121 123 122 ;-------------------------------------------------- LABEL_DATE_CONVERT_FORMAT … … 178 177 END 179 178 180 181 179 ;----------------------------------------------------------------- LABEL_DATE 182 180 FUNCTION LABEL_DATE, axisIn, indexIn, valueIn, levelIn, $ … … 193 191 ON_ERROR, 2 194 192 195 196 193 IF (N_PARAMS() LT 3) THEN $ ; use default for no inputs 197 194 IF NOT KEYWORD_SET(dateFormat) THEN dateFormat='' 198 199 195 200 196 ; process a new months vector? … … 207 203 if (N_ELEMENTS(months) EQ 12) then cMonths = months 208 204 209 210 205 ; process a new days_of_week vector? 211 206 ; if days_of_week is undefined, then make cDaysWeek undefined … … 217 212 if (N_ELEMENTS(days_of_week) EQ 7) then cDaysWeek = days_of_week 218 213 219 220 214 ; process a new AM_PM vector? 221 215 ; if AM_PM is undefined, then make cAmpm undefined … … 227 221 if (N_ELEMENTS(am_pm) EQ 2) then cAmpm = am_pm 228 222 229 230 223 ; process a new cOffset? 231 224 IF ARG_PRESENT(offs) THEN cOffset = 0 … … 234 227 IF (N_ELEMENTS(cOffset) EQ 0) THEN cOffset = 0d 235 228 236 237 229 ; process a new cRoundup? 238 230 IF (N_ELEMENTS(round_up) GT 0) THEN cRoundup = KEYWORD_SET(round_up) 239 240 231 241 232 ; process a new date_format string? … … 248 239 IF (N_ELEMENTS(cFormatArray) EQ 0) THEN cFormatArray = '(C())' 249 240 250 251 241 IF (N_PARAMS() LT 3) THEN RETURN, 0 252 253 242 254 243 ;------------------------------------------------------ Process an axis value … … 257 246 time = value1 - date ; Julian time 258 247 259 260 248 IF (N_ELEMENTS(levelIn) LT 1) THEN levelIn = 0 261 249 nFormat = N_ELEMENTS(cFormatArray) 262 250 formatLevel = cFormatArray[levelIn MOD nFormat] ; repeat cyclically 263 264 251 265 252 ; Round subseconds to the desired precision … … 273 260 value1 = date + time 274 261 ENDIF 275 276 262 277 263 ; Round fractional time to the least significant format specified. … … 291 277 ENDIF 292 278 293 294 279 ; check for negative (B.C.E.) years 295 280 jan1_1ad = 1721424L ; Julian date for 1 Jan, 1 C.E. -
trunk/SRC/ToBeReviewed/PLOTS/LABEL/lataxe.pro
r369 r495 2 2 ; 3 3 ; @file_comments 4 ; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to 4 ; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to 5 5 ; label axes in latitude. 6 6 ; 7 7 ; @categories 8 8 ; Graphics 9 ; 10 ; @param AXIS 9 ; 10 ; @param AXIS 11 11 ; It is the axis number: 0 for X axis, 1 for Y axis, 2 for Z axis. 12 12 ; -
trunk/SRC/ToBeReviewed/PLOTS/LABEL/lonaxe.pro
r369 r495 2 2 ; 3 3 ; @file_comments 4 ; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to 4 ; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to 5 5 ; label axes in longitude. 6 6 ; 7 7 ; @categories 8 8 ; Graphics 9 ; 10 ; @param AXIS 9 ; 10 ; @param AXIS 11 11 ; It is the axis number: 0 for X axis, 1 for Y axis, 2 for Z axis. 12 12 ;
Note: See TracChangeset
for help on using the changeset viewer.