Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1133 1876 (N54E31 L=293)   692     63        1 (1105/1849-1165/1898) -80.5 E35-E27 N49-N56
      2  760 1787 (N32E47 L=277)  1021    170        1 ( 741/1711- 787/1854) -32.0 E54-E38 N26-N37
      3  546 1796 (N28E68 L=255)   908     96        1 ( 520/1757- 583/1829) -54.5 E72-E64 N24-N31
      4  737 1501 (N13E31 L=293)  1309    301        2 ( 706/1366- 770/1647) -59.5 E37-E26 N04-N21
      5 1265 1510 (N29E00 L=323)   316     76        1 (1243/1472-1284/1545) -53.1 E02-W01 N26-N30
      6  172 1034 (S26E65 L=259)   986    161        5 ( 142/ 948- 202/1097) -71.6 E69-E59 S31-S22
      7  627  706 (S35E16 L=308)  1903    392        4 ( 452/ 670- 803/ 759)  31.0 E30-E05 S42-S27
      8  950  666 (S28W07 L=330)   347    137        1 ( 922/ 606- 975/ 721) -60.3 W05-W09 S31-S24
      9 1303  671 (S17W27 L=351)   512     89        2 (1269/ 626-1346/ 709) -38.7 W23-W29 S19-S15
     10 1125  583 (S27W20 L=344)   909    188        3 (1020/ 559-1206/ 611)  31.0 W14-W24 S30-S23
     11 1444  531 (S20W42 L=  6)   970    146        2 (1396/ 487-1505/ 577)  76.0 W38-W44 S23-S15
     12 1485  473 (S21W49 L= 12)   330     33        0 (1459/ 452-1511/ 492)  76.0 W47-W50 S23-S19
     13  745  372 (S55W05 L=329)   379     33        1 ( 724/ 344- 763/ 400) -45.0 W02-W07 S57-S52
     14 1475  353 (S28W58 L= 21)   414     93        0 (1429/ 342-1521/ 368)  33.7 W54-W60 S29-S25
     15  599  336 (S65E10 L=314)  1709    197        6 ( 521/ 301- 675/ 367)  22.2 E23-W00 S69-S58
  

    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