Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  602 1741 (N30E50 L= 64)  1424    190        1 ( 524/1678- 670/1796) -15.1 E65-E39 N26-N34
      2 1009 1603 (N28E14 L=101)  1338    354        4 ( 923/1450-1131/1731) -36.9 E22-E02 N19-N36
      3  899 1321 (N08E13 L=101)  1045    399        1 ( 871/1173- 928/1499) -63.4 E18-E08 N00-N18
      4 1633 1352 (N26W33 L=148)   622    109        3 (1605/1302-1673/1410) -39.8 W30-W37 N23-N29
      5 1234 1353 (N16W06 L=120)   487    161        2 (1199/1282-1285/1398) -35.5 W03-W10 N13-N19
      6 1858 1147 (N20W57 L=171)   680     84        2 (1821/1113-1890/1176) -14.0 W52-W61 N18-N21
      7 1236  848 (S13W16 L=130)   424    162        2 (1166/ 815-1314/ 883)  40.6 W12-W20 S15-S09
      8 1055  801 (S19W06 L=120)   257     47        1 (1037/ 767-1076/ 827) -45.0 W04-W07 S20-S17
      9  771  785 (S26E11 L=103)   348    113        0 ( 723/ 748- 823/ 817) -14.0 E14-E06 S26-S23
     10  706  652 (S35E14 L=101)   334     76        1 ( 677/ 630- 748/ 683)  -9.5 E16-E10 S36-S33
     11 1715  644 (S12W56 L=170)   359     43        1 (1693/ 623-1741/ 661)  11.3 W53-W58 S13-S11
     12 1466  463 (S29W46 L=160)  1080    299        1 (1331/ 395-1560/ 499)   2.4 W34-W58 S31-S26
     13  820  457 (S46E01 L=113)   423     64        3 ( 790/ 433- 858/ 488)   0.0 E03-W02 S47-S43
     14 1312  241 (S47W54 L=168)   424     70        3 (1277/ 223-1354/ 261)  12.5 W48-W58 S48-S46
     15  803  215 (S68W07 L=122)   840    137        1 ( 733/ 185- 864/ 239)   0.0 E04-W19 S69-S65
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y