Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1533 1434 (N13W43 L=342)   356    165        1 (1478/1385-1590/1468)   0.0 W37-W48 N11-N13
      2 1122 1247 (N15W11 L=311)   297    117        1 (1055/1215-1177/1279) -50.2 W08-W14 N12-N18
      3  318 1148 (N30E44 L=256)   719    231        1 ( 253/1069- 391/1217) -45.0 E49-E38 N24-N35
      4 1165 1066 (N04W09 L=308)   324     99        0 (1128/1026-1214/1106)  26.6 W06-W12 N02-N05
      5 1026 1080 (N08W01 L=301)   483    149        1 ( 946/1064-1098/1098) -35.5 E02-W05 N05-N10
      6  703 1021 (N13E18 L=281)   566    196        1 ( 607/ 965- 788/1050)   0.0 E25-E12 N12-N15
      7  451  934 (N14E37 L=263)   313    124        0 ( 399/ 913- 499/ 959) -23.2 E40-E33 N12-N16
      8 1685  888 (S21W37 L=336)   300     73        0 (1664/ 853-1701/ 923)  36.9 W34-W38 S22-S19
      9  153  847 (N15E68 L=232)  2159    412        3 (  92/ 800- 235/ 889) -16.4 E76-E58 N11-N17
     10 1218  609 (S23E00 L=299)  1371    335        2 (1170/ 464-1277/ 757)  53.1 E07-W06 S31-S15
     11  535  539 (S10E44 L=256)   946    198        4 ( 483/ 461- 578/ 618)  73.3 E47-E40 S14-S04
     12  377  591 (S04E54 L=245)   340     85        1 ( 349/ 568- 410/ 613) -36.9 E56-E51 S05-S01
     13  455  467 (S12E54 L=246)   866    187        4 ( 397/ 423- 525/ 505) -32.0 E59-E49 S16-S09
     14  621  462 (S16E41 L=258)   264     14        0 ( 600/ 445- 643/ 479) -45.0 E42-E39 S17-S15
     15  511  329 (S23E58 L=242)   575    153        2 ( 482/ 302- 546/ 355) -78.7 E60-E54 S25-S20
  

    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