Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1511 1709 (N54W15 L=249)   595     86        2 (1484/1675-1543/1737) -51.3 W11-W18 N50-N56
      2  565 1636 (N17E48 L=186)   499    150        1 ( 529/1592- 593/1681) -26.6 E53-E43 N14-N19
      3  496 1621 (N15E52 L=181)   477     78        1 ( 466/1598- 531/1649)  36.9 E54-E49 N13-N16
      4  423 1510 (N07E53 L=181)  1440    328        5 ( 334/1464- 533/1571)  32.7 E60-E45 N02-N11
      5 1059 1485 (N20E11 L=223)   367     95        1 (1018/1463-1118/1514)  18.4 E12-E06 N17-N21
      6 1362 1343 (N20W11 L=245)   257    107        0 (1329/1283-1385/1395) -39.8 W07-W13 N17-N22
      7  238 1265 (S11E60 L=174)  1478    204        4 ( 189/1189- 279/1349)  77.5 E65-E56 S15-S06
      8  157 1223 (S14E68 L=166)  1742    291        9 ( 132/1145- 191/1305) -59.0 E74-E62 S19-S09
      9  741 1164 (S06E20 L=214)   370    138        2 ( 669/1152- 812/1175)  26.6 E23-E15 S08-S04
     10 1723  987 (N11W44 L=277)   267     61        2 (1705/ 952-1746/1014) -71.6 W41-W45 N09-N13
     11  336  865 (S33E42 L=192)   324     61        1 ( 313/ 849- 364/ 892)  11.3 E44-E39 S34-S31
     12  618  797 (S30E19 L=215)   448    141        2 ( 554/ 748- 692/ 829)  -4.8 E24-E12 S31-S28
     13  896  733 (S27W01 L=234)   355    112        1 ( 830/ 712- 947/ 750)  18.4 E03-W04 S27-S24
     14 1297  710 (S16W25 L=258)   873    295        0 (1160/ 667-1437/ 741)  15.5 W16-W34 S19-S13
     15 1711  593 (S09W59 L=293)   374     63        0 (1689/ 560-1731/ 629) -78.7 W57-W60 S11-S06
     16 1605  595 (S13W50 L=283)   326     85        0 (1575/ 578-1636/ 618)   0.0 W46-W52 S13-S11
     17 1368  542 (S23W36 L=270)  1656    607        2 (1094/ 459-1566/ 599)  14.4 W18-W53 S30-S16
     18 1702  496 (S14W64 L=298)   804    101        3 (1663/ 441-1756/ 552)  77.5 W61-W66 S18-S09
     19 1230  396 (S36W36 L=269)   533    139        1 (1153/ 374-1294/ 418)  15.3 W29-W40 S37-S33
     20 1405  268 (S37W56 L=290)   500    188        0 (1376/ 225-1428/ 304) -12.5 W51-W60 S38-S35
  

    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