Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1370 1768 (N36W56 L=148)  1589    161        4 (1296/1726-1449/1797) -14.0 W48-W65 N34-N38
      2  694 1723 (N60W00 L= 92)   378     70        2 ( 653/1702- 719/1743)   0.0 E04-W04 N57-N61
      3 1699 1222 (S03W47 L=139)   330     62        0 (1683/1182-1714/1256)  78.7 W45-W48 S05-N00
      4  245 1105 (N29E53 L= 38)  1802    218        5 ( 145/1044- 334/1143) -16.9 E67-E44 N24-N32
      5 1860 1039 (S19W57 L=149)  1553    269        4 (1791/ 967-1933/1116)   7.4 W48-W71 S21-S16
      6  212  880 (N16E61 L= 31)   633     91        2 ( 170/ 845- 254/ 917) -24.0 E65-E56 N13-N18
      7 1739  747 (S32W40 L=132)  2219    303        4 (1698/ 631-1769/ 902)  73.6 W35-W43 S39-S21
      8  352  821 (N10E48 L= 44)   667    152        0 ( 328/ 761- 386/ 890)  66.8 E49-E44 N06-N13
      9  602  813 (N04E30 L= 62)   304    129        0 ( 552/ 788- 655/ 848) -50.2 E32-E26 N01-N07
     10  222  767 (N09E63 L= 29)  1554    154        6 ( 163/ 706- 253/ 820)  45.0 E70-E58 N05-N12
     11 1483  465 (S42W14 L=106)   653    147        2 (1412/ 427-1548/ 504)   0.0 W07-W20 S43-S40
     12  315  472 (S10E70 L= 22)   706     59        0 ( 283/ 456- 338/ 495)   5.2 E76-E65 S10-S08
     13  693  214 (S35E57 L= 35)  1589    134        0 ( 672/ 141- 722/ 271)  24.0 E76-E49 S42-S30
  

    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