Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1207 1899 (N56W53 L=  4)   701     81        0 (1191/1857-1230/1928)  17.5 W45-W64 N52-N59
      2 1105 1856 (N55W35 L=346)   655     86        3 (1072/1816-1129/1889)  37.9 W30-W40 N51-N58
      3 1070 1639 (N38W17 L=328)   957    168        1 ( 981/1608-1156/1661) -13.0 W10-W23 N36-N40
      4 1379 1595 (N29W37 L=348)   709    189        1 (1321/1542-1477/1632) -45.0 W32-W42 N23-N32
      5 1356 1493 (N23W31 L=342)   331    104        2 (1320/1461-1405/1513)  -9.5 W28-W34 N21-N24
      6 1401 1418 (N18W31 L=342)   291     62        1 (1364/1393-1425/1447)  21.8 W28-W33 N16-N19
      7  766 1405 (N29E10 L=301)  1019    378        0 ( 588/1381- 946/1420) -16.3 E22-W02 N24-N31
      8 1172 1330 (N17W14 L=325)   619    242        0 (1061/1309-1287/1355) -11.3 W07-W22 N14-N18
      9  234 1297 (N31E56 L=254)   997    146        1 ( 184/1250- 293/1354) -21.3 E66-E48 N27-N35
     10  736 1287 (N22E13 L=298)   256    111        0 ( 677/1269- 789/1300) -23.2 E16-E09 N20-N23
     11  625 1227 (N20E21 L=289)   265     56        0 ( 593/1200- 654/1255) -51.3 E23-E19 N17-N22
     12  686 1175 (N16E18 L=293)   222     57        0 ( 659/1155- 720/1199)  14.0 E19-E15 N14-N16
     13  820 1127 (N11E10 L=301)   305     93        0 ( 772/1092- 856/1163) -51.3 E12-E08 N08-N13
     14  524  884 (N01E33 L=278)   405    124        0 ( 473/ 845- 574/ 928)  18.4 E37-E28 N00-N03
     15 1879  823 (S27W63 L= 14)  1566    151        2 (1812/ 770-1926/ 876)  13.2 W54-W71 S28-S23
     16 1133  739 (S17W01 L=312)   541    123        1 (1082/ 700-1183/ 796)  33.7 E02-W04 S18-S14
     17 1013  719 (S16E06 L=305)   311    117        2 ( 978/ 673-1061/ 760)  33.7 E08-E02 S18-S14
     18  735  673 (S14E24 L=287)   232    103        0 ( 702/ 633- 774/ 708) -63.4 E25-E22 S17-S11
     19  856  446 (S31E23 L=287)  1022    251        2 ( 826/ 333- 908/ 555)  47.1 E29-E16 S38-S24
  

    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