Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1561 1621 (N22W56 L= 89)  2839    408        3 (1371/1524-1714/1677) -46.5 W45-W65 N11-N30
      2 1739 1620 (N15W77 L=110)   892     77        1 (1700/1603-1774/1645) -26.6 W73-W85 N12-N17
      3 1808 1193 (S08W55 L= 88)  1266    219        4 (1777/1100-1855/1285)  38.7 W50-W62 S13-S04
      4  220 1145 (N32E56 L=337)   532     78        0 ( 191/1115- 257/1180) -32.0 E59-E51 N29-N34
      5  566  962 (N14E28 L=  5)   266     92        0 ( 544/ 935- 601/ 997) -68.2 E29-E26 N11-N16
      6 1311  934 (S07W13 L= 46)   310     85        1 (1285/ 889-1332/ 981)  38.7 W10-W15 S08-S04
      7  523  926 (N13E32 L=  1)   284     71        1 ( 488/ 895- 551/ 954) -36.9 E34-E30 N10-N14
      8 1509  848 (S17W23 L= 56)   265    113        0 (1478/ 811-1531/ 910)  38.7 W20-W25 S18-S14
      9 1615  842 (S21W30 L= 63)   242     21        0 (1597/ 822-1634/ 865)  71.6 W28-W31 S22-S19
     10  471  814 (N08E38 L=355)   253    117        0 ( 432/ 770- 505/ 853)  20.6 E42-E34 N06-N09
     11 1672  786 (S26W34 L= 67)   597    160        0 (1607/ 739-1718/ 848)  10.3 W27-W38 S27-S23
     12 1114  707 (S14E04 L= 29)   396    177        0 (1046/ 671-1151/ 772)   7.1 E08-W00 S15-S10
     13 1294  697 (S20W06 L= 39)   347     81        0 (1276/ 657-1311/ 747)  78.7 W04-W07 S21-S16
     14  664  651 (S06E31 L=  2)   785    194        1 ( 642/ 559- 704/ 731)  52.1 E33-E25 S11-S01
     15  380  441 (S12E63 L=330)  1493    188        4 ( 346/ 377- 415/ 532)  57.5 E70-E58 S16-S05
     16  501  383 (S18E56 L=337)   990    188        3 ( 481/ 308- 523/ 471)  45.0 E62-E49 S23-S12
     17  565  445 (S15E46 L=347)   560     93        0 ( 518/ 432- 617/ 461) -26.6 E49-E42 S16-S13
     18 1240  401 (S37E06 L= 27)   292     64        1 (1215/ 381-1264/ 439)  78.7 E07-E04 S39-S34
     19 1162  253 (S46E19 L= 14)   920    187        1 (1086/ 205-1224/ 312)   8.1 E25-E11 S50-S43
  

    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