Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1641 1632 (N32W67 L=318)  1562    186        2 (1569/1596-1736/1660) -18.4 W57-W80 N27-N35
      2  363 1535 (N46E57 L=194)  2075    262        2 ( 331/1414- 392/1652) -22.5 E87-E46 N37-N54
      3 1303 1422 (N26W25 L=276)   424    147        0 (1233/1408-1377/1435) -16.7 W20-W30 N24-N27
      4  562 1398 (N35E29 L=222)  1630    380        5 ( 386/1355- 728/1425)  -9.5 E45-E15 N30-N37
      5 1809 1377 (N13W67 L=318)   610    117        2 (1794/1313-1823/1425)  36.9 W64-W72 N09-N15
      6 1232 1210 (N14W15 L=266)   875    234        2 (1192/1080-1273/1308)  77.9 W13-W18 N06-N20
      7 1592 1248 (N11W41 L=292)   549    145        0 (1524/1216-1653/1268) -24.0 W35-W45 N07-N12
      8  181 1020 (N13E65 L=186)  1048    198        3 ( 147/ 940- 204/1110)  73.3 E70-E61 N08-N18
      9 1932 1033 (S10W75 L=325)  1554     90        0 (1910/ 996-1954/1076)  78.7 W69-W82 S12-S07
     10 1891  983 (S11W66 L=317)  2230    187        9 (1855/ 886-1931/1068) -85.2 W61-W74 S17-S05
     11  620  718 (S08E30 L=221)  1550    474        6 ( 506/ 578- 751/ 836)  25.5 E40-E19 S16-S01
     12  196  646 (S11E75 L=176)  3705    273        4 ( 139/ 550- 256/ 755) -60.3 E88-E68 S17-S03
     13  476  696 (S08E41 L=210)   549    133        3 ( 445/ 652- 498/ 750) -90.0 E43-E38 S10-S04
     14 1717  704 (S25W46 L=297)   393     84        1 (1699/ 667-1743/ 744) -50.2 W43-W49 S28-S22
     15  326  538 (S18E62 L=189)  2895    369        6 ( 275/ 396- 368/ 714)  60.5 E78-E54 S29-S05
     16  540  656 (S11E37 L=214)   596    112        1 ( 508/ 616- 575/ 698)  78.7 E38-E33 S13-S08
     17 1613  631 (S28W36 L=287)   452    118        0 (1557/ 613-1662/ 661)   0.0 W31-W41 S29-S26
     18  689  511 (S22E30 L=221)  1032    227        4 ( 604/ 464- 795/ 554)  10.6 E37-E21 S24-S19
     19 1652  447 (S44W47 L=298)  1338    128        1 (1601/ 414-1693/ 496)  51.3 W39-W53 S46-S40
     20  973  164 (S57E27 L=224)   555     68        1 ( 950/ 149-1008/ 189)   0.0 E31-E22 S59-S53
  

    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