Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1115 1721 (N38E18 L=283)   843    199        1 (1037/1673-1207/1769)   0.0 E25-E10 N36-N39
      2 1312 1628 (N38E01 L=299)   326     80        1 (1276/1603-1354/1650)   0.0 E03-W02 N36-N39
      3  567 1543 (N11E43 L=257)   839    195        2 ( 520/1469- 616/1640) -29.7 E50-E36 N07-N16
      4 1445 1338 (N23W16 L=316)   250     71        1 (1409/1309-1480/1369)   0.0 W12-W18 N21-N24
      5 1721 1209 (N25W39 L=339)   410    132        0 (1680/1151-1744/1246) -33.7 W34-W40 N21-N26
      6 1867 1106 (N24W56 L=356)   696    131        2 (1814/1053-1905/1148)  -8.7 W48-W61 N22-N25
      7  657 1058 (S14E22 L=279)   316     68        2 ( 631/1027- 681/1097)  90.0 E23-E20 S16-S11
      8 1018  920 (S12W02 L=303)   424    160        0 ( 966/ 866-1075/ 982) -20.6 E01-W07 S13-S09
      9 1738  927 (N10W46 L=346)   372     78        0 (1716/ 889-1757/ 964)  90.0 W45-W47 N07-N11
     10 1796  857 (N08W54 L=354)  1536    206        5 (1740/ 770-1858/ 918)  59.0 W50-W59 N02-N12
     11  926  831 (S19E00 L=300)   371    121        1 ( 866/ 806- 979/ 853)   9.5 E03-W03 S20-S18
     12  777  724 (S30E06 L=294)   384    153        0 ( 744/ 665- 833/ 758)  74.1 E07-E03 S33-S26
     13  207  692 (S47E64 L=237)   577     55        1 ( 174/ 672- 239/ 722)   7.1 E73-E57 S48-S44
     14 1408  624 (S17W35 L=335)   345     77        0 (1363/ 610-1448/ 642)  18.4 W31-W37 S18-S15
     15  523  551 (S49E22 L=278)   808    177        4 ( 441/ 514- 601/ 591)   3.6 E31-E14 S51-S46
     16  843  466 (S44W07 L=307)   285     64        0 ( 818/ 444- 879/ 493)  -9.5 W04-W10 S44-S42
     17 1423  362 (S30W52 L=352)   462     96        1 (1371/ 329-1459/ 401)  -4.8 W45-W57 S30-S28
     18 1577  334 (S25W68 L=  8)   587     51        0 (1552/ 310-1598/ 355)   0.0 W63-W74 S26-S24
     19 1016  184 (S57W45 L=345)   461     65        1 ( 999/ 150-1029/ 217) -21.0 W39-W52 S59-S54
  

    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