Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1507 1712 (N31W59 L=234)   789    125        2 (1450/1690-1568/1732) -14.0 W52-W64 N27-N32
      2 1131 1662 (N38W27 L=201)  1118    282        0 (1001/1612-1254/1704)  -5.2 W15-W37 N36-N39
      3  349 1280 (N33E42 L=133)   883    189        2 ( 263/1261- 446/1299) -14.7 E51-E32 N30-N36
      4  521 1158 (N22E28 L=146)   224     63        0 ( 486/1144- 555/1170)   0.0 E30-E25 N20-N22
      5  170  968 (N18E64 L=111)  1818    242        1 (  87/ 916- 253/1043)   5.9 E82-E52 N14-N20
      6 1767  986 (S17W48 L=222)   296     42        0 (1754/ 958-1782/1014) -90.0 W46-W49 S18-S15
      7 1826  888 (S24W53 L=228)   737     93        1 (1790/ 857-1859/ 931)  23.2 W49-W57 S26-S22
      8 1380  723 (S22W14 L=189)   226     50        0 (1365/ 689-1395/ 752)  63.4 W12-W15 S24-S20
      9 1186  622 (S24W00 L=175)   677    251        1 (1132/ 520-1241/ 735)  47.7 E05-W05 S29-S17
     10  987  595 (S21E12 L=162)   794    246        3 ( 950/ 481-1033/ 706)  52.4 E17-E06 S27-S14
     11  701  609 (S13E29 L=145)   266     75        1 ( 670/ 576- 732/ 641)  18.4 E32-E26 S14-S11
     12 1244  528 (S31W01 L=176)   372    108        0 (1188/ 500-1291/ 568)   8.1 E02-W05 S32-S29
     13  665  379 (S27E42 L=132)   723    184        1 ( 628/ 301- 691/ 474)  38.2 E50-E36 S31-S20
     14 1556  418 (S50W26 L=201)  1185    198        0 (1460/ 381-1651/ 473)  -2.6 W15-W37 S52-S47
  

    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