Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  901 1851 (N63W33 L= 71)   773     88        1 ( 871/1815- 930/1893)  12.5 W26-W44 N59-N65
      2  862 1789 (N59W21 L= 59)   311     55        1 ( 834/1774- 888/1807) -36.9 W17-W24 N56-N60
      3 1251 1737 (N40W44 L= 82)   294     58        0 (1226/1713-1277/1760)  76.0 W42-W45 N37-N41
      4 1542 1719 (N28W65 L=103)   659     52        1 (1516/1697-1567/1741)   0.0 W60-W70 N26-N29
      5 1464 1552 (N23W45 L= 83)  1222    286        3 (1311/1512-1575/1593) -38.7 W36-W51 N17-N29
      6 1772 1395 (N04W61 L= 99)   953    198        1 (1750/1302-1804/1481)  52.1 W58-W66 S01-N08
      7 1014 1269 (N20W06 L= 44)   207     89        1 ( 996/1240-1045/1303)  26.6 W04-W08 N18-N21
      8 1109 1277 (N18W12 L= 50)   219     76        2 (1066/1252-1144/1299) -36.9 W09-W13 N16-N19
      9 1064 1197 (N15W07 L= 45)   995    527        4 ( 858/1151-1226/1260) -15.9 E05-W16 N09-N18
     10  525 1229 (N30E26 L= 12)   338     92        0 ( 481/1213- 571/1247)   0.0 E29-E22 N29-N31
     11  222 1211 (N36E57 L=341)   356     39        1 ( 202/1189- 245/1230)   0.0 E59-E53 N34-N37
     12 1296 1175 (N08W19 L= 57)   259     77        0 (1256/1160-1323/1202) -26.6 W16-W20 N06-N08
     13  433 1129 (N27E35 L=  3)   567    151        0 ( 367/1113- 513/1149) -18.4 E40-E28 N24-N28
     14 1187  908 (S04W06 L= 44)   319     72        0 (1149/ 886-1227/ 930) -11.3 W03-W08 S04-S02
     15  966  812 (S04E09 L= 30)   529    192        0 ( 904/ 762-1050/ 859)   5.2 E13-E02 S04-S02
     16  950  689 (S10E13 L= 25)   455    124        1 ( 913/ 626- 983/ 751)  83.7 E14-E11 S14-S05
     17  487  385 (S18E57 L=342)  2004    315        4 ( 453/ 274- 523/ 541)  35.8 E71-E44 S26-S08
     18  789  470 (S19E30 L=  8)  1147    287        2 ( 671/ 430- 905/ 527) -47.7 E35-E22 S24-S13
     19 1528  485 (S41W18 L= 56)  1109    188        2 (1435/ 428-1596/ 527)   3.8 W09-W24 S43-S37
     20 1156  261 (S45E18 L= 20)  1795    329        1 (1035/ 182-1303/ 349)   4.1 E31-E03 S49-S42
  

    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