[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | Welcome To The Radio Control Conference |
| Notice: | dir's in 11, who's who in 4, sales in 6, auctions 19 |
| Moderator: | VMSSG::FRIEDRICHS |
|
| Created: | Tue Jan 13 1987 |
| Last Modified: | Thu Jun 05 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 1706 |
| Total number of notes: | 27193 |
1312.0. "Tools for automating flight logging etc" by GALVIA::ECULLEN (It will never fly, Wright !) Wed Apr 10 1991 10:55
I don't think we have a topic on this... but if there is a better place
...
edit/tpu editor plane log
-------------------------
This note describes a series of setups to automate logging of flights.
Have fun !
Regards,
Eric.
The 'stats.com' command file produces a chronological list of the milestones
followed by a table of flights per month for the last three years. I have
added a portion to the end where it will generate a clear text CGM (Computer
Graphics Metafile) that can be viewed by the CDA viewer (graphics terminals)
and converted to DDIF, Postscript etc formats. The bar graph overlays the
months for all years - but in three different colors. I guess it could be
improved but its a first attempt.
So this is what I have :-
1. Creating the log file.
-------------------------
$ rcl
RCL == "edit/tpu/command/section=SGML$:[ecullen.utils]edittpu_v5x
[ecullen.rc.log]F09_APR_91.RC /INIT=SGML$:[ECULLEN.UTILS]RCL.INIT"
This symbol is defined at login time or when the following is executed
(ignor my section file which just sets the editor up the way I like it) :-
$ define tpu$command sgml$:[ecullen.utils]rc_command_file.command
$!---------------------------------------------
$! create a date file for logging flying data
$!---------------------------------------------
$ date = f$extract(0,2,f$time())
$ if f$integer(date) .gt. 10 then goto oknum
$ date = "0''date'"
$ date = f$edit(date,"COLLAPSE")
$oknum:
$ month = f$extract(3,3,f$time())
$ year = f$extract(9,2,f$time())
$ exist = f$search("[ecullen.rc.log]F''date'_''month'_''year'.RC")
$ if exist .nes. "" then goto already_present
$!
$! use init file to include header if file does not exist.
$!
$ rcl :== "edit/tpu/command/section=SGML$:[ecullen.utils]edittpu_v5x [ecullen.rc.log]F''date'_''month'_''year'.RC" -
/init=sgml$:[ecullen.utils]rcl.init
$ goto skip_rc
$already_present:
$ rcl :== "edit/tpu/command/section=SGML$:[ecullen.utils]edittpu_v5x [ecullen.rc.log]F''date'_''month'_''year'.RC" -
/init=sgml$:[ecullen.utils]tpu.init
$ skip_rc:
$ exit
rcl.init contain the command procedure 'enter_flight_stats' to get the stats
and produce the header. 'tpu.init' is the same init file but does not execute
the command procedure.
rcl.init contains :-
set tab eve 4
set tab space
tpu enter_flight_stats
The command procedure 'enter_flight_stats' in file
sgml$:[ecullen.utils]rc_command_file.command :-
PROCEDURE enter_flight_stats
LOCAL a,location,found,flts,pos
a := 1;
flts := READ_LINE('Flight Count> ');
EDIT (flts,TRIM);
count := INT(flts);
mystring := 'location';
found := SEARCH(mystring,FORWARD,NO_EXACT);
IF found = 0 THEN
SET (SHIFT_KEY,PF1);
COPY_TEXT(' .------------------------------------------------.');
MOVE_VERTICAL(1);
pos := MARK(NONE);
COPY_TEXT(' / \');
MOVE_VERTICAL(1);
COPY_TEXT(' ------------| F L I G H T L O G O F A C R O - W O T |----------');
MOVE_VERTICAL(1);
COPY_TEXT(' \ /');
MOVE_VERTICAL(1);
COPY_TEXT(' ------------------------------------------------');
MOVE_VERTICAL(1);
COPY_TEXT(' ');
MOVE_VERTICAL(1);
COPY_TEXT('==============================================================================');
MOVE_VERTICAL(1);
COPY_TEXT('*TIME: ');
COPY_TEXT(FAO("!%D",0));
MOVE_VERTICAL(1);
COPY_TEXT('*LOCATION: ');
MOVE_VERTICAL(1);
COPY_TEXT('*WEATHER: ');
MOVE_VERTICAL(1);
COPY_TEXT('==============================================================================');
MOVE_VERTICAL(1);
COPY_TEXT(' ');
MOVE_VERTICAL(1);
location := READ_LINE('Enter location [D]angan [B]allybrit [M]oycullen [S]ugarloaf > ',1);
CHANGE_CASE(location,UPPER);
MOVE_VERTICAL(-4);
MOVE_HORIZONTAL(11);
CASE location FROM 'B' TO 'W'
['D'] : COPY_TEXT(" Dangan");
['B'] : COPY_TEXT(" Digital Ballybrit");
['M'] : COPY_TEXT(" Moycullen");
['S'] : COPY_TEXT(" Calary, Sugarloaf");
ENDCASE;
!
! output the flight count
!
MOVE_VERTICAL(4);
LOOP
EXITIF a > count;
COPY_TEXT('*FLIGHT');
COPY_TEXT(FAO("!3SL: 12 minutes",a));
MOVE_VERTICAL(1);
a := a + 1;
EXITIF a > count;
ENDLOOP;
COPY_TEXT(' ');
ENDIF;
ENDPROCEDURE;
The file that generates the statistics just execute :-
$!---------------------------------------------------------------------------------------------
$!
$! Name: stats.com
$! Author: Eric Cullen
$! Abstract: This command file sorts flight counts, does running tots, provides some other
$! interesting statistics and finally generate a CGM bar graph file.
$!
$!---------------------------------------------------------------------------------------------
$!
$ assign/nolog sgml$:[ecullen.utils.intermediate] inter$:
$ assign/nolog sgml$:[ecullen.rc.log] rcl$:
$!$ set nover
$ yearstr = "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
$ year = 89
$ index = 0
$init:
$ start = index * 3
$ month = f$extract(start,3,yearstr)
$ M'month''year' = 0
$ index = index + 1
$ if index .ne. 12 then goto not_next_year
$ year = year + 1
$ index = 0
$not_next_year:
$ if year .eq. 92 then goto done
$ goto init
$done:
$! Right sear the log files for the keywords and store to an intermediate file 'temp1.lis'
$ cls
$ write sys$output "Please wait ..."
$ sear/nohigh rcl$:*.rc *flight,*milestone,*acro /out=inter$:temp1.lis
$ on control_y then goto cleanup
$ open/read input inter$:temp1.lis
$ open/write output inter$:temp2.lis
$! Zero out the stats variables
$ flights = 0
$ time = 0
$ days_out = 0
$ goto loop
$loop1:
$ milestone = f$extract(11,100,ddd)
$ month = f$extract(3,3,file)
$ pos = f$locate(month,"JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC")
$ month = f$integer(pos/4+1) ! 1 --> 12
$ seed = month * 100 + f$extract(0,2,file) + f$extract(7,2,file) * 100000
$ write output "''seed' ''file': ''milestone'"
$!
$loop:
$ on control_y then goto cleanup
$ read/end_of_file=cleanup input ddd ! read record
$ len = F$LOCATE("FLIGHT 1:",ddd)
$ mlen = F$LOCATE("MILESTONE:",ddd)
$ flen = F$LOCATE("]",ddd)
$ if f$extract(flen,1,ddd) .eqs. "]" then goto get_file1
$ goto skip1
$get_file1:
$ file = f$extract(flen+2,9,ddd)
$ month_str = f$extract(3,3,file)
$ year = f$integer(f$extract(7,2,file))
$ goto loop
$skip1:
$ if f$extract(mlen,10,ddd) .eqs. "MILESTONE:" then goto loop1
$ if f$extract(len,9,ddd) .eqs. "FLIGHT 1:" then days_out = days_out + 1
$ len = f$locate(":",ddd)
$ end = f$locate("mi",ddd)
$ if len .eq. f$length(ddd) then goto loop
$ ftime = f$extract(len+1,end-len-1,ddd)
$ len = f$locate("[",ftime)
$ if len .ne. f$length(ftime) then goto loop
$! write sys$output "''ftime'"
$ flights = flights + 1
$ M'month_str''year' = M'month_str''year' + 1
$ time = time + f$integer(ftime)
$ goto loop
$!
$!---------------------------------------------------------------------------------------------
$! lets dump these statistics to the user
$!---------------------------------------------------------------------------------------------
$!
$ cleanup:
$ cls
$ write sys$output "----------< MILESTONES FOR RADIO CONTROLLED FLYING >----------"
$ write sys$output ""
$ close input ! tidy up and exit
$ close output ! tidy up and exit
$ sort inter$:temp2.lis sys$output
$ write sys$output ""
$ write sys$output "---------< FLIGHT STATS >---------"
$ write sys$output ""
$ write sys$output "Flights: ''flights'"
$ h = f$integer(time/60)
$ m = f$integer(time-(h*60))
$ write sys$output "Time in air: ''time' minutes (''h' h ''m' m)"
$ write sys$output "Flying days: ''days_out' days"
$ av = f$integer(time/flights)
$ write sys$output "Average Flight length: ''av' minutes"
$ avs = f$integer(flights/days_out)
$ write sys$output "Average Flights per session: ''avs' flights"
$ write sys$output ""
$ write sys$output ""
$! del/erase/nolog inter$:temp.lis;*
$! del/erase/nolog inter$:temp2.lis;*
$ write sys$output ""
$ write sys$output "Monthly Flights 1989 / 1990 / 1991"
$ write sys$output "-------------------------------"
$ write sys$output "January Flights ''f$fao("!4SL | !4SL | !4SL",mjan89,mjan90,mjan91)'"
$ write sys$output "February Flights ''f$fao("!4SL | !4SL | !4SL",mfeb89,mfeb90,mfeb91)'"
$ write sys$output "March Flights ''f$fao("!4SL | !4SL | !4SL",mmar89,mmar90,mmar91)'"
$ write sys$output "April Flights ''f$fao("!4SL | !4SL | !4SL",mapr89,mapr90,mapr91)'"
$ write sys$output "May Flights ''f$fao("!4SL | !4SL | !4SL",mmay89,mmay90,mmay91)'"
$ write sys$output "June Flights ''f$fao("!4SL | !4SL | !4SL",mjun89,mjun90,mjun91)'"
$ write sys$output "July Flights ''f$fao("!4SL | !4SL | !4SL",mjul89,mjul90,mjul91)'"
$ write sys$output "August Flights ''f$fao("!4SL | !4SL | !4SL",maug89,maug90,maug91)'"
$ write sys$output "September Flights ''f$fao("!4SL | !4SL | !4SL",msep89,msep90,msep91)'"
$ write sys$output "October Flights ''f$fao("!4SL | !4SL | !4SL",moct89,moct90,moct91)'"
$ write sys$output "November Flights ''f$fao("!4SL | !4SL | !4SL",mnov89,mnov90,mnov91)'"
$ write sys$output "December Flights ''f$fao("!4SL | !4SL | !4SL",mdec89,mdec90,mdec91)'"
$ write sys$output ""
$!
$!----------------------------------------------------------------------------------------------------------------
$! Right now generate a bar graph with CGM - over a the last three years in the following format:-
$!
$! .------------------.
$! | 1991 |
$! | |
$! |------------. |
$! | 1990 | |
$! | | |
$! | | | same for each month ---->>>>>
$! |-------. | |
$! | 1989 | | |
$! | | | |
$! | | | |
$! | | | |
$! | | | |
$! ---------------------------------------
$!----------------------------------------------------------------------------------------------------------------
$testit:
$!
$!----------------------------------------------------------------------------------------------------------------
$! Scale monthly flight count a bit since DCL has no floating point support.
$!----------------------------------------------------------------------------------------------------------------
$!
$ mjan89 = mjan89 * 100 + 1000
$ mfeb89 = mfeb89 * 100 + 1000
$ mmar89 = mmar89 * 100 + 1000
$ mapr89 = mapr89 * 100 + 1000
$ mmay89 = mmay89 * 100 + 1000
$ mjun89 = mjun89 * 100 + 1000
$ mjul89 = mjul89 * 100 + 1000
$ maug89 = maug89 * 100 + 1000
$ msep89 = msep89 * 100 + 1000
$ moct89 = moct89 * 100 + 1000
$ mnov89 = mnov89 * 100 + 1000
$ mdec89 = mdec89 * 100 + 1000
$
$ mjan91 = mjan91 * 100 + 1000
$ mfeb91 = mfeb91 * 100 + 1000
$ mmar91 = mmar91 * 100 + 1000
$ mapr91 = mapr91 * 100 + 1000
$ mmay91 = mmay91 * 100 + 1000
$ mjun91 = mjun91 * 100 + 1000
$ mjul91 = mjul91 * 100 + 1000
$ maug91 = maug91 * 100 + 1000
$ msep91 = msep91 * 100 + 1000
$ moct91 = moct91 * 100 + 1000
$ mnov91 = mnov91 * 100 + 1000
$ mdec91 = mdec91 * 100 + 1000
$
$ mjan90 = mjan90 * 100 + 1000
$ mfeb90 = mfeb90 * 100 + 1000
$ mmar90 = mmar90 * 100 + 1000
$ mapr90 = mapr90 * 100 + 1000
$ mmay90 = mmay90 * 100 + 1000
$ mjun90 = mjun90 * 100 + 1000
$ mjul90 = mjul90 * 100 + 1000
$ maug90 = maug90 * 100 + 1000
$ msep90 = msep90 * 100 + 1000
$ moct90 = moct90 * 100 + 1000
$ mnov90 = mnov90 * 100 + 1000
$ mdec90 = mdec90 * 100 + 1000
$!
$!----------------------------------------------------------------------------------------------------------------
$! Now write the Clear text CGM.
$! Order of creating graph monthly data is important so that subsequent years are in the background.
$!----------------------------------------------------------------------------------------------------------------
$!
$ copy/nolog sys$input: flight_stats.cgm
BegMF "";
MFVersion 1;
MFDesc "Digital Equipment Corp. CGMDDIF Back End V1.0";
MFElemList"DRAWINGSET BegMFDefaults EndMFDefaults ColrIndexPrec MaxColrIndex IntegerPrec RealPrec IndexPrec ColrPrec ColrValueExt FontList CharSetList CharCoding ScaleMode ColrMode LineWidthMode MarkerSizeMode EdgeWidthMode";
VDCType integer;
IntegerPrec -32767 32767;
RealPrec -32767.0 32767.0 4;
IndexPrec 0 127;
ColrPrec 255;
ColrIndexPrec 255;
ColrValueExt 0 0 0 255 255 255;
MaxColrIndex 255;
BegMFDefaults;
VDCIntegerPrec -32767 32767;
VDCExt 0 0 32767 32767;
EndMFDefaults;
FontList "Courier";
CharSetList std94 "B" std96 "A";
CharCoding basic8bit;
BegPic "";
ScaleMode abstract 1.0;
ColrMode indexed;
LineWidthMode scaled;
MarkerSizeMode scaled;
EdgeWidthMode scaled;
BackColr 255 255 255;
BegPicBody;
ColrTable 0 255 255 255 0 0 0 220 40 40 100 190 100 0 0 255 100 100 100;
AuxColr 2;
IntStyle hatch;
EdgeWidth 5.0;
Edgevis on;
FillColr 2;
EdgeColr 3;
Edgevis on;
Edgetype 1;
LineWidth 6.0;
$ open/append outfile flight_stats.cgm
$!
$!
$ write outfile "FillColr 2;"
$ write outfile "hatchindex -21;"
$ write outfile "Rect (1000,1000) (3000,''mjan91'); % jan %"
$ write outfile "hatchindex -22;"
$ write outfile "Rect (3000,1000) (5000,''mfeb91'); % feb %"
$ write outfile "hatchindex -23;"
$ write outfile "Rect (5000,1000) (7000,''mmar91'); % mar %"
$ write outfile "hatchindex -24;"
$ write outfile "Rect (7000,1000) (9000,''mapr91'); % apr %"
$ write outfile "hatchindex -25;"
$ write outfile "Rect (9000,1000) (11000,''mmay91'); % may %"
$ write outfile "hatchindex -26;"
$ write outfile "Rect (11000,1000) (13000,''mjun91'); % jun %"
$ write outfile "hatchindex -27;"
$ write outfile "Rect (13000,1000) (15000,''mjul91'); % jul %"
$ write outfile "hatchindex -28;"
$ write outfile "Rect (15000,1000) (17000,''maug91'); % aug %"
$ write outfile "hatchindex -29;"
$ write outfile "Rect (17000,1000) (19000,''msep91'); % sep %"
$ write outfile "hatchindex -30;"
$ write outfile "Rect (19000,1000) (21000,''moct91'); % oct %"
$ write outfile "hatchindex -31;"
$ write outfile "Rect (21000,1000) (23000,''mnov91'); % nov %"
$ write outfile "hatchindex -32;"
$ write outfile "Rect (23000,1000) (25000,''mdec91'); % dec %"
$!-----------------------------------------------------------------
$ write outfile "FillColr 3;"
$ write outfile "hatchindex -21;"
$ write outfile "Rect (1000,1000) (2000,''mjan90'); % jan %"
$ write outfile "hatchindex -22;"
$ write outfile "Rect (3000,1000) (4000,''mfeb90'); % feb %"
$ write outfile "hatchindex -23;"
$ write outfile "Rect (5000,1000) (6000,''mmar90'); % mar %"
$ write outfile "hatchindex -24;"
$ write outfile "Rect (7000,1000) (8000,''mapr90'); % apr %"
$ write outfile "hatchindex -25;"
$ write outfile "Rect (9000,1000) (10000,''mmay90'); % may %"
$ write outfile "hatchindex -26;"
$ write outfile "Rect (11000,1000) (12000,''mjun90'); % jun %"
$ write outfile "hatchindex -27;"
$ write outfile "Rect (13000,1000) (14000,''mjul90'); % jul %"
$ write outfile "hatchindex -28;"
$ write outfile "Rect (15000,1000) (16000,''maug90'); % aug %"
$ write outfile "hatchindex -29;"
$ write outfile "Rect (17000,1000) (18000,''msep90'); % sep %"
$ write outfile "hatchindex -30;"
$ write outfile "Rect (19000,1000) (20000,''moct90'); % oct %"
$ write outfile "hatchindex -31;"
$ write outfile "Rect (21000,1000) (22000,''mnov90'); % nov %"
$ write outfile "hatchindex -32;"
$ write outfile "Rect (23000,1000) (24000,''mdec90'); % dec %"
$!-----------------------------------------------------------------
$ write outfile "FillColr 4;"
$ write outfile "hatchindex -21;"
$ write outfile "Rect (1000,1000) (1500,''mjan89'); % jan %"
$ write outfile "hatchindex -22;"
$ write outfile "Rect (3000,1000) (3500,''mfeb89'); % feb %"
$ write outfile "hatchindex -23;"
$ write outfile "Rect (5000,1000) (5500,''mmar89'); % mar %"
$ write outfile "hatchindex -24;"
$ write outfile "Rect (7000,1000) (7500,''mapr89'); % apr %"
$ write outfile "hatchindex -25;"
$ write outfile "Rect (9000,1000) (9500,''mmay89'); % may %"
$ write outfile "hatchindex -26;"
$ write outfile "Rect (11000,1000) (11500,''mjun89'); % jun %"
$ write outfile "hatchindex -27;"
$ write outfile "Rect (13000,1000) (13500,''mjul89'); % jul %"
$ write outfile "hatchindex -28;"
$ write outfile "Rect (15000,1000) (15500,''maug89'); % aug %"
$ write outfile "hatchindex -29;"
$ write outfile "Rect (17000,1000) (17500,''msep89'); % sep %"
$ write outfile "hatchindex -30;"
$ write outfile "Rect (19000,1000) (19500,''moct89'); % oct %"
$ write outfile "hatchindex -31;"
$ write outfile "Rect (21000,1000) (21500,''mnov89'); % nov %"
$ write outfile "hatchindex -32;"
$ write outfile "Rect (23000,1000) (23500,''mdec89'); % dec %"
$!
$!
$ write outfile "line (1000,1000) (1000,23000);"
$ write outfile "line (1000,1000) (24000,1000);"
$!
$ write outfile "TextColr 2;"
$ write outfile "line (1000,800) (1000,1200);"
$ write outfile "line (3000,800) (3000,1200);"
$ write outfile "line (5000,800) (5000,1200);"
$ write outfile "line (7000,800) (7000,1200);"
$ write outfile "line (9000,800) (9000,1200);"
$ write outfile "line (11000,800) (11000,1200);"
$ write outfile "line (13000,800) (13000,1200);"
$ write outfile "line (15000,800) (15000,1200);"
$ write outfile "line (17000,800) (17000,1200);"
$ write outfile "line (19000,800) (19000,1200);"
$ write outfile "line (21000,800) (21000,1200);"
$ write outfile "line (23000,800) (23000,1200);"
$ write outfile "line (25000,800) (25000,1200);"
$!
$ write outfile "line (800,1000) (1200,1000);"
$ write outfile "Text (0,1000) final '0';"
$ write outfile "line (800,2000) (1200,2000);"
$ write outfile "Text (0,2000) final '10';"
$ write outfile "line (800,3000) (1200,3000);"
$ write outfile "Text (0,3000) final '20';"
$ write outfile "line (800,4000) (1200,4000);"
$ write outfile "Text (0,4000) final '30';"
$ write outfile "line (800,5000) (1200,5000);"
$ write outfile "Text (0,5000) final '40';"
$ write outfile "line (800,6000) (1200,6000);"
$ write outfile "Text (0,6000) final '50';"
$ write outfile "line (800,7000) (1200,7000);"
$ write outfile "Text (0,7000) final '60';"
$ write outfile "line (800,8000) (1200,8000);"
$ write outfile "Text (0,8000) final '70';"
$ write outfile "line (800,9000) (1200,9000);"
$ write outfile "Text (0,9000) final '80';"
$ write outfile "line (800,10000) (1200,10000);"
$ write outfile "Text (0,10000) final '90';"
$ write outfile "line (800,11000) (1200,11000);"
$ write outfile "Text (0,11000) final '100';"
$ write outfile "line (800,12000) (1200,12000);"
$ write outfile "Text (0,12000) final '110';"
$ write outfile "line (800,13000) (1200,13000);"
$ write outfile "Text (0,13000) final '120';"
$ write outfile "line (800,14000) (1200,14000);"
$ write outfile "Text (0,14000) final '130';"
$ write outfile "line (800,15000) (1200,15000);"
$ write outfile "Text (0,15000) final '140';"
$ write outfile "line (800,16000) (1200,16000);"
$ write outfile "Text (0,16000) final '150';"
$ write outfile "line (800,17000) (1200,17000);"
$ write outfile "Text (0,17000) final '160';"
$ write outfile "line (800,18000) (1200,18000);"
$ write outfile "Text (0,18000) final '170';"
$ write outfile "line (800,19000) (1200,19000);"
$ write outfile "Text (0,19000) final '180';"
$ write outfile "line (800,20000) (1200,20000);"
$ write outfile "Text (0,20000) final '190';"
$ write outfile "line (800,21000) (1200,21000);"
$ write outfile "Text (0,21000) final '200';"
$ write outfile "line (800,22000) (1200,22000);"
$ write outfile "Text (0,22000) final '210';"
$ write outfile "line (800,23000) (1200,23000);"
$ write outfile "Text (0,23000) final '220';"
$!
$!
$ write outfile "CharHeight 400;"
$ write outfile "Text (1500,100) final 'Jan';"
$ write outfile "Text (3500,100) final 'Feb';"
$ write outfile "Text (5500,100) final 'Mar';"
$ write outfile "Text (7500,100) final 'Apr';"
$ write outfile "Text (9500,100) final 'May';"
$ write outfile "Text (11500,100) final 'Jun';"
$ write outfile "Text (13500,100) final 'Jul';"
$ write outfile "Text (15500,100) final 'Aug';"
$ write outfile "Text (17500,100) final 'Sep';"
$ write outfile "Text (19500,100) final 'Oct';"
$ write outfile "Text (21500,100) final 'Nov';"
$ write outfile "Text (23500,100) final 'Dec';"
$ write outfile "IntStyle solid;"
$ write outfile "FillColr 4;"
$ write outfile "Rect (2000,17000) (3000,18000);
$ write outfile "FillColr 3;"
$ write outfile "Rect (2000,19000) (3000,20000);
$ write outfile "FillColr 2;"
$ write outfile "Rect (2000,21000) (3000,22000);
$ write outfile "Text (3500,17200) final '1989';"
$ write outfile "Text (3500,19200) final '1990';"
$ write outfile "Text (3500,21200) final '1991';"
$ write outfile "TextColr 1;"
$ write outfile "CharHeight 400;"
$ write outfile "Text (17000,21000) final 'Flights: ''flights'';"
$ write outfile "Text (17000,20000) final 'Time in Air: ''time' minutes';"
$ write outfile "Text (17000,19000) final 'Days: ''days_out' days';"
$ write outfile "Text (17000,18000) final 'Average time: ''av' minutes';"
$ write outfile "Text (17000,17000) final 'Average flights: ''avs' flights';"
$ write outfile "CharHeight 900;"
$ write outfile "Text (0,24000) final 'Flight Log (1989-1991) Eric D Cullen';"
$ write outfile "EndPic;"
$ write outfile "EndMF;"
$ close outfile
$ ucopy flight_stats.cgm flight_stats.cgm
$ purge/nolog flight_stats.cgm
$ exit
This is the header that the command file produces. It puts in the current
time (which may need to be modified since one may not enter this info the
same day as the flying took place). The location is in response to a prompt
and can be, in this case, one of a few locations - you just enter the
bracketed character. Weather is up to the user to enter - as it can be very
varied. In response to the number of flights it produces a list of flight 1,
flight 2 etc with an average time, in this case I put in 12 minutes.
I generally put in a bit of text at the bottom to describe the days flying.
This can also be put in amongst each flight if one wishes.
.------------------------------------------------.
/ \
------------| F L I G H T L O G O F A C R O - W O T |----------
\ /
------------------------------------------------
==============================================================================
*TIME: 9-APR-1991 16:35:42.54
*LOCATION: Moycullen
*WEATHER: Enter you weather here !
==============================================================================
*FLIGHT 1: 12 minutes
*FLIGHT 2: 12 minutes
*FLIGHT 3: 12 minutes
*FLIGHT 4: 12 minutes
Put you description here.
Here is a sample run of the command file to gather the flight statistics.
----------< MILESTONES FOR RADIO CONTROLLED FLYING >----------
8901114 14_NOV_89: Broke the tail clean off.
8901120 20_NOV_89: Ripped the horizontal stab off.
9000106 06_JAN_90: Tipped the Wall and broke one side of the elevator
9000109 09_JAN_90: First session with aileron wing
9000113 13_JAN_90: First day with ail/flaps also Damaged engine mount/broke prop
9000128 28_JAN_90: Landed in the tree due to engine cut.
9000325 25_MAR_90: First troublesome flights of the AcroPig.
9000326 26_MAR_90: Back to the Hi-Boy for a while !
9000401 01_APR_90: First flight with the OS46FS-ABC engine in the Hi-Boy.
9000422 22_APR_90: Pulled undercarraige off HiBoy - due to very rought ground.
9000426 26_APR_90: Got DEC Ballybrit flying site.
9000426 26_APR_90: Lost Moycullen Flying site
9000426 26_APR_90: Pulled undercarraige off HiBoy - again !
9000427 27_APR_90: DEC-Ballybrit - Hit the tree in the top corner - broke off nose !
9000430 30_APR_90: A new lighter (by 14 oz) Hiboy.
9000506 06_MAY_90: First flight of Mike Harte's HiBoy
9000506 06_MAY_90: First usage of new fuel from Liam Broderick.
9000511 11_MAY_90: Got in my 500th flight on the HiBoy
9000629 29_JUN_90: Broke a prop !
9000713 13_JUL_90: Broke a prop.
9000713 13_JUL_90: Hit that Tree @DEC again - minor damage.
9000715 15_JUL_90: Gerry broke off tail on LowBoy.
9000722 22_JUL_90: Hit a truck in Oranmore - bad plug !
9000818 18_AUG_90: Bad crash. Looped into ground
9000818 18_AUG_90: Tim went staraight into the dirt !
9000908 08_SEP_90: Fist flights with the OS 91 Surpass 4 stroke on HiBoy.
9000911 11_SEP_90: Flat spin spiral into ground with 90 on it !
9000926 26_SEP_90: First flights of the ACRO WOT.
9001105 05_NOV_90: Camera Pod prototype tested on Acro Wot.
9001125 25_NOV_90: First time using Hand fuel pump
9001125 25_NOV_90: Fist minor crash with the Acro-Wot - landed in a tree top.
9001125 25_NOV_90: New lighter flight box
9100112 12_JAN_91: slight accident with Acro Wot - hit a rough spot on engine cut on takeoff
9100113 13_JAN_91: Started using APC 12x11 propellor.
9100326 26_MAR_91: Started using pegs to hold plane back.
---------< FLIGHT STATS >---------
Flights: 1416
Time in air: 13147 minutes (219 h 7 m)
Flying days: 137 days
Average Flight length: 9 minutes
Average Flights per session: 10 flights
Monthly Flights 1989 / 1990 / 1991
-------------------------------
January Flights 0 | 118 | 61
February Flights 0 | 1 | 22
March Flights 0 | 72 | 110
April Flights 0 | 140 | 22
May Flights 0 | 172 | 0
June Flights 0 | 85 | 0
July Flights 0 | 214 | 0
August Flights 3 | 77 | 0
September Flights 25 | 113 | 0
October Flights 12 | 28 | 0
November Flights 30 | 48 | 0
December Flights 31 | 32 | 0
| T.R | Title | User | Personal
Name | Date | Lines
|
|---|