Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1231 1624 (N43W13 L=279)  2364    495        6 ( 998/1570-1443/1677)  -3.0 E06-W32 N39-N46
      2 1730 1520 (N37W62 L=328)  1384    140        1 (1696/1457-1776/1565)  20.9 W54-W77 N32-N40
      3  358 1516 (N29E59 L=208)   477     57        1 ( 334/1495- 380/1545)  45.0 E60-E55 N27-N30
      4 1810 1282 (N21W60 L=327)  1323    216        1 (1759/1226-1851/1347) -53.1 W55-W66 N17-N25
      5 1190 1155 (N11W10 L=276)  1627    407        4 (1136/ 953-1220/1337) -75.4 W05-W11 S01-N22
      6  473 1145 (N06E37 L=230)  1563    363        5 ( 418/ 988- 516/1306) -72.5 E43-E32 S03-N16
      7  644 1189 (N10E25 L=241)   413    138        1 ( 623/1128- 676/1243)  90.0 E26-E23 N06-N13
      8  720  769 (S15E18 L=248)   962    372        0 ( 651/ 644- 765/ 916)  71.6 E23-E15 S23-S05
      9 1385  638 (S20W26 L=293)   234     70        0 (1353/ 622-1420/ 660) -21.8 W23-W28 S21-S18
     10 1009  495 (S32W02 L=268)   266     55        0 ( 976/ 477-1041/ 514)  26.6 W00-W04 S33-S30
     11 1675  448 (S32W61 L=328)  1886    117        3 (1620/ 415-1733/ 477)  -5.7 W52-W72 S35-S30
     12 1485  362 (S40W45 L=312)   576     67        2 (1450/ 343-1514/ 385) -12.5 W40-W49 S41-S37
     13  605  276 (S54E41 L=226)  2781    256        6 ( 500/ 240- 722/ 312)  -2.0 E63-E24 S59-S50
  

    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