Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1497 1714 (N54W13 L=249)   637    112        2 (1469/1677-1528/1743) -66.8 W10-W16 N49-N56
      2  541 1645 (N17E50 L=186)   509    159        0 ( 511/1599- 564/1685) -32.0 E55-E45 N14-N19
      3  478 1625 (N15E54 L=182)   450     60        1 ( 451/1602- 512/1645)  45.0 E56-E51 N12-N16
      4  415 1522 (N07E54 L=182)  1519    229        2 ( 328/1482- 510/1577)  26.6 E62-E47 N03-N11
      5 1013 1505 (N20E14 L=222)   359     68        1 ( 981/1480-1056/1533)  26.6 E15-E11 N18-N21
      6 1338 1356 (N20W09 L=245)   323    115        0 (1305/1294-1359/1407) -39.8 W05-W11 N17-N22
      7  207 1241 (S13E63 L=173)  1865    262        5 ( 153/1155- 243/1345)  85.2 E67-E58 S18-S06
      8  137 1237 (S13E72 L=164)  1066    150        4 ( 125/1182- 155/1303) -54.5 E76-E68 S16-S09
      9  726 1173 (S06E21 L=215)   420    152        1 ( 649/1149- 790/1188)  18.4 E25-E16 S08-S04
     10  776  992 (S15E13 L=223)   202     97        3 ( 729/ 976- 817/1013)   9.5 E16-E10 S16-S14
     11  309  866 (S33E45 L=191)   294     49        1 ( 291/ 842- 330/ 890)  90.0 E46-E42 S35-S31
     12  498  828 (S31E28 L=207)   877    169        0 ( 430/ 797- 578/ 878)   0.0 E34-E22 S33-S29
     13  868  745 (S27E01 L=234)   406    115        0 ( 802/ 721- 922/ 763)   8.1 E05-W02 S28-S25
     14 1262  725 (S17W22 L=258)   920    287        0 (1125/ 686-1399/ 753)  15.5 W13-W31 S20-S14
     15 1700  612 (S09W57 L=293)   465     85        0 (1678/ 570-1723/ 654) -68.2 W54-W58 S11-S06
     16 1608  614 (S12W49 L=285)   303     68        1 (1578/ 585-1639/ 642)  90.0 W46-W50 S13-S09
     17 1494  543 (S19W44 L=280)   749    248        0 (1430/ 470-1551/ 613) -14.9 W36-W51 S21-S16
     18 1329  560 (S24W33 L=269)   614    160        0 (1254/ 536-1415/ 597)  36.9 W28-W36 S26-S19
     19 1128  568 (S29W20 L=256)   304    104        0 (1068/ 548-1179/ 596)   7.1 W15-W23 S30-S28
     20 1681  462 (S17W64 L=300)  1699    304        4 (1644/ 355-1745/ 560) -63.4 W60-W71 S22-S09
     21 1215  408 (S36W34 L=270)   756    152        1 (1133/ 386-1293/ 432)  18.4 W27-W39 S37-S33
     22 1399  274 (S37W55 L=291)   386    128        0 (1374/ 244-1419/ 305) -14.0 W50-W58 S37-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