Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1034 1819 (N57E17 L= 92)  1090    266        0 ( 916/1794-1165/1851)   0.0 E31-E01 N54-N58
      2  395 1668 (N33E70 L= 38)   890     97        0 ( 353/1638- 440/1691)  16.7 E75-E62 N30-N34
      3 1061 1612 (N39E06 L=102)   823    213        0 ( 957/1594-1161/1635)   3.8 E14-W01 N37-N40
      4  818 1595 (N34E24 L= 85)   287     65        0 ( 791/1558- 843/1626) -38.7 E26-E20 N31-N35
      5  386 1493 (N21E55 L= 54)  1248    261        1 ( 353/1378- 426/1606) -61.9 E60-E51 N13-N28
      6 1594 1377 (N30W37 L=145)  2697    448        4 (1386/1303-1777/1449)  -3.2 W19-W55 N26-N32
      7  324 1080 (S05E48 L= 61)   748    155        1 ( 288/1009- 358/1147)  66.0 E50-E45 S09-N00
      8 1772 1102 (N14W52 L=160)   537    118        1 (1756/1044-1805/1144) -90.0 W50-W55 N10-N16
      9  575 1051 (S03E28 L= 80)   372    106        0 ( 544/1005- 595/1105)  80.5 E30-E26 S06-N00
     10  842 1036 (S01E11 L= 98)   448    125        0 ( 793/ 986- 881/1077)  51.3 E13-E08 S04-N01
     11 1140  723 (S16W11 L=120)   716    283        0 (1055/ 672-1190/ 786)  35.5 W06-W14 S19-S12
     12 1811  694 (S10W65 L=173)   908    170        0 (1758/ 625-1860/ 759)  52.1 W60-W69 S14-S05
     13 1672  450 (S27W63 L=172)   657     69        0 (1631/ 437-1713/ 462)   4.4 W57-W70 S28-S26
  

    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