Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1637 1547 (N15W58 L=128)   517    100        0 (1603/1496-1663/1590)  63.4 W55-W59 N12-N18
      2 1452 1433 (N16W38 L=108)   269     70        0 (1425/1418-1494/1451) -36.9 W35-W40 N14-N17
      3 1167 1374 (N21W18 L= 89)  1827    463        1 ( 969/1247-1334/1449) -56.3 W09-W24 N09-N30
      4 1696 1166 (S06W44 L=114)  1219    266        3 (1576/1101-1795/1207)  -8.5 W34-W54 S08-S03
      5  491 1053 (N21E31 L= 39)   253     64        0 ( 474/1026- 517/1087) -78.7 E32-E29 N18-N23
      6 1703  936 (S19W39 L=109)  1695    295        1 (1645/ 808-1750/1068)  45.0 W32-W45 S24-S12
      7 1786  899 (S24W46 L=116)   497     44        0 (1769/ 864-1801/ 935)  63.4 W44-W47 S25-S21
      8  237  780 (N11E60 L= 10)   363     38        0 ( 221/ 761- 258/ 803) -45.0 E62-E57 N09-N12
      9  979  626 (S15E13 L= 57)   622    218        1 ( 930/ 556-1006/ 727)  41.6 E18-E09 S18-S09
     10  857  650 (S10E19 L= 51)   289     46        1 ( 831/ 626- 881/ 673) -56.3 E21-E17 S11-S08
     11  755  482 (S18E32 L= 39)  1198    308        2 ( 645/ 373- 815/ 604) -90.0 E34-E29 S25-S07
     12  261  532 (S05E71 L=359)  1411     92        2 ( 234/ 480- 289/ 576)  21.8 E79-E64 S07-S01
     13  558  462 (S14E46 L= 24)   420     72        0 ( 519/ 442- 589/ 481) -26.6 E47-E43 S15-S12
     14  849  184 (S41E47 L= 23)  1478    160        2 ( 814/ 113- 883/ 247)  31.0 E61-E41 S47-S35
  

    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