Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1343 1749 (N45W49 L=351)  1555    228        4 (1286/1657-1415/1799)  15.3 W38-W60 N39-N47
      2  705 1730 (N61E15 L=288)   524     76        1 ( 673/1697- 745/1755)   6.3 E18-E09 N57-N62
      3  924 1549 (N41W04 L=306)   342     66        1 ( 893/1516- 948/1573) -68.2 W01-W05 N38-N43
      4 1154 1493 (N32W18 L=321)  1454    387        8 (1006/1435-1338/1558) -37.9 W09-W29 N25-N39
      5 1687 1532 (N22W63 L=  5)   428     50        2 (1662/1510-1707/1555) -26.6 W59-W65 N20-N23
      6  323 1413 (N41E53 L=250)   701    124        1 ( 281/1366- 379/1450) -20.6 E61-E44 N37-N43
      7 1751 1322 (N09W57 L=359)   403     68        1 (1733/1282-1767/1356)  31.0 W54-W60 N07-N10
      8  836 1023 (N10E11 L=291)   397    194        0 ( 783/ 947- 908/1089) -63.4 E13-E07 N04-N14
      9 1721  952 (S11W45 L=347)   619    107        3 (1699/ 901-1741/1009)  51.3 W42-W47 S14-S07
     10  218  954 (N13E60 L=243)   903    110        3 ( 195/ 888- 243/1003)  74.1 E62-E56 N08-N15
     11 1262  759 (S13W10 L=312)   738    409        1 (1206/ 686-1363/ 823)  10.3 W05-W16 S17-S09
     12 1140  670 (S16W01 L=304)   260    145        2 (1109/ 598-1168/ 720)  60.3 E02-W03 S20-S13
     13 1391  515 (S32W15 L=318)  1460    312        2 (1268/ 458-1500/ 625)  18.4 W06-W24 S35-S26
     14  273  543 (S14E69 L=234)   601     59        1 ( 253/ 515- 296/ 565)  71.6 E71-E65 S15-S11
     15  764  212 (S44E44 L=258)  2428    299        5 ( 642/ 167- 877/ 271)   6.2 E69-E30 S48-S40
  

    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