Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  865 1560 (N43E02 L=156)   352     58        0 ( 832/1542- 901/1579) -21.8 E05-W01 N41-N45
      2 1721 1493 (N21W64 L=222)  4305    525        8 (1597/1419-1838/1557) -24.0 W56-W76 N13-N28
      3 1372 1333 (N19W28 L=186)   683    192        2 (1314/1272-1443/1366)   5.7 W25-W31 N14-N22
      4  365 1274 (N30E46 L=112)   474    118        0 ( 317/1258- 411/1288)   0.0 E52-E42 N28-N31
      5 1749 1191 (N03W53 L=211)   352    101        2 (1723/1163-1772/1225)  18.4 W51-W54 N01-N06
      6  790 1107 (N15E13 L=145)   721    180        1 ( 754/1004- 817/1184)  74.7 E15-E13 N08-N20
      7 1251 1043 (N04W14 L=172)   262     73        1 (1213/1027-1289/1064) -11.3 W12-W16 N02-N06
      8 1843  900 (S17W60 L=218)   451    124        0 (1821/ 846-1859/ 966)  66.8 W57-W63 S21-S12
      9 1282  920 (S04W14 L=172)   725    139        3 (1212/ 895-1347/ 946) -26.6 W10-W18 S07-S01
     10 1292  618 (S23W11 L=169)  2004    429        4 (1128/ 451-1392/ 810)  43.5 W03-W19 S38-S08
     11 1702  777 (S21W45 L=203)   738     87        2 (1667/ 750-1738/ 806) -15.9 W41-W49 S24-S18
     12  949  549 (S22E13 L=145)   637    227        1 ( 932/ 461- 966/ 664)  70.3 E11-E14 S28-S14
     13  374  462 (S22E64 L= 94)   728    100        0 ( 352/ 420- 393/ 505)  56.3 E63-E66 S25-S18
     14  480  450 (S23E53 L=105)   879    172        2 ( 432/ 417- 526/ 488)  13.0 E55-E51 S26-S20
  

    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