Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1414 1754 (N57W04 L= 51)   580     83        1 (1380/1728-1452/1771)  45.0 W01-W08 N53-N60
      2 1611 1614 (N53W29 L= 76)   557     48        0 (1590/1579-1630/1641)  80.5 W26-W31 N49-N55
      3  898 1496 (N19E21 L= 26)   234     59        1 ( 866/1484- 935/1512)  11.3 E23-E18 N18-N19
      4 1500 1305 (N25W21 L= 68)   419    128        0 (1442/1283-1531/1348)  45.0 W17-W23 N22-N27
      5 1489 1181 (N17W23 L= 70)   281    117        0 (1477/1125-1508/1231) -81.9 W22-W24 N13-N20
      6  142 1045 (S24E70 L=336)   923     66        2 ( 116/1006- 160/1076) -33.7 E76-E66 S26-S22
      7 1812 1009 (N18W53 L=100)  1173    106        3 (1776/ 962-1844/1061)  76.0 W49-W57 N13-N21
      8 1869  948 (N16W62 L=109)  1087    138        5 (1847/ 884-1896/1012)  90.0 W58-W64 N12-N20
      9  307  890 (S30E47 L=  0)   895    269        0 ( 221/ 844- 398/ 933)  14.0 E57-E37 S33-S27
     10  132  858 (S36E75 L=332)  1008     93        3 ( 115/ 826- 153/ 911) -45.0 E80-E70 S37-S32
     11  425  570 (S49E34 L= 12)   513    120        0 ( 386/ 532- 461/ 622) -26.6 E38-E29 S51-S45
     12 1077  477 (S34W21 L= 68)   514     89        0 (1038/ 459-1129/ 504)  26.6 W18-W24 S36-S32
     13 1397  327 (S33W54 L=100)   653     83        1 (1355/ 303-1433/ 358)   5.7 W48-W58 S33-S31
     14 1169  153 (S53W63 L=110)   887     71        1 (1144/ 122-1194/ 189) -11.3 W54-W75 S54-S49
  

    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