Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1434 1581 (N26W44 L= 22)   686    125        3 (1379/1555-1486/1608) -26.6 W39-W47 N23-N27
      2 1740 1542 (N13W68 L= 46)  1008    248        1 (1685/1523-1790/1560) -19.7 W61-W76 N10-N15
      3 1815 1393 (N03W68 L= 46)   978    242        1 (1792/1318-1831/1474)  30.3 W61-W74 N00-N07
      4 1460 1418 (N17W38 L= 16)   564     93        1 (1409/1390-1507/1443) -51.3 W35-W40 N14-N19
      5  768 1419 (N37E05 L=332)   209     38        0 ( 743/1400- 785/1439) -14.0 E07-E03 N35-N37
      6 1117 1213 (N15W10 L=348)   191    113        0 (1069/1197-1177/1220) -18.4 W07-W13 N13-N16
      7 1861 1140 (S11W60 L= 38)   511     79        2 (1844/1107-1883/1167)  26.6 W57-W63 S12-S09
      8  427 1082 (N24E37 L=301)   902    247        2 ( 361/ 989- 519/1166) -58.4 E41-E31 N17-N30
      9 1701 1080 (S09W43 L= 21)   585    167        1 (1678/1004-1733/1150)  41.2 W39-W47 S12-S05
     10  864 1052 (N13E08 L=329)   739    253        1 ( 755/ 985- 984/1117) -50.2 E13-E02 N06-N18
     11  288  816 (N11E54 L=284)   810    216        3 ( 223/ 765- 353/ 849) -26.6 E60-E49 N07-N13
     12  476  801 (N07E39 L=299)   252     79        0 ( 452/ 771- 492/ 840)  45.0 E41-E36 N05-N08
     13 1020  733 (S09E08 L=330)   719    259        1 ( 891/ 669-1117/ 807) -50.2 E13-E03 S14-S02
     14  722  476 (S18E34 L=304)  3105    542        8 ( 643/ 303- 806/ 610)  40.6 E46-E25 S28-S10
     15  953  385 (S29E23 L=314)   319     84        0 ( 936/ 348- 971/ 420)  45.0 E26-E21 S31-S27
  

    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