Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  966 1829 (N43E37 L=184)   580     50        1 ( 940/1800- 994/1852)  90.0 E40-E33 N40-N45
      2 1344 1689 (N46E01 L=220)  1427    224        2 (1300/1605-1403/1744) -85.9 E03-W02 N38-N52
      3 1798 1374 (N41W48 L=269)   953    104        2 (1759/1328-1838/1415) -20.6 W43-W54 N38-N43
      4 1687 1341 (N33W35 L=255)   507     91        0 (1670/1300-1704/1388) -78.7 W33-W36 N30-N36
      5 1471 1341 (N25W17 L=238)   252     69        0 (1437/1325-1506/1363)   0.0 W14-W20 N24-N26
      6  368 1188 (S13E46 L=175)   264     45        0 ( 347/1165- 387/1210)  71.6 E47-E44 S14-S11
      7  910  686 (S28W04 L=224)   347    123        0 ( 864/ 646- 970/ 715)  60.3 W01-W06 S31-S24
      8 1419  592 (S17W37 L=258)   260     85        0 (1379/ 573-1447/ 622)  63.4 W35-W38 S19-S14
      9  673  569 (S42E09 L=212)   258     28        0 ( 656/ 545- 690/ 591) -63.4 E10-E07 S44-S40
     10 1098  401 (S39W28 L=249)   750    116        2 (1048/ 362-1149/ 450)  82.9 W25-W29 S42-S34
     11 1242  313 (S39W44 L=265)   963    230        1 (1161/ 252-1328/ 393) -81.9 W42-W47 S45-S31
     12  838  291 (S57W19 L=239)   335     54        0 ( 825/ 258- 855/ 318) -45.0 W16-W22 S59-S54
     13 1067  289 (S47W35 L=256)   308     53        0 (1042/ 266-1089/ 309)   0.0 W31-W38 S48-S45
  

    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