Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  370 1585 (N27E60 L=147)   879    150        3 ( 337/1551- 402/1633)  80.5 E63-E55 N24-N30
      2 1529 1413 (N32W31 L=238)   751    180        2 (1444/1375-1604/1454)  -8.7 W24-W37 N29-N33
      3  565 1340 (N14E34 L=173)   401    105        2 ( 549/1289- 582/1392) -66.8 E36-E33 N10-N17
      4 1155 1288 (N18W05 L=212)   220     62        0 (1128/1254-1192/1312) -31.0 W02-W07 N16-N19
      5 1891 1091 (N15W66 L=273)  2265    316        8 (1864/1016-1927/1201) -54.0 W62-W73 N10-N21
      6  372 1142 (S00E45 L=162)   261     39        1 ( 358/1115- 387/1170) -63.4 E46-E43 S01-N01
      7 1821 1118 (N16W57 L=264)   561     86        3 (1799/1090-1842/1154)  59.0 W54-W59 N13-N18
      8  189  890 (S18E61 L=146)  1784    315        4 ( 132/ 796- 224/ 995) -47.5 E70-E57 S24-S12
      9  231  929 (S15E56 L=151)   529    148        3 ( 202/ 887- 269/ 972) -51.3 E59-E52 S17-S12
     10 1843  857 (N00W64 L=271)  1722    173        0 (1815/ 782-1863/ 944) -66.0 W60-W67 S04-N05
     11  305  788 (S23E49 L=158)  1154    238        6 ( 234/ 726- 368/ 861) -24.8 E56-E43 S26-S18
     12 1603  667 (S14W45 L=251)  2097    467        6 (1479/ 512-1732/ 781)  62.2 W38-W54 S25-S06
     13  862  718 (S20E07 L=200)   387    129        0 ( 809/ 695- 932/ 755) -12.5 E10-E01 S21-S18
     14 1444  730 (S12W31 L=238)   560    162        0 (1373/ 716-1514/ 746)  12.5 W26-W36 S13-S10
     15 1667  631 (S16W51 L=258)  1046    197        2 (1619/ 590-1729/ 663)  26.6 W46-W57 S18-S13
     16 1284  635 (S20W22 L=229)   250     56        0 (1249/ 616-1314/ 655)  45.0 W20-W23 S21-S18
     17  632  542 (S36E22 L=185)   598    159        1 ( 572/ 506- 677/ 602)  33.7 E27-E18 S38-S30
     18 1611  523 (S23W50 L=257)   572    137        2 (1580/ 480-1647/ 569) -50.2 W46-W54 S26-S20
  

    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