Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1249 1872 (N59E22 L=271)   599     39        1 (1229/1844-1266/1897) -37.9 E26-E17 N55-N62
      2 1049 1502 (N21E13 L=280)   368    186        0 ( 954/1455-1090/1531)   5.7 E18-E08 N18-N22
      3  322 1420 (S01E58 L=234)   467     61        0 ( 293/1395- 350/1445)  -7.1 E62-E54 S02-N00
      4 1799 1213 (N29W47 L=340)  1851    390        2 (1770/1045-1845/1371) -64.7 W43-W54 N19-N38
      5 1752 1149 (N23W43 L=336)   803    223        0 (1710/1051-1779/1248) -51.3 W37-W47 N17-N27
      6 1559 1175 (N17W27 L=320)   309    138        0 (1515/1122-1590/1227)  77.5 W25-W28 N12-N21
      7 1622  992 (N09W36 L=329)   237     38        0 (1605/ 958-1634/1015) -56.3 W34-W37 N07-N10
      8  216  963 (S30E58 L=235)  2181    309        3 (  97/ 915- 366/ 991)   8.1 E83-E41 S34-S26
      9 1815  757 (N04W61 L=354)   760    106        0 (1763/ 739-1860/ 785)  31.0 W55-W65 N01-N07
     10  836  727 (S28E02 L=290)   473    100        0 ( 783/ 692- 872/ 768)  63.4 E04-W00 S31-S25
     11 1282  558 (S24W31 L=323)   631    227        0 (1179/ 536-1392/ 584)  33.7 W24-W36 S27-S19
     12 1522  440 (S22W54 L=347)  1486    274        2 (1414/ 385-1609/ 517)  69.0 W49-W58 S28-S15
     13 1521  373 (S26W60 L=352)   370     67        0 (1487/ 354-1552/ 393)  45.0 W57-W61 S27-S23
  

    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