Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  378 1582 (N27E60 L=146)   677    166        2 ( 350/1545- 408/1633)  80.5 E62-E55 N24-N30
      2 1538 1411 (N32W32 L=238)   778    196        1 (1454/1364-1615/1448)  -8.7 W25-W38 N29-N33
      3  581 1346 (N15E33 L=173)   293     77        1 ( 568/1305- 599/1390) -68.2 E35-E31 N12-N17
      4 1889 1102 (N16W66 L=272)  1639    180        3 (1869/1029-1916/1179) -77.5 W62-W70 N11-N20
      5 1856  991 (N08W63 L=269)   513    189        3 (1811/ 972-1895/1012)  10.3 W57-W68 N07-N09
      6  241  928 (S15E55 L=151)   470    130        2 ( 209/ 884- 278/ 968) -51.3 E59-E51 S17-S12
      7 1854  865 (N01W65 L=271)  1805    191        2 (1826/ 783-1878/ 959) -73.3 W62-W69 S04-N06
      8  200  865 (S20E60 L=146)  1339    193        3 ( 167/ 810- 234/ 909)  49.4 E64-E55 S23-S16
      9  359  781 (S23E44 L=162)   796    204        3 ( 308/ 716- 419/ 819)  21.8 E48-E38 S26-S19
     10 1632  669 (S14W47 L=253)  2491    521        7 (1493/ 526-1777/ 779)  38.3 W39-W60 S24-S06
     11  917  719 (S19E03 L=203)   627    218        0 ( 826/ 692-1038/ 751)   4.4 E09-W04 S21-S16
     12 1471  732 (S12W33 L=239)   299     89        2 (1431/ 718-1510/ 748)   0.0 W29-W35 S12-S10
     13 1305  634 (S20W24 L=230)   243     59        0 (1279/ 614-1337/ 658)  53.1 W22-W25 S21-S17
     14 1659  625 (S16W51 L=257)   555     71        1 (1629/ 599-1690/ 651)  36.9 W48-W53 S18-S14
     15  628  525 (S37E23 L=183)   334     75        1 ( 590/ 512- 665/ 542)   9.5 E25-E19 S37-S35
  

    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