David Fanning writes:
> Humm. Well, there is a LOT going wrong in this code. :-)
This gets you closer to where you want to be, although you
are still drawing the logo off the page! :-)
Cheers,
David
;*********************************************************** **
PRO TSTDIAGRAM
; EXAMPLE FOR TESTING THE OUTPUT IN A LETTER-SIZE DEVICE (8.5X11)
; SET THE DEVICE (8.5X11IN PAPER (LANDSCAPE), WITH ONE INCH MARGINS)
thisDevice = !D.NAME
;SET_PLOT,'PS'
;DEVICE,/INCHES,FILENAME='TST.ps',XSIZE=9.0,YSIZE=
6.5,/LANDSCAPE,XOFFSET=1.0,YOFFSET=10.0
;;; THE REST OF THE CODE IS WHERE I WOULD BE ADDING MY PLOTS
!Y.OMARGIN = [3.5,3.5]
!P.MULTI=[0,3,2]
FOR J = 0,5 DO PLOT, FINDGEN(10), noerase=(j EQ 0)
; EDGE COORDINATES
X0 = 0.0
X1 = 1.0
Y0 = 0.0
Y1 = 1.0
; BOX
PLOTS,[0,0],[0,1], /NORMAL
PLOTS,[0,1],[1,1], /NORMAL
PLOTS,[1,1],[1,0], /NORMAL
PLOTS,[1,0],[0,0], /NORMAL
; HEADER AND FOOTER
PLOTS,[0,1],[0.95,0.95], /NORMAL
PLOTS,[0,1],[0.05,0.05], /NORMAL
; HEADER AND FOOTER BINS
PLOTS,[0.25,0.25],[1.0,0.95], /NORMAL ; SECOND HEADER BIN
PLOTS,[0.50,0.50],[1.0,0.95], /NORMAL ; THIRD HEADER BIN
PLOTS,[0.75,0.75],[1.0,0.95], /NORMAL ; FOURTH HEADER BIN
PLOTS,[0.25,0.25],[0.0,0.05], /NORMAL ; SECOND FOOTER BIN
PLOTS,[0.50,0.50],[0.0,0.05], /NORMAL ; THIRD FOOTER BIN
PLOTS,[0.75,0.75],[0.0,0.05], /NORMAL ; FOURTH FOOTER BIN
; NASA LOGO AND "PREPARED BY" STRING
NASA = '!10nasa!N!X'
XYOUTS,0,-0.05,NASA,SIZE=2, /NORMAL
XYOUTS,1,-0.05,'Prepared by J. J. Arrieta-Camacho',ALIGN=1.0, /NORMAL
; TITLE
XYOUTS,0.5,1.025,'December 18, 2018',ALIGN=0.5,SIZE=2.5, /NORMAL
; EARTH, MOON, AND OTHER SYMBOLS
EARTH = '!20S!N!X'
MOON = '!20V!N!X'
EQUINOX = '!20x!N!X'
DELTA = '!4D!N!X'
RAAN = '!4X!N!X'
TRAN = '!4x!N!X'
; DIRECTION OF MANEUVER (EARTH-MOON OR MOON-EARTH) PLACED IN THE FIRST
; HEADER BIN
STR = 'Maneuver: '+EARTH+' - '+MOON
XYOUTS,(0.25-0.0)/2.0,0.965,STR,ALIGN=0.5,CHARSIZE=1.5, /NORMAL
; TYPE OF MANEUVER
STR = 'Ballistic (TLI)'
XYOUTS,0.25+(0.5-0.25)/2.0,0.965,STR,ALIGN=0.5,CHARSIZE=1.5, /NORMAL
; RADIUS OF EARTH PARKING ORBIT
STR = '!SH!D'+EARTH+'!N'+'='+'200 km'
XYOUTS,0.50+(0.75-0.50)/2.0,0.965,STR,ALIGN=0.5,CHARSIZE=1.5 , /NORMAL
; RADIUS OF MOON TARGET ORBIT (PERIAPSIS)
STR = '!SH!D'+MOON+'!N'+'='+'200 km'
XYOUTS,0.75+(1.05-0.75)/2.0,0.965,STR,ALIGN=0.5,CHARSIZE=1.5 , /NORMAL
; COORDINATE SYSTEM
STR = 'TEME J2000'
XYOUTS,0.0+(0.25-0.00)/2.0,0.015,STR,ALIGN=0.5,CHARSIZE=1.5, /NORMAL
; RIGHT ASCENSION OF THE ASCENDING NODE (TRANSFER ORBIT)
STR = RAAN + '=' + '237.45 deg'
XYOUTS,0.25+(0.50-0.25)/2.0,0.015,STR,ALIGN=0.5,CHARSIZE=1.5 , /NORMAL
; TRANSFER TIME
STR = 'TLC '+'='+'72.012 h'
XYOUTS,0.50+(0.75-0.50)/2.0,0.015,STR,ALIGN=0.5,CHARSIZE=1.5 , /NORMAL
; DELTA-V
STR = DELTA+'V'+'='+'3.4526 km/s'
XYOUTS,0.75+(1.00-0.75)/2.0,0.015,STR,ALIGN=0.5,CHARSIZE=1.5 , /NORMAL
;DEVICE,/CLOSE
SET_PLOT,thisDevice
!P.MULTI=0
END
--
David Fanning, Ph.D.
Fanning Software Consulting, Inc.
Coyote's Guide to IDL Programming: http://www.dfanning.com/
Sepore ma de ni thui. ("Perhaps thou speakest truth.")
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
