Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  832 1725 (N38E35 L=142)   414     68        0 ( 805/1704- 865/1750)  -8.1 E38-E31 N36-N39
      2  875 1583 (N29E24 L=153)   750    167        2 ( 793/1545- 935/1623)  53.1 E28-E20 N24-N32
      3 1637 1277 (N27W36 L=213)  2540    744        2 (1430/1000-1767/1548) -37.6 W16-W51 N12-N40
      4  556 1447 (N13E40 L=137)   711    121        1 ( 519/1400- 604/1492)  74.1 E41-E37 N09-N16
      5 1290 1358 (N24W09 L=186)   871    231        2 (1197/1294-1360/1444) -30.3 W01-W13 N20-N27
      6  549 1351 (N07E37 L=140)   247     60        1 ( 516/1332- 581/1364)   0.0 E39-E34 N06-N08
      7  233 1198 (S08E60 L=117)   937    166        1 ( 197/1115- 272/1269)  73.3 E63-E57 S13-S03
      8  787 1081 (S04E15 L=162)   240    100        0 ( 760/1041- 825/1106)  68.2 E16-E13 S06-S01
      9  465 1039 (S13E36 L=142)   844    191        1 ( 424/ 948- 535/1083)  66.0 E39-E30 S18-S09
     10  298  879 (S26E49 L=128)   309     76        0 ( 273/ 846- 319/ 922)  56.3 E51-E46 S28-S22
     11  948  890 (S11E02 L=176)   368    108        0 ( 887/ 875-1000/ 905)  26.6 E05-W01 S12-S09
     12  676  818 (S22E17 L=160)   270     89        0 ( 636/ 796- 707/ 850)  36.9 E19-E15 S23-S19
     13 1675  717 (S05W51 L=228)  1040    230        4 (1606/ 651-1745/ 760)  -8.1 W44-W58 S07-S02
     14 1495  688 (S11W38 L=215)   296     83        2 (1464/ 653-1526/ 718) -21.8 W34-W39 S12-S09
     15 1601  659 (S10W47 L=224)   476     72        3 (1564/ 623-1627/ 694) -45.0 W44-W48 S12-S08
     16 1056  619 (S25W12 L=189)   321     86        0 (1012/ 600-1096/ 640)  45.0 W09-W13 S27-S23
     17 1523  585 (S17W44 L=221)  1203    238        4 (1403/ 555-1600/ 628)  28.3 W36-W49 S21-S12
     18  434  543 (S46E37 L=140)   779    121        0 ( 381/ 515- 488/ 570)  25.0 E45-E30 S49-S42
     19 1572  500 (S20W53 L=230)   620     71        3 (1537/ 469-1600/ 531)  63.4 W49-W56 S23-S18
     20 1636  487 (S19W60 L=237)   499     90        3 (1604/ 453-1674/ 526)  71.6 W57-W63 S22-S16
  

    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