Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  503 1696 (N21E59 L=  2)   501     83        2 ( 482/1658- 525/1734) -45.0 E63-E55 N18-N23
      2  450 1609 (N14E57 L=  5)  1839    172        5 ( 411/1536- 496/1703) -34.5 E68-E51 N09-N20
      3 1531 1469 (N36W20 L= 81)  2148    514        3 (1419/1241-1650/1658) -43.7 W07-W32 N24-N47
      4  316 1501 (N05E63 L=358)  2070    244        4 ( 210/1456- 423/1561)  20.0 E77-E54 N01-N09
      5  942 1422 (N15E16 L= 46)   227     65        0 ( 919/1390- 960/1454) -36.9 E17-E13 N13-N16
      6 1361 1394 (N25W10 L= 71)   276     95        0 (1315/1362-1398/1417)   0.0 W06-W12 N24-N26
      7  660 1372 (N05E30 L= 31)   474    112        2 ( 602/1343- 702/1406)  38.7 E33-E27 N03-N07
      8 1792 1164 (N25W47 L=109)  1104    229        2 (1742/1085-1854/1260) -24.8 W41-W55 N21-N30
      9 1492 1207 (N18W22 L= 84)   231     36        0 (1475/1179-1508/1233) -56.3 W20-W23 N16-N19
     10  573 1172 (S08E30 L= 31)   314    130        0 ( 541/1124- 595/1227) -56.3 E33-E28 S11-S05
     11  138 1029 (S25E69 L=352)   810    101        2 ( 120/ 985- 157/1068)  51.3 E72-E65 S28-S23
     12  197 1017 (S25E60 L=  2)   411     52        0 ( 169/1000- 221/1036)  15.9 E63-E56 S26-S23
     13 1172  855 (S10W13 L= 74)   245     69        1 (1132/ 833-1206/ 880)  45.0 W10-W14 S12-S08
     14 1884  776 (N07W69 L=131)  1144    125        5 (1864/ 713-1915/ 828)  90.0 W65-W73 N03-N10
     15 1738  688 (S02W56 L=117)  1632    159        5 (1679/ 630-1786/ 748) -32.0 W50-W62 S05-N00
  

    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