Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1182 1635 (N35W08 L=293)   505     63        0 (1161/1595-1201/1684)  81.9 W06-W09 N32-N39
      2 1367 1624 (N36W22 L=307)   377     46        1 (1333/1594-1396/1643)   9.5 W19-W25 N33-N37
      3 1587 1470 (N26W38 L=323)   863    188        0 (1513/1424-1674/1519) -22.6 W32-W44 N23-N29
      4  276 1363 (N15E55 L=230)   325     42        0 ( 264/1339- 293/1392) -45.0 E56-E52 N13-N16
      5 1830 1280 (N16W58 L=343)  2245    195       10 (1747/1195-1892/1356)  65.6 W49-W66 N10-N21
      6  264 1275 (N09E54 L=231)   401     75        0 ( 235/1254- 300/1301)  -8.1 E57-E50 N08-N11
      7 1856 1087 (N05W58 L=343)   340    100        2 (1835/1043-1876/1121) -76.0 W56-W61 N02-N06
      8  172  879 (S14E63 L=222)  1013     80        1 ( 140/ 835- 196/ 936)  50.2 E68-E59 S16-S10
      9 1204  617 (S28W14 L=299)  1891    466        0 (1114/ 489-1330/ 734)  42.5 W08-W21 S36-S20
     10  348  568 (S34E53 L=232)  1119    234        0 ( 268/ 509- 437/ 603)   6.8 E68-E43 S37-S31
     11 1768  558 (S27W64 L=349)  1201     97        3 (1705/ 534-1820/ 581)   3.6 W55-W72 S28-S25
     12 1357  543 (S32W26 L=311)   518     95        1 (1307/ 520-1405/ 580)  15.9 W22-W29 S33-S29
     13 1534  354 (S44W52 L=337)  2981    338        6 (1357/ 322-1686/ 397)   2.6 W32-W76 S45-S40
     14  754  337 (S50E21 L=264)  2139    401        3 ( 562/ 309- 912/ 381)  -3.5 E40-E05 S53-S46
  

    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