Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1442 1793 (N55W58 L=104)   598     73        1 (1413/1758-1457/1820)  56.3 W52-W66 N51-N57
      2  314 1294 (N21E53 L=353)  1456    255        4 ( 215/1257- 415/1358)  -2.4 E66-E42 N19-N25
      3 1796 1268 (N15W59 L=106)   968    116        4 (1754/1226-1834/1303) -26.6 W55-W63 N12-N17
      4  715 1279 (N21E20 L= 26)   239     83        0 ( 687/1254- 737/1302) -18.4 E21-E18 N18-N21
      5 1879 1227 (N11W70 L=116)   640     78        0 (1857/1188-1899/1258)  16.7 W64-W75 N09-N13
      6 1633 1022 (N01W40 L= 86)   405    120        0 (1618/ 957-1648/1086) -90.0 W39-W41 S02-N05
      7 1302 1042 (N04W17 L= 63)   236    109        0 (1258/1007-1349/1071)  26.6 W14-W20 N02-N05
      8  417  974 (N02E40 L=  6)   607    184        2 ( 340/ 925- 494/1026) -20.0 E46-E34 S01-N04
      9 1302  813 (S10W17 L= 63)  1361    554        0 (1111/ 679-1412/1003)  46.6 W04-W23 S17-N01
     10 1809  929 (S06W56 L=102)   797    104        0 (1753/ 906-1860/ 946)   0.0 W50-W62 S07-S04
     11  942  910 (S03E05 L= 41)   309     81        0 ( 912/ 877- 978/ 944)  36.9 E07-E03 S04-N00
     12  595  847 (S06E28 L= 18)   520    182        0 ( 523/ 814- 640/ 902)  26.6 E33-E24 S07-S02
     13  295  710 (S15E55 L=351)   995    233        1 ( 240/ 615- 337/ 800) -67.4 E59-E52 S21-S09
     14  267  698 (S16E59 L=348)   456     86        2 ( 248/ 653- 289/ 736) -90.0 E60-E56 S18-S13
  

    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