Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1405 1734 (N40W54 L=260)   500     66        1 (1370/1713-1437/1751)  -7.1 W50-W58 N38-N42
      2 1018 1678 (N48W18 L=224)   276     68        0 ( 998/1643-1046/1701)  26.6 W15-W21 N45-N49
      3  692 1551 (N46E14 L=192)  1451    349        8 ( 571/1479- 856/1616)   4.4 E25-W01 N43-N49
      4 1574 1373 (N15W43 L=250)   530    213        1 (1488/1299-1630/1436) -61.4 W39-W45 N09-N20
      5  513 1347 (N36E30 L=176)   292     67        1 ( 478/1324- 546/1369) -33.7 E33-E27 N33-N37
      6  901 1140 (N16E05 L=201)  1006    342        3 ( 828/1010- 989/1276) -78.1 E07-E01 N06-N25
      7  599 1233 (N27E24 L=182)   241     81        0 ( 568/1213- 647/1245)   0.0 E26-E20 N25-N27
      8  314  774 (N03E53 L=153)   381     87        1 ( 284/ 735- 341/ 804) -68.2 E55-E50 N00-N05
      9  723  738 (S04E23 L=183)   233     83        0 ( 712/ 698- 735/ 785)  68.2 E24-E22 S06-S01
     10 1652  727 (S25W36 L=242)   955    205        1 (1582/ 687-1726/ 785) -26.6 W30-W42 S27-S19
     11 1635  458 (S45W37 L=243)  3021    456        7 (1437/ 349-1805/ 554)   0.0 W16-W64 S49-S41
     12  332  452 (S18E68 L=138)  3265    183        5 ( 270/ 377- 391/ 521) -74.7 E78-E61 S23-S12
     13  610  423 (S23E42 L=164)   892    168        4 ( 581/ 342- 641/ 503)  45.0 E48-E36 S28-S17
     14  408  409 (S21E62 L=144)   981    100        6 ( 386/ 367- 437/ 462)  37.9 E67-E57 S24-S17
  

    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