Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1050 1624 (N42W21 L=324)   260     46        0 (1027/1607-1078/1644) -45.0 W19-W22 N40-N43
      2  879 1455 (N36W02 L=306)  1009    295        2 ( 762/1415-1030/1474) -25.2 E05-W12 N31-N39
      3 1774 1388 (N06W62 L=  5)   471     90        0 (1760/1333-1787/1427)  45.0 W58-W65 N03-N08
      4 1821 1126 (S09W55 L=359)   458     51        1 (1803/1098-1837/1158)  45.0 W52-W57 S10-S07
      5 1888 1117 (S12W64 L=  7)   991    103        5 (1848/1069-1937/1149) -15.9 W58-W72 S14-S09
      6 1721 1000 (S13W43 L=346)  1386    266        2 (1679/ 881-1744/1140)  60.3 W38-W48 S19-S05
      7  225 1034 (N24E57 L=246)  1041    230        1 ( 193/ 940- 274/1139) -58.4 E61-E52 N17-N30
      8 1859 1064 (S14W58 L=  2)   475     63        1 (1843/1029-1878/1089)  76.0 W56-W60 S15-S11
      9 1146  875 (S04W03 L=307)   488    188        0 (1120/ 787-1178/ 961)  48.8 W00-W07 S08-N00
     10  207  853 (N13E62 L=241)  1552    186        5 ( 156/ 782- 260/ 929) -66.0 E68-E56 N08-N17
     11  285  806 (N09E55 L=249)   712     98        2 ( 258/ 761- 311/ 857)  35.5 E58-E50 N06-N12
     12  615  706 (S02E32 L=272)   234     56        0 ( 601/ 670- 629/ 736)  45.0 E33-E30 S03-N00
     13 1410  525 (S33W12 L=315)  1803    369        3 (1275/ 416-1516/ 655)  20.9 W00-W21 S36-S26
     14  307  444 (S14E74 L=229)  1120    100        1 ( 278/ 407- 336/ 479)  18.4 E82-E65 S16-S11
     15  845  219 (S40E41 L=262)  1621    236        2 ( 756/ 160- 954/ 273)   8.4 E56-E28 S43-S36
  

    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