Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1746 1598 (N20W72 L=297)   757     70        0 (1711/1583-1778/1621)   0.0 W65-W84 N18-N20
      2 1785 1469 (N11W66 L=290)  1249    125        1 (1738/1417-1822/1507) -56.3 W60-W70 N07-N14
      3  714 1365 (N28E13 L=212)   422    141        0 ( 662/1320- 765/1408) -53.1 E15-E09 N23-N31
      4 1647 1298 (N05W45 L=269)   842    157        2 (1568/1255-1715/1336)   4.1 W37-W51 N03-N06
      5  425 1244 (N26E35 L=190)   352    110        0 ( 371/1218- 462/1282)  14.0 E39-E31 N24-N27
      6 1152 1246 (N12W12 L=236)   371    112        0 (1111/1223-1207/1276) -38.7 W09-W14 N09-N14
      7 1348 1180 (N04W22 L=246)   351     75        0 (1307/1146-1381/1211) -45.0 W19-W23 N02-N06
      8  414 1122 (N19E37 L=188)  1501    472        2 ( 250/1066- 621/1170) -20.8 E51-E22 N12-N24
      9 1829 1030 (S14W54 L=279)   327     67        0 (1795/ 998-1852/1059)   8.1 W50-W57 S15-S12
     10  868  877 (S04E12 L=213)   297    120        0 ( 805/ 854- 916/ 896) -38.7 E14-E09 S05-S01
     11  828  745 (S10E17 L=208)   897    300        1 ( 739/ 706- 956/ 815) -22.6 E21-E08 S13-S04
     12  500  664 (S09E40 L=185)   505     87        3 ( 464/ 631- 535/ 704)  68.2 E42-E37 S11-S06
     13 1168  655 (S22W01 L=226)   270     92        0 (1141/ 613-1190/ 702)  51.3 E01-W03 S24-S19
     14  308  677 (S05E55 L=170)   437    129        1 ( 252/ 659- 365/ 696) -16.7 E60-E49 S06-S03
     15 1448  535 (S36W19 L=243)  1815    565        1 (1237/ 384-1666/ 685)  16.6 W00-W37 S42-S30
     16  329  541 (S13E60 L=165)  6178    293       12 ( 236/ 427- 414/ 649) -78.7 E72-E50 S21-S06
     17  641  570 (S17E33 L=192)   620    152        2 ( 618/ 495- 665/ 635)  66.0 E35-E30 S22-S13
     18 1721  522 (S45W47 L=272)   556    100        0 (1673/ 493-1764/ 556)  10.3 W41-W52 S46-S42
     19  875  330 (S38E28 L=197)  1084    203        0 ( 801/ 265- 942/ 415)  21.3 E37-E19 S41-S32
     20 1032  259 (S47E21 L=204)   494     71        1 ( 995/ 234-1071/ 281)   0.0 E24-E16 S48-S45
  

    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