Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  871 1831 (N52E37 L=164)   752    131        1 ( 816/1812- 940/1844)  36.9 E42-E30 N48-N54
      2  482 1602 (N27E52 L=149)  3391    351        6 ( 376/1483- 600/1696) -13.7 E77-E36 N20-N31
      3  299 1417 (N12E60 L=141)   648     91        1 ( 281/1376- 323/1464) -63.4 E62-E57 N09-N15
      4  527 1399 (N15E39 L=162)   270     90        1 ( 498/1357- 549/1436) -33.7 E42-E36 N12-N16
      5 1439 1038 (N07W25 L=226)   492    172        0 (1426/ 963-1453/1121) -71.6 W23-W27 N02-N11
      6 1640 1080 (N12W39 L=240)   547     67        3 (1614/1043-1673/1116)  68.2 W37-W41 N09-N14
      7 1637  977 (N06W40 L=241)   531    114        1 (1603/ 942-1675/1026) -33.7 W36-W43 N04-N08
      8  379  927 (S16E41 L=160)   404    135        1 ( 339/ 878- 437/ 958)  36.9 E44-E36 S19-S13
      9  652  783 (S20E20 L=181)   885    288        1 ( 519/ 755- 733/ 839)  32.7 E29-E14 S24-S15
     10 1626  684 (S11W46 L=247)  1230    290        2 (1554/ 570-1693/ 802)  79.4 W43-W48 S19-S03
     11  479  743 (S26E33 L=168)   260     40        2 ( 458/ 718- 501/ 766)  71.6 E34-E30 S27-S24
     12  692  359 (S51E15 L=186)   588     61        1 ( 651/ 337- 730/ 388)   0.0 E19-E11 S52-S48
     13  898  258 (S55W07 L=208)   577     91        0 ( 875/ 223- 931/ 290) -32.0 W04-W12 S58-S51
     14 1147  184 (S57W39 L=240)   713     79        2 (1118/ 153-1175/ 218) -19.7 W32-W46 S59-S53
  

    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