Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1530 1744 (N32W63 L=295)   638     54        0 (1503/1717-1558/1767)   5.7 W57-W67 N30-N33
      2 1303 1690 (N35W39 L=271)   581    142        1 (1247/1633-1345/1745)  78.7 W37-W41 N30-N40
      3  659 1609 (N48E12 L=220)   367     65        1 ( 629/1582- 687/1630)   9.5 E14-E08 N45-N49
      4 1557 1595 (N23W52 L=284)   346     85        1 (1521/1577-1596/1613) -26.6 W48-W54 N20-N24
      5 1483 1559 (N22W44 L=276)   594    122        1 (1438/1514-1522/1604) -81.9 W41-W45 N19-N26
      6  508 1569 (N49E27 L=205)   508     96        0 ( 483/1531- 541/1599) -71.6 E29-E23 N45-N51
      7 1065 1545 (N32W16 L=248)  1363    360        2 ( 889/1516-1218/1574) -17.7 W04-W26 N28-N36
      8 1596 1516 (N17W50 L=282)   553    193        0 (1516/1468-1634/1570)   8.7 W41-W54 N15-N20
      9 1468 1286 (N08W32 L=264)  1105    373        3 (1305/1249-1591/1334) -14.7 W22-W41 N03-N12
     10 1858 1275 (S03W64 L=296)   406     33        0 (1836/1254-1880/1295) -36.9 W61-W67 S04-S01
     11  439 1107 (N20E35 L=197)  1132    325        1 ( 295/1052- 556/1190) -34.4 E46-E26 N14-N27
     12  199  922 (N14E59 L=172)   980    223        1 ( 169/ 830- 226/1036)  80.5 E62-E56 N08-N20
     13  842  954 (N03E12 L=220)   255     72        1 ( 810/ 920- 878/ 984)  14.0 E13-E09 N01-N04
     14 1252  866 (S11W09 L=241)   681    189        2 (1157/ 834-1328/ 908) -21.8 W03-W13 S13-S08
     15 1262  775 (S16W08 L=240)   415    131        0 (1201/ 746-1313/ 816)   8.1 W04-W11 S17-S14
     16 1782  705 (S34W48 L=280)   847    141        0 (1720/ 670-1827/ 752)   9.5 W41-W53 S35-S32
     17  825  679 (S12E19 L=213)   302    126        0 ( 761/ 660- 869/ 711)  -8.1 E22-E15 S12-S10
     18  695  654 (S11E28 L=204)   244     82        0 ( 678/ 614- 721/ 687)  53.1 E28-E25 S13-S09
     19  707  390 (S27E37 L=194)  1825    398        3 ( 562/ 316- 895/ 486)   5.4 E53-E21 S29-S24
     20 1119  293 (S45E15 L=217)  1553    274        1 (1012/ 239-1234/ 379)   9.9 E25-E02 S47-S40
  

    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