Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1599 1640 (N34W62 L=314)   624     86        1 (1565/1613-1642/1655)   0.0 W56-W69 N32-N35
      2 1695 1609 (N29W73 L=325)   676     89        1 (1669/1586-1734/1628) -20.6 W67-W78 N27-N30
      3  479 1436 (N38E37 L=215)  2592    531        6 ( 326/1359- 698/1578) -19.4 E68-E17 N31-N49
      4 1290 1419 (N26W24 L=276)   364    147        1 (1219/1409-1363/1430) -18.4 W19-W29 N24-N27
      5 1806 1352 (N12W65 L=317)   665    127        1 (1792/1293-1821/1418)  45.0 W62-W69 N08-N15
      6 1213 1251 (N17W15 L=267)   504    114        2 (1180/1192-1256/1303)  74.1 W13-W17 N13-N20
      7 1579 1243 (N11W40 L=292)   504    171        0 (1501/1207-1646/1263) -26.6 W34-W44 N07-N12
      8 1899  972 (S12W67 L=319)  1555    205        2 (1868/ 886-1936/1056)  33.7 W62-W76 S16-S08
      9  661  806 (S03E25 L=227)   320    132        3 ( 616/ 778- 726/ 833) -15.9 E28-E21 S04-S01
     10  623  719 (S08E29 L=223)   296     95        1 ( 603/ 680- 644/ 761)  51.3 E31-E27 S10-S05
     11  463  684 (S09E42 L=210)   385     89        3 ( 429/ 656- 484/ 724)  26.6 E45-E39 S10-S06
     12  290  680 (S08E58 L=193)   373     65        1 ( 268/ 650- 315/ 711) -76.0 E60-E55 S10-S06
     13  543  635 (S13E37 L=215)   827    290        4 ( 488/ 576- 615/ 697) -20.6 E40-E31 S16-S08
     14 1596  625 (S28W35 L=287)   357     91        0 (1546/ 608-1631/ 650)   0.0 W30-W38 S29-S26
     15  224  590 (S14E75 L=177)  1038     68        0 ( 206/ 560- 239/ 623)  51.3 E81-E69 S16-S11
     16  329  494 (S21E65 L=187)  1025    164        0 ( 316/ 417- 343/ 562)  30.1 E76-E57 S27-S16
     17  628  504 (S22E35 L=217)   653    110        2 ( 586/ 457- 675/ 553)  49.4 E39-E31 S25-S18
     18  741  524 (S22E26 L=226)   337     61        1 ( 712/ 487- 774/ 553)  31.0 E28-E23 S24-S20
     19 1661  450 (S44W48 L=300)   527     25        1 (1639/ 430-1683/ 471)  14.0 W45-W51 S46-S42
     20  952  163 (S57E29 L=223)   529     58        1 ( 927/ 133- 978/ 191)  30.3 E37-E25 S60-S53
  

    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