Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  587 1707 (N61E15 L= 67)   327     52        1 ( 566/1686- 607/1730)  21.8 E17-E12 N59-N63
      2  945 1316 (N23W03 L= 85)   888    162        3 ( 865/1285-1022/1347) -36.9 E01-W07 N20-N26
      3  865 1279 (N23E03 L= 79)   196     61        0 ( 826/1261- 892/1295) -45.0 E04-E01 N21-N24
      4 1815  920 (S23W50 L=132)  2466    534        3 (1705/ 693-1892/1138)  47.7 W37-W63 S33-S11
      5 1212 1093 (N04W12 L= 94)   223     90        0 (1173/1079-1253/1109) -26.6 W10-W14 N02-N05
      6 1761  985 (S17W46 L=128)   961    226        1 (1696/ 903-1833/1060)  14.9 W38-W54 S20-S15
      7  338  976 (N18E45 L= 37)  2006    435        4 ( 185/ 943- 560/1035) -15.3 E60-E27 N12-N23
      8  742  920 (N06E18 L= 64)   586    172        3 ( 710/ 871- 774/ 989)  56.3 E21-E16 N02-N09
      9  186  806 (N11E65 L= 17)  1403    161        5 ( 148/ 732- 223/ 871)  76.0 E68-E61 N06-N14
     10  574  845 (N05E30 L= 52)   419    113        0 ( 523/ 821- 624/ 867) -33.7 E33-E27 N03-N07
     11  536  653 (S05E39 L= 44)  1069    305        1 ( 413/ 586- 629/ 759)  13.4 E50-E29 S06-N00
     12 1274  357 (S43E04 L= 78)  1091    316        3 (1140/ 278-1393/ 433)   7.4 E16-W07 S45-S40
     13  478  351 (S22E60 L= 22)   434     82        1 ( 447/ 338- 531/ 368)   0.0 E63-E53 S22-S20
     14  928  207 (S43E37 L= 45)   981    153        4 ( 856/ 181-1008/ 228)  -8.1 E45-E29 S45-S40
  

    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