Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1171 1863 (N57E26 L=357)  1454    169        1 (1086/1822-1235/1889)  10.0 E34-E17 N53-N61
      2  499 1704 (N23E62 L=320)  2289    244        3 ( 472/1611- 545/1805) -32.0 E78-E51 N16-N31
      3 1583 1663 (N56W27 L= 49)   820    110        2 (1552/1614-1610/1697)  55.0 W22-W33 N50-N61
      4 1539 1316 (N27W24 L= 47)   239     99        0 (1498/1282-1576/1344)  -8.1 W20-W27 N25-N27
      5 1802 1035 (N19W52 L= 74)   426     61        2 (1771/1011-1827/1052)   0.0 W48-W54 N16-N19
      6 1865  943 (N16W62 L= 84)  1357    205        2 (1838/ 852-1891/1036) -68.2 W56-W65 N09-N20
      7  353  905 (S28E42 L=341)   733    174        1 ( 294/ 828- 380/ 956) -69.4 E48-E38 S32-S24
      8  276  809 (S36E51 L=332)   408     79        2 ( 249/ 784- 309/ 832)  -8.1 E53-E46 S37-S34
      9  491  798 (S31E29 L=354)   303    105        0 ( 441/ 781- 544/ 822)  32.0 E32-E24 S33-S28
     10  631  738 (S31E17 L=  6)   298     88        0 ( 597/ 722- 668/ 759)  31.0 E19-E14 S32-S28
     11  487  410 (S61E29 L=353)   386     45        0 ( 471/ 382- 503/ 436)  50.2 E32-E26 S63-S57
     12  568  366 (S62E17 L=  5)   574     73        2 ( 538/ 337- 606/ 395) -18.4 E21-E11 S63-S59
     13 1326  345 (S34W46 L= 69)   887    111        2 (1281/ 318-1382/ 373)  20.6 W41-W50 S37-S31
  

    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