Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  724 1752 (N62W06 L= 18)   407     67        0 ( 702/1724- 755/1775)   7.1 W01-W10 N59-N64
      2 1140 1713 (N42W35 L= 48)   739    147        1 (1067/1674-1199/1745) -58.0 W31-W37 N38-N46
      3  678 1696 (N59E03 L= 10)   347     52        0 ( 655/1666- 699/1718) -71.6 E05-W00 N55-N61
      4 1500 1693 (N28W59 L= 72)   647    143        0 (1417/1677-1560/1705) -28.6 W52-W64 N25-N31
      5  485 1593 (N57E28 L=345)  1656    362        4 ( 339/1488- 615/1669)   7.7 E48-E10 N53-N60
      6 1194 1529 (N29W27 L= 39)   301     35        0 (1172/1509-1218/1549) -90.0 W24-W28 N27-N30
      7 1353 1478 (N22W34 L= 47)   320     98        2 (1312/1454-1387/1498) -45.0 W31-W36 N19-N23
      8 1480 1468 (N17W42 L= 54)   265     67        2 (1455/1436-1504/1492) -90.0 W40-W43 N14-N19
      9 1257 1351 (N18W23 L= 36)   473    225        1 (1158/1331-1370/1385) -42.0 W17-W28 N13-N22
     10  320 1125 (N29E46 L=327)   317     67        0 ( 284/1110- 348/1151)   8.1 E49-E42 N27-N30
     11 1512  658 (S29W20 L= 33)  1051    329        2 (1400/ 586-1636/ 747)   3.0 W11-W30 S31-S25
     12 1260  329 (S44E07 L=  5)  1197    202        2 (1178/ 277-1341/ 382)  12.1 E14-W00 S46-S42
     13  921  219 (S41E38 L=335)   807    146        0 ( 881/ 175- 972/ 279)  70.0 E41-E35 S46-S35
  

    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