Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  455 1305 (N37E32 L=343)   272     88        0 ( 422/1268- 495/1338)  23.2 E35-E28 N35-N38
      2  684 1235 (N27E15 L=  0)   296    108        1 ( 627/1220- 740/1255) -14.0 E19-E11 N25-N28
      3 1190 1108 (N07W11 L= 27)   361    115        1 (1161/1052-1217/1149)  59.0 W09-W13 N04-N09
      4  196 1035 (N25E61 L=315)  2006    225        4 ( 119/ 968- 284/1113) -22.2 E74-E51 N20-N30
      5 1151  786 (S09W01 L= 17)   211    107        0 (1110/ 756-1194/ 817)  11.3 E01-W04 S10-S08
      6  789  638 (S09E23 L=352)   870    315        0 ( 719/ 522- 867/ 774)  36.9 E31-E15 S14-S02
      7 1133  654 (S16E03 L= 12)   412    134        1 (1071/ 624-1179/ 699)  -8.1 E07-W00 S18-S14
      8 1063  619 (S17E08 L=  7)   253     51        1 (1038/ 601-1093/ 644) -45.0 E09-E06 S18-S14
      9  510  477 (S13E48 L=327)   820     98        2 ( 459/ 437- 557/ 514) -63.4 E51-E45 S15-S09
     10  596  440 (S17E44 L=332)   427     97        2 ( 577/ 396- 619/ 486)  35.5 E47-E40 S19-S14
     11 1452  459 (S40W12 L= 28)   311     24        0 (1429/ 440-1474/ 476)   0.0 W10-W14 S41-S38
     12 1243  301 (S45E09 L=  7)   847    182        2 (1167/ 254-1321/ 351)  10.6 E16-W00 S46-S42
     13  704  239 (S33E51 L=324)  1766    303        4 ( 625/ 125- 792/ 350)  52.0 E64-E45 S46-S23
     14 1116  141 (S57E32 L=343)  1587    208        4 (1026/ 115-1216/ 169) -22.4 E39-E22 S60-S50
  

    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