Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1531 1623 (N27W56 L= 19)  1325    143        1 (1468/1563-1586/1673) -77.5 W53-W58 N22-N31
      2 1681 1538 (N18W64 L= 27)   613     80        1 (1657/1497-1697/1583)  24.0 W59-W68 N16-N20
      3 1389 1459 (N23W35 L=358)   470    116        1 (1368/1406-1417/1511)  35.5 W31-W39 N19-N25
      4 1237 1460 (N27W25 L=348)   419    121        0 (1186/1413-1278/1495) -74.1 W23-W27 N23-N30
      5 1535 1439 (N17W44 L=  7)   826    213        0 (1445/1379-1611/1479) -51.3 W39-W48 N12-N22
      6  710 1394 (N36E12 L=311)   452     85        1 ( 673/1370- 750/1411) -38.7 E14-E08 N34-N38
      7 1638 1092 (S04W40 L=  3)   302     75        0 (1611/1055-1667/1124)  18.4 W36-W42 S05-S03
      8  207 1019 (N22E61 L=262)  2904    436        5 ( 111/ 942- 387/1096)  -6.2 E79-E42 N17-N26
      9  961  869 (S00E07 L=316)   277     37        1 ( 939/ 836- 982/ 893)  45.0 E08-E05 S02-N01
     10 1568  799 (S19W29 L=351)   775    245        0 (1443/ 766-1638/ 853)  -7.6 W19-W34 S21-S16
     11 1724  777 (S26W42 L=  5)   840    106        0 (1678/ 740-1775/ 823)   5.7 W37-W47 S27-S24
     12  892  739 (S06E14 L=309)   479    110        1 ( 863/ 688- 921/ 789)  71.6 E16-E11 S09-S03
     13  370  676 (S01E52 L=271)   446    131        1 ( 359/ 611- 391/ 736)  74.1 E53-E49 S04-N03
     14  909  306 (S36E29 L=294)  2567    466        6 ( 827/ 154-1015/ 531)  35.4 E50-E12 S48-S21
  

    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