Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1015 1749 (N44E07 L= 63)   555     84        1 ( 979/1716-1057/1768)  38.7 E09-E03 N40-N45
      2 1156 1691 (N40W05 L= 74)   380     76        1 (1134/1658-1193/1715) -11.3 W03-W08 N37-N41
      3  763 1627 (N32E23 L= 46)   607    102        0 ( 725/1581- 798/1672) -40.6 E26-E19 N29-N35
      4 1325 1632 (N37W18 L= 87)   415     67        0 (1306/1596-1344/1663) -90.0 W16-W19 N34-N39
      5 1521 1540 (N32W32 L=101)  1899    340        2 (1365/1464-1679/1611) -11.8 W20-W45 N27-N35
      6 1273 1298 (N13W14 L= 83)   388    124        0 (1253/1228-1287/1361) -76.0 W12-W14 N09-N17
      7  623 1315 (N11E27 L= 42)   222     51        0 ( 593/1301- 651/1328) -14.0 E28-E24 N10-N11
      8  954 1236 (N08E05 L= 64)   181     39        0 ( 937/1210- 970/1266) -56.3 E06-E04 N06-N09
      9 1843 1215 (N14W57 L=127)   553    119        0 (1807/1192-1886/1244) -14.0 W53-W62 N12-N15
     10  320 1205 (N04E48 L= 21)   293     45        0 ( 294/1178- 345/1232)  45.0 E50-E46 N01-N05
     11  698  706 (S26E20 L= 49)   260     75        0 ( 670/ 671- 730/ 742)  45.0 E21-E17 S27-S23
     12  276  579 (S35E57 L= 12)   646     57        0 ( 253/ 553- 309/ 612) -63.4 E59-E54 S36-S32
     13 1720  546 (S28W57 L=126)   384     97        0 (1691/ 527-1764/ 562)  26.6 W54-W60 S29-S25
     14 1592  487 (S33W47 L=117)   349     67        0 (1558/ 472-1626/ 503)  18.4 W44-W50 S34-S31
  

    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