Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  345 1437 (N01E56 L=357)   591     57        2 ( 312/1414- 386/1457)   0.0 E60-E52 N00-N02
      2 1421 1411 (N26W13 L= 66)   377     87        0 (1383/1373-1453/1440) -18.4 W10-W16 N24-N27
      3 1215 1311 (N14W03 L= 56)   830    235        1 (1149/1210-1248/1408) -45.0 E03-W07 N08-N17
      4 1087 1320 (N11E04 L= 49)   198     87        0 (1071/1282-1111/1358) -36.9 E05-E01 N09-N13
      5 1425 1100 (N08W21 L= 74)   552    249        0 (1381/ 994-1478/1209) -39.3 W15-W26 N03-N12
      6 1789 1121 (N21W47 L=100)   555     83        1 (1766/1067-1808/1162) -51.3 W44-W49 N18-N23
      7  354 1096 (S19E45 L=  9)  1024    216        0 ( 273/1058- 451/1129)  14.9 E53-E37 S20-S14
      8  263  858 (S34E52 L=  1)   772     99        1 ( 218/ 819- 309/ 887) -10.3 E57-E46 S36-S32
      9  721  726 (S32E10 L= 43)   212     75        0 ( 703/ 687- 733/ 765) -59.0 E12-E08 S34-S29
     10  953  644 (S30W07 L= 60)   437    134        0 ( 886/ 620-1024/ 664)  12.5 W02-W11 S31-S28
     11  376  412 (S65E55 L=358)  1334    141        1 ( 310/ 393- 443/ 438)   2.4 E87-E39 S66-S63
     12  735  245 (S68W11 L= 65)   469     64        1 ( 710/ 223- 759/ 284) -26.6 W06-W16 S70-S63
     13 1062  178 (S57W50 L=103)   439     76        0 (1040/ 156-1096/ 206)   0.0 W44-W56 S58-S54
  

    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