Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  562 1642 (N22E49 L=123)  2214    323        3 ( 414/1549- 699/1718)  52.6 E57-E41 N13-N30
      2  829 1663 (N30E31 L=141)   914    151        1 ( 769/1622- 879/1694)  -5.7 E36-E26 N27-N32
      3  635 1452 (N12E35 L=137)   268     21        0 ( 618/1431- 657/1473)  56.3 E36-E33 N10-N13
      4  244 1299 (S05E62 L=110)   553     82        1 ( 217/1263- 265/1332)  78.7 E64-E59 S07-S02
      5  718 1235 (N01E23 L=149)   408     74        1 ( 681/1206- 762/1265)  36.9 E24-E20 N00-N03
      6 1238 1083 (N05W11 L=183)   339     82        1 (1216/1033-1259/1123)  90.0 W08-W11 N01-N07
      7 1756  711 (S02W58 L=230)  1094    216        1 (1706/ 644-1787/ 780) -18.4 W50-W63 S05-N01
      8 1242  733 (S14W20 L=192)   439    136        2 (1206/ 686-1291/ 776)  90.0 W18-W22 S16-S10
      9 1473  637 (S14W38 L=210)   604    120        0 (1429/ 595-1520/ 696)  69.4 W36-W39 S17-S09
     10 1210  661 (S19W21 L=193)   243     58        1 (1177/ 648-1242/ 681)  26.6 W18-W22 S20-S18
     11  858  491 (S40W04 L=176)   925    280        1 ( 733/ 463-1009/ 516)  16.7 E05-W15 S42-S36
     12 1588  453 (S21W56 L=228)   595    118        0 (1522/ 414-1640/ 494)  49.4 W52-W58 S24-S17
     13 1341  355 (S34W44 L=215)   402    118        0 (1310/ 337-1385/ 394)  -7.1 W39-W47 S35-S32
  

    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