Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  359 1599 (N12E64 L=266)   578    107        2 ( 337/1575- 383/1618)   0.0 E67-E60 N10-N13
      2  671 1477 (N10E33 L=297)   700    261        1 ( 600/1387- 726/1576) -29.7 E41-E26 N05-N14
      3  145 1179 (S16E68 L=262)   726    138        1 ( 115/1162- 171/1210)  21.8 E72-E64 S17-S14
      4  597 1176 (S09E29 L=301)   240     57        1 ( 582/1149- 617/1202) -33.7 E30-E27 S10-S06
      5  334 1083 (S19E46 L=284)   893    293        0 ( 236/1026- 419/1145)  -6.3 E55-E37 S21-S16
      6  172 1020 (S25E60 L=270)   795    177        0 ( 133/ 954- 214/1078)  58.0 E63-E56 S29-S21
      7  487 1045 (S18E33 L=297)   247     72        0 ( 458/1022- 516/1075)  53.1 E34-E31 S20-S16
      8 1810  972 (N13W52 L= 22)   375    115        1 (1795/ 915-1821/1036) -50.2 W49-W54 N09-N16
      9  549  985 (S21E28 L=302)   685    180        2 ( 461/ 950- 621/1017)  24.4 E33-E22 S24-S18
     10  845  925 (S17E08 L=322)   344    114        0 ( 782/ 877- 887/ 978) -20.6 E12-E04 S19-S15
     11  738  854 (S24E13 L=317)   203     71        2 ( 717/ 816- 760/ 889)  78.7 E13-E11 S26-S21
     12  420  778 (S36E35 L=295)   318    109        0 ( 377/ 758- 474/ 799)   0.0 E38-E29 S36-S34
     13 1322  766 (S13W24 L=354)   366     70        4 (1298/ 719-1355/ 797) -53.1 W22-W25 S15-S11
     14  441  575 (S49E32 L=297)   796    222        2 ( 381/ 527- 499/ 633)  32.7 E40-E26 S54-S44
     15 1409  418 (S29W45 L= 15)  3792    884        4 (1128/ 363-1730/ 475)  21.6 W24-W72 S35-S16
  

    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