Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1019 1875 (N59W47 L=341)  2425    291        4 ( 904/1793-1105/1954)   3.2 W26-W79 N55-N61
      2 1512 1725 (N29W64 L=358)   651    152        1 (1447/1685-1562/1750) -45.0 W57-W66 N25-N31
      3  570 1615 (N56E17 L=277)   447     78        1 ( 537/1587- 611/1637)   6.3 E21-E12 N53-N57
      4 1471 1439 (N16W39 L=334)   507     98        1 (1439/1389-1489/1479)  45.0 W37-W42 N12-N17
      5  488 1361 (N39E28 L=267)   386     69        1 ( 449/1343- 528/1376) -15.9 E31-E24 N37-N40
      6 1663  894 (S20W36 L=330)   438    162        1 (1630/ 827-1711/ 967)  36.9 W32-W41 S22-S16
      7 1717  862 (S23W40 L=334)   693    232        2 (1649/ 767-1781/ 961)  26.6 W32-W47 S27-S19
      8 1406  659 (S26W13 L=307)   315     54        0 (1377/ 634-1432/ 684) -63.4 W10-W14 S27-S23
      9 1097  626 (S19E07 L=288)   202     26        1 (1077/ 605-1118/ 645)  45.0 E07-E05 S19-S17
     10 1257  611 (S24W02 L=296)   446    161        0 (1183/ 573-1329/ 638)   0.0 E03-W07 S25-S22
     11  921  495 (S22E21 L=273)   369    120        0 ( 893/ 446- 964/ 527)  33.7 E23-E17 S24-S20
     12 1520  431 (S46W17 L=311)   567    107        0 (1485/ 377-1548/ 484)  49.4 W13-W20 S50-S42
     13 1095  398 (S33E15 L=279)   490    123        0 (1041/ 382-1164/ 417) -12.5 E18-E09 S35-S30
     14  747  353 (S27E39 L=255)   493    103        1 ( 729/ 305- 768/ 406)  36.9 E43-E35 S29-S23
  

    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