Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1454 1686 (N35W51 L=168)   735    142        2 (1387/1662-1506/1706) -16.7 W45-W55 N32-N37
      2  871 1529 (N41W02 L=119)   636    107        4 ( 831/1492- 919/1565) -31.0 W00-W05 N38-N44
      3  928 1463 (N35W04 L=121)   232     84        1 ( 914/1425- 950/1498)  68.2 W02-W06 N33-N38
      4 1059 1376 (N27W10 L=127)   229     29        1 (1038/1351-1078/1398)  45.0 W09-W12 N25-N28
      5  623 1283 (N30E21 L= 96)  1130    278        0 ( 525/1192- 718/1371) -49.4 E27-E15 N23-N37
      6 1381 1189 (N09W25 L=142)  2198    600        3 (1103/ 993-1552/1349) -55.8 W12-W32 S05-N24
      7 1915 1090 (S13W68 L=185)   719     44        0 (1900/1065-1929/1123)  36.9 W65-W70 S14-S10
      8  382 1022 (N19E42 L= 75)   420    121        0 ( 359/ 970- 415/1086) -74.1 E43-E40 N15-N22
      9 1494  783 (S18W24 L=141)   748    150        1 (1437/ 719-1529/ 830) -60.3 W20-W25 S22-S14
     10  692  570 (S13E31 L= 86)   469     82        0 ( 670/ 522- 717/ 608)  45.0 E33-E28 S16-S11
     11  405  491 (S14E56 L= 61)  1839    321        3 ( 374/ 391- 433/ 586)  49.8 E61-E49 S21-S08
     12 1193  398 (S36E04 L=113)  1319    266        5 (1131/ 330-1239/ 477)  42.0 E10-W00 S40-S31
     13  747  363 (S28E35 L= 82)   706    158        1 ( 689/ 337- 790/ 415)  18.4 E39-E30 S30-S25
     14  536  361 (S25E52 L= 65)   456     86        1 ( 509/ 343- 573/ 376)   0.0 E54-E48 S26-S23
  

    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