Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  557 1644 (N22E49 L=123)  2180    395        5 ( 409/1539- 701/1717)  46.8 E57-E42 N13-N30
      2  822 1665 (N30E32 L=141)   859    140        1 ( 770/1626- 872/1694)  -6.3 E36-E27 N27-N31
      3  354 1595 (N15E66 L=107)   605    222        6 ( 325/1552- 374/1638) -29.1 E70-E61 N12-N17
      4  628 1455 (N12E35 L=137)   262     17        0 ( 611/1434- 649/1474)  90.0 E36-E33 N10-N13
      5  242 1303 (S05E62 L=110)   483     77        0 ( 214/1275- 260/1340)  63.4 E64-E60 S06-S02
      6  709 1237 (N01E23 L=149)   339     84        0 ( 671/1210- 748/1265)  36.9 E25-E21 N00-N03
      7 1230 1091 (N05W10 L=182)   309     83        1 (1211/1041-1252/1129) -68.2 W08-W10 N02-N07
      8 1243  743 (S14W20 L=192)   452    143        3 (1199/ 707-1301/ 785)  45.0 W17-W23 S16-S10
      9 1753  712 (S02W58 L=230)  1162    216        2 (1700/ 644-1783/ 781) -18.4 W50-W62 S05-N01
     10 1467  641 (S14W37 L=210)   590    113        0 (1423/ 597-1513/ 699)  76.0 W35-W38 S17-S09
     11 1204  666 (S19W20 L=193)   238     73        1 (1167/ 652-1244/ 689)  36.9 W17-W22 S20-S17
     12  858  493 (S40W04 L=177)   919    303        1 ( 729/ 468-1031/ 519)  15.9 E05-W16 S42-S35
     13 1582  455 (S21W55 L=228)   636    122        0 (1515/ 417-1638/ 496)  54.5 W51-W58 S24-S17
     14 1335  358 (S34W43 L=215)   418    122        1 (1305/ 338-1378/ 397)  -7.1 W38-W46 S35-S32
  

    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