Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  741 1876 (N39E61 L=350)   689     65        1 ( 728/1838- 754/1910) -23.6 E71-E54 N35-N42
      2 1036 1647 (N30E20 L= 31)   264     61        1 (1009/1621-1061/1673) -78.7 E20-E17 N27-N32
      3  340 1573 (N09E67 L=343)  3382    303        4 ( 249/1475- 466/1662)  49.1 E74-E59 N01-N16
      4  674 1555 (N14E37 L= 13)   262    112        0 ( 639/1505- 721/1588) -18.4 E40-E31 N12-N15
      5  923 1266 (N04E12 L= 38)   239    139        1 ( 899/1208- 960/1329) -50.2 E15-E08 N01-N07
      6  132 1187 (S18E75 L=335)   778     77        0 ( 112/1156- 161/1220)  26.6 E80-E70 S19-S15
      7  943  931 (S14E02 L= 49)   206    138        0 ( 887/ 918-1015/ 948)  23.2 E05-W02 S15-S11
      8  374  902 (S30E40 L= 11)   445     75        1 ( 340/ 875- 412/ 932)  33.7 E43-E36 S32-S28
      9 1196  729 (S17W19 L= 69)  1095    298        4 (1087/ 663-1305/ 814)  63.4 W14-W22 S23-S09
     10  927  760 (S24W02 L= 53)   334    161        1 ( 849/ 726- 994/ 778)  12.5 E02-W07 S25-S21
     11  643  707 (S35E15 L= 36)   218    110        0 ( 590/ 698- 693/ 720)  29.7 E18-E11 S36-S32
     12  761  566 (S40E02 L= 48)   528    193        2 ( 694/ 509- 844/ 623)  61.4 E05-W01 S45-S34
     13 1139  240 (S48W46 L= 97)   549     83        0 (1113/ 205-1159/ 276) -14.0 W40-W52 S49-S46
     14 1293  186 (S44W67 L=117)  1054     86        2 (1278/ 137-1315/ 225) -17.5 W58-W80 S47-S41
  

    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