Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1487 1697 (N51W12 L=274)   522    108        2 (1438/1678-1536/1712)  21.8 W07-W17 N48-N53
      2  324 1569 (N09E66 L=195)   952    189        3 ( 285/1542- 374/1627)  81.9 E71-E60 N06-N13
      3 1447 1466 (N31W14 L=275)   325     65        1 (1419/1439-1475/1486)   0.0 W11-W15 N28-N31
      4 1053 1360 (N12E07 L=254)   537    222        0 ( 996/1267-1097/1437) -35.0 E12-E02 N07-N16
      5  218 1149 (S18E58 L=203)   789    146        2 ( 188/1096- 245/1207) -74.1 E62-E55 S21-S14
      6  325 1141 (S17E48 L=214)   297    105        2 ( 311/1103- 342/1182) -76.0 E49-E45 S18-S14
      7  276 1123 (S18E52 L=210)   336     72        2 ( 255/1101- 307/1150) -11.3 E53-E48 S19-S16
      8  256  923 (S31E50 L=211)   554    143        0 ( 213/ 902- 311/ 953)  -5.7 E54-E44 S31-S29
      9  861  909 (S18E06 L=255)   728    298        0 ( 751/ 873- 991/ 934)  14.9 E13-W02 S20-S15
     10  538  884 (S27E26 L=235)   316    110        0 ( 487/ 864- 592/ 900)  20.6 E30-E22 S28-S24
     11 1148  725 (S20W16 L=277)  1152    368        1 ( 979/ 622-1300/ 799)   7.8 W05-W27 S24-S16
     12 1495  512 (S21W46 L=307)   320     91        0 (1474/ 478-1516/ 549) -18.4 W42-W48 S22-S19
     13 1650  488 (S17W59 L=320)   829    168        3 (1629/ 423-1673/ 547) -49.4 W54-W63 S20-S13
     14 1205  409 (S36W33 L=294)   363     86        2 (1174/ 379-1234/ 445) -15.9 W29-W36 S37-S34
  

    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