Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  684 1616 (N25E33 L=231)   437     56        0 ( 656/1578- 711/1652)  90.0 E34-E32 N21-N27
      2 1309 1623 (N36W09 L=273)   376     64        0 (1282/1596-1341/1641)  53.1 W06-W10 N33-N38
      3 1387 1580 (N35W15 L=280)   363     57        2 (1357/1563-1416/1602)  21.8 W12-W17 N33-N36
      4  229 1500 (N13E71 L=194)  1423    144        1 ( 188/1443- 261/1555)  58.0 E74-E67 N09-N17
      5 1513 1398 (N25W25 L=290)   691    159        1 (1435/1366-1580/1425)   5.2 W19-W30 N22-N26
      6 1328 1326 (N16W13 L=278)   437     89        2 (1302/1278-1351/1372) -71.6 W11-W14 N13-N19
      7 1581 1268 (N18W31 L=296)   426    110        0 (1552/1216-1603/1328)  81.9 W29-W32 N14-N21
      8  145 1096 (S12E66 L=198)  3575    435        6 ( 103/ 886- 200/1262)  84.8 E72-E63 S24-S02
      9 1654 1190 (N15W37 L=302)   639    154        2 (1607/1136-1702/1246)  58.0 W34-W40 N10-N18
     10 1833  979 (N07W56 L=321)   482    101        3 (1796/ 954-1861/1003)  33.7 W52-W58 N04-N08
     11  703  826 (S23E17 L=248)  4740   1332        4 ( 216/ 580-1240/ 945)  20.4 E60-W15 S44-S09
     12 1902  879 (N03W67 L=332)  1611    234        1 (1871/ 839-1938/ 919)  50.2 W63-W73 N00-N06
     13 1864  668 (S09W72 L=336)  1093    133        0 (1840/ 629-1889/ 693)  63.4 W68-W75 S11-S07
     14 1519  606 (S21W40 L=305)  1148    198        1 (1420/ 571-1615/ 658)  36.0 W34-W46 S25-S16
  

    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