Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  594 1753 (N26E56 L=216)  1447    174        2 ( 539/1681- 634/1820) -63.4 E62-E52 N19-N31
      2  788 1751 (N30E40 L=232)   673    121        2 ( 756/1695- 815/1801) -35.0 E46-E36 N26-N33
      3  633 1686 (N22E47 L=225)   371     50        1 ( 598/1669- 662/1709)   9.5 E49-E43 N20-N23
      4 1184 1626 (N33E09 L=263)   552    156        1 (1160/1547-1209/1691) -74.7 E11-E06 N27-N38
      5 1601 1458 (N36W26 L=298)   545     97        4 (1561/1426-1631/1490)  45.0 W22-W28 N32-N39
      6  444 1365 (S02E45 L=227)   458    110        3 ( 410/1340- 499/1394) -14.0 E48-E40 S03-N00
      7  270 1183 (S16E55 L=217)  1120    228        4 ( 224/1114- 318/1280)  59.0 E59-E50 S19-S09
      8  370 1214 (S12E46 L=226)   397    107        0 ( 327/1168- 397/1253)  63.4 E49-E44 S15-S09
      9  209 1063 (S24E60 L=212)   423     76        0 ( 182/1046- 254/1080)  18.4 E63-E54 S24-S21
     10 1291  875 (S08W19 L=291)   205     70        0 (1263/ 845-1317/ 905)  78.7 W18-W19 S10-S05
     11  637  800 (S30E18 L=254)   240     77        1 ( 604/ 775- 677/ 819)  45.0 E19-E15 S31-S27
     12 1390  579 (S20W36 L=308)   317    125        1 (1339/ 531-1419/ 617)  81.9 W34-W37 S24-S17
     13 1478  513 (S21W45 L=317)   939    232        2 (1402/ 468-1574/ 556)  15.9 W38-W52 S23-S17
     14 1210  511 (S30W28 L=300)   809    152        1 (1142/ 489-1292/ 537)  21.8 W23-W34 S32-S27
     15 1033  477 (S38W19 L=291)   239     41        1 (1004/ 459-1062/ 494)  26.6 W17-W21 S38-S36
  

    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