Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  967 1655 (N30E19 L=278)   549    223        0 ( 918/1576-1039/1735)  85.9 E20-E16 N24-N38
      2 1110 1639 (N33E09 L=288)   583    157        0 (1063/1570-1151/1705) -38.7 E14-E04 N28-N36
      3  519 1568 (N16E46 L=251)   932    177        2 ( 490/1517- 567/1651) -42.0 E51-E40 N13-N22
      4  317 1597 (N16E69 L=227)  2166    176        4 ( 266/1535- 369/1650)  71.6 E78-E64 N11-N20
      5 1528 1595 (N41W23 L=320)   698    143        1 (1454/1571-1592/1616)   8.7 W16-W29 N38-N43
      6 1771 1473 (N40W50 L=347)   449     69        1 (1735/1452-1799/1490)   7.1 W45-W54 N39-N41
      7 1157 1292 (N11W02 L=299)   575    203        2 (1124/1210-1206/1383)  85.2 W00-W03 N05-N17
      8 1325 1262 (N13W13 L=309)   226     97        1 (1309/1223-1337/1307) -68.2 W11-W13 N10-N15
      9 1518 1122 (N09W27 L=324)   505    188        0 (1464/1053-1558/1199)  73.3 W25-W29 N04-N14
     10 1196 1093 (N00W08 L=305)   425    160        1 (1123/1061-1267/1141)  -6.3 W03-W12 N00-N01
     11 1180  937 (S09W11 L=307)   183     78        0 (1142/ 923-1215/ 950)  11.3 W08-W13 S09-S08
     12 1916  912 (N09W69 L=  6)   660     74        1 (1887/ 879-1937/ 945)  45.0 W64-W72 N06-N11
     13 1223  731 (S19W18 L=315)   399    148        1 (1171/ 680-1274/ 789)  69.4 W16-W20 S23-S14
     14 1244  411 (S38W33 L=330)   306     88        0 (1210/ 399-1289/ 438)  18.4 W29-W36 S39-S36
     15 1567  390 (S30W61 L=357)   478    125        0 (1513/ 362-1615/ 422)  56.3 W57-W63 S32-S26
  

    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