Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  876 1710 (N50W14 L=279)   418     77        0 ( 838/1692- 923/1726) -14.0 W09-W17 N48-N52
      2 1174 1432 (N23W20 L=286)   441     97        1 (1135/1388-1219/1471)  23.2 W17-W24 N20-N24
      3 1001 1391 (N25W08 L=274)   794    226        4 ( 883/1362-1090/1418) -21.0 W01-W14 N21-N28
      4  266 1340 (N41E52 L=214)   637    100        2 ( 208/1315- 304/1368) -11.3 E61-E46 N39-N43
      5 1610  949 (S15W33 L=299)   311    105        0 (1594/ 889-1628/ 995) -90.0 W32-W34 S18-S12
      6 1752  913 (S22W44 L=310)   895    143        0 (1718/ 838-1772/ 988)  58.0 W40-W46 S25-S17
      7 1525  904 (S15W26 L=292)   279     95        0 (1496/ 864-1553/ 950) -74.1 W25-W27 S18-S11
      8  955  843 (S04E08 L=258)   209     39        0 ( 931/ 817- 976/ 864) -90.0 E09-E07 S05-S02
      9  352  780 (N06E49 L=217)   654    111        1 ( 315/ 734- 407/ 808)   6.3 E52-E43 N03-N07
     10 1053  692 (S15E07 L=259)   312     80        1 (1012/ 667-1097/ 712)  -9.5 E09-E03 S15-S13
     11  356  669 (S01E52 L=214)   628     54        2 ( 333/ 631- 383/ 699)  56.3 E54-E49 S02-N01
     12 1032  553 (S23E12 L=254)   942    317        0 ( 905/ 501-1115/ 654)   7.6 E19-E04 S25-S18
     13 1289  439 (S38W00 L=266)   837    243        2 (1222/ 357-1363/ 529)  34.7 E06-W07 S42-S33
     14  756  397 (S26E35 L=230)   463    107        0 ( 740/ 338- 770/ 453)  53.1 E38-E31 S29-S21
  

    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