Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1130 1770 (N42E17 L=173)   852    224        1 (1078/1704-1176/1842) -37.6 E24-E11 N38-N48
      2  531 1684 (N20E53 L=138)   373     37        1 ( 507/1667- 557/1697)   0.0 E55-E50 N19-N21
      3  568 1584 (N15E44 L=146)   699    151        0 ( 548/1524- 593/1641) -45.0 E48-E40 N10-N18
      4 1268 1091 (N03W12 L=202)   278     64        1 (1238/1061-1308/1111)  14.0 W09-W13 N01-N04
      5 1789 1037 (N15W48 L=238)   401     72        0 (1776/ 995-1802/1082) -78.7 W46-W49 N12-N18
      6  254 1021 (S24E52 L=138)   815    250        1 ( 184/ 969- 333/1069)  33.7 E58-E45 S28-S20
      7 1431 1030 (N04W23 L=213)   228     32        1 (1408/1011-1451/1051)   0.0 W21-W24 N02-N05
      8 1457  835 (S06W30 L=220)   727    135        1 (1433/ 761-1477/ 902) -60.3 W27-W32 S09-S02
      9 1193  775 (S16W16 L=206)  1098    222        1 (1068/ 735-1301/ 832)  45.0 W09-W21 S21-S10
     10 1405  802 (S09W28 L=218)   275     73        0 (1373/ 772-1425/ 828) -26.6 W25-W29 S10-S07
     11 1862  808 (N06W64 L=254)   472    177        0 (1827/ 793-1902/ 824)  10.3 W59-W70 N04-N07
     12  890  516 (S40W07 L=197)  1755    358        3 ( 731/ 482-1075/ 558)  13.5 E05-W20 S44-S35
     13 1495  458 (S24W48 L=238)  1784    407        0 (1329/ 427-1638/ 504)  24.4 W37-W59 S29-S19
  

    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