Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1330 1851 (N54W40 L= 66)   492    164        1 (1303/1818-1361/1879)  24.8 W34-W47 N50-N56
      2 1436 1704 (N40W39 L= 65)   454     63        0 (1406/1684-1464/1724) -26.6 W35-W41 N37-N41
      3 1051 1628 (N36W07 L= 33)   287     57        2 (1031/1601-1074/1656) -90.0 W04-W08 N34-N38
      4 1777 1399 (N17W57 L= 83)   863    171        1 (1746/1354-1809/1441)  32.0 W53-W61 N13-N19
      5 1011 1405 (N21W02 L= 28)   269     75        0 ( 970/1374-1047/1430) -53.1 W00-W03 N19-N23
      6 1258 1222 (N08W15 L= 41)   245     63        0 (1220/1210-1295/1233) -14.0 W13-W17 N07-N09
      7  443 1052 (N04E37 L=349)  1232    295        4 ( 360/ 925- 486/1162) -65.2 E42-E34 S03-N10
      8  262 1076 (N07E52 L=334)   460    104        1 ( 234/1034- 296/1116)  38.7 E54-E48 N04-N08
      9  188 1006 (N03E60 L=326)  1865    402        5 ( 133/ 956- 296/1066) -20.6 E67-E49 N00-N07
     10  227  952 (S00E56 L=330)   309     86        1 ( 209/ 921- 254/ 972)  21.8 E58-E53 S02-N00
     11  295  781 (S11E52 L=334)   765    168        1 ( 247/ 737- 337/ 839)  33.7 E57-E47 S13-S07
     12  374  618 (S22E49 L=337)   416     60        1 ( 356/ 583- 395/ 651) -76.0 E50-E47 S23-S19
     13  345  581 (S24E53 L=333)   383     85        1 ( 321/ 530- 374/ 614) -80.5 E54-E50 S27-S21
     14  992  403 (S41E08 L= 18)   809    183        1 ( 912/ 363-1098/ 461)  18.4 E14-W01 S44-S37
  

    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