Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1346 1688 (N43W03 L=270)   791    151        1 (1306/1646-1387/1728)  56.3 W00-W06 N38-N46
      2  999 1612 (N27E18 L=250)   255     70        0 ( 986/1573-1010/1643) -59.0 E19-E15 N24-N29
      3  732 1520 (N15E30 L=237)  1046    251        1 ( 706/1417- 758/1628) -55.3 E35-E25 N08-N21
      4 1437 1544 (N35W13 L=280)   435    115        1 (1391/1520-1494/1566)  20.6 W09-W17 N32-N37
      5  281 1456 (N03E64 L=204)  1477    287        3 ( 214/1369- 331/1491) -35.0 E73-E57 S02-N05
      6 1349 1404 (N23W10 L=277)   333     63        0 (1335/1361-1362/1443) -59.0 W08-W11 N20-N25
      7  855 1330 (N06E17 L=251)   732    186        2 ( 771/1278- 936/1393) -14.0 E23-E11 N04-N07
      8 1337 1138 (N07W15 L=282)   933    269        1 (1305/1000-1363/1266) -55.3 W10-W19 N00-N13
      9  171 1127 (S18E63 L=205)  4601    675       18 (  99/1017- 251/1237)  85.9 E71-E56 S24-S10
     10  511  917 (S25E29 L=238)   777    266        0 ( 399/ 879- 617/ 968)  33.7 E37-E22 S29-S19
     11 1418  889 (S05W26 L=293)   220     33        1 (1396/ 866-1436/ 908) -26.6 W24-W27 S05-S03
     12  204  808 (S37E56 L=212)  1299    393        0 ( 137/ 754- 294/ 847)  22.4 E63-E46 S40-S33
     13 1898  758 (N04W72 L=340)  1572    165        2 (1868/ 724-1927/ 806) -45.0 W68-W79 N01-N06
     14 1583  478 (S21W53 L=321)  1029    113        0 (1527/ 430-1627/ 544)  77.5 W50-W55 S25-S16
  

    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