Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  262 1495 (N11E73 L=205)  2078    108        4 ( 230/1442- 298/1541) -60.3 E81-E66 N07-N14
      2  298 1453 (N09E64 L=214)   781     91        1 ( 269/1426- 325/1499)  59.0 E66-E60 N07-N12
      3 1424 1430 (N32W18 L=295)   354     86        1 (1377/1412-1473/1444)  23.2 W14-W21 N30-N33
      4 1471 1041 (N08W27 L=305)   219     63        0 (1447/1008-1495/1064) -36.9 W24-W28 N06-N09
      5 1703 1032 (N13W44 L=322)   333     58        1 (1673/1002-1726/1062)  45.0 W42-W46 N11-N15
      6 1528  964 (N05W32 L=310)   747    130        2 (1497/ 921-1577/1039) -74.1 W29-W35 N02-N09
      7  212  951 (S22E59 L=219)   898    118        0 ( 194/ 894- 232/1010)  90.0 E61-E56 S25-S18
      8 1769  971 (N11W52 L=329)   461    116        0 (1744/ 909-1788/1001) -45.0 W49-W54 N07-N12
      9  783  768 (S22E09 L=268)   228     47        0 ( 760/ 751- 811/ 790)   0.0 E11-E07 S23-S20
     10  518  643 (S36E28 L=250)   919    175        2 ( 451/ 605- 593/ 705)  -8.7 E33-E20 S38-S33
     11 1186  638 (S21W19 L=297)   212     69        0 (1150/ 625-1222/ 652)  11.3 W16-W21 S21-S20
     12 1567  541 (S18W49 L=327)   341     52        2 (1544/ 517-1588/ 570) -36.9 W47-W51 S19-S16
     13 1500  462 (S25W48 L=326)   839    125        3 (1439/ 422-1549/ 500)  45.0 W44-W52 S28-S21
  

    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