Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1290 1579 (N28W31 L=334)   294     37        0 (1269/1558-1315/1600) -45.0 W29-W33 N27-N29
      2  739 1448 (N33E09 L=294)   287     73        0 ( 705/1422- 778/1469)   9.5 E11-E05 N32-N34
      3 1675 1426 (N10W52 L=355)   814    108        1 (1615/1400-1727/1456) -32.0 W48-W56 N08-N13
      4  737 1320 (N25E11 L=292)   200     86        0 ( 713/1278- 760/1351)  63.4 E12-E09 N23-N27
      5 1869 1142 (S10W61 L=  4)  1898    257        5 (1815/1022-1929/1224)  35.5 W52-W70 S15-S05
      6 1819 1161 (S07W56 L=359)   575     92        1 (1796/1120-1836/1213)  39.8 W52-W58 S09-S04
      7 1729 1035 (S12W45 L=347)   319     58        2 (1707/1009-1750/1065) -90.0 W42-W46 S14-S10
      8  658 1010 (N09E21 L=281)   248     72        1 ( 632/ 984- 690/1042) -45.0 E22-E19 N07-N11
      9  153  986 (N17E64 L=239)   446     56        0 ( 135/ 955- 171/1010) -45.0 E66-E61 N15-N18
     10 1631  791 (S24W34 L=336)  4896    986        7 (1240/ 507-1928/ 998)  11.7 W01-W67 S32-S19
     11 1462  939 (S12W24 L=326)   448    180        0 (1376/ 909-1535/ 977)   0.0 W17-W29 S12-S10
     12  458  884 (N06E37 L=266)  1259    280        2 ( 363/ 798- 549/ 935)  17.4 E46-E30 N02-N08
     13  307  443 (S17E71 L=231)  1052    116        2 ( 286/ 382- 320/ 493)  29.7 E80-E64 S21-S13
     14  648  287 (S34E49 L=253)  1692    255        1 ( 559/ 222- 742/ 371)  10.1 E64-E36 S37-S29
     15  996  296 (S42E23 L=280)   635    138        0 ( 935/ 255-1064/ 331)   8.7 E29-E16 S43-S39
  

    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