Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1146 1747 (N43W36 L=120)   298    103        1 (1118/1712-1181/1777)  20.6 W31-W39 N41-N44
      2 1038 1581 (N36W19 L=103)   651    110        2 ( 984/1557-1092/1603)  -7.1 W14-W22 N33-N38
      3 1297 1560 (N27W33 L=118)   349    106        0 (1248/1541-1338/1579)  -8.1 W29-W36 N26-N28
      4 1645 1494 (N13W54 L=139)   554    105        3 (1616/1440-1668/1549)  74.1 W52-W55 N09-N16
      5 1518 1477 (N16W44 L=128)   469     66        0 (1495/1440-1538/1507)  36.9 W41-W45 N14-N17
      6 1597 1335 (N06W43 L=128)   407     91        1 (1581/1286-1613/1379)  45.0 W40-W45 N03-N08
      7 1298 1315 (N14W24 L=108)   393    187        4 (1213/1277-1365/1348) -48.8 W19-W26 N09-N17
      8  470 1043 (N19E33 L= 52)   330     75        2 ( 434/1017- 503/1067) -45.0 E35-E30 N17-N21
      9 1810 1016 (S18W50 L=135)   929    172        0 (1756/ 963-1858/1067) -56.3 W46-W54 S22-S13
     10 1362  748 (S19W12 L= 97)   454    211        1 (1331/ 704-1400/ 791)  68.2 W09-W14 S22-S16
     11 1490  565 (S35W17 L=102)  1274    212        2 (1418/ 478-1531/ 674)  42.3 W09-W20 S39-S28
     12  932  470 (S24E21 L= 63)  1000    262        3 ( 895/ 374- 975/ 563)  56.3 E24-E15 S31-S19
     13 1601  391 (S55W27 L=111)  2543    422        4 (1425/ 323-1714/ 473)  -6.3 W06-W42 S58-S50
     14  634  367 (S23E45 L= 40)   817    167        0 ( 612/ 313- 662/ 437)  56.3 E48-E41 S27-S18
  

    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