Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  407 1578 (N16E60 L=223)  1037    170        2 ( 372/1514- 456/1665) -61.4 E64-E56 N11-N22
      2  663 1596 (N22E40 L=244)   631    149        2 ( 636/1520- 697/1652) -56.3 E42-E35 N17-N26
      3  809 1573 (N24E29 L=255)   635    242        2 ( 727/1485- 875/1647) -23.6 E37-E21 N20-N27
      4 1603 1545 (N46W31 L=315)   663    125        0 (1564/1515-1651/1571)  11.3 W26-W37 N42-N48
      5  927 1423 (N18E16 L=268)   425    128        0 ( 892/1373- 951/1483)  90.0 E16-E14 N14-N22
      6 1133 1325 (N17E01 L=282)   228    101        1 (1093/1301-1175/1349)  59.0 E02-W01 N14-N19
      7 1089 1264 (N12E02 L=281)   263     83        2 (1063/1231-1110/1296) -63.4 E03-W00 N10-N14
      8  256 1208 (S09E58 L=226)  1350    272        4 ( 203/1125- 305/1279) -41.6 E64-E51 S13-S04
      9  341 1196 (S08E49 L=234)   703    109        1 ( 307/1165- 390/1228) -14.0 E52-E44 S10-S06
     10  194 1096 (S17E63 L=220)  1476    189        3 ( 135/1009- 236/1147)  39.8 E72-E57 S23-S13
     11 1643 1031 (N13W39 L=322)   322     83        1 (1618/ 990-1665/1071) -45.0 W36-W40 N10-N14
     12 1678  491 (S17W64 L=348)  3562    463        9 (1528/ 382-1800/ 611)  59.0 W56-W75 S26-S06
     13 1658  573 (S13W56 L=339)   564     97        2 (1623/ 547-1700/ 593)  38.7 W52-W61 S14-S10
     14 1524  458 (S23W52 L=335)   617    101        2 (1500/ 419-1562/ 490)  78.7 W48-W55 S25-S20
     15 1107  191 (S55W46 L=330)   442     43        0 (1088/ 169-1129/ 214)  -5.7 W41-W51 S56-S52
  

    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