Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  444 1662 (N34E51 L=132)  1131    255        1 ( 401/1626- 496/1713) -21.8 E59-E44 N30-N38
      2 1560 1415 (N24W34 L=217)   533    117        1 (1494/1387-1608/1433)   0.0 W28-W37 N22-N25
      3  585 1362 (N13E30 L=153)   279     99        0 ( 544/1324- 606/1383) -21.8 E33-E28 N10-N14
      4  357 1262 (N06E46 L=137)   614     88        2 ( 335/1223- 384/1312) -68.2 E48-E43 N04-N09
      5 1893 1113 (N09W64 L=248)  1510    217        5 (1849/1024-1931/1182) -52.1 W58-W70 N04-N13
      6 1256  971 (S06W14 L=198)   603    234        3 (1218/ 860-1285/1097)  85.9 W12-W15 S13-N01
      7 1634  951 (S04W40 L=224)   312    113        1 (1584/ 932-1676/ 968)  15.9 W36-W43 S05-S02
      8  384  766 (S24E43 L=141)   528    202        0 ( 349/ 691- 444/ 822)  41.6 E46-E37 S28-S19
      9 1635  799 (S13W42 L=226)   467    159        3 (1594/ 766-1681/ 820)  -7.1 W38-W46 S14-S11
     10 1765  727 (S16W56 L=239)   381     80        2 (1737/ 696-1788/ 754) -76.0 W53-W58 S17-S13
     11 1712  688 (S19W52 L=235)   472     93        3 (1691/ 646-1735/ 729) -80.5 W50-W53 S21-S15
     12 1809  656 (S19W63 L=246)  3264    482        3 (1681/ 553-1920/ 720)  31.3 W52-W78 S27-S13
     13 1483  435 (S38W42 L=225)   806    216        2 (1374/ 403-1583/ 477)  26.6 W34-W48 S40-S33
     14 1292  279 (S52W35 L=219)   335     63        2 (1267/ 253-1318/ 302)  76.0 W32-W36 S54-S49
  

    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