Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1567 1635 (N45W50 L= 45)   751    103        0 (1528/1596-1607/1663) -51.3 W46-W54 N41-N47
      2  727 1541 (N35E25 L=330)   562     99        0 ( 696/1495- 756/1580) -40.6 E28-E21 N31-N37
      3 1042 1460 (N30E00 L=354)   589    231        0 ( 947/1394-1126/1498) -18.4 E07-W05 N26-N33
      4 1718 1469 (N32W58 L= 52)   647     58        0 (1690/1439-1742/1494)  63.4 W54-W61 N30-N34
      5 1472 1435 (N30W32 L= 26)   494    198        0 (1391/1385-1547/1467) -18.4 W25-W37 N26-N32
      6 1024 1384 (N25E01 L=353)   509    223        1 ( 942/1308-1098/1438) -38.7 E07-W03 N20-N28
      7  590 1293 (N18E30 L=325)   273     66        1 ( 566/1262- 616/1320) -36.9 E32-E27 N15-N19
      8  209 1261 (N13E65 L=289)  1743    120        7 ( 168/1197- 244/1313)  66.8 E71-E60 N09-N16
      9 1314 1194 (N14W18 L= 13)   252     87        0 (1277/1169-1341/1227) -36.9 W15-W19 N12-N16
     10  923  966 (S01E06 L=349)   280     90        0 ( 880/ 935- 963/ 986) -21.8 E08-E03 S02-N00
     11 1810  884 (S05W58 L= 53)  1589    300        4 (1771/ 764-1846/ 980) -65.2 W53-W63 S12-N01
     12  771  898 (S06E15 L=339)   276     86        2 ( 749/ 855- 789/ 945)  80.5 E16-E14 S08-S02
     13  649  883 (S07E23 L=331)   489    163        3 ( 610/ 799- 685/ 934)  82.9 E26-E20 S12-S04
     14 1728  882 (S05W50 L= 44)   333     65        2 (1708/ 844-1746/ 916)  76.0 W48-W51 S06-S02
     15 1239  800 (S10W14 L=  9)   750    233        0 (1173/ 701-1301/ 890) -56.3 W09-W18 S16-S04
     16 1056  648 (S21W03 L=358)   870    180        3 ( 996/ 582-1101/ 727) -78.7 W00-W06 S25-S15
     17 1162  677 (S19W10 L=  5)   765    193        3 (1099/ 593-1199/ 723) -48.8 W05-W12 S24-S15
     18  791  697 (S18E14 L=341)   216     98        0 ( 757/ 674- 848/ 720)  33.7 E16-E10 S20-S16
     19  552  685 (S20E31 L=324)   264    100        1 ( 510/ 659- 602/ 716) -15.9 E34-E27 S21-S18
     20  274  582 (S30E64 L=291)  2037    136        2 ( 216/ 552- 331/ 631)  13.6 E85-E52 S33-S25
     21  550  534 (S31E34 L=321)  1351    231        1 ( 499/ 481- 644/ 614) -26.6 E36-E26 S34-S25
     22  931  551 (S28E05 L=350)   834    170        5 ( 849/ 513- 987/ 601)  26.6 E10-W00 S30-S24
     23 1625  492 (S31W51 L= 46)  1467    225        1 (1534/ 439-1710/ 540)  26.6 W43-W59 S34-S27
  

    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